Changeset 492

Timestamp:

Oct 25, 2010, 4:56:54 PM (15 years ago)

Author:

Herwig Bauernfeind

Message:

usermod.cmd Ver. 2.3.0

File:

• branches/scripts/user/usermod.cmd (modified) (9 diffs)

branches/scripts/user/usermod.cmd

@@ -1 +1 @@
 /* UserMod script for Samba Server for eCS (OS/2) */
-   Version = '2.2.1'
-/* Copyright (C) netlabs.org 2007-2009
+   Version = '2.'
+/* Copyright (C) netlabs.org
 
    This program is free software; you can redistribute it and/or modify
@@ -62 +62 @@
 UserExists = _UserIsValid(User)
 select 
+
+
+
+
     when mode = "P" & \UserExists then do
         say 'User "'User'" is invalid - cannot set primary GID!'
@@ -90 +94 @@
         exit 254
     end
-    when mode = "?" | mode = "H" | arg(1) = "/?" | (User = "" & mode <> "") then do
+    when mode = "?" | mode = "H" | arg(1) = "/?" | (User = "" & mode <> "") then do
         if (User = "" & mode <> "" & mode <> "?" & mode <> "H") then say "Ambiguos commandline. Check syntax!"
         say 
@@ -97 +101 @@
         say 'Rename a kLIBC user:    usermod -r "oldusername" "newusername"'
         say 'Set user''s primary GID: usermod -p "username" "group"'
+
         say
         say 'usermod without parameters just rewrites kLIBC password database'
@@ -109 +114 @@
     when mode = "R" then call _UserRename
     when mode = "P" then call _SetPrimaryGID
+
     otherwise nop
 end
@@ -378 +384 @@
 _UserAdd: /* add a user to master.passwd STEMS and group STEMS */
     /* Minimum UID that a user can obtain */
-call beep 880, 50
     MinUID = 100
     if translate(User) = "ROOT"   then MinUID = 0
@@ -403 +408 @@
     pwchange.I   = '0'     /* dummy value */
     deact.I      = '0'     /* dummy value */
-    if \MachineAccount then do
+    if \MachineAccount then do
         if uid.I = 0 then do
             if Group512 <> 0 then gid.I = 512; else gid.I = 0
@@ -411 +416 @@
                 then gid.I = 513; else gid.I = NextUID /* GID must be UID for guest account */
         end
-        gecos.I      = User                /* not really appropriate, but better than a dummy value */
-        home.I       = '/nonexistent'      /* a suitable default for OS/2 should be added here */
-        shell.I      = '/usr/sbin/nologin' /* dummy value */
-    end
-    else do
+        gecos.I      = User                /* not really appropriate, but better than a dummy value */
+        home.I       =  */
+        shell.I      = '/usr/sbin/nologin' /* dummy value */
+    end
+    else do
         if Group515 <> 0 then gid.I = 515; else gid.I = NextUID /* Should be group ID (GID) !!! */
         gecos.I      = 'Machine account'
@@ -499 +504 @@
     end
 return
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+