--- misc/mailinfo/mailinfo.pl	2001/07/19 11:11:33	1.1
+++ misc/mailinfo/mailinfo.pl	2001/07/19 12:19:39	1.2
@@ -9,7 +9,7 @@
 #  - T.D.Bishop@ukc.ac.uk
 #
 # $Author: tdb $
-# $Id: mailinfo.pl,v 1.1 2001/07/19 11:11:33 tdb Exp $
+# $Id: mailinfo.pl,v 1.2 2001/07/19 12:19:39 tdb Exp $
 #------------------------------------------------------------
 
 $| = 1;
@@ -23,7 +23,7 @@ my($mailinfo_port) = "912";
 
 # default settings
 my($mailinfo_mode) = "mi_guess";
-my($mailinfo_name) = getlogin;
+my($mailinfo_name) = "";
 my($mailinfo_quick) = 0;
 
 # work out the switches
@@ -57,10 +57,12 @@ while(@ARGV) {
         &usage;
     }
     else {
-        $mailinfo_name = $opt;
+        $mailinfo_name .= " $opt";
     }
 }
 
+if($mailinfo_name eq "") { $mailinfo_name = getlogin; }
+
 # run mailinfo
 &mailinfo($mailinfo_server, $mailinfo_port, $mailinfo_mode, $mailinfo_name, $mailinfo_quick);
 
@@ -92,15 +94,13 @@ sub mailinfo() {
         exit(1);
     }
     
-    my($response);
+    my($response) = "";
     
     # set the sensible option if we want quick mode
     if($quick) {
-        print "DEBUG sensible on\n";
         print $sock "sensible on\n";
         $response = <$sock>;
         while($response ne ".\n") {
-            #print "$response";
             $response = <$sock>;
         }
     }
@@ -108,11 +108,10 @@ sub mailinfo() {
     # send the query
     print $sock "$mode $name\n";
     
-    # read and print the response
-    $response = <$sock>;
+    # read and print the response    
     while($response ne ".\n") {
-        print "$response";
         $response = <$sock>;
+        print "$response" unless $response eq ".\n";
     }
     
     # quit and close