X-Git-Url: http://git.zerfleddert.de/cgi-bin/gitweb.cgi/rsbs2/blobdiff_plain/e270bbeb974f5af8bdee73b3958d3ec62bedbbb7..3a88950737f06d296baf044920a263ab10e6fd8a:/rsbs2.pl diff --git a/rsbs2.pl b/rsbs2.pl index bf0bd9d..7f5cc0f 100755 --- a/rsbs2.pl +++ b/rsbs2.pl @@ -15,7 +15,7 @@ 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 @@ -35,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 @@ -151,7 +151,20 @@ sub _req { $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 { @@ -159,6 +172,8 @@ sub _getprop { my $reqstr=''; my $resp = _req($reqstr); + + print "get: ${property}\n" if ($verbose); if ($resp->{RESP}->{RC} ne '0x0') { $resp->{RESP}->{RC}; @@ -194,8 +209,10 @@ sub setprop { 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; } } @@ -275,12 +292,78 @@ sub show_all_vars { } } +sub usrlist { + my $reqstr = ''; + my $res = _req($reqstr); + my @users = (); + + if ($res->{RESP}->{RC} ne '0x0') { + print "FAILED:".$res->{RESP}->{RC}."\n"; + (); + } else { + if (ref($res->{RESP}->{USRLIST}->{USER}) eq 'ARRAY') { + foreach my $usr (@{$res->{RESP}->{USRLIST}->{USER}}) { + push @users, $usr->{NAME}; + } + } else { + push @users, $res->{RESP}->{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; @@ -296,6 +379,53 @@ sub syslog_debug { print "Debug messages will be sent to ${destination_ip} (broadcast: ${bcast})\n"; } +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"; + my $fws = hex ($boardfwstatus); + print "FW status:\t\t"; + if ($fws == 3 || $fws == 32771) { + print "WAITING\n"; + } else { + print "DONE\n"; + } + if (($fws & 0x8080) || ($fws & 0x80)) { + printf("FW error:\t\t0x%02x\n", ($fws & 0xff)); + } + print "boardstatus:\t\t${boardstatus}\n"; + print "boardfwstatus:\t\t${boardfwstatus}\n"; + print "fw upgrade progress:\t${boardfwprogress}\n"; +} + sub login { my $user = shift; my $pass = shift; @@ -328,38 +458,49 @@ sub login { $sid; } -open(INIFILE,"<$ENV{HOME}/.rsbs2rc") || die("can't open config: $ENV{HOME}/.rsbs2rc: $!"); -my %Config = (); -my @sections = (); -while() { - chomp; - - next if (m/^#/); +sub read_inifile { + my $filename = shift; - if (m/^\s*\[(.*)\]\s*$/) { - push @sections, $1; - next; - } - - if (@sections) { - if (m/^\s*(.+)\s*=\s*(.*)\s*$/) { - ${$Config{$sections[$#sections]}}{$1} = $2; + 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; } -close(INIFILE); + +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])) { @@ -399,6 +540,11 @@ while (defined($ARGV[0])) { shift @ARGV; last SWITCH; }; + /^-R$/ && do { + $resetrsbs2 = 1; + shift @ARGV; + last SWITCH; + }; /^-l$/ && do { shift @ARGV; $enable_debug = shift @ARGV; @@ -409,6 +555,16 @@ while (defined($ARGV[0])) { 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; @@ -430,7 +586,7 @@ while (defined($ARGV[0])) { } } -if (!defined(${$Config{$hostalias}}{'host'})) { +if ($valid_arg && (!defined($Config{$hostalias}))) { $valid_arg = 0; } @@ -443,14 +599,17 @@ if (!$valid_arg) { 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 (@sections) { + foreach my $alias (keys(%Config)) { print STDERR "\"${alias}\" "; } print STDERR "(see ~/.rsbs2rc)\n"; @@ -478,16 +637,75 @@ if (@gprop) { if (@sprop) { foreach my $p (@sprop) { (my $pr, $v) = split(/=/,$p,2); - setprop($pr, $v); + my $oldval = setprop($pr, $v); + if (defined($oldval)) { + print "${pr}: ${oldval} -> ${v}\n" if (!$verbose); + } + } +} + +if (@xmlsend) { + foreach my $x (@xmlsend) { + print Dumper(_req(''.$x.'')); } } if ($save ne '') { - print "save: implement me!\n"; + 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'); + + print SAVEFILE $up->{NAME}."=".$up->{VAL}."\n"; + } + print STDERR "." if (!$verbose); + } + close(SAVEFILE); + print STDERR "done\n" if (!$verbose); } if ($load ne '') { - print "load: implement me!\n"; + my %loadfile = read_inifile("${load}"); + print STDERR "loading" if (!$verbose); + + foreach my $p (keys(%{$loadfile{'global'}})) { + setprop($p, $loadfile{'global'}->{$p}); + print STDERR "." if (!$verbose); + } + + 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 '') { @@ -511,4 +729,14 @@ if ($powcyc) { powercycle(); } +if ($showstat) { + status(); +} + +if ($resetrsbs2) { + print "Resetting board...\n"; + _cmd("boardreset"); + exit(0); +} + logout();