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 |
- |
|
|