#!/usr/local/bin/perl -w ############################## ## Quick View Fast Surfer ## ## Oct 1 2000 ## ## limdog@webtv.net ## ## ## ## Please Leave Credit ## ## Intact ## ############################## use CGI; use LWP::Simple; $q = new CGI; $url =$q->param("url"); $url =~ tr/(\||\`|\\)//d; ## Heh! $source = get("$url"); ############################## ## Rip out sounds and images # ############################## $source =~ s/src//gim; $source =~ s/autostart//gim; $showsource = "$source"; $top = 'quick_welcome.htm'; unless(-e $top){ ## Write A Top Frame ## Html Page $top_html = "

Enter an Internet Address in the Form Below to Surf Without Images Or Sounds

Script × Limdog "; open (TOP, ">$top"); print TOP "$top_html"; close TOP; } print "Content-type: text/html\n\n"; if ($url){ # click for the # whole # shebang $gostring = "<a href=$url>View Whole Page</a>"; $storage = 'tmp.wrl'; open (VIEW, ">$storage"); print VIEW "$showsource"; close VIEW; } else { $storage = "$top"; } print " <html> <head> <META NAME=\"AUTHOR\"CONTENT=\"limdog\@webtv.net\"> <title> Quick View 1.0 </title> <body onLoad=\"upper.document.location=$storage\"\;> </head> <frameset rows=\"300, \*\"> <frame name=upper src=\"$storage\"> </frame> <frame> <form method=POST> <input name=url size=30 autoactivate value='http://'> <input type=SUBMIT value='Quick View'> <p> <font color=0 size=3> <bq> <b> Limdog's Quick View </font> </b> <p> <bq> $gostring <p> <blockqoute> <font size=2 color=191919> Use QuickView to quickly retrieve textual information from <br> sites bogged down with images and/or sounds. Fetch information <br> quickly without loading your caché up with unimportant <br> information. </font> <spacer type=vertical size=30> <noembed> </frame> </frameset> </body> </html> \n"; ## End Quick View Script ## see ya!