linkmap/map.cgi

   1 #!/usr/bin/perl
   2
   3 $PERL = "/usr/bin/perl";
   4 #$LINKMAP_DIR = "/var/www/fonts.jp/chise_linkmap";
   5 $LINKMAP_DIR = "/var/www/chise_linkmap";
   6
   7 use CGI;
   8 $cgi = new CGI;
   9 $target = lc($cgi->param('code'));
  10 if($target !~ m/^[0-9a-f]{4,5}$/){
  11   $buffer = "Request error!";
  12 } else {
  13   if(!-e "$LINKMAP_DIR/data/linkmap_$target.html"){
  14     $dummy = `$PERL $LINKMAP_DIR/map.pl $target data/linkmap_$target 2>/dev/null`;
  15   }
  16
  17   $buffer = "";
  18   open FH, "<$LINKMAP_DIR/data/linkmap_$target.html";
  19   while(!eof(FH)){
  20     $buffer .= <FH>;
  21   }
  22   close FH;
  23 }
  24
  25 print "Content-type: text/html\n\n";
  26 print $buffer;
  27