Thread suche perlscript, wenn ping 4x negativ, dann mail (25 answers)
Opened by cc at 2004-01-11 17:49

[E|B]
 2004-01-11 18:36
#818 #818
User since
2003-08-08
2561 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Hab da mal was gebastelt.
Allerdings weiß ich im Moment nicht, welche Fehlermeldung Linux/Unix zurückgibt, wenn Ping fehlschlägt... Ich habe es einmal durch die Windows Meldung "Zeitüberschreitung" ersetzt. Das musst du dann halt ggf. anpassen.

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl

use warnings;
use strict;

my $result = `ping 127.0.0.1`;
if($result =~ /Zeitüberschreitung{4}/gi){
          open(M, "|/use/lib/sendmail -t") or die "Can't open Sendmail!";
            print M "From: ping\@check.de\n";
            print M "To: your\@email.de\n";
            print M "Subject: [Ping failed!]\n\n";
            print M "Ping wurde nicht erfolgreich ausgefuehrt!";
          close(M);
          print "Ping nicht erfolgreich! E-Mail wurde versandt!";
}else{
          print "Ping erfolgreich!";
}
Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

View full thread suche perlscript, wenn ping 4x negativ, dann mail