mån 2009-08-10 klockan 23:28 -0400 skrev michel@xxxxxxxxxx:
> This Script could be in Perl?
Yes, or any language you prefer.
Something like the following should do fine, leaving it to you to define
find_user_from_ip as suitable for your environment.
#!/usr/bin/perl -an
use URI::Escape;
BEGIN { $|=1; }
$user = find_user_from_ip($F[0]);
if ($user) {
print "OK login=".uri_escape($user)."\n";
} else {
print "ERR\n";
}
Regards
Henrik
