update .gitignore (forgot it after last renaming...)

[rsbs2] / rsbs2

diff --git a/rsbs2 b/rsbs2
index 91027590ee2a4fba3a822df41c61e5d7ccf9fd6a..51a02d5d40bcd496ed650901e44259d3c76e2af0 100755 (executable)
--- a/rsbs2
+++ b/rsbs2
@@ -235,6 +235,27 @@ sub show_all_vars {
        }
 }
 
+sub syslog_debug {
+       my $destination_ip = shift;
+       my $bcast = shift;
+
+       $reqstr='<?xml version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="dbgmsglancfg"><IP>'.${destination_ip}.'</IP><BCAST>'.${bcast}.'</BCAST><STORE>FALSE</STORE></REQ></RMCSEQ>';
+       $res = _req($reqstr);
+       if ($res->{RESP}->{RC} ne '0x0') {
+               print "FAILED:".$res->{RESP}->{RC}."\n";
+               return;
+       }
+
+       $reqstr='<?XML version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="dbgmsgcfg"><ON>TRUE</ON><CHANNELMASK>0x1</CHANNELMASK><MMASK>0x1</MMASK><STORE>FALSE</STORE></REQ></RMCSEQ>';
+       $res = _req($reqstr);
+       if ($res->{RESP}->{RC} ne '0x0') {
+               print "FAILED:".$res->{RESP}->{RC}."\n";
+               return;
+       }
+
+       print "Debug messages will be sent to ${destination_ip} (broadcast: ${bcast})\n";
+}
+
 #Login...
 my $response = $ua->get("http://${host}/cgi/challenge");
 die $response->status_line if (!($response->is_success));
@@ -280,11 +301,12 @@ printf("byte 22: 0x%x\n", ord($board[22]));
 #showprop("SERVER_POWER_ON_PULSE_MS");
 #showprop("SERVER_POWER_OFF_MODE");
 #showprop("SERVER_POWER_OFF_PULSE_MS");
-#showprop("AGENT_VERSION");
 
 board_properties();
 
-show_all_vars();
+#show_all_vars();
+
+syslog_debug("255.255.255.255", "TRUE");
 
 #server_power_on modes: (com/agilent/rmc/mgui/panels/PowerMgmtConf.class)
 #0: l_pmconf_option_disabled
@@ -301,13 +323,16 @@ setprop("FP_REMOTE_POWER", "TRUE");
 #PM Mode
 setprop("SERVER_POWER_ON_MODE", sprintf("0x%x", $pmode));
 setprop("SERVER_POWER_OFF_MODE", sprintf("0x%x", $pmode));
+#Hack: Abuse powercycloe for powerup and down...
+#setprop("SERVER_POWER_ON_PULSE_MS", "0x0");
 
 #$reqstr='<?xml version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="boardpropset"><BPROP NAME="BOARD_DESCRIPTION"><VAL>'.$boarddesc_new.'</VAL></BPROP></REQ></RMCSEQ>';
 #print $reqstr."\n";
 #print Dumper(_req($reqstr));
 
-#serveraction("hardreset");
+serveraction("hardreset");
 serveraction("powerup");
 serveraction("powerdown");
+serveraction("powercycle");
 
 logout();