enable sol on powerup

diff --git a/amttool b/amttool
index d1b0f4850d87c6b15ef8fa7ab512ada49c5a8ee6..3aaab534d3ac048d57a411095086275449f866b3 100755 (executable)
--- a/amttool
+++ b/amttool
@@ -277,7 +277,12 @@ sub remote_control($) {
        if ($reply =~ m/^(y|yes)$/i) {
                printf "execute: %s\n", $command;
                push (@args, SOAP::Data->name('Command' => $rcc{$command}));
        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('OEMparameters' => 1 ));
+                       push (@args, SOAP::Data->name('SpecialCommand' => 0xC1 ));
+                       push (@args, SOAP::Data->name('SpecialCommandParameter' => 0));
+               }

                do_soap($rcs, "RemoteControl", @args);
        } else {
                printf "canceled\n";
                do_soap($rcs, "RemoteControl", @args);
        } else {
                printf "canceled\n";