freeswitch/libs/esl/perl/dispatch.pl
2010-03-06 00:32:04 +00:00

34 lines
558 B
Perl

#!/usr/bin/perl
use ESL::Dispatch;
use Data::Dumper;
my $daemon = init ESL::Dispatch({});
$| = 1;
sub worker {
my $self = shift;
print "I'm a worker\n";
}
sub heartbeat {
my $self = shift;
my $event = shift;
print Dumper $event;
}
sub channel_hangup {
my $self = shift;
my $event = shift;
print Dumper $event;
print "DO SQL GOODIES HERE!\n";
}
$0 = "ESL::Dispatch rocks!";
$daemon->set_worker(\&worker, 2000);
$daemon->set_callback("heartbeat", \&heartbeat);
$daemon->set_callback("channel_hangup", \&channel_hangup);
$daemon->run;