umltools/ConfigPatcher/Config.pm

package ConfigPatcher::Config;

use strict;
use warnings;

our %cfg_patcher;
sub readLine {
  my $line = shift;
  my @arr = split(/[    ]+/, $line);
  #print $arr[0], ";", $arr[1], "\n";
  $cfg_patcher{$arr[0]} = $arr[1];
}

sub readConfig {
  my $patchlist = shift;
  open(FH, '<' . $patchlist);
  while(<FH>) {
    chomp;
    next if m/^$/;
    next if m/^#/;
    readLine($_);
  }
  close(FH);
}

1;

1	package ConfigPatcher::Config;
2
3	use strict;
4	use warnings;
5
6	our %cfg_patcher;
7	sub readLine {
8	my $line = shift;
9	my @arr = split(/[ ]+/, $line);
10	#print $arr[0], ";", $arr[1], "\n";
11	$cfg_patcher{$arr[0]} = $arr[1];
12	}
13
14	sub readConfig {
15	my $patchlist = shift;
16	open(FH, '<' . $patchlist);
17	while(<FH>) {
18	chomp;
19	next if m/^$/;
20	next if m/^#/;
21	readLine($_);
22	}
23	close(FH);
24	}
25
26	1;
27
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26