1 |
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
2 |
|
|
3 |
|
# |
4 |
# read mbox with error messages from mail server (like |
# read mbox with error messages from mail server (like |
5 |
# Returned mail: Host unknown (Name server... |
# Returned mail: Host unknown (Name server... |
6 |
# and dump e-mails which are returned so that they can be feeded |
# and dump e-mails which are returned so that they can be feeded |
7 |
# back to sendmail using |
# back to sendmail using |
8 |
# $ sendmail -t < mail.0 |
# $ sendmail -t < mail.0 |
9 |
|
# |
10 |
|
|
11 |
my $b; |
my $b; |
12 |
|
|
31 |
} |
} |
32 |
$b=$_; |
$b=$_; |
33 |
} |
} |
34 |
|
|
|
|
|