View | Details | Raw Unified | Return to bug 12263
Collapse All | Expand All

(-)a/C4/SIP/SIPServer.pm (-14 / +3 lines)
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
- 

Return to bug 12263