|
Lines 1-31
Link Here
|
|
|
1 |
#!/usr/bin/perl |
| 1 |
package SIPServer; |
2 |
package SIPServer; |
| 2 |
|
3 |
|
| 3 |
use strict; |
4 |
use strict; |
| 4 |
use warnings; |
5 |
use warnings; |
| 5 |
use FindBin qw($Bin); |
6 |
use FindBin qw($Bin); |
| 6 |
use lib "$Bin"; |
7 |
use lib "$Bin"; |
| 7 |
# use Exporter; |
|
|
| 8 |
use Sys::Syslog qw(syslog); |
8 |
use Sys::Syslog qw(syslog); |
| 9 |
use Net::Server::PreFork; |
9 |
use Net::Server::PreFork; |
| 10 |
use IO::Socket::INET; |
10 |
use IO::Socket::INET; |
| 11 |
use Socket qw(:DEFAULT :crlf); |
11 |
use Socket qw(:DEFAULT :crlf); |
| 12 |
use Data::Dumper; # For debugging |
|
|
| 13 |
require UNIVERSAL::require; |
12 |
require UNIVERSAL::require; |
| 14 |
|
13 |
|
| 15 |
#use Sip qw(readline); |
|
|
| 16 |
use Sip::Constants qw(:all); |
14 |
use Sip::Constants qw(:all); |
| 17 |
use Sip::Configuration; |
15 |
use Sip::Configuration; |
| 18 |
use Sip::Checksum qw(checksum verify_cksum); |
16 |
use Sip::Checksum qw(checksum verify_cksum); |
| 19 |
use Sip::MsgType; |
17 |
use Sip::MsgType; |
| 20 |
|
18 |
|
| 21 |
use constant LOG_SIP => "local6"; # Local alias for the logging facility |
19 |
use base qw(Net::Server::PreFork); |
| 22 |
|
|
|
| 23 |
use vars qw(@ISA $VERSION); |
| 24 |
|
20 |
|
| 25 |
BEGIN { |
21 |
use constant LOG_SIP => "local6"; # Local alias for the logging facility |
| 26 |
$VERSION = 3.07.00.049; |
|
|
| 27 |
@ISA = qw(Net::Server::PreFork); |
| 28 |
} |
| 29 |
|
22 |
|
| 30 |
# |
23 |
# |
| 31 |
# Main # not really, since package SIPServer |
24 |
# Main # not really, since package SIPServer |
|
Lines 43-49
my %transports = (
Link Here
|
| 43 |
# Read configuration |
36 |
# Read configuration |
| 44 |
# |
37 |
# |
| 45 |
my $config = new Sip::Configuration $ARGV[0]; |
38 |
my $config = new Sip::Configuration $ARGV[0]; |
| 46 |
print STDERR "SIPServer config: \n" . Dumper($config) . "\nEND SIPServer config.\n"; |
|
|
| 47 |
my @parms; |
39 |
my @parms; |
| 48 |
|
40 |
|
| 49 |
# |
41 |
# |
|
Lines 75-82
if (defined($config->{'server-params'})) {
Link Here
|
| 75 |
} |
67 |
} |
| 76 |
} |
68 |
} |
| 77 |
|
69 |
|
| 78 |
print scalar(localtime), " -- startup -- procid:$$\n"; |
|
|
| 79 |
print "Params for Net::Server::PreFork : \n" . Dumper(\@parms); |
| 80 |
|
70 |
|
| 81 |
# |
71 |
# |
| 82 |
# This is the main event. |
72 |
# This is the main event. |
| 83 |
- |
|
|