home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 May / PCO_5_97.ISO / FilesBBS / OS2 / OS2WWW42.ARJ / OS2WWW42 / OS2WWW42.ZIP / SYS402.R4 / BIN / DELUSER.CMD < prev    next >
Encoding:
Text File  |  1996-04-29  |  833 b   |  28 lines
  1. /* Delete a user from a given realm */
  2.  
  3. parse arg realm user admin_user admin_password
  4.  
  5. if realm = "?" | realm = "/?" | length(realm) = 0 | length(user) = 0 then do
  6.     say "Utility to Delete a User from a PowerWeb Server++ User Database."
  7.     say ""
  8.     say "Usage:     DelUser Realm UserName [AdminName [AdminPassword]]"
  9.     say ""
  10.     say "Example 1: DelUser admin joe"
  11.     say "Example 2: DelUser admin joe admin secret"
  12.     say ""
  13.     say "If the admin user name is omitted, it defaults to 'admin'."
  14.     say "If the admin user password is omitted, it defaults to empty."
  15.     return
  16. end
  17.  
  18. if length(admin_user) = 0 then
  19.     admin_user = 'admin'
  20.  
  21. http = '/!user?Realm=/security/userbase/'realm'&user='user'&password=&verify=&file=&UserSubmit=Delete'
  22.  
  23. call CallHTTP http, admin_user, admin_password, "User Results", "Copyright"
  24.  
  25. return
  26.  
  27.  
  28.