hi martin,

danke fuer den tip. 
auf den sun-kisten ist das modul nicht installiert :-(
und da produktiv usw..... muss ich nicht mehr zu sagen, oder?

gruss,
frank

->-----Original Message-----
->From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On 
->Behalf Of Martin Schmitt
->Sent: Wednesday, January 21, 2004 10:22 AM
->To: [EMAIL PROTECTED]
->Subject: Re: [PUG] [PUG]frage an die ssh-experten
->
->
->Hallo Karnbach, Frank,
->dear Karnbach, Frank,
->
->* [EMAIL PROTECTED] wrote/schrieb:
->
->> ich habe eine frage an die ssh-experten.
->> wie kann ich meinen ssh-client - der in einem script 
->aufgerufen werden
->> soll - sagen, dass er bei erfolglosem versuch - sowohl bei nicht
->> vorhandenem ip-partner als auch eventuell nicht laufendem 
->ssh-daemon auf
->> der gegenseite - nach 5-10 sekunden aufgeben soll und nicht 
->z.Bsp. auf
->> tcp/ip-timeouts wartet. Damit koennte das script dann 
->weiterlaufen. den
->> ssh-aufruf einfach in den hintergrund zu legen ist "unschoen".
->> ConnectionAttempts scheint hier nicht weiterzuhelfen. 
->SetupTimeOut gibt
->> es fuer die ssh-version nicht....... kennt irgendjemand 
->einen workaround
->> dafuer.
->
->Sowas hier vielleicht? Hab ich mal für einen Kunden geschrieben, der
->wahrscheinlich die selbe SSH-Version hatte wie Du jetzt. ;-) 
->
->#!/usr/bin/perl -w
->use strict;
->use warnings;
->use diagnostics;
->use IO::Socket::INET;
->
->die "Usage: $0 <hostname>\n" unless ($ARGV[0]);
->
->print STDERR "Testing if $ARGV[0] listens on SSH port... ";
->
->my $socket = IO::Socket::INET->new(
->                                PeerAddr => $ARGV[0],
->                                PeerPort => 22,
->                                Proto    => 'tcp',
->                                Timeout  => 5
->                                );
->if ($socket){
->        if (<$socket> =~ /SSH/i){
->                print STDERR "Yes.\n";
->                close $socket;
->                exit 0;
->        }else{
->                close $socket;
->                print STDERR "No.\n";
->                exit 1;
->        }
->}else{
->        print STDERR "No.\n";
->        exit 1;
->}
->
->Ciao,
->
->-martin
->
->-- 
->+-------------------------+------------------------+----------
---------------+
->| Martin Schmitt          | Schmitt Systemberatung | 
->SPAM-Wetterlage         |
->| http://www.scsy.de/~mas | http://www.scsy.de     | 
http://www.scsy.de/spam |
+-------------------------+------------------------+-------------------------+
----------------------------------------------------------------------------
PUG - Penguin User Group Wiesbaden - http://www.pug.org

----------------------------------------------------------------------------
PUG - Penguin User Group Wiesbaden - http://www.pug.org

Antwort per Email an