Revision 469 (by ahitrov, 2014/12/24 13:57:26) Moving Contenido to Apache 2

#!/usr/bin/perl

####################################
# make 'before-process' mtt argument
####################################

use strict;
use warnings 'all';


print <<'EOM';
#% $STAMP = 0;
EOM

for (sort grep {/^MTT_/} keys %ENV) {
	(my $key = $_) =~ s/^MTT_//;
	$ENV{$_} =~ s/\\/\\\\/g;
	$ENV{$_} =~ s/'/\\'/g;
	print "#% my \$$key = '$ENV{$_}';\n";
}