47 lines
1.5 KiB
Tcl
47 lines
1.5 KiB
Tcl
#pisg.tcl v0.15 by HM2K - auto stats script for pisg (perl irc statistics generator)
|
||
#based on a script by Arganan
|
||
|
||
# WARNING - READ THIS
|
||
#
|
||
# If you use this script, PLEASE read the documentation about the "Silent"
|
||
# option. If you get the message "an error occured: Pisg v0.67 - perl irc
|
||
# statistics generator" in the channel, you are NOT running silent. Fix it.
|
||
|
||
set pisgver "0.15"
|
||
|
||
#Location of pisg execuitable perl script
|
||
set pisgexe "/home/eggdrop/eggdrop/pisg/pisg"
|
||
|
||
#URL of the generated stats
|
||
set pisgurl "http://www.thehappy.de/habo/stats"
|
||
|
||
#channel that the stats are generated for
|
||
set pisgchan "#hackerboard"
|
||
|
||
#Users with these flags can operate this function
|
||
set pisgflags "nm"
|
||
|
||
#How often the stats will be updated in minutes, ie: 30 - stats will be updated every 30 minutes
|
||
set pisgtime "1440"
|
||
|
||
bind pub $pisgflags !stats pub:pisgcmd
|
||
|
||
proc pub:pisgcmd {nick host hand chan arg} {
|
||
global pisgexe pisgurl pisgchan
|
||
append out "PRIVMSG $pisgchan :" ; if {[catch {exec $pisgexe} error]} { append out "$pisgexe an error occured: [string totitle $error]" } else { append out "Stats Updated: $pisgurl" }
|
||
# puthelp $out
|
||
}
|
||
|
||
proc pisgcmd_timer {} {
|
||
global pisgexe pisgurl pisgchan pisgtime
|
||
append out "PRIVMSG $pisgchan :" ; if {[catch {exec $pisgexe} error]} { append out "$pisgexe an error occured: [string totitle $error]" } else { append out "Stats Updated: $pisgurl" }
|
||
# puthelp $out
|
||
timer $pisgtime pisgcmd_timer
|
||
}
|
||
|
||
if {![info exists {pisgset}]} {
|
||
set pisgset 1
|
||
timer 2 pisgcmd_timer
|
||
}
|
||
|
||
putlog "pisg.tcl $pisgver loaded"
|