| # | Line 6 | Line 6 | |
|---|---|---|
| 6 | # A perl script that mimmicks the behaviour of the UKC | |
| 7 | # mailinfo client. Supports all functions except the -C | |
| 8 | # option to change mailstore. | |
| 9 | < | # - T.D.Bishop@ukc.ac.uk |
| 9 | > | # - T.D.Bishop@kent.ac.uk |
| 10 | # | |
| 11 | # $Author$ | |
| 12 | # $Id$ | |
| # | Line 107 | Line 107 | sub mailinfo() { | |
| 107 | ||
| 108 | # send the query | |
| 109 | print $sock "$mode $name\n"; | |
| 110 | + | $response = ""; |
| 111 | ||
| 112 | # read and print the response | |
| 113 | while($response ne ".\n") { | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |