Fixes to disable-ticketless + TakeAction
authorMikal Kolbein Gule <m.k.gule@usit.uio.no>
Thu, 23 May 2013 15:10:25 +0000 (17:10 +0200)
committerMikal Kolbein Gule <m.k.gule@usit.uio.no>
Thu, 23 May 2013 15:21:53 +0000 (17:21 +0200)
local/bin/rt-disable-ticketless
local/lib/RT/Interface/Email/Filter/TakeAction.pm

index 11e6b51..e8aa7a8 100755 (executable)
@@ -28,9 +28,13 @@ my @result = $RT::Handle->FetchResult("SELECT DISTINCT main.* FROM Tickets main
 unless (@result) {
 my $User = new RT::User($RT::SystemUser);
        $User->Load($id);
-       print "$id - ".$User->Name." - ";
-       print $User->SetDisabled(1)."\n";
-       
+    next if ($User->Name !~ /\@/);
+    my $delta = Delta_Format(DateCalc($User->Created,"2013-05-23 12:10"), 0, '%dh');
+    my $msg = "$id - ".$User->Name." - Delta: $delta ";
+    if ($delta <= 30) {$msg .= " - NOT DISABLE!!!\n"}
+    else {$msg .= $User->SetDisabled(1)."\n"};
+    $RT::Logger->info("$msg");
+    print $msg;        
 }
 
 }
index 1f8204b..f4bd25f 100644 (file)
@@ -506,6 +506,10 @@ sub GetCurrentUser {
             MIMEObj => $args{'Message'}
         );
         unless ( $id ) {
+            if ($msg =~ /No permission to create/) {
+                 $msg.= "\n\nIf you feel that you should have permission to create ".
+                        "this ticket contact us \@ rt-nonrt\@usit.uio.no";     
+            };
             $msg = "Couldn't create ticket from message with commands, ".
                    "fallback to standard mailgate.\n\nError: $msg";
             $RT::Logger->error( $msg );