Re: [cobalt-users] Qpopper

["Simon Weller" <simon@xxxxxxxxxxxxx>]

Change a few lines in your poprelayd file and you'll be away laughing.

Changes Start at line 177. Basically qpopper 3.02 has a slightly different log 
format.

- Si


# Scan $line to see if it's a log of a successful POP3 authentication.
# Return an array of the addresses that authenticated.
#
sub scanaddr ($) {
    my $s = $_[0];
    my @paddrs;		# Packed IP addresses.
    my @addrs;		# ASCII addresses.
    my $junk;

    ## Either finds lines of the POP login format, like:
    #  POP login for "zim" at (pC19EABB6.dip0.t-ipconnect.de) 
    if ($s =~ /POP login for \"[\-\_\w]+\" at \(.+\) ([0-9\.]+)/)  {
	return $1;
	}
    #  POP login by user "zim" at (pC19EAB90.dip0.t-ipconnect.de)
    if ($s =~ /POP login by user \"[\-\_\w]+\" at \(.+\) ([0-9\.]+)/)  {
	return $1;
	}
    ## Or finds lines of the IMAP Login format, like:
    #  Login user=zim host=pC19EABB6.dip0.t-ipconnect.de 
    if ($s =~ /Login user=[^ ]+ host=[^ ]+ \[([0-9\.]+)\]/)  {
	return $1;
	}
    ## Nothing found; empty return.
    return ();
}



----
Simon Weller
NZ Servers
Professional Hosting Services into the new millennium
Specialising in Web and Database Development
http://www.nzservers.com