tunnel/seturl.cgi

   1 #!/usr/local/bin/perl
   2 # Sets the URL cookie
   3
   4 require './tunnel-lib.pl';
   5 &ReadParse();
   6 &error_setup($text{'seturl_err'});
   7 $in{'url'} =~ /^(http|https):\/\/(\S+)$/ || &error($text{'seturl_eurl'});
   8 &redirect("link.cgi/$in{'url'}");
   9