# ## Burrito v1.0h ## This tcl generates a web file from the userlist ## ## Made by eXocomp (David Ellsworth) ## Perki (Pierre-Mikael Legris) ## gippah (Timothy Dotson) ## ## Things added to 1.0h: ## - verbose setting actually works if set to 0. ## - when adding url's, you can now set the url for a user by ## putting the url (preceeded with http://) in either ## their comment field or their info line. Storing it ## in the xtra field was bad because other poorly-written ## scripts tend to trash everything stored there. ## - removed 'admin' listing for the bots, it didnt work anyway. ## - added two new groups 'channel regulars' for those on the bot ## who do not get ops, and 'channel nasties' for those who ## have the +d flag. I'll add an option to turn these off ## in a later release, but they are definitely useful. ## - added 'web page' and 'picture' fields for the bots, so people ## who have a sense of humor can put them in if so inclined. ## - still autorefreshes. ## ## set the path of the file u want to create set http_path "/usr/home/gippah/public_html/punk" ## set the web path of the file set web_path "/~gippah/punk" ## set the file name of the file u want to create set userlist_html "users.html" ## set the backgroud picture of your page set bgpic "" ## set the channel's title here! set title "#punk list" ## if you want the bot to generate a link to url or pictures set this to 1 set verbose 1 ## if you set verbose to 0 skip the next entry ## here set the path where pictures can be found ## ! The pictures must be matching this: .jpeg, .gif or .bmp ## Only ONE file much match .* it assumes that all the files in the ## directory are pictures set pict_path "punkpics" set pict_ext {jpg jpeg JPG JPEG gif GIF bmp BMP} ## set the refresh rate set web_update_secs 300 ## here sets the names of the mode levels ## it much match with the second line (m n o b) ## n = owners m = masters o = channops b = bots ## !! it will list only the masters that aren't owners and ## the channops that aren't masters or bots ## u can remove lines, for example if u don't want bots to appear catch {unset modename} set modename(obs) "Bots" set modename(n) "Bot administrators" set modename(m) "Bot masters" set modename(o) "Channel operators" set user_types { {bot "Bots"} {admin "Bot administrators"} {master "Bot masters"} {chanop "Channel operators"} {chanreg "Channel regulars"} {channast "Channel nasties"} } proc get_user_type {user} { if {[matchattr $user obs]} { return bot } if {[matchattr $user n]} { return admin } if {[matchattr $user m]} { return master } if {[matchattr $user o] && ![matchattr $user b]} { return chanop } if {![matchattr $user b] && ![matchattr $user d]} { return chanreg } if {[matchattr $user d]} { return channast } return } proc do_burrito {} { global http_path web_path pict_path pict_ext userlist_html global title bgpic user_types verbose web_update_secs set tmpf [open $http_path/$userlist_html w] puts $tmpf "" puts $tmpf "$title" puts $tmpf "" puts $tmpf "" set bot_list {} set admin_list {} set master_list {} set chanop_list {} set chanreg_list {} set channast_list {} foreach user [userlist] { set usertype [get_user_type $user] if {$usertype!=""} { lappend ${usertype}_list $user } } foreach user_type $user_types { puts $tmpf "

[lindex $user_type 1]

\ " puts $tmpf "" set info [getinfo $user] set email [getemail $user] set comment [getcomment $user] set url [user-get $user url] if {("" == $url) && ([string compare [string range $info 0 6] "http://"] == 0)} { set url [getinfo $user] } if {("" == $url) && ([string compare [string range $comment 0 6] "http://"] == 0)} { set url [getcomment $user] } puts $tmpf "" if {[lindex $user_type 0]!="bot"} { if {$info==""} {set info
} puts $tmpf "" } puts $tmpf "" } foreach ext $pict_ext { set tmppict $pict_path/$user.$ext if {[file exists $http_path/$tmppict]} { break } else { unset tmppict } } puts $tmpf "" puts $tmpf "" } puts $tmpf "

Handle" if {[lindex $user_type 0]!="bot"} { puts $tmpf "	Info line" } if {$verbose} { puts $tmpf "	Web page	Picture" } puts $tmpf "	Last on" foreach user [set [lindex $user_type 0]_list] { puts $tmpf "
" if {$email==""} { puts $tmpf "$user" } else { puts $tmpf "$user" } puts $tmpf "	$info	" if {$verbose} { if {$url!=""} { puts $tmpf "Web Page" puts $tmpf "	" if {[info exists tmppict]} { puts $tmpf "Picture" } puts $tmpf "	" } set lasttime [getlaston $user] if {$lasttime == 0} { puts $tmpf "Never" } else { puts $tmpf [ctime $lasttime] } puts $tmpf "

" } puts $tmpf "

Created by Burrito v1.0f via" puts $tmpf "eggdrop" puts $tmpf "
Last updated " puts $tmpf [ctime [unixtime]] puts $tmpf "

This page is automatically refreshed.

" puts $tmpf "" close $tmpf do_burrito_bg $web_update_secs } proc do_burrito_bg {utime} { set alltimers [utimers] for {set i 0} {$i < [llength $alltimers]} {incr i} { set this [lindex $alltimers $i] if {[lindex $this 1]=="do_burrito"} { killutimer [lindex $this 2] } } utimer $utime do_burrito } do_burrito_bg 5 putlog "Burrito v1.0h by Perki, eXocomp and gippah"