Commit | Line | Data |
---|---|---|
137443ea | 1 | my %opt; |
2 | while (@ARGV && $ARGV[0] =~ /^([\w_]+)=(.*)$/) | |
3 | { | |
4 | $opt{$1}=$2; | |
5 | shift(@ARGV); | |
6 | } | |
7bac28a0 | 7 | |
10609e9a GS |
8 | $opt{VERSION} = $]; |
9 | $opt{INST_VER} =~ s|~VERSION~|$]|g; | |
c90c0ff4 | 10 | if ($] =~ /\.(\d\d\d)?(\d\d)?$/) { # should always be true |
11 | $opt{PATCHLEVEL} = int($1 || 0); | |
12 | $opt{SUBVERSION} = $2 || '00'; | |
13 | } | |
14 | ||
d484a829 GS |
15 | $opt{'cf_by'} = $ENV{USERNAME} unless $opt{'cf_by'}; |
16 | $opt{'cf_email'} = $opt{'cf_by'} . '@' . (gethostbyname('localhost'))[0] | |
17 | unless $opt{'cf_email'}; | |
852c2e52 | 18 | $opt{'usemymalloc'} = 'y' if $opt{'d_mymalloc'} eq 'define'; |
d484a829 | 19 | |
137443ea | 20 | while (<>) |
21 | { | |
22 | s/~([\w_]+)~/$opt{$1}/g; | |
dc050285 GS |
23 | if (/^([\w_]+)=(.*)$/) { |
24 | # this depends on cf_time being empty in the template (or we'll get a loop) | |
25 | if ($1 eq 'cf_time') { | |
26 | $_ = "$1='" . localtime(time) . "'\n" if $2 =~ /^\s*'\s*'/; | |
27 | } | |
28 | elsif (exists $opt{$1}) { | |
29 | $_ = "$1='$opt{$1}'\n"; | |
30 | } | |
31 | } | |
137443ea | 32 | print; |
33 | } | |
34 |