projects / chise / kage.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 035d452)
Fixed. Emphasizing the error data.
authorKoichi KAMICHI <kamichi@fonts.jp>
Fri, 26 Jan 2007 01:29:05 +0000 (01:29 +0000)
committerKoichi KAMICHI <kamichi@fonts.jp>
Fri, 26 Jan 2007 01:29:05 +0000 (01:29 +0000)
makettf/checkdata.cgi patch | blob | history

diff --git a/makettf/checkdata.cgi b/makettf/checkdata.cgi
index d156024..7a5edcf 100755 (executable)
--- a/makettf/checkdata.cgi
+++ b/makettf/checkdata.cgi
@@ -1,7 +1,8 @@
 #!/usr/bin/perl
 
-$ERROR_SYNTAX = 1;
-$ERROR_NOPARTS = 2;
+$ERROR_LINE_SYNTAX = 1;
+$ERROR_STROKE_SYNTAX = 2;
+$ERROR_NOPARTS = 4;
 
 use utf8;
 binmode STDOUT, ":utf8";
@@ -11,6 +12,10 @@ $| = 1;
 
 my $data = $form->param('partsdata');
 utf8::decode($data);
+$data =~ s/\&/\&amp\;/g;
+$data =~ s/</\&lt\;/g;
+$data =~ s/>/\&gt\;/g;
+$data =~ s/\"/\&quot\;/g;
 @buffer = split(/\r\n|\r|\n/, $data);
 
 $result = "";
@@ -29,10 +34,15 @@ foreach $temp (@buffer){
 foreach $temp (@buffer){
   if($temp =~ m/:/ && $temp =~ m/[0-9]/){
     $error = 0;
-    $check = 0;
-    @temp = split(/ |\t|\r\n|\r|\n/, $temp);
+    $error_data = "";
+    @temp = split(/ +|\t|\r\n|\r|\n/, $temp);
+    if(scalar(@temp) != 2){
+      $error = $error | $ERROR_LINE_SYNTAX;
+    }
     @temp2 = split(/\$/, $temp[1]);
     foreach $temp2 (@temp2){
+      $check = 0;
+      $error_data = $temp2;
       if($temp2 =~ m/^1:(0|2):(0|2):/){ $check++; }
       if($temp2 =~ m/^1:(0|12|22|32):(0|13|23|32|4):/){ $check++; }
       if($temp2 =~ m/^2:(0|12|22|32):(4|5|7):/){ $check++; }
@@ -48,13 +58,18 @@ foreach $temp (@buffer){
         }
       }
       if($temp2 =~ m/^0:/){ $check++; }
-    }
-    if($check == 0){
-      $error = $error | $ERROR_SYNTAX;
+      if($check == 0){
+        $error = $error | $ERROR_STROKE_SYNTAX;
+        last;
+      }
     }
     if($error != 0){
-      if($error & $ERROR_SYNTAX){
-        $result .= "** 文法エラー・処理できない筆画があります **\n";
+      if($error & $ERROR_LINE_SYNTAX){
+        $result .= "** 行の構造が変です。またはコメント行が紛らわしいための誤検出の可能性があります。 **\n";
+      }
+      if($error & $ERROR_STROKE_SYNTAX){
+        $result .= "** 処理できない筆画があります **\n";
+        $temp =~ s/$error_data/<span style="color: red;">$error_data<\/span>/;
       }
       if($error & $ERROR_NOPARTS){
         $result .= "** 99番で使用されている部品が存在しません **\n";
@@ -85,7 +100,7 @@ Content-type: text/html;
 <body>
 <div class="main">
 <h1>チェック結果</h1>
-<p>チェック結果は以下の通りです。</p>
+<p>チェック結果は以下の通りです。なお、エラーがある場合、ここれで表示される以外にもエラーがある可能性がありますので、エラー修正後、再度チェックを行ってください。</p>
 <pre>
 $result
 </pre>