X-Git-Url: https://git.zerfleddert.de/cgi-bin/gitweb.cgi/rsbs2/blobdiff_plain/f4d84b071cbc062f44ecd30c135964612ebcab2a..762f3898849f6975286d7d0511f9e340cc2eb073:/rsbs2.pl diff --git a/rsbs2.pl b/rsbs2.pl index a309347..4d09c1b 100755 --- a/rsbs2.pl +++ b/rsbs2.pl @@ -10,11 +10,12 @@ my $ua = LWP::UserAgent->new; my $sid; my $host; my $poweronms=200; -my $poweroffms=4500; +my $poweroffms=5000; +my $verbose = 0; my @fw_vars = qw(ENABLE_LAN_AUTONEG ENABLE_LAN_100 ENABLE_LAN_FDUPLEX GATEWAY IP_ADDRESS NETMASK TFTP_FIRMWARE_FILE TFTP_ADDR_FIRMWARE ENABLE_DHCP - ENABLE_DNS DNS_SERVER DNS_DOMAIN_NAME DHCP_CONFIGURE_DNS + ENABLE_DNS DNS_SERVER DNS_DOMAIN_NAME ACCESS_CONTROL_SERVER_1 ACCESS_CONTROL_SERVER_2 ACCESS_CONTROL_SERVERS ACPI_DISABLE_BIOS_SCAN ACPI_FORCE_RSDP_ADDRESS ACPI_FORCE_RSDT_ADDRESS ACPI_RSDP_BIOS_ROM_ADDRESS ACPI_SCAN_DELAY_SECONDS AMR_AUTH_METHOD @@ -34,10 +35,10 @@ my @fw_vars = qw(ENABLE_LAN_AUTONEG ENABLE_LAN_100 ENABLE_LAN_FDUPLEX GATEWAY CONSOLE_VIDEO_PARAM_MODE CONTACT CONTACT_PHONE CRIT_TEMP_SHUTDOWN CRIT_VOLT_SHUTDOWN DHCP_ADD_EXTENSION DHCP_ADD_SERIAL DHCP_CONFIGURE_DNS DHCP_HOSTNAME_EXT DHCP_SERVER DHCP_USE_CARDNAME - DIAG_URL DNS_DOMAIN_NAME DNS_SERVER ENABLE_ANON_IPMI ENABLE_ANON_PCI + DIAG_URL ENABLE_ANON_IPMI ENABLE_ANON_PCI ENABLE_ANON_WEB ENABLE_AVR_CHIP_DETECT ENABLE_BMC_AUTODETECT ENABLE_BMC_TIMESYNC ENABLE_CRTC_FETCH ENABLE_DHCP ENABLE_DHCP_HOSTNAME - ENABLE_DNS ENABLE_DS_CONNECTIVITY ENABLE_IO_UART_DECODER ENABLE_LAN_100 + ENABLE_DS_CONNECTIVITY ENABLE_IO_UART_DECODER ENABLE_LAN_100 ENABLE_LAN_AUTONEG ENABLE_LAN_FDUPLEX ENABLE_MEM_UART_DECODER ENABLE_PPP ENABLE_REMOTE_FLOPPY_BOOT ENABLE_SELF_DELETE ENABLE_SERIAL_DBG ETHDRIVER_SID EXPROM_BANNER EXPROM_EBDA_COMPATIBILITY @@ -147,17 +148,32 @@ sub _req { $request = HTTP::Request->new(POST => "http://${host}/cgi/bin"); $request->header(Cookie => "sid=$sid"); $request->content_type('application/x-www-form-urlencoded'); - $request->content($xml); + $request->content(''.$xml.''); $response = $ua->request($request); die("Error in request: " . $response->status_line . "\n") unless ($response->is_success); - XMLin($response->content); + XMLin($response->content, SuppressEmpty => ''); +} + +sub _cmd { + my $cmd = shift; + + my $reqstr=''; + my $res = _req($reqstr); + if ($res->{RESP}->{RC} ne '0x0') { + print "${cmd} failed: ".$res->{RESP}->{RC}."\n"; + undef; + } + + $res->{RESP}; } sub _getprop { my $property = shift; - my $reqstr=''; + my $reqstr=''; my $resp = _req($reqstr); + + print "get: ${property}\n" if ($verbose); if ($resp->{RESP}->{RC} ne '0x0') { $resp->{RESP}->{RC}; @@ -167,7 +183,7 @@ sub _getprop { } sub logout { - print "Logout\n"; + print "Logout\n" if ($verbose); my $request = HTTP::Request->new(GET => "http://${host}/cgi/logout"); $request->header(Cookie => "sid=$sid"); my $response = $ua->request($request); @@ -184,17 +200,19 @@ sub setprop { my $oldval = _getprop($property)->{RESP}->{PROPLIST}->{PROP}->{VAL}; if ($value eq $oldval) { - #print "${property} is already ${value}\n"; + print "${property} is already ${value}\n" if ($verbose); return; } - my $reqstr=''.$value.''; + my $reqstr=''.$value.''; my $res = _req($reqstr); if ($res->{RESP}->{RC} ne '0x0') { print "Error setting ${property} to ${value}: ".$res->{RESP}->{RC}."\n"; + undef; } else { - print "${property}: ${oldval} -> ${value}\n"; + print "${property}: ${oldval} -> ${value}\n" if ($verbose); + $oldval; } } @@ -209,8 +227,8 @@ sub serveraction { setprop("SERVER_POWER_ON_MODE", sprintf("0x%x", $pmode)); setprop("SERVER_POWER_OFF_MODE", sprintf("0x%x", $pmode)); - print "${action}...\n"; - my $reqstr=''.$action.''; + print "${action}...\n" if ($verbose); + my $reqstr=''.$action.''; my $res = _req($reqstr); if ($res->{RESP}->{RC} ne '0x0') { @@ -219,18 +237,21 @@ sub serveraction { } sub powerup { + print "powerup\n" if ($verbose); setprop("SERVER_POWER_ON_PULSE_MS", sprintf("0x%x", $poweronms)); setprop("SERVER_POWER_OFF_PULSE_MS", "0x0"); serveraction("powercycle"); } sub powerdown { + print "powerdown\n" if ($verbose); setprop("SERVER_POWER_ON_PULSE_MS", "0x0"); setprop("SERVER_POWER_OFF_PULSE_MS", sprintf("0x%x", $poweroffms)); serveraction("powercycle"); } sub powercycle { + print "powercycle\n" if ($verbose); setprop("SERVER_POWER_ON_PULSE_MS", sprintf("0x%x", $poweronms)); setprop("SERVER_POWER_OFF_PULSE_MS", sprintf("0x%x", $poweroffms)); serveraction("powercycle"); @@ -245,7 +266,7 @@ sub showprop { } sub board_properties { - my $reqstr=''; + my $reqstr=''; my $resp = _req($reqstr); print " * Board Properties:\n"; @@ -255,7 +276,7 @@ sub board_properties { } sub show_boarddesc { - my $reqstr=''; + my $reqstr=''; my $boarddesc64 = _req($reqstr)->{RESP}->{BPROPLIST}->{BPROP}->{VAL}; my $boarddesc = decode_base64($boarddesc64); my @board = split(//, $boarddesc); @@ -271,18 +292,83 @@ sub show_all_vars { } } +sub usrlist { + my $res = _cmd("usrlist"); + my @users = (); + + if ($res->{RC} ne '0x0') { + print "FAILED:".$res->{RC}."\n"; + (); + } else { + if (ref($res->{USRLIST}->{USER}) eq 'ARRAY') { + foreach my $usr (@{$res->{USRLIST}->{USER}}) { + push @users, $usr->{NAME}; + } + } else { + push @users, $res->{USRLIST}->{USER}->{NAME}; + } + } + @users; +} + +sub getusrprops { + my $usr = shift; + + my $reqstr = ''; + my $res = _req($reqstr)->{RESP}->{USER}->{PROP}; + + $res; +} + +sub usradd { + my $usr = shift; + + my $reqstr=''; + my $res = _req($reqstr); + if ($res->{RESP}->{RC} ne '0x0') { + print "FAILED:".$res->{RESP}->{RC}."\n"; + } +} + +sub setusrprop { + my $usr = shift; + my $property = shift; + my $value = shift; + + my $reqstr=''; + my $res = _req($reqstr); + + my $oldval = ${res}->{RESP}->{USER}->{PROP}->{VAL}; + + if ($value eq $oldval) { + print "${property} is already ${value}\n" if ($verbose); + return; + } + + $reqstr=''.$value.''; + $res = _req($reqstr); + + if ($res->{RESP}->{RC} ne '0x0') { + print "Error setting ${property} to ${value}: ".$res->{RESP}->{RC}."\n"; + undef; + } else { + print "${property}: ${oldval} -> ${value}\n" if ($verbose); + $oldval; + } +} + sub syslog_debug { my $destination_ip = shift; my $bcast = shift; - $reqstr=''.${destination_ip}.''.${bcast}.'FALSE'; - $res = _req($reqstr); + my $reqstr=''.${destination_ip}.''.${bcast}.'FALSE'; + my $res = _req($reqstr); if ($res->{RESP}->{RC} ne '0x0') { print "FAILED:".$res->{RESP}->{RC}."\n"; return; } - $reqstr='TRUE0x10x1FALSE'; + $reqstr='TRUE0x10x1FALSE'; $res = _req($reqstr); if ($res->{RESP}->{RC} ne '0x0') { print "FAILED:".$res->{RESP}->{RC}."\n"; @@ -292,6 +378,70 @@ sub syslog_debug { print "Debug messages will be sent to ${destination_ip} (broadcast: ${bcast})\n"; } +sub sensors { + my $slist= _cmd("sensorlist"); + my %sens = (); + + if ($slist->{RC} ne '0x0') { + print "Error getting sensorlist: ".$slist->{RC}."\n"; + return; + } + + foreach my $s (@{$slist->{SENSORLIST}->{SENSOR}}) { + } +} + +sub status { + my $boardstatus = _cmd("boardstatus")->{STATUS}; + my $fw = _cmd("boardfwstatus"); + my $boardfwstatus = $fw->{STATUS}; + my $boardfwprogress = $fw->{PROGRESS}; + $bs = hex($boardstatus); + + print "Server Power:\t\t" . (($bs & 0x01) ? "ON" : "OFF") . "\n"; + print "External PSU:\t\t" . (($bs & 0x02) ? "ON" : "OFF") . "\n"; + print "Battery:\t\t"; + if ($bs & 0x04) { + if ($bs & 0x08) { + print "LOW\n"; + } elsif ($bs & 0x800) { + print "ON\n"; + } else { + print "UNKNOWN\n"; + } + } else { + print "OFF\n"; + } + print "Standby Power:\t\t" . (($bs & 0x08) ? "ON" : "OFF") . "\n"; + print "LAN:\t\t\t" . (($bs & 0x10) ? "CONNECTED" : "NC") . "\n"; + print "I2C:\t\t\t" . (($bs & 0x20) ? "CONNECTED" : "NC") . "\n"; + print "SMM:\t\t\t" . (($bs & 0x40) ? "CONNECTED" : "NC") . "\n"; + print "Instrumentation:\t" . (($bs & 0x200) ? "CONNECTED" : "NC") . "\n"; + print "ICMB:\t\t\t" . (($bs & 0x400) ? "CONNECTED" : "NC") . "\n"; + print "PPP:\t\t\t" . (($bs & 0x10000) ? "ON" : "OFF") . "\n"; + print "Paging:\t\t\t" . (($bs & 0x20000) ? "ON" : "OFF") . "\n"; + print "COM redirection:\t" . (($bs & 0x100000) ? "ON" : "OFF") . "\n"; + print "UART redirect:\t\t" . (($bs & 0x200000) ? "ON" : "OFF") . "\n"; + print "UART redirect pending:\t" . (($bs & 0x400000) ? "TRUE" : "FALSE") . "\n"; + print "Hex BoardStatus:\t${boardstatus}\n"; + my $fws = hex ($boardfwstatus); + print "FW status:\t\t"; + if ($fws == 3 || $fws == 32771) { + print "WAITING"; + } else { + print "DONE"; + } + print " (${boardfwstatus})\n"; + if (($fws & 0x8080) || ($fws & 0x80)) { + printf("FW error:\t\t0x%02x\n", ($fws & 0xff)); + } + if ($fws != 0) { + print "FW upgrade progress:\t${boardfwprogress}\n"; + } + print "\nSensors:\n"; + sensors(); +} + sub login { my $user = shift; my $pass = shift; @@ -302,16 +452,16 @@ sub login { my $xmlin = XMLin($response->decoded_content); die "Error getting Challenge: ".$xmlin->{RC} if ($xmlin->{RC} ne '0x0'); my $challenge = $xmlin->{CHALLENGE}; - print "Challenge: ${challenge}\n"; + print "Challenge: ${challenge}\n" if ($verbose); $sid = $response->headers->header('Set-Cookie'); die "No SessionID!" if (!defined($sid)); chomp($sid); $sid =~ s/.*sid=(.*);.*/$1/; - print "SID: ${sid}\n"; + print "SID: ${sid}\n" if ($verbose); my $login_hash = _hash($pass, $challenge); - print "Hash: ${login_hash}\n"; + print "Hash: ${login_hash}\n" if ($verbose); my $request = HTTP::Request->new(GET => "http://${host}/cgi/login?user=${user}&hash=${login_hash}"); $request->header(Cookie => "sid=$sid"); @@ -324,68 +474,285 @@ sub login { $sid; } -open(INIFILE,"<$ENV{HOME}/.rsbs2rc") || die("can't open config: $ENV{HOME}/.rsbs2rc: $!"); -my %Config = (); -my @sections = (); -while() { - chomp; +sub read_inifile { + my $filename = shift; + + open(INIFILE,"<${filename}") || die("can't open config: ${filename}: $!"); + my %Ini = (); + my @sections = (); + while() { + chomp; + + next if (m/^#/); + + if (m/^\s*\[(.*)\]\s*$/) { + push @sections, $1; + next; + } + + if (@sections) { + if (m/^\s*([^=]+)\s*=\s*(.*)\s*$/) { + ${$Ini{$sections[$#sections]}}{$1} = $2; + } + } + } + close(INIFILE); + + %Ini; +} + +my %Config = read_inifile("$ENV{HOME}/.rsbs2rc"); + +my $valid_arg = 0; +my $powup = 0; +my $powdown = 0; +my $powcyc = 0; +my $reset = 0; +my $resetrsbs2 = 0; +my @sprop = (); +my @gprop = (); +my @xmlsend = (); +my $show = 0; +my $enable_debug = ""; +my $save = ""; +my $load = ""; +my $showstat = 0; +my $hostalias; + +while (defined($ARGV[0])) { + SWITCH: for ($ARGV[0]) { + /^-v$/ && do { + $verbose = 1; + shift @ARGV; + last SWITCH; + }; + /^-g$/ && do { + shift @ARGV; + push @gprop, shift @ARGV; + last SWITCH; + }; + /^-s$/ && do { + shift @ARGV; + push @sprop, shift @ARGV; + last SWITCH; + }; + /^-u$/ && do { + $powup = 1; + shift @ARGV; + last SWITCH; + }; + /^-d$/ && do { + $powdown = 1; + shift @ARGV; + last SWITCH; + }; + /^-c$/ && do { + $powcyc = 1; + shift @ARGV; + last SWITCH; + }; + /^-r$/ && do { + $reset = 1; + shift @ARGV; + last SWITCH; + }; + /^-R$/ && do { + $resetrsbs2 = 1; + shift @ARGV; + last SWITCH; + }; + /^-l$/ && do { + shift @ARGV; + $enable_debug = shift @ARGV; + last SWITCH; + }; + /^-x$/ && do { + $show = 1; + shift @ARGV; + last SWITCH; + }; + /^-X$/ && do { + shift @ARGV; + push @xmlsend, shift @ARGV; + last SWITCH; + }; + /^-b$/ && do { + $showstat = 1; + shift @ARGV; + last SWITCH; + }; + /^-save$/ && do { + shift @ARGV; + $save = shift @ARGV; + last SWITCH; + }; + /^-load$/ && do { + shift @ARGV; + $load = shift @ARGV; + last SWITCH; + }; + + if (defined($ARGV[0])) { + $hostalias = $ARGV[0]; + shift(@ARGV); + $valid_arg = 1; + } - next if (m/^#/); + while ( defined($ARGV[0]) ) { $valid_arg = 0; shift(@ARGV); } + } +} + +if ($valid_arg && (!defined($Config{$hostalias}))) { + $valid_arg = 0; +} - if (m/^\s*\[(.*)\]\s*$/) { - push @sections, $1; - next; +if (!$valid_arg) { + print STDERR "Usage: $0 options card-alias\n"; + print STDERR "Options:\n"; + print STDERR "\t-g property\tget property value\n"; + print STDERR "\t-s property=val\tset property value\n"; + print STDERR "\t-u\t\tpowerup\n"; + print STDERR "\t-d\t\tpowerdown\n"; + print STDERR "\t-c\t\tpowercycle\n"; + print STDERR "\t-r\t\treset\n"; + print STDERR "\t-R\t\treset RSB S2 borad\n"; + print STDERR "\t-x\t\tshow all properties, variables and settings\n"; + print STDERR "\t-l IP\t\tsend SYSLOG debug messages to IP\n"; + print STDERR "\t-b\t\tshow board/server status\n"; + print STDERR "\t-X\t\tsend raw XML string (start with REQ tag)\n"; + print STDERR "\t-v\t\tverbose\n"; + print STDERR "\t-save file\tsave configuration to 'file'\n"; + print STDERR "\t-load file\tload configuration from 'file'\n"; + print STDERR "\n"; + print STDERR "card-alias\tone of: "; + foreach my $alias (keys(%Config)) { + print STDERR "\"${alias}\" "; } + print STDERR "(see ~/.rsbs2rc)\n"; + exit(1); +} + +$host = ${$Config{$hostalias}}{"host"}; +$poweronms = ${$Config{$hostalias}}{"poweronms"} if (defined(${$Config{$hostalias}}{"poweronms"})); +$poweroffms = ${$Config{$hostalias}}{"poweroffms"} if (defined(${$Config{$hostalias}}{"poweroffms"})); - if (@sections) { - if (m/^\s*(.+)\s*=\s*(.*)\s*$/) { - ${$Config{$sections[$#sections]}}{$1} = $2; +$sid = login(${$Config{$hostalias}}{"user"}, ${$Config{$hostalias}}{"pass"}); + +if ($show) { + show_boarddesc(); + board_properties(); + show_all_vars(); +} + +if (@gprop) { + foreach my $p (@gprop) { + showprop($p); + } +} + +if (@sprop) { + foreach my $p (@sprop) { + (my $pr, $v) = split(/=/,$p,2); + my $oldval = setprop($pr, $v); + if (defined($oldval)) { + print "${pr}: ${oldval} -> ${v}\n" if (!$verbose); } } } -close(INIFILE); -$host = ${$Config{$sections[0]}}{"host"}; -$poweronms = ${$Config{$sections[0]}}{"poweronms"} if (defined(${$Config{$sections[0]}}{"poweronms"})); -$poweroffms = ${$Config{$sections[0]}}{"poweroffms"} if (defined(${$Config{$sections[0]}}{"poweroffms"})); +if (@xmlsend) { + foreach my $x (@xmlsend) { + print Dumper(_req($x)); + } +} -$sid = login(${$Config{$sections[0]}}{"user"}, ${$Config{$sections[0]}}{"pass"}); +if ($save ne '') { + my @dontsave = qw(ENABLE_LAN_AUTONEG ENABLE_LAN_100 ENABLE_LAN_FDUPLEX + GATEWAY IP_ADDRESS NETMASK TFTP_FIRMWARE_FILE TFTP_ADDR_FIRMWARE + ENABLE_DHCP MAC_ADDRESS LAST_CARD_NAME LAST_ENABLE_DHCP LAST_GATEWAY + LAST_IP_ADDRESS LAST_NETMASK); + + open (SAVEFILE, ">${save}") || die "Error opening save-file: $!\n"; + print SAVEFILE "[global]\n"; + print STDERR "saving" if (!$verbose); + foreach my $ts (@fw_vars) { + next if (grep(/^${ts}$/, @dontsave)); + + my $phash = _getprop($ts)->{RESP}->{PROPLIST}->{PROP}; + next if ($phash->{PERMS} ne 'RW'); + + print SAVEFILE "${ts}=".$phash->{VAL}."\n"; + print STDERR "." if (!$verbose); + } + foreach my $usr (usrlist()) { + print SAVEFILE "\n[${usr}]\n"; + foreach my $up (@{getusrprops($usr)}) { + next if ($up->{PERMS} ne 'RW'); -show_boarddesc(); + print SAVEFILE $up->{NAME}."=".$up->{VAL}."\n"; + } + print STDERR "." if (!$verbose); + } + close(SAVEFILE); + print STDERR "done\n" if (!$verbose); +} -#showprop("FP_REMOTE_POWER"); -#showprop("FP_REMOTE_BOOT"); -#showprop("SERVER_HARD_RESET_VIA_IPMI"); -#showprop("SERVER_HARD_RESET_PULSE_MS"); -#showprop("SERVER_POWER_CHANGE_VIA_IPMI"); -#showprop("SERVER_POWER_ON_MODE"); -#showprop("SERVER_POWER_ON_PULSE_MS"); -#showprop("SERVER_POWER_OFF_MODE"); -#showprop("SERVER_POWER_OFF_PULSE_MS"); +if ($load ne '') { + my %loadfile = read_inifile("${load}"); + print STDERR "loading" if (!$verbose); -board_properties(); + foreach my $p (keys(%{$loadfile{'global'}})) { + setprop($p, $loadfile{'global'}->{$p}); + print STDERR "." if (!$verbose); + } -#show_all_vars(); + my @users = usrlist(); + foreach my $usr (keys(%loadfile)) { + next if ($usr eq 'global'); + if (!grep(/^${usr}$/, @users)) { + print STDERR "\nAdding user \"${usr}\".\n" if ($verbose); + usradd($usr); + } + foreach my $p (keys(%{$loadfile{$usr}})) { + setusrprop($usr, $p, $loadfile{$usr}->{$p}); + print STDERR "." if (!$verbose); + } + } + print STDERR "done\n" if (!$verbose); + print "Settings loaded, resetting board...\n"; + _cmd("boardreset"); + exit(0); +} + +if ($enable_debug ne '') { + syslog_debug($enable_debug, "TRUE"); +} -syslog_debug("255.255.255.255", "TRUE"); +if ($reset) { + print "hardreset\n" if ($verbose); + serveraction("hardreset"); +} -#Power Mgmt. Pane -setprop("FP_REMOTE_POWER", "TRUE"); +if ($powup) { + powerup(); +} -#server_power_on modes: (com/agilent/rmc/mgui/panels/PowerMgmtConf.class) -#0: l_pmconf_option_disabled -#1: l_pmconf_option_atx -#2: l_pmconf_option_relay -#default: disabled +if ($powdown) { + powerdown(); +} +if ($powcyc) { + powercycle(); +} -#$reqstr=''.$boarddesc_new.''; -#print $reqstr."\n"; -#print Dumper(_req($reqstr)); +if ($showstat) { + status(); +} -serveraction("hardreset"); -powerup(); -powerdown(); -powercycle(); +if ($resetrsbs2) { + print "Resetting board...\n"; + _cmd("boardreset"); + exit(0); +} logout();