/* REXX Function Library for master.passwd management */ /* Copyright (C) 2007-2017 Herwig Bauernfeind for bww bitwise works GmbH. This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . */ /* Currently implemented functions: */ /* _MasterPasswdRead() */ /* _MasterPasswdWrite() */ /* _PasswordDBReWrite() */ /* _MasterPasswdFindUser() */ /* _MasterPasswdCreate() */ /*:VRX _MasterpasswdRead */ _MasterpasswdRead: IF options.!debug == 1 THEN say '_MasterpasswdRead() started' /* Read complete master.passwd */ I = 0 do until lines(samba.!masterpasswd) = 0 userline = strip(linein(samba.!masterpasswd)) /* Skip comments */ if left(userline,1) = "#" then iterate if left(userline,1) = ";" then iterate /* parse fields into stem variables */ I = I + 1 parse var userline username.I':'password.I':'uid.I':'gid.I':'LoginClass.I':'pwchange.I':'deact.I':'gecos.I':'home.I':'shell.I Status.I ="" do J = 1 to I - 1 if translate(Username.J) = translate(Username.I) then do status.I = "DUPLICATE" leave end end end ok = stream(samba.!masterpasswd,'c','close') drop userline /* set "stem roots" properly */ username.0 = I password.0 = I uid.0 = I gid.0 = I loginclass.0= I pwchange.0 = I deact.0 = I gecos.0 = I home.0 = I shell.0 = I /* also smbpasswd stems */ lmhash. = '' nthash. = '' flags. = '' lct. = '' lmhash.0 = I nthash.0 = I flags.0 = I lct.0 = I /* smbusermap stem */ MapTo. = '' MapTo.0 = I /* our private stem */ status.0 = I IF options.!debug == 1 THEN say '_MasterpasswdRead() done, read 'username.0' users' return /*:VRX _MasterpasswdWrite */ _MasterpasswdWrite: IF options.!debug == 1 THEN say "_MasterpasswdWrite() started" newmasterpasswd = TempDir'master.passwd' ok = SysFileDelete(newmasterpasswd) call lineout newmasterpasswd, '# Created by Samba GUI Tools 'date('E')' 'time() call lineout newmasterpasswd, '# syntax:' call lineout newmasterpasswd, '# username:passwd:UID:GID:login-class:chg pw x sec:deact x sec:GECOS:home:shell' do I = 1 to username.0 select when Status.I = "DUPLICATE" & settings.!FixErrors then iterate when Status.I = "UID MISMATCH" then do call lineout newmasterpasswd, username.I':'password.I':'word(uid.I,1)':'gid.I':'loginclass.I':'pwchange.I':'deact.I':'gecos.I':'home.I':'shell.I end when Status.I = "UNIX MISSING" & settings.!FixErrors then do call lineout newmasterpasswd, username.I':'password.I':'uid.I':'gid.I':'loginclass.I':'pwchange.I':'deact.I':'gecos.I':'home.I':'shell.I end otherwise call lineout newmasterpasswd, username.I':'password.I':'uid.I':'gid.I':'loginclass.I':'pwchange.I':'deact.I':'gecos.I':'home.I':'shell.I end end ok = stream(newmasterpasswd,'c','close') ok = VRCopyFile( samba.!masterpasswd, samba.!masterpasswd'.bak' ) ok = VRCopyFile( newmasterpasswd, samba.!masterpasswd ) ok = SysFileDelete(newmasterpasswd) IF options.!debug == 1 THEN say "_MasterpasswdWrite() done" return /*:VRX */ _PasswordDbRewrite: IF options.!debug == 1 then say time()' _PasswordDBRewrite() started' /* Reset any old rc from pwd_mkdb.exe */ pwd_mkdbrc = 0 /* delete old .db.tmp files */ ok = SysFileDelete(UnixETC'\pwd.db.tmp') ok = SysFileDelete(UnixETC'\spwd.db.tmp') /* create backups of old .db files */ ok = VRCopyFile( UnixETC'\pwd.db', UnixETC'\pwd.db.bak' ) ok = VRCopyFile( UnixETC'\spwd.db', UnixETC'\spwd.db.bak' ) /* delete old .db files */ ok = SysFileDelete(UnixETC'\pwd.db') ok = SysFileDelete(UnixETC'\spwd.db') /* Create new password db */ address cmd samba.!pwd_mkdb' -d 'unixetc' 'samba.!masterpasswd' 2>'samba.!error pwd_mkdbrc = rc if \VRFileExists(samba.!pwddb) | pwd_mkdbrc <> 0 then do call _SambaShowError end IF options.!debug == 1 then say time()" _PasswordDBRewrite() done ("pwd_mkdbrc")" return _MasterPasswdFindUser: procedure expose username. IF options.!debug == 1 THEN say '_MasterpasswdFindUser("'arg(1)'") started' FindUser = arg(1) Idx = 0 do I = 1 to username.0 if translate(username.I) = translate(FindUser) then do Idx = I leave end end IF options.!debug == 1 THEN say '_MasterpasswdFindUser("'FindUser'") done, returning 'Idx return idx /*:VRX _MasterPasswdCreate */ _MasterPasswdCreate: IF options.!debug == 1 THEN say '_MasterPasswdCreate() started.' call lineout samba.!masterpasswd, '# Created by Samba GUI Tools 'date('E')' 'time() call lineout samba.!masterpasswd, '# syntax:' call lineout samba.!masterpasswd, '# username:passwd:UID:GID:login-class:chg pw x sec:deact x sec:GECOS:home:shell' call lineout samba.!masterpasswd, 'root:*:0:512::0:0:root:/nonexistent:/usr/sbin/nologin' call lineout samba.!masterpasswd, 'guest:*:65534:65534::0:0:guest:/nonexistent:/usr/sbin/nologin' ok = stream(samba.!masterpasswd,'c','close') IF options.!debug == 1 THEN say '_MasterPasswdCreate() done.' return