home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / serwery_www / websuite / websuite.exe / CHAT.AP_ / CHAT.AP
Encoding:
Text File  |  1999-01-12  |  3.3 KB  |  115 lines
  1. <[
  2. // Personal World Chat - Main
  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. // sample code to create a private chat room
  18. //if ( channel == 6 )
  19. //    if ( ! session.secure( "PrivateChatRoom6" ) )
  20. //        return( 0 )
  21. //    end
  22. //end
  23.  
  24. alias  = session.var( "alias" )
  25.  
  26. id = session.var( "id" )
  27. if ( strempty( id ) || strempty( alias ) )
  28.     session._redir( "One Moment Please...", "sdchat.htm?channel=" + channel )
  29.     return( 0 )
  30. end
  31.  
  32.  
  33. file = fileFixPath( webServerHome( websrvr ) + "\\chat\\chan" + channel + ".cfg" )
  34. if ( ! fileExists( file ) )
  35.     hfile = fcreate( file, 0 )
  36.     if ( hfile > 0 )
  37.         fwriteline( hfile, "[Comments]" )
  38.         fwriteline( hfile, "1=Hello Everybody!" )
  39.         fwriteline( hfile, "2=Greetings All!" )
  40.         fwriteline( hfile, "3=Howdy!" )
  41.         fwriteline( hfile, "4=Cool!" )
  42.         fwriteline( hfile, "5=Way cool!" )
  43.         fwriteline( hfile, "6=Awesome!" )
  44.         fwriteline( hfile, "7=Hmmm..." )
  45.         fwriteline( hfile, "8=Ahhh, yeah..." )
  46.         fwriteline( hfile, "9=Geeze..." )
  47.         fwriteline( hfile, "10=Say what?" )
  48.         fwriteline( hfile, "11=Good-bye" )
  49.         fwriteline( hfile, "12=Later, dude." )
  50.         fwriteline( hfile, "13=Chow, man." )
  51.         fwriteline( hfile, "" )
  52.         fwriteline( hfile, "[Images]" )
  53.         fwriteline( hfile, "1=SmartDesk Logo|/image/sdlogo.gif" )
  54.         fwriteline( hfile, "2=VirtualPROMOTE Logo|/image/vplogo.jpg" )
  55.         fwriteline( hfile, "3=WINC Logo|chathdr.jpg" )
  56.         fwriteline( hfile, "" )
  57.         fwriteline( hfile, "[Links]" )
  58.         fwriteline( hfile, "1=SmartDesk|http://www.smartdesk.com" )
  59.         fwriteline( hfile, "2=VirtualPROMOTE|http://www.virtualpromote.com" )
  60.         fwriteline( hfile, "" )
  61.         fwriteline( hfile, "[Sounds]" )
  62.         fwriteline( hfile, "1=Applause|applause.wav" )
  63.         fwriteline( hfile, "2=Opps|oops.wav" )
  64.         fwriteline( hfile, "" )
  65.         fwriteline( hfile, "[Emoticons]" )
  66.         fwriteline( hfile, "1=:)" )
  67.         fwriteline( hfile, "2=;)" )
  68.         fwriteline( hfile, "3=:-)" )
  69.         fwriteline( hfile, "4=;-)" )
  70.         fwriteline( hfile, "5=:o)" )
  71.         fwriteline( hfile, "6=;o)" )
  72.         fwriteline( hfile, "7=:<)" )
  73.         fwriteline( hfile, "8=:(" )
  74.         fwriteline( hfile, "9=:o" )
  75.         fwriteline( hfile, "10=@#!$%&$#" )
  76.         fwriteline( hfile, "11=!!!!!!!" )
  77.         fwriteline( hfile, "12=???????" )
  78.         fwriteline( hfile, "" )
  79.         fwriteline( hfile, "[Actions]" )
  80.         fwriteline( hfile, "1=User Name" )
  81.         fwriteline( hfile, "2=Alias" )
  82.         fwriteline( hfile, "3=Email Address" )
  83.         fwriteline( hfile, "4=Time Stamp" )
  84.         fwriteline( hfile, "5=Date" )
  85.         fwriteline( hfile, "6=Time" )
  86.         fwriteline( hfile, "" )
  87.  
  88.         fclose( hfile )
  89.     end
  90. end
  91.  
  92. ]>
  93.  
  94. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  95. <!-- SmartDesk Active Page, www.smartdesk.com -->
  96. <HTML>
  97. <HEAD>
  98. <TITLE>SmartDesk Web Chat</TITLE>
  99. </HEAD>
  100.  <FRAMESET BORDER="0" FRAMEBORDER="no" ROWS="105, *">
  101.  
  102.   <[ 
  103.   qstr = "?id=" + webEncodeUrl( id ) + "&channel=" + channel + "&alias=" + webEncodeUrl( alias ) 
  104.   ]>
  105.  
  106.   <FRAME NAME="winc_top" SCROLLING="no" NORESIZE SRC="/chat/chat1.htm<[ ! qstr ]>" >
  107.   <FRAME NAME="winc_bottom" NORESIZE SRC="sdchat.htm<[ ! qstr ]>&cmd=ChatText">
  108.  </FRAMESET>
  109.   <BODY>
  110.  <NOFRAMES>
  111.    <H2>The WINC chat program requires frame support</H2>
  112.   </BODY>
  113.  </NOFRAMES> 
  114. </HTML>
  115.