X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~webstump/git?p=modbot-mtm.git;a=blobdiff_plain;f=xlog%2Fbin%2Frecord;h=916be1282e640c8755d4f9bb6b03fddecbb2e28a;hp=240883354825fa8ba935039ec6efb719c7bfb8de;hb=73ab10ce2582ea5b4e41465e075cde89cd2a73fb;hpb=87c1744952c472b438731e0022c5bcb4709eac3d

diff --git a/xlog/bin/record b/xlog/bin/record
index 2408833..916be12 100755
--- a/xlog/bin/record
+++ b/xlog/bin/record
@@ -96,10 +96,14 @@ sub parse_webstump2stump () {
 	parse__stumpsubject();
 	last if m/^$/;
     }
+    my $cathow = '';
     while (<STDIN>) {
 	chomp;
+	if (m/^\#( \w+.*)$/) {
+	    $cathow = $1;
+	}
 	next unless m/^reject|^approve|^preapprove/;
-	$f{Event}= $_;
+	$f{Event}= $_.$cathow;
 	last;
     }
 }