xlog: Optionally show more approval/rejection reasons

[modbot-mtm.git] / xlog / bin / record

diff --git a/xlog/bin/record b/xlog/bin/record
index 240883354825fa8ba935039ec6efb719c7bfb8de..916be1282e640c8755d4f9bb6b03fddecbb2e28a 100755 (executable)
--- 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;
     }
 }