Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
Leser: 3
 |
 |
2 Einträge, 1 Seite |
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
#!/usr/bin/perl
use Net::FTP;
my $host="...";
my $user="...";
my $pass="...";
$ftp=Net::FTP->new($host,Timeout=>240) or $newerr=1;
push @ERRORS, "Can't ftp to $host\n" if $newerr;
myerr() if $newerr;
$ftp->login($user, $pass) or $newerr=1;
push @ERRORS, "Can't login to $host\n" if $newerr;
$ftp->quit if $newerr;
myerr() if $newerr;
print "UP:Connection up with $user to $host\n";
$ftp->quit;
sub myerr {
print "DOWN:";
print @ERRORS;
exit 0;
}
|
|
2 Einträge, 1 Seite |
Schrift
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
