blob: efabc7bf8751d21c10d2b0896d3da626fd503e94 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
#-*- perl -*-
#
# Copyright (C) 2001 Ken'ichi Fukamachi
# All rights reserved. This program is free software; you can
# redistribute it and/or modify it under the same terms as Perl itself.
#
# $Id$
# $FML$
#
package Standalone;
use strict;
use Carp;
# Descriptions: load "key = value" style configuration.
# It is available to use the following style.
# key = value1 value2
# value3
# XXX This file is non-Object Oriented style but
# XXX this is minimum module used in standalone program.
# Arguments: $file
# Side Effects: none
# Return Value: reference to configuration hash
sub load_cf
{
my ($file) = @_;
my $config = {};
use FileHandle;
my $fh = new FileHandle $file;
if (defined $fh) {
my $curkey;
while (<$fh>) {
next if /^\#/;
chop;
if (/^([A-Za-z]\w+)\s+=\s*(.*)/) {
my ($key, $value) = ($1, $2);
$curkey = $key;
$config->{$key} = $value;
}
if (/^\s+(.*)/) {
$config->{ $curkey } .= " ". $1;
}
}
$fh->close;
}
else {
croak("Error: cannot open $file");
}
_expand_variables( $config );
return $config;
}
# Descriptions: expand $var to the value of $var.
# Arguments: $ref_to_config
# Side Effects: rewrite the given $config
# Return Value: none
sub _expand_variables
{
my ($config) = @_;
# expand $xxx style variables
no strict 'refs';
for my $x (keys %$config) { $$x = $config->{ $x };}
for (keys %$config) {
$config->{ $_ } =~ s/\$([a-z_]+)/${$1}/g;
}
}
1;
|
