# | 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 |