egghelp/eggheads community

Publish Channel Stats/Userlist to website - PHP

2002-12-13T00:33:12-04:00

Hmmmm... I redid the ftp thing myself from the lib's help files, now I get

Tcl error in script for 'timer8':
error writing "stdout": bad file number

I give up, windrop sucks compared to eggdrop. I'll settle for an automatic windows ftp program called TinyUploader to upload my file every 10 minutes. I wish I could use linux! lol I have Red Hat 8.0.. or is it 7.0.. anyways, I had it installed but COULD NOT get the internet to work, so I removed it. Anyone know of a program to emulate *nix from Windows XP?

Statistics: Posted by Stylez — Fri Dec 13, 2002 12:33 am

Publish Channel Stats/Userlist to website - PHP

2002-12-12T06:18:16-04:00

Okay I kind of cheated and copied everything from d:/Windrop/lib/tcllib-1.3/modules/ to d:/Windrop/lib/tcllib-1.3/ - and now the bot will load but it has an error in the script:

[06:15] [06:15] Tcl error in script for 'timer3':
[06:15] [06:15] invalid command name "ftp::open"

Here is the code I used:

Code:

if {[set ftpsock [ftp::open ftp.kronicconcerz.com mylogin mypass]] != -1} {   if {![ftp::put $ftpsock d:/matt/public_html/kc-chan.html /httpdocs/kc-chan.html]} {     putlog "Failed upload on FTP socket $ftpsock"     ftp::close $ftpsock     return   }   ftp::close $ftpsock } else {   putlog "Failed to connect to FTP server" }

I assume that means that it may not have actually loaded the module correctly?

Statistics: Posted by Stylez — Thu Dec 12, 2002 6:18 am

Publish Channel Stats/Userlist to website - PHP

2002-12-12T06:04:06-04:00

Nope package require modules/ftp didn't work. I know it says something about install.bat in the tcllib-1.3 directory, but all the file structure and such is all there, so I don't think it would be necessary to run the install.bat.

Statistics: Posted by Stylez — Thu Dec 12, 2002 6:04 am

Publish Channel Stats/Userlist to website - PHP

2002-12-12T05:59:26-04:00

Okay I get this error when trying to load the bot

Tcl error in file 'eggdrop.conf':
couldn't read file "d:/Windrop/lib/tcllib-1.3/ftp/ftp.tcl": no such file or directory

I noticed that the dir structure is wrong, it should be d:/Windrop/lib/tcllib-1.3/modules/ftp/ftp.tcl
How do I adjust this? Would is use 'package require modules/ftp'? I'll try that anyways.

Statistics: Posted by Stylez — Thu Dec 12, 2002 5:59 am

Publish Channel Stats/Userlist to website - PHP

2002-12-12T05:45:13-04:00

Put it this way, you have made one of the better efforts than some, and there will likely be loads of help available to you now.

You are quite correct about this windrop issue, and there error that occurs.

There are 2 possible ways around this.

1 is to downgrade to eggdrop 1.4.*. According to the windrop FAQ on http://windrop.sf.net/ this error started in eggdrop 1.5.3, which shows signs of a eggdrop issue, but I am having a hard time, tracing where the problem started.

2, Tcllib, which is a seperate download, provides Tcl based support for being a FTP client. This, using pure script, you avoice any exe, or calls to other applications.

I would recomend the second.

Download Tcllib from http://prdownloads.sourceforge.net/tcll ... p?download

Next, you will need to save the directory structure under the lib directory of the windrop directory. I have not looked at this, but in theory, it should look like "windropdir/lib/packagename/". This you are on your own with for now.

Next, at the very time of your script, on a line of it's own, place the line "package requiree ftp". This will load the ftp package.

At the point of upload, you use the following code. replace anything within <> with the correct values.

Code:

if {[set ftpsock [ftp::open    <*>]] != -1} {  if {![ftp::put $ftpsock  ]} {    putlog "Failed upload on FTP socket $ftpsock"    ftp::close $ftpsock    return  }  ftp::close $ftpsock} else {  putlog "Failed to connect to FTP server"}

If the port of the FTP server is different to the standard port, than replace the <*> with "-port " without the quotes, you can otherwise remove it.

Statistics: Posted by ppslim — Thu Dec 12, 2002 5:45 am

Publish Channel Stats/Userlist to website - PHP

2002-12-12T04:55:10-04:00

Apparently, as I've read on the forums in some places, there is a flaw in Windrop/TCL that won't allow you to exec programs on windows? Is this right? Because when I try to execute (from sendftp-win.tcl)

