home *** CD-ROM | disk | FTP | other *** search
/ WinFiles.com 1998 June / WF0698_3.ISO / servers-websrv / websuite.exe / CHAT1.AP_ / CHAT1.AP
Text File  |  1998-04-01  |  2KB  |  69 lines
  1. <[
  2. // WINC - Chat1
  3. // (c) 1997-98 SmartDesk, Inc., All Rights Reserved
  4.  
  5. _apGenerate( )
  6.  
  7. websrvr = 0 + param( 1 )
  8. sessionId = 0 + param( 2 )
  9.  
  10. session  = new( "session", websrvr, sessionId )
  11.  
  12. id = session.var( "id" )
  13. channel = 0 + session.var( "channel" )
  14. alias = session.var( "alias" )
  15.  
  16. channels = new( "iniFile", fileFixPath( webServerHome( websrvr ) + "\\chat\\channels.dat" ) )
  17. if ( type( channels ) != "O" )
  18.     session.error( "Unable to locate CHANNELS data file.", "FFFFFF", "000000" )
  19.     return( 0 )
  20. end
  21.  
  22. channelTitle = "<FONT COLOR=\"#FFFF00\">CHANNEL " + channel + "</FONT> " + strextract( channels.getstring( "channels", "" + channel, "" ), "|", 1 )
  23.  
  24. qstr = "?id=" + id + "&channel=" + channel + "&alias=" + webEncodeUrl( alias )
  25.  
  26. ]>
  27. <HTML>
  28. <HEAD>
  29. <TITLE>WINC Chat</TITLE>
  30. </HEAD>
  31. <BODY BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#00FFFF" VLINK="#00FFFF" ALINK="#00FFFF">
  32. <FONT SIZE=1>
  33. <FORM ACTION="chatcmd.htm" METHOD="GET" TARGET="winc_bottom">
  34. <TABLE BORDER=0 WIDTH=600>
  35.  <TR>
  36.   <TD WIDTH=100 VALIGN="top">
  37.    <A HREF="chatcmd.htm<[ ! qstr ]>&cmd=logoff" TARGET="_top"><IMG SRC="chathdr.jpg" WIDTH=100 HEIGHT=75 BORDER=0></A><BR>
  38.   </TD>
  39.   <TD WIDTH=500 VALIGN="top">
  40.     <B><[ ! channelTitle ]> - Chat</B><BR>
  41.     <INPUT TYPE="hidden" NAME="channel" VALUE="<[ ! channel ]>">
  42.     <INPUT TYPE="hidden" NAME="cmd" VALUE="chat">
  43.     <INPUT TYPE="hidden" NAME="id" VALUE="<[ ! id ]>">
  44.     <INPUT TYPE="hidden" NAME="alias" VALUE="<[ ! alias ]>">
  45.     <INPUT TYPE="text" NAME="msg" SIZE=<[ ! ( session.IsMicrosoft( ) ? 50 : 40 ) ]>>
  46.     <INPUT TYPE="Submit" VALUE="Send" >
  47.     <INPUT TYPE="reset" VALUE="Clear" ><BR>
  48.     <CENTER>
  49.     <FONT SIZE=2>
  50.     <B>
  51.     <A HREF="comments.htm<[ ! qstr ]>" TARGET="winc_top">Comments</A> | 
  52.     <A HREF="users.htm<[ ! qstr ]>" TARGET="winc_bottom">Users</A> | 
  53.     <A HREF="links.htm<[ ! qstr ]>" TARGET="winc_top">Links</A> | 
  54.     <A HREF="images.htm<[ ! qstr ]>" TARGET="winc_top">Images</A> | 
  55.     <A HREF="sounds.htm<[ ! qstr ]>" TARGET="winc_top">Sounds</A> |
  56.     <A HREF="sdchat.htm<[ ! qstr ]>&cmd=Preferences" TARGET="_top">Preferences</A> | 
  57.     <A HREF="trans.htm<[ ! qstr ]>" TARGET="winc_top">Transcript</A> |
  58.     <A HREF="chatcmd.htm<[ ! qstr ]>&cmd=logoff" TARGET="_top">Logoff</A>
  59.     </B>
  60.     </FONT>
  61.     </CENTER>
  62.   </TD>
  63.  </TR>
  64. </TABLE>
  65. </FORM>
  66. </FONT>
  67. </BODY>
  68. </HTML>
  69.