home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1998 November / PCO_1198.ISO / filesbbs / os2 / os2www.arj / OS2WWW.ZIP / SYS406.R8 / BIN / ADDUG.CMD next >
Encoding:
Text File  |  1996-09-03  |  918 b   |  27 lines
  1. /* Add a user to a given realm and group */
  2.  
  3. parse arg realm user password group admin_user admin_password
  4.  
  5. if realm = "?" | realm = "/?" | length(realm) = 0 | length(user) = 0 then do
  6.     say "Utility to Add a New User to a PowerWeb Server++ User Database."
  7.     say ""
  8.     say "Usage:     AddUG Realm NewUserName NewUserPassword NewGroupName [AdminName [AdminPassword]]"
  9.     say ""
  10.     say "Example 1: AddUG admin joe abc finance"
  11.     say "Example 2: AddUG admin joe abc finance 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 = '/!usermgr?Realm='realm'&user='user'&password='password'&verify='password'&group='group'&alias=&file=&Submit=Add'
  22.  
  23. call CallHTTP http, admin_user, admin_password, "User Results", "Copyright"
  24.  
  25. return
  26.  
  27.