--- a/usr/sbin/pureauth  2010-01-12 18:45:40.000000000 -0500
+++ b/usr/sbin/pureauth  2010-01-12 19:43:28.000000000 -0500
@@ -145,6 +145,11 @@
     }
 }
 
+my $rv;
+$rv = system('/usr/sbin/pam_abl','-c','-U',$user,'-H',$remote_ip,'-s',$service) >> 8;
+if ($rv != 0) {
+    $authok = 0;
+}
 if ( $authok && $uid ne '' ) {
     print "auth_ok:1\n";
     print "uid:$uid\n";
@@ -170,6 +175,7 @@
 }
 
 sub failed_auth {
+    system('/usr/sbin/pam_abl','-f','-U',$user,'-H',$remote_ip);
     print "auth_ok:0\nend\n";
     exit 0;
 }