egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-03-05T04:03:13-04:00 https://forum.eggheads.org/app.php/feed/topic/6969 2004-03-05T04:03:13-04:00 2004-03-05T04:03:13-04:00 https://forum.eggheads.org/viewtopic.php?p=34261#p34261 <![CDATA[Write out userlist on a specific channel every x minutes]]>
this part:

Code: 

$fXML = file_get_contents(
gives an error:

Code: 

Fatal error: Call to undefined function: file_get_contents() in /var/www/html/xml/users.php on line 10
Just to mention it. Not TCL related at all

gr.

Chrizz
Then you're running on a seriously outdated version of PHP.
See http://www.php.net/file_get_contents - it's implemented since PHP 4.3.0

An alternative (if you do not want to or cannot update) would be;

Code: 

<? // Error handling error_reporting(E_ALL); // Handler require('IRCChannelInfo.inc.php'); // Get XML $fXML = fopen('myfile.xml', 'r');$sXML = fread($fXML, filesize('myfile.xml'));fclose($fXML);// Create object $IRC = new IRCChannelInfo($sXML); var_dump($IRC); ?>
- Fahr

Statistics: Posted by Guest — Fri Mar 05, 2004 4:03 am

]]> 2004-03-05T03:57:33-04:00 2004-03-05T03:57:33-04:00 https://forum.eggheads.org/viewtopic.php?p=34260#p34260 <![CDATA[Write out userlist on a specific channel every x minutes]]>

Code: 

$fXML = file_get_contents(
gives an error:

Code: 

Fatal error: Call to undefined function: file_get_contents() in /var/www/html/xml/users.php on line 10
Just to mention it. Not TCL related at all

gr.

Chrizz

Statistics: Posted by cvanmeer — Fri Mar 05, 2004 3:57 am

]]> 2004-03-04T17:45:35-04:00 2004-03-04T17:45:35-04:00 https://forum.eggheads.org/viewtopic.php?p=34249#p34249 <![CDATA[Write out userlist on a specific channel every x minutes]]>
Dear fahr,

Can I see online example of this script?
Sure you can.

Here is the direct output: http://www.lycantrope.com/~ircbots/
The xml file therein is the file generated by the TCL script, it changes every minute. This channel is VERY low traffic, so don't expect to see any user there anytime soon.
The IRCChannelInfo.inc.php is the file I linked the source of.
The users.php contains only the following:

Code: 

<?// Error handlingerror_reporting(E_ALL);// Handlerrequire('IRCChannelInfo.inc.php');// Get XML$fXML = file_get_contents('http://www.lycantrope.com/~ircbots/eqrus.xml');// Create object$IRC = new IRCChannelInfo($fXML);var_dump($IRC);?>
Basically, this will give you a var_dump of the object generated from XML.

To see it working in practise, you'll have the visit the actual site hosting the chat, but it's in Russian.
Anyways, here's the link to the chat login: http://www.imagesofher.com/EQrus/chat.php
There, after the italic text (Пользователи онлайн) it will list the online users (with @ or + if they're opped or voiced), or njet (нет) if there's none.

On the forum (http://www.imagesofher.com/EQrus/forum) it somewhere lists chat (Чат), below it, it lists the usercount.

That's all the practise examples I can give :P

- Fahr

Statistics: Posted by Guest — Thu Mar 04, 2004 5:45 pm

]]> 2004-03-04T12:41:36-04:00 2004-03-04T12:41:36-04:00 https://forum.eggheads.org/viewtopic.php?p=34243#p34243 <![CDATA[Write out userlist on a specific channel every x minutes]]>
Can I see online example of this script?

Statistics: Posted by blood_x — Thu Mar 04, 2004 12:41 pm

]]> 2004-03-03T12:46:30-04:00 2004-03-03T12:46:30-04:00 https://forum.eggheads.org/viewtopic.php?p=34205#p34205 <![CDATA[Write out userlist on a specific channel every x minutes]]>
http://dump.lycantrope.com/IRCChannelInfo.phps

Feel free to modify it into whatever, but please send me back a copy (to Fahr at -[IDONTLIKESPAM]- lycantrope -[IMEANIT]- dot com).

I'll post the final version of the TCL script here (I made some minor adjustments).

Once more, thanks to everyone! :)

Code: 

