CVS commit pop3

rigel:~/Projects/logwatch_cvs/logwatch/scripts/services mgt$ cvs diff  
pop3
Index: pop3
===================================================================
RCS file: /var/cvs/logwatch/scripts/services/pop3,v
retrieving revision 1.6
diff -r1.6 pop3
43d42
< #      print "$IPv4Addr\n";
45d43
<
48d45
< #      print $Addr;
50d46
<
93c89
<       or (($User, $Host) = ( $ThisLine =~ /^LOGIN, user=(.*?), ip=\ 
[(.*)\]$/ ))
---
 >       or (($User, $Host) = ( $ThisLine =~ /^LOGIN, user=([^ ,]+),  
ip=\[([^ ,]+)\](?:, port=\[\d+\])?$/ ))
118c114
<    } elsif (($dummy, $User, $Host, $DownloadSize1, $DownloadSize2)  
= ( $ThisLine =~ /^(LOGOUT|TIMEOUT|DISCONNECTED), user=(.*?), ip=\ 
[(.*)\], top=(\d+), retr=(\d+)/o)) {
---
 >    } elsif (($dummy, $User, $Host, $DownloadSize1, $DownloadSize2)  
= ( $ThisLine =~ /^(LOGOUT|TIMEOUT|DISCONNECTED), user=(.*?), ip=\ 
[([^ ,]+)\](?:, port=\[\d+\])?, top=(\d+), retr=(\d+)/o)) {

-Mike