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	joko	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