home *** CD-ROM | disk | FTP | other *** search
/ Image Master / L80.iso / Net / websuite / websuite.exe / PREFER.AP_ / PREFER.AP
Encoding:
Text File  |  1997-12-08  |  2.7 KB  |  89 lines
  1. <[
  2. // WINC - Prefer(ences).ap
  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.  
  30. pglen = 0 + session.data( "winc_pglen" )
  31. pglen = pglen < 1 ? 20 : pglen
  32. pglen = pglen > 150 ? 150 : pglen
  33.  
  34. reloadtime = 0 + session.data( "winc_reload_time" )
  35. reloadtime = reloadtime < 1 ? 20 : reloadtime
  36.  
  37. ]>
  38. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  39. <!-- SmartDesk Active Page, www.smartdesk.com -->
  40. <HTML>
  41. <HEAD>
  42. <TITLE>WINC Chat</TITLE>
  43. </HEAD>
  44. <BODY BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#00FFFF" VLINK="#00FFFF" ALINK="#00FFFF">
  45. <FONT SIZE=1>
  46. <FORM ACTION="chatcmd.ap" METHOD="GET" TARGET="winc_bottom">
  47.  
  48. <TABLE BORDER=0 WIDTH=600>
  49.  <TR>
  50.   <TD WIDTH=100 VALIGN="top">
  51.    <A HREF="index.ap"><IMG SRC="chathdr.jpg" WIDTH=100 HEIGHT=75 BORDER=0></A><BR>
  52.   </TD>
  53.   <TD WIDTH=500 VALIGN="top">
  54.  
  55.     <B><[ ! channelTitle ]> - Preferences</B><BR>
  56.     <INPUT TYPE="hidden" NAME="channel" VALUE="<[ ! channel ]>">
  57.     <INPUT TYPE="hidden" NAME="cmd" VALUE="preferences">
  58.  
  59.     <B>Update Frequency:</B>
  60.     <INPUT TYPE="text" NAME="freq" SIZE=<[ ! ( session.IsMicrosoft( ) ? 5 : 5 ) + " VALUE=\"" + reloadtime + "\"" ]>>
  61.     <B>Page Length:</B>
  62.     <INPUT TYPE="text" NAME="pglen" SIZE=<[ ! ( session.IsMicrosoft( ) ? 5 : 5 ) + " VALUE=\"" + pglen + "\"" ]>>
  63.     <FONT COLOR=black>..</FONT>
  64.     <INPUT TYPE="Submit" VALUE="Update" ><BR>
  65.  
  66.     <CENTER>
  67.     <FONT SIZE=2>
  68.     <B>
  69.     <A HREF="chat1.ap" TARGET="winc_top">Chat</A> | 
  70.     <A HREF="comments.ap" TARGET="winc_top">Comments</A> | 
  71.     <A HREF="users.ap" TARGET="winc_bottom">Users</A> | 
  72.     <A HREF="links.ap" TARGET="winc_top">Links</A> | 
  73.     <A HREF="images.ap" TARGET="winc_top">Images</A> | 
  74.     <A HREF="sounds.ap" TARGET="winc_top">Sounds</A> |
  75.     <A HREF="trans.ap" TARGET="winc_top">Transcript</A> |
  76.     <A HREF="chatcmd.ap?cmd=logoff" TARGET="_top">Leave</A>
  77.     </B>
  78.     </FONT>
  79.     </CENTER>
  80.  
  81.   </TD>
  82.  </TR>
  83. </TABLE>
  84.  
  85. </FORM>
  86. </FONT>
  87. </BODY>
  88. </HTML>
  89.