home *** CD-ROM | disk | FTP | other *** search
/ WinFiles.com 1998 June / WF0698_3.ISO / servers-websrv / websuite.exe / LOGON.AP_ / LOGON.AP
Text File  |  1998-04-01  |  2KB  |  75 lines
  1. <[
  2. // Virtual Name Server - User Logon
  3. // (c) 1997-98 SmartDesk, Inc., All Rights Reserved
  4.  
  5. FUNCTION webUserDirOpen( session, path )
  6.  
  7.     local dbname, dbindex, db
  8.  
  9.     dbname = fileFixPath( path + '\userdir.db' )
  10.     if ( ! fileExists( dbname ) )
  11.         session.error(  "Unable to open " + dbname + " data file.", "FFFFFF", "000000" )
  12.         return(0)
  13.     end
  14.  
  15.     db = dbuse( dbname, "users", 1 )
  16.     if ( ! db )
  17.         session.error(  "Unable to open " + dbname + " data file.", "FFFFFF", "000000" )
  18.         return(0)
  19.     end
  20.         
  21.     dbindex = fileFixPath( path + '\userdir.dx' )
  22.        if ( ! fileExists( dbindex ) )
  23.            users->dbClose( )
  24.         session.error(  "Unable to open " + dbindex + " index file.", "FFFFFF", "000000" )
  25.         return(0)
  26.        end
  27.  
  28.        users->dbOpenIndex( dbindex )
  29.        users->dbOrder( 1 )
  30.  
  31.     return( db )
  32. END
  33.  
  34. // Main code
  35.  
  36.     _apGenerate( )
  37.  
  38.     websrvr = 0 + param( 1 )
  39.     sessionId = 0 + param( 2 )
  40.  
  41.     session = new( "session", websrvr, sessionId )
  42. //        if ( ! session.secure( "UserDir.Admin" ) )
  43. //                return( 0 )
  44. //        end
  45.  
  46.     data = session.data( "QUERY_STRING" )
  47.     if ( strempty( data ) )
  48.         session.error( "No Record Provided!" )
  49.         return( 0 )
  50.     end
  51.  
  52.     rec = ( 0 + data ) - 16384
  53.     if  ( rec < 1 ) 
  54.         session.error( "Invalid Record Specified!" )
  55.         return( 0 )
  56.     end
  57.     
  58.     if ( ! webUserDirOpen( session, webServerBaseDir( websrvr ) ) )
  59.         return( 0 )
  60.     end
  61.  
  62.     if ( ! users->dbGoto( rec ) )
  63.         session.error( "Invalid Record Specified!" )
  64.         return( 0 )
  65.     end
  66.  
  67.     users->goto_url = "http://" + session.data( "REMOTE_ADDR" )
  68.     users->dbUnlock( )
  69.     users->dbClose( )
  70.     
  71.     session.response( "Record successfully updated", "FFFFFF", "000000" )
  72.     
  73.     return( 1 )
  74. ]>
  75.