umltools/ConfigPatcher/Main.pm.save

package ConfigPatcher::Main;

require Exporter;
@ISA = qw(Exporter);

@EXPORT = qw(applyPatches);

use strict;
use warnings;

use ConfigPatcher::Config;
#use ConfigPatcher::Handlers;
our %cfg_patcher;

sub applyPatches {
  my $patchfile = shift;
  my $patchTarget = shift;
  ConfigPatcher::Config::readConfig($patchfile);

  my @files = keys %cfg_patcher;
  foreach my $file (@files) {
    my $handler = $cfg_patcher{$file};
    print "patching file \"$file\"", "\n";

    #$eval = "ConfigPatcher::Handlers::handler($file);";
    #eval { $eval; }

    $eval = "ConfigPatcher::Handlers::handler($file);";
    eval { $eval; }
  }

}

1;

1	package ConfigPatcher::Main;
2
3	require Exporter;
4	@ISA = qw(Exporter);
5
6	@EXPORT = qw(applyPatches);
7
8	use strict;
9	use warnings;
10
11	use ConfigPatcher::Config;
12	#use ConfigPatcher::Handlers;
13	our %cfg_patcher;
14
15	sub applyPatches {
16	my $patchfile = shift;
17	my $patchTarget = shift;
18	ConfigPatcher::Config::readConfig($patchfile);
19
20	my @files = keys %cfg_patcher;
21	foreach my $file (@files) {
22	my $handler = $cfg_patcher{$file};
23	print "patching file \"$file\"", "\n";
24
25	#$eval = "ConfigPatcher::Handlers::handler($file);";
26	#eval { $eval; }
27
28	$eval = "ConfigPatcher::Handlers::handler($file);";
29	eval { $eval; }
30	}
31
32	}
33
34	1;
35
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26