home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1998 November / PCO_1198.ISO / filesbbs / os2 / os2www.arj / OS2WWW.ZIP / SYS406.R8 / BIN / DELUSERS.CMD < prev    next >
Encoding:
Text File  |  1996-04-29  |  888 b   |  28 lines

  1. /* Delete a batch of users from a given realm */
  2.  
  3. parse arg realm filename admin_user admin_password
  4.  
  5. if realm = "?" | realm = "/?" | length(realm) = 0 | length(filename) = 0 then do
  6.     say "Utility to Delete a Batch of Users from a PowerWeb Server++ User Database."
  7.     say ""
  8.     say "Usage:     DelUsers Realm BatchFileName [AdminName [AdminPassword]]"
  9.     say ""
  10.     say "Example 1: DelUsers admin users.del"
  11.     say "Example 2: DelUsers admin oldusers.txt 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=&password=&verify=&file='filename'&FileSubmit=Delete'
  22.  
  23. call CallHTTP http, admin_user, admin_password, "User Results", "Copyright"
  24.  
  25. return
  26.  
  27.  
  28.