| … | |
… | |
| 24 | our $CFG; |
24 | our $CFG; |
| 25 | |
25 | |
| 26 | sub read_config { |
26 | sub read_config { |
| 27 | my ($filename) = @_; |
27 | my ($filename) = @_; |
| 28 | |
28 | |
| 29 | unless (-e $filename) { |
29 | if (my $meta = $cf::RESOURCE{$filename}) { |
|
|
30 | $CFG = cf::decode_json $meta->{data}; |
|
|
31 | } else { |
| 30 | warn "$filename doesn't exists! no config for jeweler skill loaded!\n"; |
32 | warn "$filename doesn't exist! no config for jeweler skill loaded!\n"; |
| 31 | $CFG = {}; |
33 | $CFG = {}; |
| 32 | return |
|
|
| 33 | } |
34 | } |
| 34 | |
|
|
| 35 | $CFG = YAML::LoadFile $filename; |
|
|
| 36 | } |
35 | } |
| 37 | |
36 | |
| 38 | sub getcfg { |
37 | sub getcfg { |
| 39 | my ($sect, $key) = @_; |
38 | my ($sect, $key) = @_; |
| 40 | return $CFG->{$sect} unless defined $key; |
39 | return $CFG->{$sect} unless defined $key; |
