BarnOwl::Module::RT: Fix Perl warnings

[Scripts/git/.git] / rt / BarnOwl / lib / BarnOwl / Module / RT.pm

diff --git a/rt/BarnOwl/lib/BarnOwl/Module/RT.pm b/rt/BarnOwl/lib/BarnOwl/Module/RT.pm
index 95b51a5ecc3af671d5f47d697b83343136804143..4963eff6eea85d09e0c22644f22c64cde8e9c9d5 100644 (file)
--- a/rt/BarnOwl/lib/BarnOwl/Module/RT.pm
+++ b/rt/BarnOwl/lib/BarnOwl/Module/RT.pm
@@ -23,6 +23,7 @@ my %commands = (
     "status\\s(deleted|resolved|rejected|open|new|waiting)", "edit ticket/\$t set status=\$1",
     "(d|del|delete)", "edit ticket/\$t set status=deleted",
     "(r|res|resolve)", "edit ticket/\$t set status=resolved",
+    "(rej|reject|rejected)", "edit ticket/\$t set status=rejected",
     "show", "show -l ticket/\$t/history",
     "show (\\d+)", "show -l ticket/\$1/history",
     "list", 'rt list -o +Created "((Status=new or Status=stalled or Status=open) and (Queue=\'$q\'))"',
@@ -47,7 +48,7 @@ if(-r "$file_path") {
     close($fh);
 }
 
-my $file_path = "$cfg/rtcommands";
+$file_path = "$cfg/rtcommands";
 if(-r "$file_path") {
     open(my $fh, "<:encoding(UTF-8)", "$file_path") or die("Unable to read $file_path:$!\n");
     while(defined(my $line = <$fh>)) {
@@ -134,6 +135,7 @@ Examples:
            rt [set|add|del] <args> - runs rt (set|add|del) with relevent args - Dangerous if not careful
            rt [d|del|delete] - mark a ticket deleted
            rt [r|res|resolve] - mark a ticked resolved
+           rt [rej|reject|rejected] - mark a ticked rejected
            rt status [deleted|resolved|new|open|waiting|rejected] - set status of a ticket
            rt show - show detailed history of selected ticket
            rt show <ticket> - show history of <ticket>
@@ -163,7 +165,7 @@ rtcommands:
 
            It is a good place to put custom queries which will be used frequently.
          Examples:
-           "list-owner (\w+)" "rt list -o +Created \"((Status=new or Status=stalled or Status=open) and (Queue='\$q') and 'Owner='\$1')\""
+           "list-owner (\\w+)" "rt list -o +Created \"((Status=new or Status=stalled or Status=open) and (Queue='\$q') and 'Owner='\$1')\""
        
            \$t is the current ticket
            \$q is the current queue