Parent Directory | Revision Log | Patch
revision 1.3 by dpavlin, Mon Oct 22 18:17:12 2001 UTC | revision 1.4 by dpavlin, Sat Nov 3 10:15:41 2001 UTC | |
---|---|---|
# | Line 14 my $from = 'clipping-info@pliva.hr'; | Line 14 my $from = 'clipping-info@pliva.hr'; |
14 | my $to = 'clipdir@pliva.hr'; | my $to = 'clipdir@pliva.hr'; |
15 | my $log = "/data/store/mimex.log"; | my $log = "/data/store/mimex.log"; |
16 | ||
17 | open(LOG,">> $log) || warn "log $log: $!"; | open(LOG,">> $log") || warn "log $log: $!"; |
18 | ||
19 | open(MAIL,"| /usr/sbin/sendmail $to") || die "sendmail: $!"; | open(MAIL,"| /usr/sbin/sendmail $to") || die "sendmail: $!"; |
20 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |