home *** CD-ROM | disk | FTP | other *** search
/ WinFiles.com 1998 June / WF0698_3.ISO / servers-websrv / websuite.exe / DIR.AP_ / DIR.AP
Text File  |  1998-04-01  |  4KB  |  137 lines
  1. <[
  2. // WINC - Directory
  3. // (c) 1997-98 SmartDesk, Inc., All Rights Reserved
  4.  
  5. FUNCTION chatUserCount( session, channel )
  6.     local data, cnt, filename, basedir, i, line, id, j, k
  7.     
  8.     basedir = webServerHome( session.websrvr ) + "\\chat"
  9.     filename = basedir + "\\chan" + channel + ".dat"
  10.     data = sessionDataGet( session.websrvr, -1, "CHATBUF." + filename )
  11.     cnt = chrcount( chr( 2 ), data )
  12.     j=0
  13.     users[1] = ""
  14.     for ( i=1; i<=cnt; i++ )
  15.         line = strextract( data, chr( 2 ), i )
  16.         id  = strextract( line, chr( 1 ), 5 )
  17.  
  18.         for ( k=1; k<=j; k++ )
  19.             if ( users[k] == id )
  20.                 break
  21.             end
  22.         end
  23.         if ( k > j )
  24.             j++
  25.             users[j] = id
  26.         end
  27.     end
  28.     
  29.     return( j )    
  30. END
  31.  
  32.  
  33. // MAIN
  34.  
  35. websrvr = 0 + param( 1 )
  36. sessionId = 0 + param( 2 )
  37.  
  38. session = new( "session", websrvr, sessionId )
  39.  
  40. ini = new( "iniFile", fileFixPath( webServerHome( websrvr ) + "\\chat\\channels.dat" ) )
  41. if ( type( ini ) != "O" )
  42.     session.error( "Unable to locate CHANNELS data file.", "FFFFFF", "000000" )
  43.     return( 0 )
  44. end
  45.  
  46. channel = 0 + session.var( "channel" )
  47. if ( channel < 1 )
  48.     channel = 1
  49. end
  50. cmd = session.var( "cmd" )
  51. id = session.var( "id" )
  52. alias = session.var( "alias" )
  53.  
  54. ]>
  55. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  56. <!5thGEN Active Pages, by www.smartdesk.com>
  57. <HTML>
  58. <HEAD>
  59. <TITLE>Chat Directory</TITLE>
  60. <META HTTP-EQUIV="REFRESH" CONTENT="120;" >
  61. </HEAD>
  62. <BODY BGCOLOR="#000000" LINK="#00FFFF" VLINK="#00FFFF" TEXT="#FFFFFF">
  63.  
  64. <CENTER>
  65. <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=571 VSPACE=0>
  66.  <TR>
  67.   <TD WIDTH=571 VALIGN=top>
  68.    <IMG SRC="/chat/dirtop.jpg" WIDTH=571 HEIGHT=161 BORDER=0 ALT="Loading Chat directory..."><BR>
  69.  
  70.    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=571 VSPACE=0>
  71.     <TR>
  72.       <TD><IMG SRC="/chat/dirleft.jpg" WIDTH=99 HEIGHT=260 BORDER=0 ALT="<[ ! date( 'MMM DD, YYYY' ) ]>"></TD>
  73.       <TD WIDTH=377 VALIGN=top>
  74.  
  75.        <CENTER>
  76.        <FONT SIZE=4>World-wide I-Net Chit-Chat (WINC) Lobby</FONT><BR>
  77.        <FONT SIZE=2>
  78.        <A HREF="events.htm">Events</A> |
  79.        <A HREF="sdchat.htm?channel=<[! channel ]>">User Logon</A> |
  80.        <A HREF="http://www.smartdesk.com/websuite.html">WebSuite</A> |
  81.        <A HREF="/index.htm">Home</A><BR>
  82.        </FONT>
  83.  
  84.        <P><BR></P>
  85.  
  86.           <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=280 VSPACE=0>
  87. <[
  88.         data = ini.getitems( "channels" )
  89.         cnt = chrcount( ";", data ) + 1
  90.         for ( i=1; i<=cnt; i++ )
  91.             item = strextract( data, ";", i )
  92.             if ( strempty( item ) )
  93.                 continue
  94.             end
  95.             line = ini.getstring( "channels", item, "" )
  96.             if ( strempty( line ) )
  97.                 continue
  98.             end
  99.                 
  100.             ! "<TR><TD WIDTH=100><A HREF=\"/chat/chat.htm?channel=" + item + "&id=" + id + "&alias=" + webEncodeUrl( alias ) + "\">CHANNEL " + item + "</A></TD><TD><A HREF=\"/chat/chat.htm?channel=" + item + "&id=" + id + "&alias=" + webEncodeUrl( alias ) + "\">" + strextract( line, "|", 1 ) + "</A></TD><TD><FONT COLOR=\"#00FFF\">" + chatUserCount( session, item ) + "</FONT></TD></TR>"
  101.     
  102.         end
  103. ]>
  104.         </TR>
  105.        </TABLE>
  106.  
  107.        </CENTER>
  108.        
  109.       </TD>
  110.       <TD><IMG SRC="/chat/dirright.jpg" WIDTH=97 HEIGHT=260 BORDER=0 ALT="<[ ! timetostr( time( ), 0 ) + 'm' ]>"></TD>
  111.     </TR>
  112.    </TABLE>
  113.    <IMG SRC="/chat/dirbott.jpg" WIDTH=571 HEIGHT=67 BORDER=0><BR>
  114.  
  115.    <CENTER>
  116.    <FONT SIZE=4>
  117.    <A HREF="events.htm">Events</A> |
  118.    <A HREF="sdchat.htm?channel=<[! channel ]>">User Logon</A> |
  119.    <A HREF="http://www.smartdesk.com/websuite.html">WebSuite</A> |
  120.    <A HREF="/index.htm">Home</A><BR>
  121.    </FONT>
  122.    <FONT SIZE=2 COLOR="#FFFFFF">©1997-98 SmartDesk, Inc., All Rights Reserved.<BR></FONT>
  123.    </CENTER>
  124.  
  125.   </TD>
  126.  </TR>
  127. </TABLE>
  128.  
  129. </CENTER>
  130.  
  131. <p><br></p>
  132. <p><br></p>
  133. <p><br></p>
  134. <p><br></p>
  135.  
  136. <[! webFooter( )]>
  137.