Code:

# Configure here the full path of your FTP.EXE program:set progftp "C:/Windows/System32/ftp.exe"# This is a proc to send a file via FTP to another server. Useful in many# situations, for example to upload a HTML file generated by eggdrop to your# www server if it is not the same as your eggdrops machine.# Include it with 'source scripts/sendftp.tcl'.  Call it with all parameters:##   sendftp     ## 'localfile' and 'remotefile' *must* both be given as FULL paths to the# filenames, the first on the local, the secondon the remote server.## For example:## sendftp /home/bill/stats.htm www.ms.com bill secret /bgates/WWW/stats.htm#             (local-file       server    user  pass       remote-file)proc sendftp { localfile server user pass remotefile } {global progftpif {![file exist $localfile]} {return "sendftp: File $localfile does not exist."}set pipe [open "|$progftp -n $server" w]puts $pipe "user $user $pass"puts $pipe "bin"puts $pipe "put $localfile $remotefile"puts $pipe "quit"close $pipereturn 1}

I get

Tcl error in script for 'timer8':
couldn't duplicate output handle: bad file number

I also get this when I used exec to execute a batch file to upload my page.
This is what is in my chanstats script

Code:

sendftp d:/matt/public_html/kc-chan.html ftp.kronicconcerz.com mylogin mypass /httpdocs/kc-chan.html

I am having a HARD time with this script.

Statistics: Posted by Stylez — Thu Dec 12, 2002 4:55 am

Publish Channel Stats/Userlist to website - PHP

2002-12-12T03:37:29-04:00

OKAY, lol, got it to work again. I moved where I set the topic down so that it is inside the procedure:

Code:

#Set the variables#set the file you want to write toset tghtmlfile "d:/matt/public_html/kc-chan.html"#Channel to show stats forset tgchan "#kc"#How often (in seconds) does the html file get updated. set tghtmlrefresh 60#  The font to use on the html page.set tghtmlfont "verdana,helvetica,arial"#Check and Initsif {[utimerexists tghtml]!=""} {killutimer $tghtmlrefreshtimer}if {$tghtmlrefresh>0} { set tghtmlrefreshtimer [utimer $tghtmlrefresh tghtml]}#this generates an html file with all the people on the chan #and the current topic.proc tghtml {} { global tgchan botnick tghtmlfile tghtmlrefresh server  global tgrealnames  global tghtmlfont #set the topic that is in the channel set topic [topic $tgchan] set _file [open $tghtmlfile~new w] puts $_file "$tgchan Topic:
$topic

" puts $_file "" foreach nick [lsort [chanlist $tgchan]] { puts $_file "   " puts $_file "    " puts $_file "   "} #puts $_file "" #puts $_file "" #puts $_file "" #puts $_file "" close $_file file rename -force $tghtmlfile~new $tghtmlfile set tghtmlrefreshtimer [utimer $tghtmlrefresh tghtml]}The code is quite messy, and some of the variables are not even needed. I also have to change some of the variable names because they are conflicting with the script I used to make this, which is Souperman's trivia script.
Now I end up with this as my file:Code: 
#kc Topic:
12^kC Trivia - Now 4only12 available in 11,12#kc-trivia

Name Idle
[expr [isop $nick $tgchan]?"@":""][expr [isvoice $nick $tgchan]?"+":""]$nick[expr [string match $nick $botnick]?" (Bot)":""] [expr [getchanidle $nick $tgchan]>10?"[getchanidle $nick $tgchan]m":"-"]
The dashes are there because the bot was restarted to overcome the tcl errors, so it hasn't gathered an idle time yet. 
/me is getting his learn on.Statistics: Posted by Stylez — Thu Dec 12, 2002 3:37 am

Publish Channel Stats/Userlist to website - PHP
2002-12-12T01:32:12-04:00

Actually it doesn't work, it's just not giving any errors. It is making the html file but not actually putting the topic in it.
Also I was thinking about ftp'ing the file to the site. This may scrap the whole idea. I want to be able to do this silently, without having consoles and programs flicking up on my screen every x mins. Would it be possible to do this silently/in the background?Statistics: Posted by Stylez — Thu Dec 12, 2002 1:32 am



Publish Channel Stats/Userlist to website - PHP
2002-12-12T01:27:33-04:00

