Parent Directory | Revision Log
Initial revision
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 |