Guest User

Untitled

a guest
Apr 21st, 2018
97
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.46 KB | None | 0 0
  1. my $user = new RT::User( $self->CurrentUser );
  2. $user->Load( $self->TicketObj->Creator() );
  3. $user->UpdateFromLdap();
  4.  
  5. if ($user->Organization =~ m/SFLClient/)
  6. {
  7.   $self->TicketObj->SetQueue("Support");
  8. }
  9. elsif ($user->EmailAddress =~ m/rhn\.redhat\.com/)
  10. {
  11.   $self->TicketObj->SetQueue("RHN");
  12.   $self->TicketObj->SetStatus("stalled");
  13. }
  14. elsif ($user->EmailAddress =~ m/savoirfairelinux\.(net|com)/)
  15. {
  16.   $self->TicketObj->SetQueue("Interne");
  17. }
  18.  
  19. return 1;
Add Comment
Please, Sign In to add comment