Bei Vorlagensätzen werden auch Unterverzeichnisse und Symlinks kopiert.
authorBernd Blessmann <bibi@online.de>
Wed, 16 Nov 2011 10:22:01 +0000 (11:22 +0100)
committerBernd Blessmann <bibi@online.de>
Wed, 30 Nov 2011 13:05:04 +0000 (14:05 +0100)
bin/mozilla/admin.pl

index c776961..9fe0bab 100755 (executable)
@@ -37,6 +37,9 @@ use Encode;
 use English qw(-no_match_vars);
 use Fcntl;
 use File::Copy;
+use File::Find;
+use File::Spec;
+use Cwd;
 use IO::File;
 use POSIX qw(strftime);
 use Sys::Hostname;
@@ -539,26 +542,40 @@ sub save_user {
       umask(007);
 
       # copy templates to the directory
-      my $templatedir = "$::lx_office_conf{paths}->{templates}/mastertemplates/$form->{mastertemplates}";
 
-      opendir TEMPLATEDIR, $templatedir or $form->error($templatedir . " : $ERRNO");
-      my @templates = grep /.*?\.(html|tex|sty|odt|xml|txb)$/,
-        readdir TEMPLATEDIR;
-      closedir TEMPLATEDIR;
-
-      foreach my $file (@templates) {
-        open(TEMP, "<", $templatedir . "/$file")
-          or $form->error($templatedir . "/$file : $ERRNO");
+      my $oldcurrdir = getcwd();
+      if (!chdir("$::lx_office_conf{paths}->{templates}/mastertemplates/$form->{mastertemplates}")) {
+        $form->error("$ERRNO: chdir $::lx_office_conf{paths}->{templates}/mastertemplates/$form->{mastertemplates}");
+      }
 
-        open(NEW, ">", "$form->{templates}/$file")
-          or $form->error("$form->{templates}/$file : $ERRNO");
+      my $newdir = File::Spec->catdir($oldcurrdir, $form->{templates});
+
+      find(
+        sub
+        {
+          next if ($_ eq ".");
+
+          if (-d $_) {
+            if (!mkdir (File::Spec->catdir($newdir, $File::Find::name))) {
+              chdir($oldcurrdir);
+              $form->error("$ERRNO: mkdir $File::Find::name");
+            }
+          } elsif (-l $_) {
+            if (!symlink (readlink($_),
+                          File::Spec->catfile($newdir, $File::Find::name))) {
+              chdir($oldcurrdir);
+              $form->error("$ERRNO: symlink $File::Find::name");
+            }
+          } elsif (-f $_ && $_ =~ m/.*?\.(html|tex|sty|odt|xml|txb|eps|pdf|png|jpg)$/) {
+            if (!copy($_, File::Spec->catfile($newdir, $File::Find::name))) {
+              chdir($oldcurrdir);
+              $form->error("$ERRNO: cp $File::Find::name");
+            }
+          }
+        }, "./");
+
+      chdir($oldcurrdir);
 
-        while (my $line = <TEMP>) {
-          print NEW $line;
-        }
-        close(TEMP);
-        close(NEW);
-      }
     } else {
       $form->error("$ERRNO: $form->{templates}");
     }