Okay now it works, I didn't quite understand the concept of globals and setting things and such for a minute. So I changed #set thetopic [topic $tgchan] TO set topic [topic $tgchan] and now it works. Now I just need to get the colour codes stripped off of the topic and add some more to the script so it will actually upload that file, or maybe just exec a .bat file.Statistics: Posted by Stylez — Thu Dec 12, 2002 1:27 am



Publish Channel Stats/Userlist to website - PHP
2002-12-12T01:21:23-04:00

Okay I managed to make a working version, using code snippets here and there, and modifying and stripping. Now I only have a couple bugs to work out: Is there a way to strip the colour codes for the topic, or any text using the tcl? Also I'm getting this error all of a sudden:  Tcl error in script for 'timer1540':
can't read "topic": no such variable
 Even though this worked like 5 minutes ago.
Here is the script so far:Code: 
#Set the variables#set the file you want to write toset tghtmlfile "d:/matt/public_html/kc-chan.html"#Channel to show stats forset tgchan "#kc"#How often (in seconds) does the html file get updated. set tghtmlrefresh 60#  The font to use on the html page.set tghtmlfont "verdana,helvetica,arial"#what is the topic on the channel?#set thetopic [topic $tgchan]#Check and Initsif {[utimerexists tghtml]!=""} {killutimer $tghtmlrefreshtimer}if {$tghtmlrefresh>0} { set tghtmlrefreshtimer [utimer $tghtmlrefresh tghtml]}#this generates an html file with all the people on the chan #and the channel topicproc tghtml {} { global tgchan botnick tghtmlfile tghtmlrefresh server  global tgrealnames  global tghtmlfont global topic set _file [open $tghtmlfile~new w] puts $_file "$tgchan Topic:
$topic

" puts $_file "
Name Idle
       @ChanServ    -    
    @Kami-M|M    -    
    @+KronBot (Bot)    -    
    @Stylez_kC    -




"foreach nick [lsort [chanlist $tgchan]] {   puts $_file "   "   puts $_file "    "puts $_file "   "} #puts $_file "" #puts $_file "" #puts $_file "" #puts $_file "" close $_file file rename -force $tghtmlfile~new $tghtmlfile set tghtmlrefreshtimer [utimer $tghtmlrefresh tghtml]}set thetopic [topic $tgchan] is commented out because I used global topic inside the tghtml process.
I'll work on it some more and see if I can figure it out myself until maybe someone replies.Statistics: Posted by Stylez — Thu Dec 12, 2002 1:21 am

Publish Channel Stats/Userlist to website - PHP
2002-12-11T05:32:31-04:00

Yes it does make a differance.

There are two ways to go about this.

Be lazy, and let us do all the leg work. This way usualy takes a long time, as we do not do on demand, unless we feel it is a worthy cause, and would be usful to ourselves or teh masses.

Or learn Tcl, slowly, and addapt scripts in existance. Can take just as long as the first method, but will also help inthe longrun. There are snippets of code, all through this forum, code in the Tcl archive, and a well documented tcl-commands.doc, that will help you do this.

One such snippet, was some code that would write the userlist to a file. could easily be addapted.Statistics: Posted by ppslim — Wed Dec 11, 2002 5:32 am



Publish Channel Stats/Userlist to website - PHP
2002-12-11T01:12:32-04:00

I would like to know if anyone knows of a basic script that would do the following OR be able to make one   :
Take the current # of users in a channel, their names (maybe including voices +, op @, and appended it to their name, but this would probably happen anyways), and the current topic. Then save it to a file, with a .php extension. THEN, ftp it to a webserver every x mins.    This sounds maybe somewhat easy for you tcl guru's, but way too hard for me. Anyways, it should be in this format:There are #USERS in channel.

Current Topic: 
currenttopic

Users:
User1 
User2 
User3
...
Something like that. I just want to do a php include and have this on the left hand menu of my site = http://www.kronicconcerz.com
BTW, I run a Windrop if that makes a diff *hides*Statistics: Posted by Stylez — Wed Dec 11, 2002 1:12 am


Name Idle
[expr [isop $nick $tgchan]?"@":""][expr [isvoice $nick $tgchan]?"+":""]$nick[expr [string match $nick $botnick]?" (Bot)":""] [expr [getchanidle $nick $tgchan]>10?"[getchanidle $nick $tgchan]m":"-"]

Name	Idle
[expr [isop $nick $tgchan]?"@":""][expr [isvoice $nick $tgchan]?"+":""]$nick[expr [string match $nick $botnick]?" (Bot)":""]	[expr [getchanidle $nick $tgchan]>10?"[getchanidle $nick $tgchan]m":"-"]