:) hurricane

sub ban_user {
    my $banneduser = shift;
    my $purge = sub {
        my( $session )  = @_;
        next if $session->is_empty;    # <-- already expired?!
        if ( ($session->param('user_id') eq $bad_user_id) ) {
            $session->delete();
            $session->flush(); 
        }
    };
    DeAuthorize( $banneduser );
    CGI::Session->find( $dsn, $purge, $dsn_args );
}
[download]