bind part - * jpcheck
#------------------------------------------------------------------------------------------------------------
# This Proc kicks anyone who starts begging within 30 seconds of joining the channel
#------------------------------------------------------------------------------------------------------------
proc jpcheck {nick uhost hand chan rest} {
    global approved_chans jpmsg jpbantime jpwarnings nojpchannels
    set chan [string tolower $chan]
    # If the request comes from an approved channel, continue on to fulfill the request
    if {[string first " $chan " $approved_chans] != -1} { 
        if {[lsearch -exact $nojpchannels [string tolower $chan]] >= 0} {return 0}
 if {[matchattr $hand o]} {return 0}
 if {[matchattr $hand v]} {return 0}
 if {[matchattr $hand f]} {return 0}
 if {[matchattr $hand b]} {return 0}
 if {[getchanjoin $nick $chan] == 0} {return 0}
 if [expr [unixtime] - [getchanjoin $nick $chan] > 8] {return 0}
 putlog "\0033 AutoBanning $nick - Revolving Door ban"
 set mask [getmask $nick $chan]
 warnban $nick $mask $chan $jpbantime $jpwarnings $jpmsg
    }
}