set flag3 t
set flag4 u
set default-flags "pt"

global newbies_clean_refresh max_newbies_time
set max_newbies_time 2332800
set newbies_clean_refresh 999

proc on_a_chan {nick} {
	foreach chan [channels] {
		if {[onchan $nick $chan]} {return 1}
		if {[onchansplit $nick $chan]}  {return -1}
	}
	return 0
}

proc erase_newbies {} {
	global newbies_clean_refresh max_newbies_time
	timer $newbies_clean_refresh erase_newbies
	putloglev 1 * "Newbies Check..."
	foreach u [userlist u] {
		if [on_a_chan $u] {
			chattr $u -u
		} else {
			if ([getlaston $u]=="0") {
				deluser $u
				putloglev 1 * "Erased $u : Newbie never seen and noticed as unknown"
			}
		}
	}
	foreach u [userlist t] {
		if ([getlaston $u]=="0") {
			chattr $u u
		} else {
			if [on_a_chan $u] {
				chattr $u -u
			} else {
				if (([unixtime]-[getlaston $u])>$max_newbies_time) {
					deluser $u
					putloglev 1 * "Erased $u : Newbie not seen for too much time"
				} else {
					chattr $u -u
				}
			}
		}
	}
}

putlog "NewbiClean.tcl v1.2 by Noyga Loaded"
utimer 7 erase_newbies