From: Michael Gernoth Date: Sat, 31 Jan 2009 22:23:42 +0000 (+0100) Subject: add function to enable syslog debug messages from the RSB X-Git-Url: https://git.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=''.${destination_ip}.''.${bcast}.'FALSE'; + $res = _req($reqstr); + if ($res->{RESP}->{RC} ne '0x0') { + print "FAILED:".$res->{RESP}->{RC}."\n"; + return; + } + + $reqstr='TRUE0x00x0FALSE'; + $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=''.$boarddesc_new.''; #print $reqstr."\n"; #print Dumper(_req($reqstr)); serveraction("hardreset"); -#serveraction("powerup"); -#serveraction("powerdown"); +serveraction("powerup"); +serveraction("powerdown"); serveraction("powercycle"); logout();