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

Annotation 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 - (hide 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
* 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 chriscosta 1.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