Displaying 1 result from an estimated 1 matches for "checkdnsbl".
2008 Jun 15
3
Using checkpassword to block ips?
...= <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;
$ipaddr=$ENV{TCPREMOTEIP};
$result=system("/usr/sbin/checkdnsbl $ipaddr");
if ( $result == 0) {
@ENV{"SHELL","USER","HOME"} = ($shell,$user,$home);
exit 0;
}
else {
exit 1;
}
My questions are as follows:
- Can the deny = yes be used with checkpassword?
- What am I doing wrong with the script? It shou...