home *** CD-ROM | disk | FTP | other *** search
- /* Add a batch of users to a given realm */
-
- parse arg realm filename admin_user admin_password
-
- if realm = "?" | realm = "/?" | length(realm) = 0 | length(filename) = 0 then do
- say "Utility to Add a Batch of New Users to a PowerWeb Server++ User Database."
- say ""
- say "Usage: AddUsers Realm BatchFileName [AdminName [AdminPassword]]"
- say ""
- say "Example 1: AddUsers admin users.add"
- say "Example 2: AddUsers admin newusers.txt admin secret"
- say ""
- say "If the admin user name is omitted, it defaults to 'admin'."
- say "If the admin user password is omitted, it defaults to empty."
- return
- end
-
- if length(admin_user) = 0 then
- admin_user = 'admin'
-
- http = '/!user?Realm=/security/userbase/'realm'&user=&password=&verify=&file='filename'&FileSubmit=Add'
-
- call CallHTTP http, admin_user, admin_password, "User Results", "Copyright"
-
- return
-
-