gluon/scripts/configure.pl

#!/usr/bin/perl

use warnings;
use strict;


my %config;

sub add_config {
	my ($prefix, $c) = @_;

	foreach my $key (keys $c) {
		my $val = $c->{$key};

		if (ref($val) eq 'HASH') {
			add_config($key . '.', $val);
		}
		unless (ref($val)) {
			$config{'@' . $prefix . $key . '@'} = $val;
		}
	}
}

sub read_config {
	my $input = shift;
	my $CONFIG = do $input;
	add_config('', $CONFIG);
}


read_config 'site/site.conf';


my $regex = join '|', map {quotemeta} keys %config;


for (<>) {
	s/($regex)/${config{$1}}/g;
	print;
}