if ($reply =~ m/^(y|yes)$/i) {
printf "execute: %s\n", $command;
push (@args, SOAP::Data->name('Command' => $rcc{$command}));
- push (@args, SOAP::Data->name('IanaOemNumber' => 4542));
+ push (@args, SOAP::Data->name('IanaOemNumber' => 343));
+ if ($command ne 'powerdown') {
+ push (@args, SOAP::Data->name('SpecialCommand' => 0xC1 ));
+ push (@args, SOAP::Data->name('SpecialCommandParameter' => 0));
+ push (@args, SOAP::Data->name('OEMparameters' => 1 ));
+ }
do_soap($rcs, "RemoteControl", @args);
} else {
printf "canceled\n";