Guest User

Untitled

a guest
Jun 19th, 2018
85
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.29 KB | None | 0 0
  1. my $event = Pms::Core::MessageEvent->new($user,$channel,$message);
  2. $self->{m_events}->event('new_message' => $event);
  3. if($event->wasRejected()){
  4.   #Hier der Code wenn die Message nicht gesendet werden darf
  5.   #zB Grund warum rejected
  6. }{
  7.   #Hier der Code der die Message dann wirklich sendet
  8. }
Add Comment
Please, Sign In to add comment