home *** CD-ROM | disk | FTP | other *** search
/ WinFiles.com 1998 June / WF0698_3.ISO / servers-websrv / websuite.exe / USERMOD2.AP_ / USERMOD2.AP
Text File  |  1998-04-01  |  3KB  |  100 lines
  1. <[
  2. // Virtual Name Server - Web 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.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->fname = session.var( "fname" )
  76.     users->lname = session.var( "lname" )
  77.     users->mname = session.var( "mname" )
  78.     users->street = session.var( "street" )
  79.     users->city = session.var( "city" )
  80.     users->state = session.var( "state" )
  81.     users->zip = session.var( "zip" )
  82.     users->country = session.var( "country" )
  83.     users->c_name = session.var( "c_name" )
  84.     users->c_title = session.var( "c_title" )
  85.     users->phone1 = session.var( "phone1" )
  86.     users->phone2 = session.var( "phone2" )
  87.     users->phone3 = session.var( "phone3" )
  88.     users->phone4 = session.var( "phone4" )
  89.     users->email = session.var( "email" )
  90.     users->msg = session.var( "msg" )
  91.  
  92.     users->dbUnlock( )
  93.     users->dbClose( )
  94.     
  95.     session.response( "<H2>Record successfully updated.</H2><A HREF=\"useradmn.htm\">Continue</A>...", "FFFFFF", "000000", "00FFFF" )
  96. //    session.error( "Record successfully updated.</H2><A HREF=\"useradmn.htm\"> Continue</A>...<H2>", "FFFFFF", "000000", "00FFFF" )
  97.     
  98.     return( 1 )
  99. ]>
  100.