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