Page MenuHomeDevCentral
Files F3769908

No OneTemporary
Actions

View Options

diff --git a/ForUsers/DANYAL/chanlist2html.tcl b/ForUsers/DANYAL/chanlist2html.tcl
new file mode 100644
index 0000000..6a77591
--- /dev/null
+++ b/ForUsers/DANYAL/chanlist2html.tcl
@@ -0,0 +1,63 @@
+#
+# This eggdrop TCL script lets you print channel users on a web page.
+#
+
+#
+# Configuration
+# Paths are relative to eggdrop
+#
+
+#The channel to save
+set chanlist2html(channel) #wolfplex
+
+#The HTML file to write
+set chanlist2html(file) users.html
+
+#The HTML template
+#Remplace the list code by %%chanlist%%
+set chanlist2html(tmpl) users.tmpl
+
+#The cron interval to regenerate the page
+set chanlist2html(cron) "*/5 * * * *"
+
+#
+# Helper procs
+#
+
+#Generates a <ul><li>...<li><li>...<li></ul> HTML code from a list
+proc list2ul {list {lineprefix ""}} {
+ set html "${lineprefix}<ul>\n"
+ foreach item $list {
+ append html "${lineprefix}\t<li>${item}</li>\n"
+ }
+ append html "${lineprefix}</ul>"
+}
+
+#Writes $target with the $channel users list from $template
+proc chanlist2html_write {channel template target} {
+ if [file exists $template] {
+ set fd [open $template r]
+ while {![eof $fd]} {
+ append buffer [gets $fd]
+ }
+ close $fd
+ } {
+ set buffer "%%chanlist%%"
+ }
+ set fd [open $target w]
+ set chanlist [list2ul [chanlist $channel]]
+ puts $fd [string map [list %%chanlist%% $chanlist] $buffer]
+ flush $fd
+ close $fd
+}
+
+#
+# Events code
+#
+
+bind cron - $chanlist2html(cron) cron:chanlist2html
+
+proc cron:chanlist2html {minute hour day weekday year} {
+ global chanlist2html
+ chanlist2html_write $chanlist2html(channel) $chanlist2html(tmpl) $chanlist2html(file)
+}

File Metadata

Mime Type
text/x-diff
Expires
Mon, Nov 25, 17:57 (11 h, 15 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
2260676
Default Alt Text
(1 KB)

Event Timeline

Nasqueron DevCentral · If it had been much bigger the moon would have had a core of ice. · Powered by Phabricator