ViewVC Help

View File | Revision Log | Show Annotations | Revision Graph | Root Listing

root/i-scream/misc/mailinfo/mailinfo.pl

Comparing misc/mailinfo/mailinfo.pl (file contents):
Revision 1.1 by tdb, Thu Jul 19 11:11:33 2001 UTC vs.
Revision 1.2 by tdb, Thu Jul 19 12:19:39 2001 UTC

#	Line 23 | Line 23 | my($mailinfo_port) = "912";
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
#	Line 57 | Line 57 | while(@ARGV) {
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
#	Line 92 | Line 94 | sub mailinfo() {
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		}
#	Line 108 | Line 108 | sub mailinfo() {
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

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines