19 lines
444 B
Perl
19 lines
444 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 $_;
|
|
}
|