--- 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
+++ 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
@@ -7,7 +7,7 @@
     my $db = esmith::ConfigDB->open_ro();
     my $smb = $db->get("smb");
     my $server_name = $smb->prop("ServerName");
-    my $logon_drive = $smb->prop("LogonDrive");
+    my $logon_drive = $smb->prop("LogonDrive") || H;
     my @letters = ('G'..'Y');
 
     $OUT.= "set SERVER=$server_name\r\n";
@@ -18,9 +18,12 @@
     $OUT.="rem --- %username%.bat has been generated earlier\r\n";
     $OUT.="rem --- (see smb.conf, netlogon share, preexec statement)\r\n";
     $OUT.="rem --- to be able to assign drive mappings due to group membership\r\n";
-    foreach my $letter (@letters){
-        if(($letter ne $logon_drive) and ($letter ne "Z")){
+
+    if(ref(@letters) eq 'ARRAY'){
+        foreach my $letter (@letters){
+            if(($letter ne $logon_drive) and ($letter ne "Z")){
                 $OUT.="if exist $letter: net use $letter: /del /y\r\n";
+            }
         }
     }