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 $dummy = `/usr/bin/perl /home/kamichi/chiseperl/map.pl $target $random 2>/dev/null`;
   9
  10 $buffer = "";
  11 open FH, "<$random.html";
  12 foreach(<FH>){
  13   $buffer .= $_;
  14 }
  15 close FH;
  16
  17 print "Content-type: text/html\n\n";
  18 print $buffer;