home *** CD-ROM | disk | FTP | other *** search
/ WinFiles.com 1998 June / WF0698_3.ISO / servers-websrv / websuite.exe / USERDEL.AP_ / USERDEL.AP
Text File  |  1998-04-01  |  2KB  |  83 lines
  1. <[
  2. // Virtual Name Server - User Delete
  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.var( "USERID" )
  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.     endtime = seconds( ) + 3
  68.     while ( ! users->dbRLock( ) )
  69.         if ( seconds( ) > endtime )
  70.             session.error( "Unable to lock record, please try again." )
  71.             return( 0 )
  72.         end
  73.     end
  74.  
  75.     users->dbDelete( )
  76.     users->dbUnlock( )
  77.     users->dbClose( )
  78.     
  79.     session.response( "<H2>Record successfully deleted.</H2><A HREF=\"useradmn.htm\"> Continue</A>...", "FFFFFF", "000000", "00FFFF" )
  80.     
  81.     return( 1 )
  82. ]>
  83.