An/Abwesenheit mit Kombination fhem auf CentOS und FritzBox7270

Begonnen von wkarl, 01 Januar 2013, 16:07:03

Vorheriges Thema - Nächstes Thema

Sturi2011

Hi,

auch gelöst->net::ssh::perl.pm: Rot original, grün richtig weil Connection bereits closed aber Socket noch gebunden.

sub _create_socket {
    my $ssh = shift;
    my $sock = gensym;

        my ($p,$end,$delta) = (0,1,1); # normally we use whatever port we can get
           ($p,$end,$delta) = (1023,512,-1) if $ssh->{config}->get('privileged');

        # allow an explicit bind address
    my $addr = $ssh->{config}->get('bind_address');
        $addr = inet_aton($addr) if $addr;
        ($p,$end,$delta) = (10000,65535,1) if $addr and not $p;
        $addr ||= INADDR_ANY;

    for(; $p != $end; $p += $delta) {
        socket($sock, AF_INET, SOCK_STREAM, getprotobyname('tcp') || 0) ||
            croak "Net::SSH: Can't create socket: $!";
        last if not $p or bind($sock, sockaddr_in($p,$addr));
        if ($! =~ /Address already in use/i) {
            close($sock) or warn qq{Could not close socket: $!\n};
[color=red]            next;[/color]        }
[color=green]        next;[/color]
        croak "Net::SSH: Can't bind socket to port $p: $!";
    }
        if($p) {
                $ssh->debug("Allocated local port $p.");
                $ssh->{config}->set('localport', $p);
        }

    $sock;
}


Gruß Andreas

Sturi2011

Hi,

merke - in Code Blöcken wird der BBCode des Forums als Code interpretiert.....

Gruß Andreas