#!/usr/local/bin/perl ### Script: surf.pl (chmod: 755) ############################################## ### Keleko, Inc. © 1999 Casaveli@webtv.net ### ###     http://www.keleko.com/scripts/     ### ############################################## ###  You must have "CGI.pm" - located at:  ### ### http://stein.cshl.org/WWW/software/CGI ### ############################################## use CGI; $query = new CGI; $url = $query->param('url'); &checkup; sub checkup {if ($url eq "") {&home;} else {&casurf;}} sub casurf { print "Content-type: text/html\n\n"; print("\n"); print("\n"); print("Casurf @ $url\n"); print("\n"); print("\n"); print("
\n"); print("
\n"); print("\n"); print("\n"); print("\n"); print("\n"); print("
\n"); print("\n"); print("\n"); print("\n"); print("
\n"); print("
\n"); print("

\n"); print("© 1999. Keleko, Inc. All rights reserved.\n"); print("

\n"); print("\n"); print("\n"); print("\n"); print("\n"); print("

\n"); print("\n"); print("\n");} sub home { print "Content-type: text/html\n\n"; print("\n"); print("\n"); print("Casurf © 1999 Casaveli\@webtv.net\n"); print("\n"); print("\n"); print("
\n"); print("
\n"); print("\n"); print("\n"); print("\n"); print("\n"); print("
\n"); print("\n"); print("\n"); print("\n"); print("
\n"); print("
\n"); print("

\n"); print("© 1999. Keleko, Inc. All rights reserved.\n"); print("

\n"); print("\n"); print("\n");}