[SOLVED] can't read "lastseen": no such variable

2006-05-09T09:44:09-04:00

I made 2 changes and it's working fine.

1:

Code:

proc ac:last_seen {nick uhost hand text dest} {global lastseenset text [split $text]set lastseen [lindex $text 2]}

2nd:

Code:

if {$lastseen >= 2} {return}

Thanks to chris and you all

Statistics: Posted by iamdeath — Tue May 09, 2006 9:44 am

[SOLVED] can't read "lastseen": no such variable

2006-05-09T08:43:03-04:00

no luck ;/

Statistics: Posted by iamdeath — Tue May 09, 2006 8:43 am

[SOLVED] can't read "lastseen": no such variable

2006-05-09T08:15:41-04:00

try it with a string

Code:

setudef str lastseen

Statistics: Posted by GeeX — Tue May 09, 2006 8:15 am

[SOLVED] can't read "lastseen": no such variable

2006-05-09T06:13:35-04:00

Hi, this is my another script I am having the similiar problem I had eariler with bonus script. What I am trying to do is, if a user's LAST SEEN matches 2 or more thescript stop/return. But I've tried all the possible ways, I am failure. Can you help me out fixing it.
Thanks.

Code:

set ac(owner_username) "owner"set ac(bot_username) "Bot-Username"set notifyusers "owner"set counter ""bind notc - "USER: * ACCESS: *" ac:get_userbind notc - "*SUSPENDED*" ac:block_userbind notc - "LAST SEEN: *" ac:last_seenbind notc - "LAST MODIFIED: * ago*" ac:modify_checkbind time - "* * * * *" ac:checkproc ac:list { handle idx text } {global ac botnick user_namesputdcc $idx "Current users: $user_names"}proc ac:check { min hour day month year } {global ac user_names counterac:get_listif {$counter == ""} { set counter "-1" }if {[lindex $user_names $counter] == ""} { set counter "-1" }incr counterif {[lindex $user_names $counter] == ""} { return }puthelp "PRIVMSG X :ACCESS $ac(chan) [lindex $user_names $counter] -modif"}proc ac:get_user {nick uhost hand text dest } {global botnick ac xaccess xusernameif {$nick != "X"} { puthelp "PRIVMSG $ac(chan) :Nickanme: $nick"; return }set text [split $text]set xusername [lindex $text 1]set xaccess [lindex $text 3]}proc ac:block_user {nick uhost hand text dest} {set xaccess "399"}proc ac:last_seen {nick uhost hand text dest} {set text [split $text]set lastseen [lindex $text 2]}proc ac:modify_check {nick uhost hand text dest } {global botnick ac xaccess xusername who_main day_main lastseenset text [split $text]set who_mod [lindex $text 2]set day_mod [lindex $text 4]set prim_1 $who_mod$day_modset prim_1 [split $prim_1 ")("]set prim_1_1 [lindex $prim_1 0]set day_main [lindex $prim_1 3]set who_main [lindex $prim_1 1]ac:recap $xaccess $xusername $who_main $day_main $lastseen}proc ac:recap { xaccess xusername who_main day_main lastseen } {global ac user_names notifyusersif {[string tolower $who_main] != [string tolower $ac(bot_username)] && [string tolower $who_main] != [string tolower $ac(owner_username)]} { return }if {$lastseen >= "2"} {return}if {$xaccess == "399"} { return }if {$day_main == "0"} { return }puthelp "PRIVMSG X :MODINFO $ac(chan) ACCESS $xusername [expr $xaccess + 1]"if {$notifyusers != "" && $notifyusers != " "} {foreach notfuser $notifyusers {sendnote IDA_SYSTEM $notfuser "Modified +1 Access Level to $text in $ac(chan)."}}}

The error I get in DCC is:

Code:

Tcl error [ac:modify_check]: can't read "lastseen": no such variable

First I fixed "Suspended", if a username is suspended by anyone the bot will return, so I mentioned it as == 399, that's solved. but LASTSEEN is giving me errors. I want the bot to check LAST SEEN, if a person is not shown within 2 days bot shouldnt modify him. Thanks.

Statistics: Posted by iamdeath — Tue May 09, 2006 6:13 am

egghelp/eggheads community

[SOLVED] can't read "lastseen": no such variable

[SOLVED] can't read "lastseen": no such variable

[SOLVED] can't read "lastseen": no such variable

[SOLVED] can't read "lastseen": no such variable