| Line # | Revision | Author | |
|---|---|---|---|
| 1 | 3 | ahitrov@rambler.ru | #!/usr/bin/perl |
| 2 | |||
| 3 | #################################### | ||
| 4 | # make 'before-process' mtt argument | ||
| 5 | #################################### | ||
| 6 | |||
| 7 | use strict; | ||
| 8 | use warnings 'all'; | ||
| 9 | |||
| 10 | |||
| 11 | print <<'EOM'; | ||
| 12 | #% $STAMP = 0; | ||
| 13 | EOM | ||
| 14 | |||
| 15 | for (sort grep {/^MTT_/} keys %ENV) { | ||
| 16 | (my $key = $_) =~ s/^MTT_//; | ||
| 17 | $ENV{$_} =~ s/\\/\\\\/g; | ||
| 18 | $ENV{$_} =~ s/'/\\'/g; | ||
| 19 | print "#% my \$$key = '$ENV{$_}';\n"; | ||
| 20 | } |