version 1.2, 2010/05/23 16:07:09
|
version 1.3, 2010/06/25 16:39:01
|
Line 76 if (open(my $locfh,"</home/httpd/lib/
|
Line 76 if (open(my $locfh,"</home/httpd/lib/
|
for (my $i=0; $i<@standard; $i++) { |
for (my $i=0; $i<@standard; $i++) { |
if ($commands[$i] ne '') { |
if ($commands[$i] ne '') { |
my $unesc = &unescape($commands[$i]); |
my $unesc = &unescape($commands[$i]); |
if ($custom{$commands[$i]} ne $configs[$i]) { |
if ($custom{$commands[$i]} eq '') { |
|
print $newfh $standard[$i]."\n"; |
|
} elsif ($custom{$commands[$i]} ne $configs[$i]) { |
print $newfh $custom{$commands[$i]}.$unesc; |
print $newfh $custom{$commands[$i]}.$unesc; |
if (ref($customargs{$commands[$i]}) eq 'ARRAY') { |
if (ref($customargs{$commands[$i]}) eq 'ARRAY') { |
if (@{$customargs{$commands[$i]}} > 0) { |
if (@{$customargs{$commands[$i]}} > 0) { |