23 |
|
|
24 |
|
# default settings |
25 |
|
my($mailinfo_mode) = "mi_guess"; |
26 |
< |
my($mailinfo_name) = getlogin; |
26 |
> |
my($mailinfo_name) = ""; |
27 |
|
my($mailinfo_quick) = 0; |
28 |
|
|
29 |
|
# work out the switches |
57 |
|
&usage; |
58 |
|
} |
59 |
|
else { |
60 |
< |
$mailinfo_name = $opt; |
60 |
> |
$mailinfo_name .= " $opt"; |
61 |
|
} |
62 |
|
} |
63 |
|
|
64 |
+ |
if($mailinfo_name eq "") { $mailinfo_name = getlogin; } |
65 |
+ |
|
66 |
|
# run mailinfo |
67 |
|
&mailinfo($mailinfo_server, $mailinfo_port, $mailinfo_mode, $mailinfo_name, $mailinfo_quick); |
68 |
|
|
94 |
|
exit(1); |
95 |
|
} |
96 |
|
|
97 |
< |
my($response); |
97 |
> |
my($response) = ""; |
98 |
|
|
99 |
|
# set the sensible option if we want quick mode |
100 |
|
if($quick) { |
99 |
– |
print "DEBUG sensible on\n"; |
101 |
|
print $sock "sensible on\n"; |
102 |
|
$response = <$sock>; |
103 |
|
while($response ne ".\n") { |
103 |
– |
#print "$response"; |
104 |
|
$response = <$sock>; |
105 |
|
} |
106 |
|
} |
108 |
|
# send the query |
109 |
|
print $sock "$mode $name\n"; |
110 |
|
|
111 |
< |
# read and print the response |
112 |
< |
$response = <$sock>; |
111 |
> |
# read and print the response |
112 |
|
while($response ne ".\n") { |
114 |
– |
print "$response"; |
113 |
|
$response = <$sock>; |
114 |
+ |
print "$response" unless $response eq ".\n"; |
115 |
|
} |
116 |
|
|
117 |
|
# quit and close |