#!/usr/bin/perl

# Upgrade von Vorlagen

die("This script cannot be run from the command line.") unless ($main::form);

use File::Copy;

sub update_templates {
  local *IN;

  if (!open(IN, "users/members")) {
    die($dbup_locale->text("Could not open the file users/members."));
  }

  my %all_template_dirs;
  while (<IN>) {
    chomp();
    $all_template_dirs{$1} = 1 if (/^templates=(.*)/);
  }
  close(IN);

  my @new_templates;

  foreach my $raw (@_) {
    $raw =~ /^.*?-(.*)/;
    push(@new_templates, { "source" => "templates/$raw",
                           "destination" => $1 });
  }

  my @warnings;

  foreach my $dir (keys(%all_template_dirs)) {
    foreach my $template (@new_templates) {
      my $destination = $dir . "/" . $template->{"destination"};
      if (-f $destination) {
        if (!rename($destination, $destination . ".bak")) {
          push(@warnings, sprintf($dbup_locale->text("Could not rename %s to %s. Reason: %s"),
                                  $destination, $destination . ".bak", $!));
        }
      }
      if (!copy($template->{"source"}, $destination)) {
        push(@warnings, sprintf($dbup_locale->text("Could not copy %s to %s. Reason: %s"),
                                $template->{"source"}, $destination . ".bak", $!));
      }
    }
  }

  if (@warnings) {
    @warnings = map(+{ "message" => $_ }, @warnings);
    print($form->parse_html_template("dbupgrade/update_templates_warnings", { "WARNINGS" => \@warnings }));
  }

  return 1;
}

sub do_update {
  update_templates("German-winston.xml",
                   "German-taxbird.txb",
                   "German-credit_note.tex",
                   "German-zahlungserinnerung.tex");
}

return do_update();