home *** CD-ROM | disk | FTP | other *** search
/ WinFiles.com 1998 June / WF0698_3.ISO / servers-websrv / websuite.exe / IMAGES.AP_ / IMAGES.AP
Text File  |  1998-04-01  |  3KB  |  110 lines
  1. <[
  2. // WINC - Images.ap
  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. channel = 0 + session.var( "channel" )
  13. if ( channel < 1 )
  14.     channel = 1
  15. end
  16.  
  17. alias  = session.var( "alias" )
  18.  
  19. id = session.var( "id" )
  20. if ( strempty( id ) || strempty( alias ) )
  21.     session._redir( "One Moment Please...", "sdchat.htm?channel=" + channel )
  22.     return( 0 )
  23. end
  24.  
  25. channels = new( "iniFile", fileFixPath( webServerHome( websrvr ) + "\\chat\\channels.dat" ) )
  26. if ( type( channels ) != "O" )
  27.     session.error( "Unable to locate CHANNELS data file.", "FFFFFF", "000000" )
  28.     return( 0 )
  29. end
  30.  
  31. file = fileFixPath( webServerHome( websrvr ) + "\\chat\\chan" + channel + ".cfg" )
  32. if ( ! fileExists( file ) )
  33.     session.error( "Unable to locate CHANNEL data file.", "FFFFFF", "000000" )
  34.     return( 0 )
  35. end
  36. channelData = new( "iniFile", file )
  37. if ( type( channelData ) != "O" )
  38.     session.error( "Unable to locate CHANNEL CONFIG data file.", "FFFFFF", "000000" )
  39.     return( 0 )
  40. end
  41.  
  42. channelTitle = "<FONT COLOR=\"#FFFF00\">CHANNEL " + channel + "</FONT> " + strextract( channels.getstring( "channels", "" + channel, "" ), "|", 1 )
  43.  
  44. qstr = "?id=" + id + "&channel=" + channel + "&alias=" + alias
  45.  
  46. ]>
  47. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  48. <!-- SmartDesk Active Page, www.smartdesk.com -->
  49. <HTML>
  50. <HEAD>
  51. <TITLE>WINC Chat</TITLE>
  52. </HEAD>
  53. <BODY BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#00FFFF" VLINK="#00FFFF" ALINK="#00FFFF">
  54. <FONT SIZE=1>
  55. <FORM ACTION="chatcmd.htm" METHOD="GET" TARGET="winc_bottom">
  56.  
  57. <TABLE BORDER=0 WIDTH=600>
  58.  <TR>
  59.   <TD WIDTH=100 VALIGN="top">
  60.    <A HREF="chatcmd.htm<[ ! qstr ]>&cmd=logoff" TARGET="_top"><IMG SRC="chathdr.jpg" WIDTH=100 HEIGHT=75 BORDER=0></A><BR>
  61.   </TD>
  62.   <TD WIDTH=500 VALIGN="top">
  63.  
  64.     <INPUT TYPE="hidden" NAME="cmd" VALUE="image">
  65.     <INPUT TYPE="hidden" NAME="channel" VALUE="<[ ! channel ]>">
  66.     <INPUT TYPE="hidden" NAME="id" VALUE="<[ ! id ]>">
  67.     <INPUT TYPE="hidden" NAME="alias" VALUE="<[ ! alias ]>">
  68.  
  69.     <B><[ ! channelTitle ]> - Images</B><BR>
  70.     <SELECT NAME="image">
  71.      <OPTION SELECTED> -------- Select an image to attach to the current discussion --------
  72. <[
  73.         data = channelData.getItems( "Images" )
  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 = channelData.getString( "Images", item )
  81.             ! "<OPTION> " + strextract( line, "|", 1 )
  82.         end
  83. ]>
  84.     </SELECT>
  85.     <INPUT TYPE="Submit" VALUE="  Send  " ><BR>
  86.  
  87.     <CENTER>
  88.     <FONT SIZE=2>
  89.     <B>
  90.     <A HREF="chat1.htm<[ ! qstr ]>" TARGET="winc_top">Chat</A> | 
  91.     <A HREF="comments.htm<[ ! qstr ]>" TARGET="winc_top">Comments</A> |
  92.     <A HREF="users.htm<[ ! qstr ]>" TARGET="winc_bottom">Users</A> | 
  93.     <A HREF="links.htm<[ ! qstr ]>" TARGET="winc_top">Links</A> | 
  94.     <A HREF="sounds.htm<[ ! qstr ]>" TARGET="winc_top">Sounds</A> |
  95.     <A HREF="sdchat.htm<[ ! qstr ]>&cmd=Preferences" TARGET="_top">Preferences</A> | 
  96.     <A HREF="trans.htm<[ ! qstr ]>" TARGET="winc_top">Transcript</A> |
  97.     <A HREF="chatcmd.htm<[ ! qstr ]>&cmd=logoff" TARGET="_top">Logoff</A>
  98.     </B>
  99.     </FONT>
  100.     </CENTER>
  101.  
  102.   </TD>
  103.  </TR>
  104. </TABLE>
  105.  
  106. </FORM>
  107. </FONT>
  108. </BODY>
  109. </HTML>
  110.