Changeset 719

Timestamp:

Nov 2, 2012, 6:56:43 PM (13 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: smblogon initial commit

Location:

trunk/guitools

Files:

• shared/cltinit.vrs (modified) (1 diff)
• shared/masterpasswd.vrs (added)
• shared/sambainit.vrs (modified) (1 diff)
• smblogon/smblogon.VRP (added)
• smblogon/smblogon.VRX (added)
• smblogon/smblogon.VRY (added)

trunk/guitools/shared/cltinit.vrs

@@ -145 +145 @@
        (\VRFileExists(samba.!bin'\lib\valid.dat')) then call _ErrorDataFileNotFound 'upcase table files not present.'
 
+    /* the password files - we'll create them if they don't exist */
+    samba.!masterpasswd = unixetc'\master.passwd'
+    if \VRFileExists(samba.!masterpasswd) then call _ErrorDataFileNotFound 'Could not find "'samba.!masterpasswd'"!'
+    IF options.!debug == 1 then say '  master.passwd  = "'samba.!masterpasswd'"'
+
+    samba.!pwddb = unixetc'\pwd.db'
+    if \VRFileExists(samba.!pwddb) then call _ErrorDataFileNotFound 'Could not find "'samba.!pwddb'"!'
+    IF options.!debug == 1 then say '  pwd.db         = "'samba.!pwddb'"'
+
+    samba.!spwddb = unixetc'\spwd.db'
+    if \VRFileExists(samba.!spwddb) then call _ErrorDataFileNotFound 'Could not find "'samba.!spwddb'"!'
+    IF options.!debug == 1 then say '  spwd.db        = "'samba.!spwddb'"'
+
+    samba.!group = unixetc'\group'
+    if \VRFileExists(samba.!group) then call _ErrorDataFileNotFound 'Could not find "'samba.!group'"!'
+    IF options.!debug == 1 then say '  group          = "'samba.!group'"'
+
+    samba.!printcap = unixetc'\printcap'
+    if \VRFileExists(samba.!printcap) then call _ErrorDataFileNotFound 'Could not find "'samba.!printcap'"!'
+    IF options.!debug == 1 then say '  printcap       = "'samba.!printcap'"'
+
     /* Create these directories to make sure they do exist */
     ok = SysMkDir(unixetc)

trunk/guitools/shared/sambainit.vrs

@@ -384 +384 @@
     IF options.!debug == 1 then say time()' _SambaRunning() done'
 return runres
-
-/*: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