home *** CD-ROM | disk | FTP | other *** search
/ WinFiles.com 1998 June / WF0698_3.ISO / servers-websrv / websuite.exe / LOGOFF.AP_ / LOGOFF.AP
Text File  |  1998-04-01  |  2KB  |  73 lines
  1. <[
  2. // SmartDesk's Personal Web Desktop - User Off
  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.  
  43.     data = session.data( "QUERY_STRING" )
  44.     if ( strempty( data ) )
  45.         session.error( "No Record Provided!" )
  46.         return( 0 )
  47.     end
  48.  
  49.     rec = ( 0 + data ) - 16384
  50.     if  ( rec < 1 ) 
  51.         session.error( "Invalid Record Specified!" )
  52.         return( 0 )
  53.     end
  54.     
  55.     if ( ! webUserDirOpen( session, webServerBaseDir( websrvr ) ) )
  56.         return( 0 )
  57.     end
  58.  
  59.     if ( ! users->dbGoto( rec ) )
  60.         session.error( "Invalid Record Specified!" )
  61.         return( 0 )
  62.     end
  63.  
  64.     users->goto_url = ""
  65.     users->dbUnlock( )
  66.     users->dbClose( )
  67.     
  68.     session.response( "<H2>Record successfully updated.</H2>", "FFFFFF", "000000" )
  69.     
  70.     return( 1 )
  71. ]>
  72.  
  73.