@@ -, +, @@ --- C4/SIP/SIPServer.pm | 16 +++------------- 1 files changed, 3 insertions(+), 13 deletions(-) mode change 100644 => 100755 C4/SIP/SIPServer.pm --- a/C4/SIP/SIPServer.pm +++ a/C4/SIP/SIPServer.pm @@ -1,31 +1,24 @@ +#!/usr/bin/perl package SIPServer; use strict; use warnings; use FindBin qw($Bin); use lib "$Bin"; -# use Exporter; use Sys::Syslog qw(syslog); use Net::Server::PreFork; use IO::Socket::INET; use Socket qw(:DEFAULT :crlf); -use Data::Dumper; # For debugging require UNIVERSAL::require; -#use Sip qw(readline); use Sip::Constants qw(:all); use Sip::Configuration; use Sip::Checksum qw(checksum verify_cksum); use Sip::MsgType; -use constant LOG_SIP => "local6"; # Local alias for the logging facility - -use vars qw(@ISA $VERSION); +use base qw(Net::Server::PreFork); -BEGIN { - $VERSION = 3.07.00.049; - @ISA = qw(Net::Server::PreFork); -} +use constant LOG_SIP => "local6"; # Local alias for the logging facility # # Main # not really, since package SIPServer @@ -43,7 +36,6 @@ my %transports = ( # Read configuration # my $config = new Sip::Configuration $ARGV[0]; -print STDERR "SIPServer config: \n" . Dumper($config) . "\nEND SIPServer config.\n"; my @parms; # @@ -75,8 +67,6 @@ if (defined($config->{'server-params'})) { } } -print scalar(localtime), " -- startup -- procid:$$\n"; -print "Params for Net::Server::PreFork : \n" . Dumper(\@parms); # # This is the main event. --