| 1 | # This is a little perl script for test 581. It reads the first failed time |
| 2 | # from test-stdout, turns it back into an integer, and forces the received |
| 3 | # time in the -H file of the current message. |
| 4 | |
| 5 | use Time::Local; |
| 6 | |
| 7 | opendir(DIR, "spool/input"); |
| 8 | while (($_ = readdir(DIR))) |
| 9 | { |
| 10 | if (/.*-H$/) |
| 11 | { |
| 12 | $hfile = $_; |
| 13 | break; |
| 14 | } |
| 15 | } |
| 16 | closedir(DIR); |
| 17 | |
| 18 | @months = ("Jan", "Feb", "Mar", "Apr", "May", "Jun", |
| 19 | "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"); |
| 20 | |
| 21 | open(IN, "test-stdout") || die "can't open test-stdout\n"; |
| 22 | |
| 23 | $_ = <IN>; |
| 24 | $_ = <IN>; |
| 25 | $_ = <IN>; |
| 26 | |
| 27 | close(IN); |
| 28 | |
| 29 | ($mday,$mon,$year,$hour,$min,$sec) = |
| 30 | /(\d\d)-(\w\w\w)-(\d\d\d\d) (\d\d):(\d\d):(\d\d)/; |
| 31 | |
| 32 | for ($i = 0; $i < 12; $i++) |
| 33 | { |
| 34 | if ($mon eq $months[$i]) |
| 35 | { |
| 36 | $mon = $i; |
| 37 | break; |
| 38 | } |
| 39 | } |
| 40 | |
| 41 | $t = timelocal($sec,$min,$hour,$mday,$mon,$year); |
| 42 | |
| 43 | open(IN, "spool/input/$hfile") || die "can't open spool/input/$hfile"; |
| 44 | |
| 45 | open(OUT, ">test-H"); |
| 46 | |
| 47 | $_ = <IN>; print OUT; |
| 48 | $_ = <IN>; print OUT; |
| 49 | $_ = <IN>; print OUT; |
| 50 | $_ = <IN>; |
| 51 | print OUT "$t 0\n"; |
| 52 | print OUT while (<IN>); |
| 53 | |
| 54 | close(IN); |
| 55 | close(OUT); |
| 56 | |
| 57 | rename("test-H", "spool/input/$hfile") || die "rename failed\n"; |
| 58 | |
| 59 | # End |