From: Michael Gernoth <michael@gernoth.net>
Date: Sat, 31 Jan 2009 22:23:42 +0000 (+0100)
Subject: add function to enable syslog debug messages from the RSB
X-Git-Url: http://cvs.zerfleddert.de/cgi-bin/gitweb.cgi/rsbs2/commitdiff_plain/99b39951e11b71011000df6dce6b405e34ad4058

add function to enable syslog debug messages from the RSB
---

diff --git a/rsbs2 b/rsbs2
index 2ad767e..28aa093 100755
--- 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>0x0</CHANNELMASK><MMASK>0x0</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,12 +301,13 @@ 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("FP_COMREDIRECT");
 
 board_properties();
 
 #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
 #1: l_pmconf_option_atx
@@ -302,15 +324,15 @@ setprop("FP_REMOTE_POWER", "TRUE");
 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");
+#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("powerup");
-#serveraction("powerdown");
+serveraction("powerup");
+serveraction("powerdown");
 serveraction("powercycle");
 
 logout();