egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2002-09-25T23:28:10-04:00 https://forum.eggheads.org/app.php/feed/topic/2674 2002-09-25T23:28:10-04:00 2002-09-25T23:28:10-04:00 https://forum.eggheads.org/viewtopic.php?p=11390#p11390 <![CDATA[Coolness...]]>

Code: 

# Location to save filesset location "/home/ircadmin/MonkBOT/userlists/"# Channel to watchset chan "#unrealplayground"# How often to update file in minutesset updatetime 2# Check to see if the timer is running - only needed really during a .rehashputlog "users2list.tcl v1.0 has started"if {![info exists fileusers_running]} {  timer $updatetime fileusers  set fileusers_running 1}proc fileusers {} {  global updatetime chan file location  if {![validchan $chan]} {    putlog "ERROR - users2file.tcl - I am not on $chan, so I cannot output lists"    return 1  }  set l1 [chanlist $chan]  set l2 {}  set l3 {}  foreach u $l1 {    if {[isop $u $chan]} {      lappend l3 "@"    } elseif {[isvoice $u $chan]} {      lappend l3 "+v"    } else {      lappend l3 ""    }    lappend l3 $u    lappend l3 [getchanidle $u $chan]    lappend l3 "[getchanhost $u $chan]"    lappend l2 [join $l3 {,}]    set l3 {}  }  #write the files  set fp [open "${location}${chan}.users.txt" w]  puts $fp [join $l1 {,}]  close $fp  set fp [open "${location}${chan}.status.txt" w]  puts $fp [join $l2 \n]  close $fp  #restart the timer  timer $updatetime fileusers}
Works like a champ... Thanks a ton, ppslim!

Statistics: Posted by Guest — Wed Sep 25, 2002 11:28 pm

]]> 2002-09-25T17:18:08-04:00 2002-09-25T17:18:08-04:00 https://forum.eggheads.org/viewtopic.php?p=11384#p11384 <![CDATA[Simple Script Request... I think...]]>
the script is used, by calling the procudure fileusers, and passing a file, and channel name.

You can simply pass the location, using the $file var.

IE.

instead of using:
fileusers mychan #channel

Which would create 2 files, named mychan.users and mychan.status, inside the bots directory.

You could use
fileusers /home/ppslim/filestore/mychan #channel

This would create 2 files
/home/ppslim/filestore/mychan.status
/home/ppslim/filestore/mychan.users

As for the catch statment. This is used mainly as a error prevention.

It would not hurt to remove this, as it is more of a standard practice for me.

Statistics: Posted by ppslim — Wed Sep 25, 2002 5:18 pm

]]> 2002-09-25T14:47:07-04:00 2002-09-25T14:47:07-04:00 https://forum.eggheads.org/viewtopic.php?p=11375#p11375 <![CDATA[Question...]]>

Code: 

  set fp [open "${location}${chan}.users.txt" w]   puts $fp [join l1 {,}]   catch {close $fp}   set fp [open "${location}${chan}.status.txt" w]   puts $fp [join $l2 \n]   catch {close $fp}
I tweaked the code a bit... Notice the additon of the var $location. Will it work that way? Also... Why did you use catch? I would assume (maybe incorrectly) that just closing a file wouldn't cause an error... I mean, I am glad to take your word for it - you haven't steered me wrong yet... I'm just curious, and this is how I learn.

Thanks again for the script - I really do appreciate it.

Statistics: Posted by Guest — Wed Sep 25, 2002 2:47 pm

]]> 2002-09-25T04:54:38-04:00 2002-09-25T04:54:38-04:00 https://forum.eggheads.org/viewtopic.php?p=11337#p11337 <![CDATA[Simple Script Request... I think...]]>
I am guessing just a channel

Code: 

proc fileusers {chan file} {  if {![validchan $chan]} { return -1 }  set l1 [chanlist $chan]  set l2 {}  set l3 {}  foreach u $l1 {    if {[isop $u $chan]} {      lappend l3 "@"    } elseif {[isvoice $u $chan]} {      lappend l3 "+v"    } else {      lappend l3 ""    }    #lappend l3 [lindex [split [getchanhost $nick $chan] @] 0]    lappend l3 [nick2hand $u $chan]    lappend l3 [getchanidle $u $chan]    #lappend l3 [maskhost "${u}[getchanhost $u $chan]"]    lappend l3 "${u}[getchanhost $u $chan]"    lappend l2 [join $l3 {,}]    set l3 {}  }  set fp [open "${file}.users" w]  puts $fp [join l1 {,}]  catch {close $fp}  set fp [open "${file}.status" w]  puts $fp [join $l2 \n]  catch {close $fp}}
It was not clear what you wanted for username or hostmask.

As such, it currently uses the username from the "nick!username@host". You can comment out that line, and uncomment the toher, to use the handle they have on the bot.

Also, the hostmask was not clear. Do you want a mask (*!*user@*.host) or the IRC userhost (nick!user@host). It currently uses the userhost.

Statistics: Posted by ppslim — Wed Sep 25, 2002 4:54 am

]]> 2002-09-25T02:11:11-04:00 2002-09-25T02:11:11-04:00 https://forum.eggheads.org/viewtopic.php?p=11336#p11336 <![CDATA[Simple Script Request... I think...]]>
I need a script that will create 2 text files...

one will be a comma delimited user list, i.e.:
user1,user2,user3,user4,etc...
the second is similar, only it is in this format:
userstatus (voice, op, etc),username,idletime in min,hostmask

so:
@,user1,5,blah!blah@some.cheesy.net
+v,user2,3,user2!user2@some.cheesy.net
can anyone help me out with this? The first one is the most important to me...

Thanks in advance!

Statistics: Posted by Guest — Wed Sep 25, 2002 2:11 am

]]>