home *** CD-ROM | disk | FTP | other *** search
/ Image Master / L80.iso / Net / websuite / websuite.exe / DIR.AP_ / DIR.AP
Encoding:
Text File  |  1997-12-08  |  3.6 KB  |  120 lines
  1. <[
  2. // WINC - Directory
  3. // (c) 1997 SmartDesk, Inc., All Rights Reserved
  4.  
  5. FUNCTION chatUserCount( websrvr, channel )
  6.  
  7.     local cnt, session
  8.  
  9.     cnt = 0
  10.     session = sessionFindFirst( websrvr )
  11.     while ( session )
  12.         if ( sessionDataGet( websrvr, sessionId( session ), "winc_channel" ) == channel )
  13.             if ( ! sessionDataExpired( websrvr, sessionId( session ), "winc_channel", 0 ) )
  14.                 cnt++
  15.             end
  16.         end
  17.         session = sessionFindNext( session )
  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. session.data( "winc_channel", "0" )
  38. session.data( "winc_cmd", "logon" )
  39.  
  40. ]>
  41. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  42. <!5thGEN Active Pages, by www.smartdesk.com>
  43. <HTML>
  44. <HEAD>
  45. <TITLE>WINC Public Directory</TITLE>
  46. </HEAD>
  47. <BODY BGCOLOR="#000000" LINK="#00FFFF" VLINK="#00FFFF" TEXT="#FFFFFF">
  48.  
  49. <CENTER>
  50. <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=571 VSPACE=0>
  51.  <TR>
  52.   <TD WIDTH=571 VALIGN=top>
  53.    <IMG SRC="/chat/dirtop.jpg" WIDTH=571 HEIGHT=161 BORDER=0 ALT="Loading WINC directory..."><BR>
  54.  
  55.    <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=571 VSPACE=0>
  56.     <TR>
  57.       <TD><IMG SRC="/chat/dirleft.jpg" WIDTH=99 HEIGHT=362 BORDER=0 ALT="<[ ! date( 'MMM DD, YYYY' ) ]>"></TD>
  58.       <TD WIDTH=377 VALIGN=top>
  59.  
  60.        <CENTER>
  61.        <FONT SIZE=4>World-wide I-Net Chit-Chat (WINC) Lobby</FONT><BR>
  62.        <FONT SIZE=2>
  63.        <A HREF="/chat/events.ap">Events</A> |
  64.        <A HREF="/chat/logon.ap">User Logon</A> |
  65.        <A HREF="http://www.smartdesk.com/websuite.html">WebSuite</A> |
  66.        <A HREF="/index.ap">Home</A><BR>
  67.        </FONT>
  68.  
  69.        <P><BR></P>
  70.  
  71.           <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH=280 VSPACE=0>
  72. <[
  73.         data = ini.getitems( "channels" )
  74.         cnt = chrcount( ";", data ) + 1
  75.         for ( i=1; i<=cnt; i++ )
  76.             item = strextract( data, ";", i )
  77.             if ( strempty( item ) )
  78.                 continue
  79.             end
  80.             line = ini.getstring( "channels", item, "" )
  81.             if ( strempty( line ) )
  82.                 continue
  83.             end
  84.                 
  85. //            ! "<TR><TD WIDTH=100><A HREF=\"/chat/chat.ap?channel=" + item + "&cmd=logon#top\">CHANNEL " + item + "</A></TD><TD><A HREF=\"/chat/chat.ap?channel=" + item + "&cmd=logon#top\">" + strextract( line, "|", 1 ) + "</A></TD><TD><FONT COLOR=\"#00FFF\">" + chatUserCount( websrvr, item ) + "</FONT></TD></TR>"
  86.             ! "<TR><TD WIDTH=100><A HREF=\"/chat/chat.ap?channel=" + item + "\">CHANNEL " + item + "</A></TD><TD><A HREF=\"/chat/chat.ap?channel=" + item + "\">" + strextract( line, "|", 1 ) + "</A></TD><TD><FONT COLOR=\"#00FFF\">" + chatUserCount( websrvr, item ) + "</FONT></TD></TR>"
  87.     
  88.         end
  89. ]>
  90.         </TR>
  91.        </TABLE>
  92.        <P><BR></P>
  93.        <A HREF="http://www.smartdesk.com/winc">Check out these other CHAT directories...</A>
  94.  
  95.        </CENTER>
  96.        
  97.       </TD>
  98.       <TD><IMG SRC="/chat/dirright.jpg" WIDTH=97 HEIGHT=362 BORDER=0 ALT="<[ ! timetostr( time( ), 0 ) + 'm' ]>"></TD>
  99.     </TR>
  100.    </TABLE>
  101.    <IMG SRC="/chat/dirbott.jpg" WIDTH=571 HEIGHT=67 BORDER=0><BR>
  102.  
  103.    <CENTER>
  104.    <FONT SIZE=4>
  105.    <A HREF="/chat/events.ap">Events</A> |
  106.    <A HREF="/chat/logon.ap">User Logon</A> |
  107.    <A HREF="http://www.smartdesk.com/websuite.html">WebSuite</A> |
  108.    <A HREF="/index.ap">Home</A><BR>
  109.    </FONT>
  110.    <FONT SIZE=2 COLOR="#FFFFFF">©1997 SmartDesk, Inc., All Rights Reserved.<BR></FONT>
  111.    </CENTER>
  112.  
  113.   </TD>
  114.  </TR>
  115. </TABLE>
  116.  
  117. </CENTER>
  118.  
  119. <[! webFooter( )]>
  120.