suche perlscript, wenn ping 4x negativ, dann mail - #839 (Perl/CGI)

Maluku

2004-03-04 17:44

User since
2003-10-02
27 Artikel
BenutzerIn

Cygwin Perl 5.6.1 kennt Das Siganl ALARM und es gibt sogar ein passendes Sendmailo für Windows.
Das macht ca. 3 Dateien
(perl.exe , cygwin1.dll , sendmail.exe, die einfach im skriptverzeichnis liegend auch unter Windows laufen.)

Das ist nun nicht wirklich kompliziert!

Code (perl): ()

&#36_='';
s%%`^.*`s;.*;uhtnmo;;a>lha~a>inu~a>fmk~a>rou~a>duM~a>btl~s;&&&&&&;!d1!l2!b3!i4!f5!r6q(?);e;Z`
`}a>&&&`sub# "1#{#"_=shift#;s^"2^"3#^;``;~`return #"_#}``^!&&`"1(#""2)#\.`Z%;
s~Z~print~g;s/#/\\/g;s/`(.)(.+?)`(.+?)`/s&#36{1}&#36{2}&#36{1}&#36{3}&#36{1}g\;/g;s;&;(.);g;y^"^&#36^;
print;