Chanpage script by slennox

Ovdis · Post by **Ovdis** » Mon Dec 06, 2004 3:32 pm

where coul i find chanpage script by slennox, which is used here?
or maybe it is unavailable in public?

ps, i tried search but no matches were found

metroid · Post by **metroid** » Mon Dec 06, 2004 5:36 pm

I guess not then huh.

Ovdis · Post by **Ovdis** » Tue Dec 07, 2004 9:19 am

or maybe i could find some equivalents for that chanscript?

metroid · Post by **metroid** » Tue Dec 07, 2004 9:51 am

Have you tried google? Have you tried the TCL Archive?

No. You should try a little harder to get something done.

Post by **slennox** » Tue Dec 07, 2004 1:56 pm

I'm afraid the script incomplete and undocumented, never been ready for public release and probably never will be.

Incidentally Ovdis, would you mind changing your avatar? To paraphrase a line from the film Patton: this is a support forum, not a bordello

Deacon · Post by **Deacon** » Sat Jan 29, 2005 8:08 am

Dont you ever considder it to release it ??

KevKev · Post by **KevKev** » Sat Jan 29, 2005 8:29 am

It looks like an excelent script but it appears he has no interest in releasing it.

There are several other stats scripts available however so you're not totally out of luck.

Personally I quite like pisg

YMMV

Post by **caesar** » Sat Jan 29, 2005 4:12 pm

What's so hard to make a simple one? Just a few clicks here and there and voila! (the design part) as for tcl same way (clicks replaced by lines)

Deacon · Post by **Deacon** » Sun Jan 30, 2005 4:53 pm

Then make one, Because i can't, If you would make it. I would apriciate it very much

Post by **caesar** » Mon Jan 31, 2005 11:12 am

Code: Select all

bind dcc o chanpage chanpage:dcc
bind time - ?0* time:chan:page

proc chanpage:dcc {hand idx text} {
  chanpage:generate #channel "Bla bla bla, this is my chan description."
  putidx $idx "chanpage generated.."
}

proc time:chan:page {minute hour day month year} { 
  chanpage:generate #channel "Bla bla bla, this is my chan description."
}

proc chanpage:generate {chan desc} {
  set f [open index.html w]
  puts $f "
  <html><head><title>$chan stats!</title><style>
  <!--
  .bodyCopy {
    	FONT-WEIGHT: normal; FONT-SIZE: 11px; LINE-HEIGHT: 16px; FONT-STYLE: normal; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif
  }
  A {
    	COLOR: #000000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
  }
  A:active {
    	COLOR: #000000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
  }
  A:link {
    	COLOR: #000000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
  }
  A:visited {
    	COLOR: #000000; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
  }
  A:hover {
    	COLOR: blue; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; TEXT-DECORATION: none
  }
  -->
  </style></head><body>
  <table border=\"0\" width=\"100%\" height=\"100%\" id=\"table57\">
  <tr><td><div align=\"center\"><div align=\"center\"><table border=\"0\" width=\"75%\" id=\"table64\"><tr><td>
  <p align=\"center\"><font face=\"Verdana\" size=\"4\"><b>#channel</b></font><br>
  <font face=\"Verdana\" style=\"font-size: 9pt\">$desc</font><font face=\"Verdana\" size=\"2\"><br>
  "

  if {[set topic [topic $chan]] == ""} {
    set topic "No topic is set for $chan channel."
  }

  puts $f "
  <br><b>Channel topic:</b><br></font><font face=\"Verdana\" style=\"font-size: 9pt\">$topic</font><font face=\"Verdana\" size=\"2\"><br>
  <br><b>Users in channel:</b></font></td></tr>
  </table><TABLE cellSpacing=0 cellPadding=0 width=\"50%\" bgColor=#000000 border=0 id=\"table62\"><TBODY><TR><TD>
  <TABLE cellSpacing=1 cellPadding=1 width=\"100%\" border=0 id=\"table63\"><TBODY><TR borderColor=##ffffff bgColor=#000031>
  <TD width=\"15%\" bgcolor=\"#FAFAFA\"><DIV class=bodyCopy align=center><strong>Nickname</strong></DIV></TD><TD width=\"45%\" bgcolor=\"#FAFAFA\">
  <DIV class=bodyCopy align=center><strong>Time in channel</strong></DIV></TD></TR>"

  foreach user [chanlist $chan] {
    lappend nicklist $user
  }

  foreach user [lsort -dictionary $nicklist] {
    puts $f "<TR class=bodyCopy borderColor=#ffffff bgColor=#ffffcc>
    <TD bgColor=#FFFFFF width=\"10%\"><DIV class=bodyCopy align=left><p align=\"center\">
    <strong style=\"font-weight: 400\">$user</strong></DIV></TD><TD bgColor=#FFFFFF width=\"45%\">"

    if {[set join [getchanjoin $user $chan]]} {
      set duration [duration [expr [clock seconds] - $join]]
      } else {
      set duration "n/a"
    }

    puts $f "<DIV class=bodyCopy align=center>$duration</DIV></TD></TR>"
  }
  puts $f "
  </TBODY></TABLE></TD></TR></TBODY></TABLE><p><font face=\"Verdana\" size=\"1\">This page was last updated on [date] at [time]<br>
  </font><font face=\"Verdana\" size=\"2\"><br></font><font face=\"Verdana\" size=\"1\">Created with chanpage.tcl v0.1<br>
  © 2004 <a href=\"mailto:cezarica%20\[at\]%20prietenii%20\[dot%20\]com\">caesar</a><font face=\"Verdana\">.</font> All rights reserved.</font></div>
  </div></td></tr></table></body></html>"
  close $f
}

There, happy now? Make yourself the second page.

stalix · Post by **stalix** » Wed Mar 22, 2006 10:47 am

This script works? i dont working me.

or other script similar??
t
hanks

Post by **caesar** » Wed Mar 22, 2006 11:29 am

What exactly isn't working? What have you tried so far? Any errors? Please check the Things to do before posting page.

stalix · Post by **stalix** » Wed Mar 22, 2006 11:59 am

I want you know if somebody test that script and if work ...

Alchera · Post by **Alchera** » Wed Mar 22, 2006 12:16 pm

stalix wrote:I want you know if somebody test that script and if work ...

You're the one that should be testing the script. Re-read caesar's post.

stalix · Post by **stalix** » Wed Mar 22, 2006 3:26 pm

yeah but dont work me