#!/usr/bin/perl

while (<>) {
    chomp;

    if (/^source\d*:\s(.*)$/i) {
	$s = $1;
	$s =~ s/%\{(\w+)\}/defined($v{$1}) ? $v{$1} : '*** UNDEFINED VALUE ***'/ge;
	$s =~ s#.*/##;
	print "$s\n";
    }
    elsif (/^(\w+):\s+(.*)$/) {
	$v{lc($1)} = $2;
    }
    elsif (/^%define\s+(\w+)\s+(.*)$/) {
	$v{lc($1)} = $2;
    }
}

exit(0);