ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/misc/mailinfo/mailinfo.pl
(Generate patch)

Comparing misc/mailinfo/mailinfo.pl (file contents):
Revision 1.2 by tdb, Thu Jul 19 12:19:39 2001 UTC vs.
Revision 1.4 by tdb, Thu Jul 19 16:45:48 2001 UTC

# Line 87 | Line 87 | sub mailinfo() {
87          PeerAddr => $server,
88          PeerPort => $port,
89          Proto => 'tcp'
90 <    ) or die "Cannot connect!";
90 >    ) or die "Connection to server broken";
91      
92      if(!defined $sock) {
93 <        print "unable to connect to mailinfo server: $server:$port";
93 >        print "Connection to server broken";
94          exit(1);
95      }
96      
# Line 111 | Line 111 | sub mailinfo() {
111      # read and print the response    
112      while($response ne ".\n") {
113          $response = <$sock>;
114 <        print "$response" unless $response eq ".\n";
114 >        if($response =~ s/^\?/mailinfo: /) {
115 >            print $response;
116 >        }
117 >        else {
118 >            print $response unless $response eq ".\n";
119 >        }
120      }
121      
122      # quit and close

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines