Select Code to Download

    my @tcpsockets;
    foreach my $service (@{$config->{external_network}->{service}}) {
        print '** Service at port ', $service->{port}, ' does ', $serv
+ice->{usessl} ? '' : 'NOT', " use SSL/TLS\n";
...
    }
    my $select = IO::Select->new(@tcpsockets);
    $self->{select} = $select;

sub run($self) {

    while(1) {
...
    print "run() loop finished.\n";
    return;
}

...
        if($usessl) {
...
            }
        }
...

sub socketstart($self, $ua) {

    my $sysh = $self->{server}->{modules}->{$self->{systemsettings}};
...

    return %result;
}

sub sockethandler($self, $ua) {

...
...

    return 1;
}

sub wsprint($self, $message) {
    
...
...
    
    return 1;
}

sub webPrint($ofh, @parts) {
    
    my $brokenpipe = 0;
...
    }
    return 1;
}