bind pub - !bseen wi_pub
set winick ""
set activechan ""
 
proc wi_pub {nick host hand chan text} {
set ::activechan $chan
set ::winick [lindex $text 0]
set ::idwhois [lindex $text 0]
set ::idchan $chan
 
bind notc - "*" view:wi
bind pubm - "*" chan:seen
    putfast "PRIVMSG NickServ : info $::winick all"
	putfast "PRIVMSG #ch@os :!seen $::winick"
 
}
 
proc chan:seen {nick host hand text dest} {
if {[string match -nocase $nick "Gardien"]} {
if {[regexp -nocase "tait" $text]} {
		putfast "PRIVMSG $::activechan : $::winick était en ligne [lrange $text 4 end]"
		unbind pubm - "*" chan:seen
}
if {[regexp -nocase "est" $text]} {
		putfast "PRIVMSG $::activechan : $::winick est connecté actuellement."
		unbind pubm - "*" chan:seen
}
}
}
 
proc view:wi {nick host hand text dest} {
if {[string match -nocase $nick "NickServ"]} {
if {![string match -nocase [lrange $text 0 1] "Dernière présence:"]} { return 0 }
		putfast "PRIVMSG $::activechan : $::winick s'est connecté pour la dernière fois le [lindex $text 2] [lindex $text 3] [lindex $text 4] à [lindex $text 5]"
unbind notc - "*" view:wi
return 0
}
}