Advertisement
Guest User

Untitled

a guest
Oct 20th, 2017
377
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.76 KB | None | 0 0
  1. use strict;
  2.     use warnings;
  3.     use Yate;
  4.     sub call_route_handler($) {
  5.         my $message = shift;
  6.         # Event is processed and returns the following:
  7.         return 'sip/sip:' . $message->param('called') . '@11.11.11.11';
  8.     }
  9.     sub call_execute_handler($) {
  10.         my $message = shift;
  11.         $message->dump();
  12.         # Event is not processed. You can use 0 or undef instead.
  13.         # or just don't use return.
  14.         return 'false';
  15.     }
  16.     my $message = new Yate();
  17.     # call.route, call.execute or any other event.
  18.     $message->install('call.route', \&call_route_handler);
  19.     # This processes events from other modules like conference.cpp.
  20.     $message->install_watcher('call.execute', \&call_execute_handler);
  21.     $message->listen();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement