Opened by cc at 2004-06-16 18:34
User since
2004-01-09
55 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-01-09
55 Artikel
BenutzerIn
herzlichen dank !
habe nur ein problem das ganze script schickt immer diese mail
und soll sie nur schicken, wenn der file dort existiert.
wenn kein file gefunden wird, sollte keine mail geschickt werden
\n\n
<!--EDIT|cc|1122588143-->
habe nur ein problem das ganze script schickt immer diese mail
und soll sie nur schicken, wenn der file dort existiert.
wenn kein file gefunden wird, sollte keine mail geschickt werden
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
# prüfen ob file vorhanden ist
my $check = grep { $_ eq $new } $ftp->ls;
if ($check) {
#nur wenn file vorhanden eine error mail schicken
open(MAIL, "|/usr/sbin/sendmail -t") || die "Cant send mail. Reason:
+$!";
print MAIL "from:$sender\n";
print MAIL "to:$recipient\n";
print MAIL "subject: file existiert !\n";
print MAIL "file existiert ! \n";
close(MAIL);
die "achtung file existiert !\n" and next;
}
#quit FTP
$ftp->quit;
<!--EDIT|cc|1122588143-->