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