# | Line 87 | Line 87 | sub mailinfo() { | |
---|---|---|
87 | PeerAddr => $server, | |
88 | PeerPort => $port, | |
89 | Proto => 'tcp' | |
90 | < | ) or die "Connection to server broken"; |
90 | > | ) or die "Connection to server broken\n"; |
91 | ||
92 | if(!defined $sock) { | |
93 | < | print "Connection to server broken"; |
93 | > | print "Connection to server broken\n"; |
94 | exit(1); | |
95 | } | |
96 | ||
# | 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 |