Repository List / Contenido / koi8 / core-branches / apache2 / services / mttbfr @ r469

#!/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";
}