# Channel to export to xmlset chanxml(channel) "#EQrus"# Export file nameset chanxml(filename) "../WWW/eqrus.xml"# Set initial timerif {![info exists chanxml(timer)]} {  set chanxml(timer) [timer 1 chanxml_timer]}proc chanxml_timer {args} {  global chanxml  # Reset timer  set chanxml(timer) [timer 1 chanxml_timer]  # Write file  set fp [open $chanxml(filename) w]  puts $fp "<?xml version=\"1.0\"?>"  puts $fp "<!-- $chanxml(channel) channel user statistics -->"  puts $fp "<channel_list>"  puts $fp "  <time>[unixtime]</time>"  puts $fp "  <channel>"  puts $fp "    <name>$chanxml(channel)</name>"  puts $fp "    <topic>[topic $chanxml(channel)]</topic>"  puts $fp "    <chanmode>[getchanmode $chanxml(channel)]</chanmode>"  # Loop users  foreach nick [chanlist $chanxml(channel)] {    # Skip bot's nick    if {[isbotnick $nick]} { continue }    puts $fp "    <user>"    puts $fp "      <nick>$nick</nick>"    puts $fp "      <uhost>[getchanhost $nick]</uhost>"    puts $fp "      <jointime>[getchanjoin $nick $chanxml(channel)]</jointime>"    puts $fp "      <idletime>[getchanidle $nick $chanxml(channel)]</idletime>"    # Get channel mode for user    set mode ""    if {[isvoice $nick $chanxml(channel)]} { append mode "v" }    if {[isop $nick $chanxml(channel)]} { append mode "o" }    puts $fp "      <mode>$mode</mode>"    # Done with this user    puts $fp "    </user>"  }  # Finish file  puts $fp "  </channel>"  puts $fp "</channel_list>"  close $fp}
- Fahr

Statistics: Posted by Guest — Wed Mar 03, 2004 12:46 pm

]]> 2004-03-02T14:09:24-04:00 2004-03-02T14:09:24-04:00 https://forum.eggheads.org/viewtopic.php?p=34159#p34159 <![CDATA[Write out userlist on a specific channel every x minutes]]>

I still decided to run the script every minute and I added some comments and the unixtime. Plus, stdragon forgot a > after </chanmode.

Here is my altered script, maybe someone else can use it as well :)

Code: 

proc chanxml_timer {args} {  global chanxml  # Reset timer  set chanxml(timer) [timer 1 chanxml_timer]  # Write file  set fp [open $chanxml(filename) w]  puts $fp "<?xml version=\"1.0\"?>"  puts $fp "<!-- $chanxml(channel) channel user statistics -->"  puts $fp "<channel_list time=\"[unixtime]\">"  puts $fp "  <channel>"  puts $fp "    <name>$chanxml(channel)</name>"  puts $fp "    <topic>[topic $chanxml(channel)]</topic>"  puts $fp "    <chanmode>[getchanmode $chanxml(channel)]</chanmode>"  # Loop users  foreach nick [chanlist $chanxml(channel)] {    # Skip bot's nick    if {[isbotnick $nick]} { continue }    puts $fp "    <user>"    puts $fp "      <nick>$nick</nick>"    puts $fp "      <uhost>[getchanhost $nick]</uhost>"    puts $fp "      <jointime>[getchanjoin $nick $chanxml(channel)]</jointime>"    puts $fp "      <idletime>[getchanidle $nick $chanxml(channel)]</idletime>"    # Get channel mode for user    set mode ""    if {[isvoice $nick $chanxml(channel)]} { append mode "v" }    if {[isop $nick $chanxml(channel)]} { append mode "o" }    puts $fp "      <mode>$mode</mode>"    # Done with this user    puts $fp "    </user>"  }  # Finish file  puts $fp "  </channel>"  puts $fp "</channel_list>"  close $fp}
Thanks for all the help, especially to stdragon. All that remains now is building a PHP parser for this particular XML file. I'll share it here as soon as it's finished :)

- Fahr[/code]

Statistics: Posted by Guest — Tue Mar 02, 2004 2:09 pm

]]> 2004-03-02T14:05:09-04:00 2004-03-02T14:05:09-04:00 https://forum.eggheads.org/viewtopic.php?p=34158#p34158 <![CDATA[Write out userlist on a specific channel every x minutes]]>

Code: 

set now unixtime
Uh... yea... if he wanted the word "unixtime" ....

