+ if ( $command =~ /^mkfile\s+(\S+)/) {
+ my $file = $1;
+ # don't ask me to explain why so many backslashes...
+ $input =~ s/\\/\\\\\\\\\\\\\\\\/g;
+ $input =~ s/\n/\\\\\\\\n/g;
+ $input =~ s/"/\\\\\\\\042/g;
+ $input =~ s/'/\\\\\\\\047/g;
+ $input =~ s/%/%%/g;
+ $command = "sh -c \"printf '$input' > $file\"";
+ }