home *** CD-ROM | disk | FTP | other *** search
/ Image Master / L80.iso / Net / websuite / websuite.exe / LOGON.AP_ / LOGON.AP
Encoding:
Text File  |  1997-12-08  |  5.0 KB  |  166 lines
  1. <[
  2. // WINC - Logon
  3. // (c) 1997 SmartDesk, Inc., All Rights Reserved
  4.  
  5. FUNCTION chatLogEntry( websrvr, msg )
  6.  
  7.     local filename, endtime, hfile, data
  8.  
  9.     filename = webServerBaseDir( websrvr ) + "\\chat.log"
  10.     if ( ! fileExists( filename ) )
  11.         hfile = fcreate( filename, 0 )
  12.     else
  13.         endtime = seconds( ) + 3
  14.         while ( seconds( ) < endtime )
  15.             hfile = fopen( filename, 2 )
  16.             if ( hfile > 0 )
  17.                 break
  18.             end
  19.         end
  20.     end
  21.     if ( hfile < 1 )
  22.         return( 0 )
  23.     end
  24.     
  25.     fseek( hfile, 0, 2 )
  26.  
  27.     data = date( "YYYYMMDD," ) + time( ) + "," + msg
  28.     fwriteline( hfile, data )
  29.     fclose( hfile )
  30.     
  31.     return( 1 )
  32. END
  33.  
  34. _apGenerate( )
  35.  
  36. websrvr = 0 + param( 1 )
  37. sessionId = 0 + param( 2 )
  38.  
  39. session = new( "session", websrvr, sessionId )
  40.  
  41. name = session.var( "NAME" )
  42. alias = session.var( "ALIAS" )
  43. email_addr = session.var( "EMAIL_ADDR" )
  44. pword = session.var( "PWORD" )
  45.  
  46. session.data( "winc_cmd", "logon" )
  47.  
  48. if ( strempty( name ) && strempty( alias ) && strempty( email_addr ) && strempty( pword ) )
  49.     if ( webAddrFromHost( webHostName( ) ) == session.data( "REMOTE_ADDR" ) )
  50.         file = webServerConfigFile( websrvr )
  51.         ini = new( "inifile", file )
  52.         if ( type( ini ) != "O" )
  53.             session.error( "Unable to locate the " + file + "data file.", "FFFFFF", "000000" )
  54.             return( 0 )
  55.         end
  56.            name = ini.GetString( "Chat", "Name", "" )
  57.            alias = ini.GetString( "Chat", "Alias", "" )
  58.            email_addr = ini.GetString( "Chat", "Email_addr", "" )
  59.     else
  60.         name = session.data( "winc_name" )
  61.         alias = session.data( "winc_alias" )
  62.         email_addr = session.data( "winc_email_addr" )
  63.     end
  64.     session.data( "winc_pword", "" )
  65.     
  66. elseif ( ! strempty( name ) && ! strempty( alias ) && ! strempty( email_addr ) && ! strempty( pword ) )
  67.     // ready to go
  68.     file = webServerConfigFile( websrvr )
  69.     ini = new( "inifile", file )
  70.     if ( type( ini ) != "O" )
  71.         session.error( "Unable to locate the " + file + "data file.", "FFFFFF", "000000" )
  72.         return( 0 )
  73.     end
  74.  
  75.     if ( webAddrFromHost( webHostName( ) ) == session.data( "REMOTE_ADDR" ) )
  76.            ini.SetString( "Chat", "Name", name )
  77.            ini.SetString( "Chat", "Alias", alias )
  78.            ini.SetString( "Chat", "Email_addr", email_addr )
  79.     end
  80.  
  81.     session.data( "winc_name", name )
  82.     session.data( "winc_alias", alias )
  83.     session.data( "winc_email_addr", email_addr )
  84.     session.data( "winc_pword", pword )
  85.  
  86.     chan = session.data( "winc_reload_channel" )
  87.     chatLogEntry( websrvr, "" + chan + "," + name + "," + alias + "," + email_addr + "," + pword )
  88.     if ( strempty( chan ) )
  89.         session.redir( "One Moment Please...", "dir.ap" )
  90.     else
  91.         session.redir( "One Moment Please...", "chat.ap?channel=" + chan )
  92.     end
  93.  
  94.     return( 1 )
  95. else
  96.     // some kinda problem
  97.     msg = ""
  98.     msg += strempty( name ) ? "Must specify your name.<BR>" : ""
  99.     msg += strempty( alias ) ? "Must specify an alias.<BR>" : ""
  100.     msg += strempty( email_addr ) ? "Must specify an email address.<BR>" : ""
  101.     msg += strempty( pword ) ? "Must specify a password.<BR>" : ""
  102.  
  103.     session.error( msg, "FFFFFF", "000000" )
  104.  
  105.     return( 0 )
  106. end
  107.  
  108. ]>
  109. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  110. <!5thGEN Active Pages, by www.smartdesk.com>
  111. <HTML>
  112. <HEAD>
  113. <TITLE>Logon to the WINC chat system</TITLE>
  114. </HEAD>
  115. <BODY BGCOLOR="#000000" LINK="#00FFFF" VLINK="#00FFFF" TEXT="#FFFFFF">
  116.  
  117. <TABLE BORDER=0 WIDTH=600>
  118.  <TR>
  119.   <TD WIDTH=100 VALIGN=top>
  120.    <A HREF="/index.ap"><IMG SRC="chathdr.jpg" WIDTH=100 HEIGHT=75 BORDER=0></A><BR>
  121.   </TD>
  122.   <TD WIDTH=30><FONT COLOR=black>.</FONT></TD>
  123.   <TD WIDTH=470>
  124.    <CENTER>
  125.  
  126.    <P><BR></P>
  127.    <P><BR></P>
  128.    <FONT SIZE=5 COLOR="00FFFF"><B>Welcome to SmartDesk's</B></FONT><BR>
  129.    <FONT SIZE=4>World-wide I-Net Chit-Chat (WINC) Logon Screen</FONT><BR>
  130.    <P><BR></P>
  131.  
  132.    <FORM ACTION="logon.ap" METHOD="GET">
  133.    <P>
  134.    <TABLE BORDER=0 WIDTH=370>
  135.     <TR><TD WIDTH=150>User Name:</TD><TD WIDTH=220><INPUT TYPE="text" NAME="name" VALUE="<[ ! name ]>" SIZE=32></TD></TR>
  136.     <INPUT TYPE="hidden" NAME="z" VALUE="<[ ! untrim( "", 300 ) ]>" SIZE=32>
  137.     <TR><TD>Logon Alias:</TD><TD><INPUT TYPE="text" NAME="alias" VALUE="<[ ! alias ]>" SIZE=32></TD></TR>
  138.     <TR><TD>E-mail Address:</TD><TD><INPUT TYPE="text" NAME="email_addr" VALUE="<[ ! email_addr ]>" SIZE=32></TD></TR>
  139.     <TR><TD>Password:</TD><TD><INPUT TYPE="password" NAME="pword" SIZE=32></TD></TR>
  140.     <TR><TD><FONT COLOR=black>.</FONT></TD><TD></TD></TR>
  141.     <TR><TD></TD><TD><INPUT TYPE="Submit" VALUE="          Logon to WINC...          " ></TD></TR>
  142.    <!-- <TR><TD></TD><TD><INPUT TYPE="Submit" VALUE="                    Logon                    " ></TD></TR> -->
  143.    </TABLE>
  144.    </P>
  145.    </FORM>
  146.  
  147.    <P>
  148.    <A HREF="dir.ap">Visit the Chat Area as a Guest</A>
  149.  
  150.    <P><FONT SIZE=4>
  151.    <A HREF="/chat/dir.ap">Lobby</A> |
  152.    <A HREF="/chat/events.ap">Events</A> |
  153.    <A HREF="http://www.smartdesk.com/websuite.html">WebSuite</A> |
  154.    <A HREF="/index.ap">Home</A><BR>
  155.    </FONT>
  156.    <FONT SIZE=2 COLOR="#FFFFFF">©1997 SmartDesk, Inc., All Rights Reserved.<BR></FONT>
  157.    </P>
  158.  
  159.    </CENTER>
  160.  
  161.   </TD>
  162.  </TR>
  163. </TABLE>
  164.  
  165. <[! webFooter( )]>
  166.