Changeset 569
- Timestamp:
- Mar 30, 2011, 11:41:45 AM (14 years ago)
- Location:
- branches/guitools-1.0
- Files:
-
- 1 deleted
- 13 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/guitools-1.0/install/changes
r451 r569 1 Version 1.x.x xx-xx-2011 2 *Changed: Internal names of objects 1 3 Version 1.0.0 13-03-2010 2 4 +Added: Use a more wizard-like style instead of -
branches/guitools-1.0/install/sscc.vrp
r490 r569 6 6 RunDirectory: E:\Dev\REXX\VXREXX\Projects\Samba\install 7 7 VRXWindow: __VREMainWindow,1,1987,5059,891,7263 8 VRXWindow: __VRESectionListWindow,1,2 819,12671,8974,48909 VRXWindow: __VREToolsWindow,1,2674,4481,648 3,16598 VRXWindow: __VRESectionListWindow,1,2048,9877,8974,4890 9 VRXWindow: __VREToolsWindow,1,2674,4481,6480,1665 10 10 VRXWindow: __VREWindListWindow,1,193,14406,2650,3150 11 11 UserFile: 1 12 12 UserWindow: Main,1 13 UserWindow: GB_Global_1,114 UserWindow: Installer,115 UserWindow: RemoveConfig,1 -
branches/guitools-1.0/install/sscc.vrx
r490 r569 320 320 CALL NLVSetText 'PB_Reload', 'Caption', 11 321 321 CALL NLVSetText 'PB_Reload', 'Hinttext', 111 322 CALL NLVSetText 'PB_ Create', 'Caption', 12323 CALL NLVSetText 'PB_ Create', 'Hinttext', 112322 CALL NLVSetText 'PB_Save', 'Caption', 12 323 CALL NLVSetText 'PB_Save', 'Hinttext', 112 324 324 CALL NLVSetText 'PB_Undo', 'Caption', 9 325 325 CALL NLVSetText 'PB_Undo', 'Hinttext', 109 … … 938 938 ValueChanged = 1 939 939 if pos(VRGet(VRInfo("OBject"),"Name"), ChangeList) = 0 then Changelist = ChangeList' 'VRGet(VRInfo("OBject"),"Name") 940 ok = VRSet("PB_ Create", "Enabled", 1)940 ok = VRSet("PB_Save", "Enabled", 1) 941 941 say " ValueChanged = "ValueChanged 942 942 say Changelist … … 988 988 do until lines(src) = 0 989 989 smbline = linein(src) 990 if pos("idmap uid",smbline) > 0 then iterate 991 if pos("idmap gid",smbline) > 0 then iterate 990 992 if pos("winbind separator",smbline) > 0 then iterate 993 if pos("copy ",smbline) > 0 then iterate 991 994 call lineout trg, smbline 992 995 lct = lct + 1 … … 2342 2345 MButton.bTop = VRGet("GB_SmbConfTree","height")+FWidth*2 2343 2346 MButton.bLeft = VRGet("GB_Shares","Left") 2344 MButton.bWidth = VRGet("PB_ Create","Width")2347 MButton.bWidth = VRGet("PB_Save","Width") 2345 2348 2346 2349 if MButton.bTop < 1300 & MButton.bLeft < 1300 then do … … 2355 2358 ok = VRSet("PB_Reload", "Width", MButton.bWidth) 2356 2359 2357 ok = VRSet("PB_ Create", "Top", MButton.bTop)2358 ok = VRSet("PB_ Create", "Left", MButton.bLeft+1*FWidth+MButton.bWidth)2360 ok = VRSet("PB_Save", "Top", MButton.bTop) 2361 ok = VRSet("PB_Save", "Left", MButton.bLeft+1*FWidth+MButton.bWidth) 2359 2362 ok = VRSet("PB_Reload", "Width", MButton.bWidth) 2360 2363 … … 2574 2577 Menu_Options_SimpleMode_Click: 2575 2578 say 'SimpleMode_Click started' 2579 2580 /* Workaround for testparm bugs */ 2581 say 'VRCopyFile('smbconf', 'TempDir'smb.conf )' 2582 ok = VRCopyFile( smbconf, TempDir'smb.conf') 2583 call _SmbConfCommitChanges 2584 2576 2585 say samba.!testparmexe' -s 1>'TempDir'smb.conf 2>'TempDir'sscc.testparm' 2577 2586 address cmd samba.!testparmexe' -s 1>'TempDir'smb.conf 2>'TempDir'sscc.testparm' … … 2717 2726 */ 2718 2727 PB_Cancel_Click: 2719 call PB_ Create_Click2728 call PB_Save_Click 2720 2729 call Quit 2721 return2722 2723 /*:VRX PB_Create_Click2724 */2725 PB_Create_Click:2726 if ValueChanged then do2727 if CurSection <> "" then do2728 call _SaveChanges2729 ok = VRSet("PB_Create", "Enabled", 0)2730 call CN_smbconf_Click2731 end2732 end2733 2730 return 2734 2731 … … 2815 2812 */ 2816 2813 PB_Reload_Click: 2817 call PB_ Create_Click2814 call PB_Save_Click 2818 2815 call beep 960, 1 2819 2816 address CMD samba.!smbcmd' reload' … … 2849 2846 return 2850 2847 2848 /*:VRX PB_Save_Click 2849 */ 2850 PB_Save_Click: 2851 if ValueChanged then do 2852 if CurSection <> "" then do 2853 call _SaveChanges 2854 ok = VRSet("PB_Save", "Enabled", 0) 2855 call CN_smbconf_Click 2856 end 2857 end 2858 return 2859 2851 2860 /*:VRX PB_Undo_Click 2852 2861 */ … … 2908 2917 VRGet("Main","WindowState") = "Minimized" then ok = VRMethod("Main", "Restore") 2909 2918 2910 /*if samba.!testparmexe <> "" then do2919 if samba.!testparmexe <> "" then do 2911 2920 address cmd samba.!testparmexe' -s 1>'TempDir'smb.conf 2>'TempDir'sscc.testparm' 2912 2921 call _SmbConfCommitChanges 2913 end */2922 end 2914 2923 2915 2924 call _INIWrite … … 3003 3012 say "TM_Value_Trigger started" 3004 3013 ValueChanged = 0 3005 ok = VRSet("PB_ Create", "Enabled", 0)3014 ok = VRSet("PB_Save", "Enabled", 0) 3006 3015 ChangeList = "" 3007 3016 ok = VRSet("TM_Value", "Enabled", 0) -
branches/guitools-1.0/smbusers/changes
r490 r569 1 Version 0.9.10 xx-xx-2011 2 +Added: Support master.passwd field using rxcrypt. 3 !Fixed: Editing a master.passwd field was not written 4 back under certain circumstances 1 5 Version 0.9.9 01-05-2010 2 6 !Fixed: Minor buglet. -
branches/guitools-1.0/smbusers/smbusers.VRP
r490 r569 6 6 RunDirectory: U:\Develop\Samba\guitools-1.0\smbusers 7 7 VRXWindow: __VREMainWindow,1,2180,3710,891,8000 8 VRXWindow: __VRESectionListWindow,1,2 951,9299,8949,51679 VRXWindow: __VREToolsWindow,1,2457,1012,6489,16 598 VRXWindow: __VRESectionListWindow,1,2481,10166,8949,5167 9 VRXWindow: __VREToolsWindow,1,2457,1012,6489,1667 10 10 VRXWindow: __VREWindListWindow,1,446,11130,2650,3150 11 11 UserFile: 1 12 12 UserWindow: Main,1 13 UserWindow: About,1 -
branches/guitools-1.0/smbusers/smbusers.VRX
r451 r569 375 375 */ 376 376 _GroupRecWriteBackToStems: 377 IF options.!debug == 1 THEN say '_GroupRecWriteBackToStems() started' 377 378 Cur = VRMethod("CN_Groups","GetFieldData", GRH, GNrFH) 378 379 Groupname.Cur = VRMethod("CN_Groups","GetFieldData", GRH, GroupnameFH) … … 380 381 GUsers.Cur = VRMethod("CN_Groups","GetFieldData", GRH, GusersFH) 381 382 if Gusers.Cur = "," then Gusers.Cur = "" 383 IF options.!debug == 1 THEN say '_GroupRecWriteBackToStems() done' 382 384 return 383 385 … … 392 394 call lineout newgroup, '# groupname:password:GID:user[,user,...,]' 393 395 do I = 1 to groupname.0 394 say "GUsers."I"="Gusers.I396 /* say "GUsers."I"="Gusers.I */ 395 397 if settings.!FixErrors then do 396 398 if Gusers.I = "," then Gusers.I = "" … … 534 536 if settings.!SyncPrimGID = "" then settings.!SyncPrimGID = 0 535 537 538 settings.!WriteMasterPwd = VRGetIni( "Settings", "WriteMasterPwd", OurINI) 539 if settings.!WriteMasterPwd = "" then settings.!WriteMasterPwd = 0 540 536 541 options.!debug = VRGetIni( "Options", "Debug", OurINI) 537 542 if options.!debug = "" then options.!debug = 0 … … 565 570 ok = VRSetIni( "Settings", "SyncFullName", settings.!SyncFullName, OurINI, 'NoClose' ) 566 571 ok = VRSetIni( "Settings", "SyncPrimGID" , settings.!SyncPrimGID , OurINI, 'NoClose' ) 572 ok = VRSetIni( "Settings", "WriteMasterPwd",settings.!WriteMasterPwd,OurINI, 'NoClose' ) 573 567 574 ok = VRSetIni( "Options", "Debug", options.!debug, OurINI, 'NoClose' ) 568 575 … … 845 852 CALL NLVSetText 'CB_SyncFullName', 'Caption', 26 846 853 CALL NLVSetText 'CB_SyncPrimGID', 'Caption', 27 847 854 CALL NLVSetText 'CB_WriteMasterPwd','Caption', 190 848 855 849 856 return … … 915 922 do until lines(samba.!error) = 0 916 923 PolLine = linein(samba.!error) 917 say polline 924 /* say polline */ 918 925 select 919 926 when pos(":",PolLine) > 0 then iterate … … 1617 1624 */ 1618 1625 _UserRecWriteBackToStems: 1619 if \VRIsValidObject( RH ) then return 1620 Cur = VRMethod("CN_Users","GetFieldData", RH, NrFH) 1621 Username.Cur = VRMethod("CN_Users","GetFieldData", RH, UsernameFH) 1622 UID.Cur = VRMethod("CN_Users","GetFieldData", RH, UIDFH) 1623 GID.Cur = VRMethod("CN_Users","GetFieldData", RH, GIDFH) 1624 GECOS.Cur = VRMethod("CN_Users","GetFieldData", RH, GECOSFH) 1625 Home.Cur = _PathStrkLIBC(VRMethod("CN_Users","GetFieldData", RH, HomeFH)) 1626 Shell.Cur = VRMethod("CN_Users","GetFieldData", RH, ShellFH) 1627 MapTo.Cur = VRMethod("CN_Users","GetFieldData", RH, MapToFH) 1628 1629 if Settings.!SyncFullName = 1 & flags.Cur <> "" then do 1630 call PB_Save_Click 1631 say samba.!pdbeditexe' --user='Username.Cur' --modify --fullname="'GECOS.Cur'" 'DebugLevel' 2>'samba.!error 1632 address cmd samba.!pdbeditexe' --user='Username.Cur' --modify --fullname="'GECOS.Cur'" 'DebugLevel' 2>'samba.!error 1633 if RC <> 0 then call _SambaShowError /* ; else call _SambaShowMsg */ 1634 end 1635 /* These are not editable/visible xpwFH, password.i,xlcFH,LoginClass.I,xcpwFH, pwchange.I,xDeactFH, deact.I, Status.I ) */ 1636 1637 /* smbpasswd fields */ 1638 /* we do not allow editing these 1639 FLagsFH, flags.I, LMHashFH, LMHash.I,NTHashFH, NTHash.I, LCTFH, LCT.I) 1640 */ 1626 IF options.!debug == 1 THEN say '_UserRecWriteBackToStems() started' 1627 1628 if VRMethod( "CN_Users", "ValidateRecord", RH ) then do 1629 Cur = VRMethod("CN_Users","GetFieldData", RH, NrFH) 1630 Username.Cur = VRMethod("CN_Users","GetFieldData", RH, UsernameFH) 1631 UID.Cur = VRMethod("CN_Users","GetFieldData", RH, UIDFH) 1632 GID.Cur = VRMethod("CN_Users","GetFieldData", RH, GIDFH) 1633 GECOS.Cur = VRMethod("CN_Users","GetFieldData", RH, GECOSFH) 1634 Home.Cur = _PathStrkLIBC(VRMethod("CN_Users","GetFieldData", RH, HomeFH)) 1635 Shell.Cur = VRMethod("CN_Users","GetFieldData", RH, ShellFH) 1636 MapTo.Cur = VRMethod("CN_Users","GetFieldData", RH, MapToFH) 1637 1638 if Settings.!SyncFullName = 1 & flags.Cur <> "" then do 1639 say " Sync is enabled, therefore we must save now!" 1640 call PB_Save_Click 1641 say samba.!pdbeditexe' --user='Username.Cur' --modify --fullname="'GECOS.Cur'" 'DebugLevel' 1>NUL 2>'samba.!error 1642 address cmd samba.!pdbeditexe' --user='Username.Cur' --modify --fullname="'GECOS.Cur'" 'DebugLevel' 1>NUL 2>'samba.!error 1643 if RC <> 0 then call _SambaShowError /* ; else call _SambaShowMsg */ 1644 end 1645 /* These are not editable/visible xpwFH, password.i,xlcFH,LoginClass.I,xcpwFH, pwchange.I,xDeactFH, deact.I, Status.I ) */ 1646 1647 /* smbpasswd fields */ 1648 /* we do not allow editing these 1649 FLagsFH, flags.I, LMHashFH, LMHash.I,NTHashFH, NTHash.I, LCTFH, LCT.I) 1650 */ 1651 end 1652 else say RH' is no valid record!' 1653 IF options.!debug == 1 THEN say '_UserRecWriteBackToStems() done' 1641 1654 return 1642 1655 … … 2077 2090 return 2078 2091 2092 /*:VRX CB_WriteMasterPwd_Click 2093 */ 2094 CB_WriteMasterPwd_Click: 2095 settings.!WriteMasterPwd = VRGet("CB_WriteMasterPwd","set") 2096 return 2097 2079 2098 /*:VRX CN_Groups_ContextMenu 2080 2099 */ … … 2164 2183 call beep 880, 20 2165 2184 RH = VRInfo("Record") 2185 say "RH="RH 2166 2186 2167 2187 /* write back all editable field to the stems */ … … 3442 3462 UID.nx = substr(VRGet("DT_UID","Caption"),6) 3443 3463 GID.nx = VRGet("DDCB_GID","Value") 3444 password.nx = "*" 3464 3465 if settings.!WriteMasterPwd = 1 then do 3466 call rxFuncAdd "Crypt", "RxCrypt", "RxCrypt" 3467 itoa64 = "./0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" 3468 salt = "" 3469 do i = 1 to 8 3470 salt = salt || substr( itoa64, random( 0, 63 ) + 1, 1 ) 3471 end 3472 password.nx = Crypt(VRGet("EF_password","Value"), salt ) 3473 end 3474 else password.nx = "*" 3445 3475 loginclass.NX = '' /* dummy value */ 3446 3476 pwchange.NX = '0' /* dummy value */ … … 3732 3762 */ 3733 3763 PB_Save_Click: 3764 IF options.!debug == 1 THEN say 'PB_Save_Click() started' 3734 3765 call _MasterpasswdWrite 3735 3766 call _GroupWrite 3736 3767 call _PasswordDBRewrite 3737 3768 call _SmbUserMapWrite 3769 IF options.!debug == 1 THEN say 'PB_Save_Click() done' 3738 3770 return 3739 3771 … … 3803 3835 end 3804 3836 end 3837 if settings.!WriteMasterPwd = 1 then do 3838 call rxFuncAdd "Crypt", "RxCrypt", "RxCrypt" 3839 itoa64 = "./0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" 3840 salt = "" 3841 do i = 1 to 8 3842 salt = salt || substr( itoa64, random( 0, 63 ) + 1, 1 ) 3843 end 3844 password.CurUserNr = Crypt(VRGet("EF_upPassword","Value"), salt ) 3845 call _UserRecWriteBackToStems 3846 call PB_Save_Click 3847 end 3805 3848 end 3806 3849 end -
branches/guitools-1.0/smbusers/smbusers_de.mkm
r302 r569 201 201 ; More error messages 202 202 SMU0180I: Zuwenig freier Platz auf "%1"! 203 SMU0181I: 204 SMU0182I: 205 SMU0183I: 206 SMU0184I: 207 SMU0185I: 208 SMU0186I: 209 SMU0187I: 210 SMU0188I: 211 SMU0189I: 212 ;More settings 213 SMU0190I: Passwort auch in master.passwd speichern -
branches/guitools-1.0/smbusers/smbusers_en.mkm
r302 r569 200 200 ; More error messages 201 201 SMU0180I: Free space low on "%1"! 202 SMU0181I: 203 SMU0182I: 204 SMU0183I: 205 SMU0184I: 206 SMU0185I: 207 SMU0186I: 208 SMU0187I: 209 SMU0188I: 210 SMU0189I: 211 ;More settings 212 SMU0190I: Write password also to master.passwd -
branches/guitools-1.0/smbusers/smbusers_es.mkm
r306 r569 194 194 SMU0174I: Reseteo de pol¡ticas 195 195 SMU0175I: Actualizar 196 SMU0176?: 197 SMU0177?: 198 SMU0178?: 199 SMU0179?: 200 ; More error messages 201 SMU0180I: Free space low on "%1"! 202 SMU0181I: 203 SMU0182I: 204 SMU0183I: 205 SMU0184I: 206 SMU0185I: 207 SMU0186I: 208 SMU0187I: 209 SMU0188I: 210 SMU0189I: 211 ;More settings 212 SMU0190I: Write password also to master.passwd -
branches/guitools-1.0/smbusers/smbusers_fr.mkm
r302 r569 216 216 ; More error messages 217 217 SMU0180I: D'espace libre sur "%1" est faible ! 218 SMU0181I: 219 SMU0182I: 220 SMU0183I: 221 SMU0184I: 222 SMU0185I: 223 SMU0186I: 224 SMU0187I: 225 SMU0188I: 226 SMU0189I: 227 ;More settings 228 SMU0190I: Write password also to master.passwd -
branches/guitools-1.0/smbusers/smbusers_sv.mkm
r302 r569 201 201 ; More error messages 202 202 SMU0180I: Fritt utrymme p "%1" r lg! 203 SMU0181I: 204 SMU0182I: 205 SMU0183I: 206 SMU0184I: 207 SMU0185I: 208 SMU0186I: 209 SMU0187I: 210 SMU0188I: 211 SMU0189I: 212 ;More settings 213 SMU0190I: Write password also to master.passwd
Note:
See TracChangeset
for help on using the changeset viewer.