X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=linkmap%2Fmap.cgi;h=27f2701d04c4168ae888cf5fd2eaf0228f740dd3;hb=e9a7271024b84991d53f25cf547b1f9fa104fc06;hp=28c91356579ac8fce1d517105b34509e4fe958c1;hpb=137c8c4c8f16333f7913f59c869eb1c581f4f3c8;p=chise%2Fkage.git

diff --git a/linkmap/map.cgi b/linkmap/map.cgi
index 28c9135..27f2701 100755
--- a/linkmap/map.cgi
+++ b/linkmap/map.cgi
@@ -1,19 +1,27 @@
 #!/usr/bin/perl
 
-$random = sprintf "%05X", int(rand()*0x100000);
+$PERL = "/usr/bin/perl";
+#$LINKMAP_DIR = "/var/www/fonts.jp/chise_linkmap";
+$LINKMAP_DIR = "/var/www/chise_linkmap";
 
 use CGI;
 $cgi = new CGI;
-$target = $cgi->param('code');
-$target =~ tr/\;\<\>\|//d;
-$dummy = `/usr/bin/perl /var/www/chiseperl/map.pl $target $random 2>/dev/null`;
-
-$buffer = "";
-open FH, "<$random.html";
-foreach(<FH>){
-  $buffer .= $_;
+$target = lc($cgi->param('code'));
+if($target !~ m/^[0-9a-f]{4,5}$/){
+  $buffer = "Request error!";
+} else {
+  if(!-e "$LINKMAP_DIR/data/linkmap_$target.html"){
+    $dummy = `$PERL $LINKMAP_DIR/map.pl $target data/linkmap_$target 2>/dev/null`;
+  }
+  
+  $buffer = "";
+  open FH, "<$LINKMAP_DIR/data/linkmap_$target.html";
+  while(!eof(FH)){
+    $buffer .= <FH>;
+  }
+  close FH;
 }
-close FH;
 
 print "Content-type: text/html\n\n";
 print $buffer;
+