Changeset 408 for branches/guitools-1.0/smbusers/smbusers.VRX

Timestamp:

Feb 19, 2010, 9:14:00 AM (15 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: SSCC 0.9.5, SMBUsers 0.9.6 several fixes

File:

• branches/guitools-1.0/smbusers/smbusers.VRX (modified) (6 diffs)

branches/guitools-1.0/smbusers/smbusers.VRX

@@ -421 +421 @@
     ok = VRCopyFile( samba.!group, samba.!group'.bak' )
     ok = VRCopyFile( newgroup, samba.!group )
+    ok = SysFileDelete(newgroup)
     IF options.!debug == 1 THEN say '_GroupWrite() done'
 return
@@ -755 +756 @@
     ok = VRCopyFile( samba.!masterpasswd, samba.!masterpasswd'.bak' )
     ok = VRCopyFile( newmasterpasswd, samba.!masterpasswd )
+    ok = SysFileDelete(newmasterpasswd)
     IF options.!debug == 1 THEN say "_MasterpasswdWrite() done"
 return
@@ -1138 +1140 @@
     end
     ok = stream(groupmap,'c','close')
+    ok = SysFileDelete(groupmap)
 
     /* Now read the group list */
@@ -1160 +1163 @@
     end
     ok = stream(grouplist,'c','close')
-    /* ok = SysFiledelete(grouplist) */
+    ok = SysFileDelete(grouplist)
+
     gline.0 = i
  
@@ -1523 +1527 @@
     end
     ok = stream(UserProperties,'c','close')
+    ok = SysFileDelete(UserProperties)
 
     upline.0 = i
@@ -3748 +3753 @@
             end
             else do
-                if length(VRGet("EF_password","Value")) < MinPWLength then do
+                if length(VRGet("EF_upPassword","Value")) < MinPWLength then do
                     Msg.type  = "E"
                     Msg.Text  = NLVGetMessage( 117 )