home *** CD-ROM | disk | FTP | other *** search
/ Image Master / L80.iso / Net / websuite / websuite.exe / SOUNDS.AP_ / SOUNDS.AP
Encoding:
Text File  |  1997-12-08  |  3.0 KB  |  102 lines
  1. <[
  2. // WINC - Sounds.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. file = fileFixPath( webServerHome( websrvr ) + "\\chat\\chan" + channel + ".cfg" )
  29. if ( ! fileExists( file ) )
  30.     session.error( "Unable to locate CHANNEL data file.", "FFFFFF", "000000" )
  31.     return( 0 )
  32. end
  33. channelData = new( "iniFile", file )
  34. if ( type( channelData ) != "O" )
  35.     session.error( "Unable to locate CHANNEL CONFIG data file.", "FFFFFF", "000000" )
  36.     return( 0 )
  37. end
  38.  
  39. channelTitle = "<FONT COLOR=\"#FFFF00\">CHANNEL " + channel + "</FONT> " + strextract( channels.getstring( "channels", channel, "" ), "|", 1 )
  40.  
  41. ]>
  42. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  43. <!-- SmartDesk Active Page, www.smartdesk.com -->
  44. <HTML>
  45. <HEAD>
  46. <TITLE>WINC Chat</TITLE>
  47. </HEAD>
  48. <BODY BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#00FFFF" VLINK="#00FFFF" ALINK="#00FFFF">
  49. <FONT SIZE=1>
  50. <FORM ACTION="chatcmd.ap" METHOD="GET" TARGET="winc_bottom">
  51.  
  52. <TABLE BORDER=0 WIDTH=600>
  53.  <TR>
  54.   <TD WIDTH=100 VALIGN="top">
  55.    <A HREF="index.ap"><IMG SRC="chathdr.jpg" WIDTH=100 HEIGHT=75 BORDER=0></A><BR>
  56.   </TD>
  57.   <TD WIDTH=500 VALIGN="top">
  58.  
  59.     <INPUT TYPE="hidden" NAME="channel" VALUE="<[ ! channel ]>">
  60.     <INPUT TYPE="hidden" NAME="cmd" VALUE="sound">
  61.  
  62.     <B><[ ! channelTitle ]> - Sounds</B><BR>
  63.     <SELECT NAME="sound">
  64.      <OPTION SELECTED> --------- Select a sound to attach to the current discussion ---------
  65. <[
  66.         data = channelData.getItems( "Sounds" )
  67.         cnt = chrcount( ";", data ) + 1
  68.         for ( i=1; i<=cnt; i++ )
  69.             item = strextract( data, ";", i )
  70.             if ( strempty( item ) )
  71.                 continue
  72.             end
  73.             line = channelData.getString( "Sounds", item )
  74.             ! "<OPTION> " + strextract( line, "|", 1 )
  75.         end
  76. ]>
  77.     </SELECT>
  78.     <INPUT TYPE="Submit" VALUE="  Send  " ><BR>
  79.  
  80.     <CENTER>
  81.     <FONT SIZE=2>
  82.     <B>
  83.     <A HREF="chat1.ap" TARGET="winc_top">Chat</A> | 
  84.     <A HREF="comments.ap" TARGET="winc_top">Comments</A> |
  85.     <A HREF="users.ap" TARGET="winc_bottom">Users</A> | 
  86.     <A HREF="links.ap" TARGET="winc_top">Links</A> | 
  87.     <A HREF="images.ap" TARGET="winc_top">Images</A> | 
  88.     <A HREF="prefer.ap" TARGET="winc_top">Preferences</A> | 
  89.     <A HREF="trans.ap" TARGET="winc_top">Transcript</A> |
  90.     <A HREF="chatcmd.ap?cmd=logoff" TARGET="_top">Leave</A>
  91.     </B>
  92.     </FONT>
  93.     </CENTER>
  94.  
  95.   </TD>
  96.  </TR>
  97. </TABLE>
  98. </FORM>
  99. </FONT>
  100. </BODY>
  101. </HTML>
  102.