Displaying 1 result from an estimated 1 matches for "apop_ts".
2008 Jun 15
3
Using checkpassword to block ips?
...= /usr/local/bin/checkpassword
deny = yes
}
As the first auth.. This should reject the connection if the IP matches.
checkpassword can see TCPREMOTEIP enviornmental variable.
In the checkpassword script we have:
#!/usr/bin/perl
sub read_uinfo {
my($user,$passwd,$apop_ts);
open X,"<&=3" or exit 111;
$_ = <X>;
# ugly; should use sysread instead
($user,$passwd,$apop_ts) = /^(.*)\0(.*)\0(.*)\0/;
while (<X>) {};
close X;
return ($user,$passwd,$apop_ts);
}
($user,$passwd,$apop_ts)=$debug?(shift,shift,shift):read_uinfo;
$ipa...