Merge remote-tracking branch 'origin/master'

[chise/kage.git] / linkmap / map.cgi

diff --git a/linkmap/map.cgi b/linkmap/map.cgi
new file mode 100755 (executable)
index 0000000..ab4690b
--- /dev/null
+++ b/linkmap/map.cgi
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+
+$PERL = "/usr/bin/perl";
+$LINKMAP_DIR = "/var/www/fonts.jp/chise_linkmap";
+
+use CGI;
+$cgi = new CGI;
+$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;
+}
+
+print "Content-type: text/html\n\n";
+print $buffer;
+