getuser $handle LASTON - "issue"

2004-03-26T13:28:39-04:00

here is the entire code, this is orignially a script called cleanup.tcl by Christian Felde and i just modified it to output names to a html file, instead of deleting them.

Code:

##bind time - "00 04 * * *" time_scan_userfilebind dcc +m cleanup dcc_scan_userfileproc dcc_scan_userfile {hand idx args} {    putlog "$hand started userfile scan... Time: [time]"    scan_userfile}proc time_scan_userfile {min hour day month year} {    putlog "Stated auto-scan of userfile. Time: [time]"    scan_userfile}proc scan_userfile { } {    set rmusers 0    set errors 0    set file "/home/taliesen/public_html/oldusers.html"    set fs [open $file w]    puts $fs ""    close $fs     foreach hand [userlist] {   set leave 0      set lastseen [lindex [getuser $hand LASTON] 0] if {$lastseen < [expr [unixtime] - 5184000]} {    if {[matchattr $hand +n] == 1} {set leave 1    }    if {[matchattr $hand +m] == 1} {set leave 1    }    if {[matchattr $hand +f] == 1} {set leave 1    }    if {[matchattr $hand +o] == 1} {set leave 1    }    if {$leave == 0} {putlog "$lastseen"set fs [open $file a]puts $fs ""puts $fs "" close $fs     }}    }    putlog "CleanUp stats:"    putlog "Current time: [time]"    putlog "Users deleted: $rmusers"    putlog "Errors: $errors"    set fs [open $file a]    puts $fs "NickName Last Time Seen
 $hand  $lastseen 
"    close $fs }putlog "cleanup.tcl loaded..."putlog "Made by Christian Felde"putlog "email: cfelde@powertech.no or cfelde@geocities.com"

Statistics: Posted by taliesen — Fri Mar 26, 2004 1:28 pm

getuser $handle LASTON - "issue"

2004-03-26T13:06:33-04:00

ok, have a lil script that will write out the users in the userlist that havnt been seen in X ammount of days, this uses the ..

Code:

set lastseen [lindex [getuser $hand LASTON] 0]

$hand would of course be their handle.

now this works fine in the if statement to check against the unixtime - how ever long a period. BUT when i try to output this to the file that lists the old users, it just does a blank space, nothing else.

now i have also tried just a full [getuser $hand LASTON] with out the lindex, and same results, nothing.

even tested to see if there was some weird thing with the puts line, so i used....

Code:

putlog "$lastseen"

just to test this, same result, a bunch of space.

any ideas why i can use this info in an if statement, but if i try to output the same info i get null?

TalieseN

Statistics: Posted by taliesen — Fri Mar 26, 2004 1:06 pm

egghelp/eggheads community

getuser $handle LASTON - "issue"

getuser $handle LASTON - "issue"