umltools/ConfigPatcher/Main.pm

package ConfigPatcher::Main;

require Exporter;
@ISA = qw(Exporter);

@EXPORT = qw(preparePatches);

use strict;
use warnings;

my %vhost;

use ConfigPatcher::Config;
use ConfigPatcher::Handlers;

sub preparePatches {
  my $patchfile = shift;
  my $patchTarget = shift;
  ConfigPatcher::Config::readConfig($patchfile);
  my %cfg_patcher = %ConfigPatcher::Config::cfg_patcher;

  my @files = keys %cfg_patcher;
  foreach my $file (@files) {
    my $handler = $cfg_patcher{$file};
    my $pt = $patchTarget . $file;
    print "\n", "patching file \"$pt\" ...";
    #print "patching file by ";
    my $eval = "ConfigPatcher::Handlers::$handler('$pt');";
    #print "executing handler $eval ...";
    my $res = eval($eval);
    # error in eval?
    if ($@ || !$res) { 
      print "failed: $@";
    } else { 
      print "ok";
    }
  }

}

1;

1	joko	1.1	package ConfigPatcher::Main;
2
3			require Exporter;
4			@ISA = qw(Exporter);
5
6			@EXPORT = qw(preparePatches);
7
8			use strict;
9			use warnings;
10
11			my %vhost;
12
13			use ConfigPatcher::Config;
14			use ConfigPatcher::Handlers;
15
16			sub preparePatches {
17			my $patchfile = shift;
18			my $patchTarget = shift;
19			ConfigPatcher::Config::readConfig($patchfile);
20			my %cfg_patcher = %ConfigPatcher::Config::cfg_patcher;
21
22			my @files = keys %cfg_patcher;
23			foreach my $file (@files) {
24			my $handler = $cfg_patcher{$file};
25			my $pt = $patchTarget . $file;
26			print "\n", "patching file \"$pt\" ...";
27			#print "patching file by ";
28			my $eval = "ConfigPatcher::Handlers::$handler('$pt');";
29			#print "executing handler $eval ...";
30			my $res = eval($eval);
31			# error in eval?
32			if ($@ \|\| !$res) {
33			print "failed: $@";
34			} else {
35			print "ok";
36			}
37			}
38
39			}
40
41			1;
42
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26