3 $PERL = "/usr/bin/perl";
4 #$LINKMAP_DIR = "/var/www/fonts.jp/chise_linkmap";
5 $LINKMAP_DIR = "/var/www/chise_linkmap";
9 $target = lc($cgi->param('code'));
10 if($target !~ m/^[0-9a-f]{4,5}$/){
11 $buffer = "Request error!";
13 if(!-e "$LINKMAP_DIR/data/linkmap_$target.html"){
14 $dummy = `$PERL $LINKMAP_DIR/map.pl $target data/linkmap_$target 2>/dev/null`;
18 open FH, "<$LINKMAP_DIR/data/linkmap_$target.html";
25 print "Content-type: text/html\n\n";