linkmap/map.cgi

   1 #!/usr/bin/perl
   2
   3 $random = sprintf "%05X", int(rand()*0x100000);
   4
   5 use CGI;
   6 $cgi = new CGI;
   7 $target = $cgi->param('code');
   8 $target =~ tr/\;\<\>\|//d;
   9 $dummy = `/usr/bin/perl /var/www/chiseperl/map.pl $target $random 2>/dev/null`;
  10
  11 $buffer = "";
  12 open FH, "<$random.html";
  13 foreach(<FH>){
  14   $buffer .= $_;
  15 }
  16 close FH;
  17
  18 print "Content-type: text/html\n\n";
  19 print $buffer;