/[smecontribs]/rpms/smeserver-tw-logonscript/contribs7/smeserver-tw-logonscript-1.3-TemplateWarningFix.patch
ViewVC logotype

Contents of /rpms/smeserver-tw-logonscript/contribs7/smeserver-tw-logonscript-1.3-TemplateWarningFix.patch

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (show annotations) (download)
Thu Nov 19 03:18:50 2009 UTC (14 years, 11 months ago) by chriscosta
Branch: MAIN
CVS Tags: smeserver-tw-logonscript-1_3-12_el4_sme, smeserver-tw-logonscript-1_3-19_el4_sme, smeserver-tw-logonscript-1_3-20_el4_sme, smeserver-tw-logonscript-1_3-15_el4_sme, smeserver-tw-logonscript-1_3-17_el4_sme, smeserver-tw-logonscript-1_3-14_el4_sme, smeserver-tw-logonscript-1_3-11_el4_sme, smeserver-tw-logonscript-1_3-16_el4_sme, smeserver-tw-logonscript-1_3-13_el4_sme, HEAD
Error occurred while calculating annotation data.
* Thu Nov 19 2009 Christian Costa <christian@tw.co.nz> 1.3-11
- Changes to the netlogon.bat template. If no drive letters were associate to I-bays it generated errors. Also defaulted the home drive to H: in case none is set.
- Added two missing files to the workgroup-update and post-upgrade events.

1 --- smeserver-tw-logonscript-1.3/root/etc/e-smith/templates/home/e-smith/files/samba/netlogon/netlogon.bat/00netlogon.TemplateWarningFix 2008-08-05 16:47:10.000000000 +1200
2 +++ smeserver-tw-logonscript-1.3/root/etc/e-smith/templates/home/e-smith/files/samba/netlogon/netlogon.bat/00netlogon 2009-11-19 15:49:56.000000000 +1300
3 @@ -7,7 +7,7 @@
4 my $db = esmith::ConfigDB->open_ro();
5 my $smb = $db->get("smb");
6 my $server_name = $smb->prop("ServerName");
7 - my $logon_drive = $smb->prop("LogonDrive");
8 + my $logon_drive = $smb->prop("LogonDrive") || H;
9 my @letters = ('G'..'Y');
10
11 $OUT.= "set SERVER=$server_name\r\n";
12 @@ -18,9 +18,12 @@
13 $OUT.="rem --- %username%.bat has been generated earlier\r\n";
14 $OUT.="rem --- (see smb.conf, netlogon share, preexec statement)\r\n";
15 $OUT.="rem --- to be able to assign drive mappings due to group membership\r\n";
16 - foreach my $letter (@letters){
17 - if(($letter ne $logon_drive) and ($letter ne "Z")){
18 +
19 + if(ref(@letters) eq 'ARRAY'){
20 + foreach my $letter (@letters){
21 + if(($letter ne $logon_drive) and ($letter ne "Z")){
22 $OUT.="if exist $letter: net use $letter: /del /y\r\n";
23 + }
24 }
25 }
26

admin@koozali.org
ViewVC Help
Powered by ViewVC 1.2.1 RSS 2.0 feed