[LON-CAPA-cvs] cvs: modules /gerd classify.pl

[www]

www		Fri Mar 24 16:44:54 2006 EDT

  Modified files:              
    /modules/gerd	classify.pl 
  Log:
  Asks again if classification is wrong
  
  
Index: modules/gerd/classify.pl
diff -u modules/gerd/classify.pl:1.1 modules/gerd/classify.pl:1.2
--- modules/gerd/classify.pl:1.1	Tue Mar 21 17:00:51 2006
+++ modules/gerd/classify.pl	Fri Mar 24 16:44:54 2006
@@ -12,23 +12,32 @@
       $sender=$hash{$version.':'.$url.':sendername'};
       $domain=$hash{$version.':'.$url.':senderdomain'};
       $message=$hash{$version.':'.$url.':message'};
-      print &unescape($message)."\n>";
-      $input=<STDIN>;
-      chomp($input);
-      if ($input eq 'q') {
-         untie(%hash);
-         untie(%already);
-         close(OUT);
-         $time=time;
-         copy('classified.db','classified.'.$time.'.db');
-         copy('classified.csv','classified.'.$time.'.csv');
-         exit;
-      }
-      if ($input=~/^(\d[a-d])+$/) {
-         print OUT "$sender,$domain,$url,$input\n";
-         $already{$key}=1;  
-      }
-   }
+      print &unescape($message)."\n---\n";
+      print (<<ENDCLASS);
+1 emot pos; 2 emot neg; 3 surf Q; 4 surf A; 5 proc Q; 6 proc A; 7 proc Q; 8 proc A
+a unrel; b sol; c math; d phys
+ENDCLASS
+      $input='';
+      while (1) {
+	 print ">";
+	 $input=<STDIN>;
+	 chomp($input);
+	 if ($input eq 'q') {
+	     untie(%hash);
+	     untie(%already);
+	     close(OUT);
+	     $time=time;
+	     copy('classified.db','classified.'.$time.'.db');
+	     copy('classified.csv','classified.'.$time.'.csv');
+	     exit;
+	 }
+	 if ($input=~/^(\d[a-d])+$/) {
+	     print OUT "$sender,$domain,$url,".length(&unescape($message)).",$input\n";
+	     $already{$key}=1;
+             last;
+	 }
+     }
+  }
 }
 untie(%hash);
 untie(%already);