windows-nt/Source/XPSP1/NT/base/ntsetup/patching/bldtools/noprompt.pl
2020-09-26 16:20:57 +08:00

19 lines
426 B
Perl

#Flush output buffer for remote.exe
select(STDOUT); $|=1;
$old="= 49100,\"";
$new="= -1,\"".@ARGV[0]."\\";
while (defined($_ = <STDIN>))
{
$myline=$_;
$myline=s/^.*CatalogFile=.*$//i;
$myline=s/^.*AddReg=.*$//i;
$myline=s/^.*DelReg=.*$//i;
$myline=s/^.*symbols.inf,,,4.*$//i;
$myline=s/^.*CustomDestination=.*$//i;
$myline=s/^.*EndPrompt=.*$//i;
$myline=s/$old/$new/;
print $_;
}