Listing current users on a webpage

Print Thread

#51348 25/09/03 08:21 PM

Joined: Aug 2003

Posts: 136

MrPeepers

Vogon poet

MrPeepers

Vogon poet

Joined: Aug 2003

Posts: 136

Ive written a sloppy script where it lists the current users their position ie Op Halfop Voice Regular, and the last 10 lines said in the room, 2 problems, sometimes the script wont list the users like the /who commands want activated and also the save buf command brings in colors, should I just strip colors always? or could I somehow strip them as I read i tried and failed also suggestions on cleaning it up would be nice. the .pif is a shortcut to run a bat that ftp's the file to my site heres the code

Code:

  
alias users {
  who $chan
  users2
}
alias users2 {
  /lastwords
  /topic $chan
  write -c users.html &lt;html&gt;&lt;head&gt;&lt;title&gt;Current Users on $chan &lt;/title&gt;&lt;/head&gt;&lt;body bgcolor="black" text="yellow"&gt;&lt;center&gt;
  write users.html The current topic is &lt;br&gt; $strip(%topic,burcmo) &lt;hr width="50%"&gt; &lt;h2&gt;Current Users in #USA&lt;/h2&gt;&lt;table border="1" bordercolor="blue"&gt;
  listppl
}
alias lastwords {
  savebuf 10 #usa lastwords.txt
}
alias listppl {
  set %i 1
  :next
  set %nick $nick(#,%i)
  if %nick == $null goto done
  if %nick isop #usa { /write users.html &lt;tr&gt;&lt;td&gt;&lt;center&gt; %nick is an Op&lt;/center&gt;&lt;/tr&gt;&lt;/td&gt; }
  elseif %nick ishop #usa { /write users.html &lt;tr&gt;&lt;td&gt;&lt;center&gt; %nick is a HalfOp&lt;/center&gt;&lt;/tr&gt;&lt;/td&gt; }
  elseif %nick isvoice #usa { /write users.html &lt;tr&gt;&lt;td&gt;&lt;center&gt; %nick is voiced&lt;/center&gt;&lt;/tr&gt;&lt;/td&gt; }
  elseif %nick isreg #usa { /write users.html &lt;tr&gt;&lt;td&gt;&lt;center&gt; %nick is a regular user&lt;/center&gt;&lt;/tr&gt;&lt;/td&gt; }
  inc %i
  goto next
  :done
  /write users.html &lt;/table&gt;&lt;br&gt;
  closehtml
}
alias closehtml {
  write users.html &lt;hr width="50%"&gt; Last 10 lines of text said.&lt;br&gt; $read(lastwords.txt, 1) &lt;br&gt; $read(lastwords.txt, 2) &lt;br&gt; $read(lastwords.txt, 3) &lt;br&gt; $read(lastwords.txt, 4) &lt;br&gt; $read(lastwords.txt, 5) &lt;br&gt; $read(lastwords.txt, 6) &lt;br&gt; $read(lastwords.txt, 7) &lt;br&gt; $read(lastwords.txt, 8) &lt;br&gt; $read(lastwords.txt, 9) &lt;br&gt; $read(lastwords.txt, 10) &lt;br&gt; &lt;hr width=50%"&gt; Updated Every 10 minutes&lt;br&gt;Last update $asctime(h:nn:ss tt z) GMT &lt;br&gt; This has been updated by : $nick &lt;/center&gt;&lt;/body&gt;&lt;/html&gt;
  upload
}
alias upload {
  run transer.bat.pif
  .timer 1 15 /msg $chan Hey your famous, your on the net @ http://mrurl.com/
}

Sorry about how it scrolls I hate that to. Also itll list the users if I /who #chan first then run the script, yes i have my interal address book on

Last edited by MrPeepers; 25/09/03 08:28 PM.

Re: Listing current users on a webpage #51349 25/09/03 11:15 PM
Joined: Dec 2002 Posts: 1,893 O Online Hoopy frood
Online Hoopy frood O Joined: Dec 2002 Posts: 1,893	Right click here and select "Save target as..." to download the file. Please note that the @@ window must pop up during the process, otherwise due to a bug long topics or text lines will not be wrapped (if you don't care about it, add a -h switch to the /window command to make it hidden). Tested on MSIE 6.

Re: Listing current users on a webpage #51350 25/09/03 11:58 PM
Joined: Jul 2003 Posts: 129 your home O oriongods Vogon poet
oriongods Vogon poet O Joined: Jul 2003 Posts: 129 your home	how about reversed situation? is it possible to give all text to @window FROM 1 webpage?

Re: Listing current users on a webpage #51351 26/09/03 12:04 AM
Joined: Dec 2002 Posts: 1,893 O Online Hoopy frood
Online Hoopy frood O Joined: Dec 2002 Posts: 1,893	Sure, search this forum for http/1 and make sure the search date is expanded to "All posts". You'll then find plenty of downloading scripts. Pay special attention to posts by Hammer

Re: Listing current users on a webpage #51352 26/09/03 02:03 AM
Joined: Aug 2003 Posts: 136 M MrPeepers OP Vogon poet
OP MrPeepers Vogon poet M Joined: Aug 2003 Posts: 136	Sorry was an a-hole commeted before dling, thankyou Last edited by MrPeepers; 26/09/03 02:06 AM.

Re: Listing current users on a webpage

#51353 26/09/03 02:04 AM

Iori

Here's another way, using the new file-handling commands (which are really fast), so you MUST be using 6.1 to use this script.

Code:

alias users {
  .remove users.html
  .fopen -n a users.html
  .fwrite -n a &lt;html&gt;&lt;head&gt;&lt;title&gt;Current Users on # &lt;/title&gt;&lt;/head&gt;&lt;body bgcolor="black" text="yellow"&gt;
  .fwrite -n a &lt;center&gt;The current topic is&lt;br&gt; $strip($chan(#).topic) &lt;hr width="50%"&gt; $&amp;
    &lt;h2&gt;Current Users in # &lt;/h2&gt;&lt;table border="1" bordercolor="blue"&gt;
  var %i = 1
  while $nick(#,%i).pnick {
    if $left($ifmatch,1) isin @%+ {
      .fwrite -n a &lt;tr&gt;&lt;td&gt;&lt;center&gt; $nick(#,%i) $&amp;
        $gettok(is an Op:is a HalfOp:is Voiced,$pos(@%+,$ifmatch,1),58) &lt;/center&gt;&lt;/tr&gt;&lt;/td&gt;
    }
    else .fwrite -n a &lt;tr&gt;&lt;td&gt;&lt;center&gt; $nick(#,%i) is a regular user &lt;center&gt;&lt;/tr&gt;&lt;/td&gt;
    inc %i
  }
  .fwrite -n a &lt;/table&gt;&lt;br&gt;&lt;hr width="50%"&gt;&lt;br&gt;&lt;u&gt;The last 10 lines from # &lt;/u&gt;&lt;br&gt;&lt;br&gt;&lt;br&gt;&lt;/center&gt;
  ; Used Online's code for grabbing the channel lines :grin:
  var %o = $line(#,0),%i = $iif(%o &gt; 10,$calc(%o - 10),0)
  while %i &lt;= %o {
    .fwrite a $strip($line(#,%i)) &lt;br&gt;&lt;br&gt;
    inc %i
  }
  .fwrite -n a &lt;center&gt;&lt;hr width=50%"&gt; Updated Every 10 minutes&lt;br&gt;Last update $asctime(h:nn:ss tt z) $&amp;
    GMT &lt;br&gt; This has been updated by : $me &lt;/center&gt;&lt;/body&gt;&lt;/html&gt;
  .fclose a
  run transer.bat.pif
  .timer 1 15 msg # Hey you are famous, you're on the net @ http://mrurl.com/
}

Re: Listing current users on a webpage #51354 26/09/03 02:26 AM
Joined: Dec 2002 Posts: 1,893 O Online Hoopy frood
Online Hoopy frood O Joined: Dec 2002 Posts: 1,893	Yes this is a nice use of the file-handling system.

Re: Listing current users on a webpage #51355 26/09/03 03:25 AM
I Iori
Iori I	Thanks. Yeah, I like the speed of the /f* commands a lot.

Link Copied to Clipboard

Forums Scripts & Popups Listing current users on a webpage