Should be:

Code: 

set now [unixtime]
Or more Tcl-friendly would be to use the clock command:

Code: 

set now [clock seconds]

Statistics: Posted by strikelight — Tue Mar 02, 2004 2:05 pm

]]> 2004-03-02T13:40:37-04:00 2004-03-02T13:40:37-04:00 https://forum.eggheads.org/viewtopic.php?p=34153#p34153 <![CDATA[Write out userlist on a specific channel every x minutes]]>

Code: 

set now unixtime

Statistics: Posted by CrazyCat — Tue Mar 02, 2004 1:40 pm

]]> 2004-03-02T13:19:17-04:00 2004-03-02T13:19:17-04:00 https://forum.eggheads.org/viewtopic.php?p=34152#p34152 <![CDATA[Write out userlist on a specific channel every x minutes]]>

I'll give it a try and let you know if it works! :)

One more thing; is there any way to get the current time in UNIX timestamp format?

Thanks,
- Fahr

Statistics: Posted by Guest — Tue Mar 02, 2004 1:19 pm

]]> 2004-03-01T18:43:18-04:00 2004-03-01T18:43:18-04:00 https://forum.eggheads.org/viewtopic.php?p=34139#p34139 <![CDATA[Write out userlist on a specific channel every x minutes]]>

Code: 

# Channel to export to xmlset chanxml(channel) "#sheep"# Export file nameset chanxml(filename) "sheep.xml"if {![info exists chanxml(timer)]} {  set chanxml(timer) [timer 5 chanxml_timer]}proc chanxml_timer {args} {  global chanxml  set chanxml(timer) [timer 5 chanxml_timer]  set fp [open $chanxml(filename) w]  puts $fp "<?xml version=\"1.0\"?>"  # Add dtd and all that here if you want  puts $fp "<!-- Generated by stdragon's cool script -->"  puts $fp "<channel_list>"  puts $fp "  <channel>"  puts $fp "    <name>$chanxml(channel)</name>"  puts $fp "    <topic>[topic $chanxml(channel)]</topic>"  puts $fp "    <chanmode>[getchanmode $chanxml(channel)]</chanmode"  foreach nick [chanlist $chanxml(channel)] {    # Skip bot's nick    if {[isbotnick $nick]} { continue }    puts $fp "    <user>"    puts $fp "      <nick>$nick</nick>"    puts $fp "      <uhost>[getchanhost $nick]</uhost>"    puts $fp "      <jointime>[getchanjoin $nick $chanxml(channel)]</jointime>"    puts $fp "      <idletime>[getchanidle $nick $chanxml(channel)]</idletime>"    # Get channel mode for user    set mode ""    if {[isvoice $nick $chanxml(channel)]} { append mode "v" }    if {[isop $nick $chanxml(channel)]} { append mode "o" }    puts $fp "      <mode>$mode</mode>"    # Done with this user    puts $fp "    </user>"  }  puts $fp "  </channel>"  puts $fp "</channel_list>"  close $fp}

Statistics: Posted by stdragon — Mon Mar 01, 2004 6:43 pm

]]> 2004-03-01T17:07:23-04:00 2004-03-01T17:07:23-04:00 https://forum.eggheads.org/viewtopic.php?p=34138#p34138 <![CDATA[Write out userlist on a specific channel every x minutes]]>
first of all, I am a complete newbie when it comes to TCL scripting, so please endure my idiocy. I should pick up quickly, though, seeing how I am a programmer by profession.

Second, I searched the forums and found some things remotely connected to what I want, but I wasn't able to pour them into one working solution. If I missed something, I'm sorry to needlessly bother you all.

That being said, here's the actual question;

I am looking for a way to write a list of users in a specific IRC channel to a file, say, every 5 minutes. I should not be a command or trigger, just every 5 minutes it should check all the users in the channel and write their names to a flatfile, one username per line.
I can deal with any overhead data, filter it out in the after processing.
Ideally, the list would not contain the nick of the bot itself. The most utopic situation would be if it were to export the list of nicks to XML format, but I guess that's going to by quite impossibe.

Anyways, any help is appreciated, I can work with a list containing all users (and botnick) + overhead data just as well.

Thanks a lot,
- Fahr

Statistics: Posted by Guest — Mon Mar 01, 2004 5:07 pm

]]>