home *** CD-ROM | disk | FTP | other *** search
/ Image Master / L80.iso / Net / websuite / websuite.exe / CHAT1.AP_ / CHAT1.AP
Encoding:
Text File  |  1997-12-08  |  2.4 KB  |  74 lines
  1. <[
  2. // WINC - Chat1
  3. // (c) 1997 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. name = session.data( "winc_name" )
  13. alias = session.data( "winc_alias" )
  14. email_addr = session.data( "winc_email_addr" )
  15. pword = session.data( "winc_pword" )
  16. if ( strempty( name ) || strempty( alias ) || strempty( email_addr ) || strempty( pword ) )
  17.     session.redir( "One Moment Please...", "logon.ap" )
  18.     return( 0 )
  19. end
  20.  
  21. channel  = session.data( "winc_channel" )
  22. channels = new( "iniFile", fileFixPath( webServerHome( websrvr ) + "\\chat\\channels.dat" ) )
  23. if ( type( channels ) != "O" )
  24.     session.error( "Unable to locate CHANNELS data file.", "FFFFFF", "000000" )
  25.     return( 0 )
  26. end
  27.  
  28. channelTitle = "<FONT COLOR=\"#FFFF00\">CHANNEL " + channel + "</FONT> " + strextract( channels.getstring( "channels", channel, "" ), "|", 1 )
  29. session.data( "winc_cmd", "chat" )
  30.  
  31. ]>
  32. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  33. <!-- SmartDesk Active Page, www.smartdesk.com -->
  34. <HTML>
  35. <HEAD>
  36. <TITLE>WINC Chat</TITLE>
  37. </HEAD>
  38. <BODY BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#00FFFF" VLINK="#00FFFF" ALINK="#00FFFF">
  39. <FONT SIZE=1>
  40. <FORM ACTION="chatcmd.ap" METHOD="GET" TARGET="winc_bottom">
  41. <TABLE BORDER=0 WIDTH=600>
  42.  <TR>
  43.   <TD WIDTH=100 VALIGN="top">
  44.    <A HREF="index.ap"><IMG SRC="chathdr.jpg" WIDTH=100 HEIGHT=75 BORDER=0></A><BR>
  45.   </TD>
  46.   <TD WIDTH=500 VALIGN="top">
  47.     <B><[ ! channelTitle ]> - Chat</B><BR>
  48.     <INPUT TYPE="hidden" NAME="channel" VALUE="<[ ! channel ]>">
  49.     <INPUT TYPE="hidden" NAME="cmd" VALUE="chat">
  50.     <INPUT TYPE="text" NAME="msg" SIZE=<[ ! ( session.IsMicrosoft( ) ? 60 : 40 ) ]>>
  51.     <INPUT TYPE="Submit" VALUE="Send" >
  52.     <INPUT TYPE="reset" VALUE="Clear" ><BR>
  53.     <CENTER>
  54.     <FONT SIZE=2>
  55.     <B>
  56.     <A HREF="comments.ap" TARGET="winc_top">Comments</A> | 
  57.     <A HREF="users.ap" TARGET="winc_bottom">Users</A> | 
  58.     <A HREF="links.ap" TARGET="winc_top">Links</A> | 
  59.     <A HREF="images.ap" TARGET="winc_top">Images</A> | 
  60.     <A HREF="sounds.ap" TARGET="winc_top">Sounds</A> |
  61.     <A HREF="prefer.ap" TARGET="winc_top">Preferences</A> | 
  62.     <A HREF="trans.ap" TARGET="winc_top">Transcript</A> |
  63.     <A HREF="chatcmd.ap?cmd=logoff" TARGET="_top">Leave</A>
  64.     </B>
  65.     </FONT>
  66.     </CENTER>
  67.   </TD>
  68.  </TR>
  69. </TABLE>
  70. </FORM>
  71. </FONT>
  72. </BODY>
  73. </HTML>
  74.