}
}
+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));
#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
#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();