X-Git-Url: http://git.zerfleddert.de/cgi-bin/gitweb.cgi/rsbs2/blobdiff_plain/bd1a6723bafed30d7edd496f3cdf530472b89798..e7e46551e4218e6191c676852563d6ccbc098762:/rsbs2.pl diff --git a/rsbs2.pl b/rsbs2.pl index 5255b58..35f836a 100755 --- a/rsbs2.pl +++ b/rsbs2.pl @@ -9,10 +9,13 @@ use Digest::MD5 qw(md5); my $ua = LWP::UserAgent->new; my $sid; my $host; +my $poweronms=200; +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 @@ -32,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 @@ -148,7 +151,7 @@ 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 _getprop { @@ -156,6 +159,8 @@ sub _getprop { my $reqstr=''; my $resp = _req($reqstr); + + print "get: ${property}\n" if ($verbose); if ($resp->{RESP}->{RC} ne '0x0') { $resp->{RESP}->{RC}; @@ -165,7 +170,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); @@ -182,7 +187,7 @@ 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; } @@ -191,15 +196,25 @@ 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"; + print "${property}: ${oldval} -> ${value}\n" if ($verbose); + $oldval; } } sub serveraction { my $action = shift; - print "${action}...\n"; + my $pmode = 2; + + setprop("SERVER_HARD_RESET_VIA_IPMI", "FALSE"); + setprop("SERVER_POWER_CHANGE_VIA_IPMI", "FALSE"); + #PM Mode + setprop("SERVER_POWER_ON_MODE", sprintf("0x%x", $pmode)); + setprop("SERVER_POWER_OFF_MODE", sprintf("0x%x", $pmode)); + + print "${action}...\n" if ($verbose); my $reqstr=''.$action.''; my $res = _req($reqstr); @@ -208,6 +223,27 @@ 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"); +} + sub showprop { my $property = shift; @@ -243,12 +279,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; @@ -274,16 +376,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"); @@ -296,74 +398,249 @@ 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; - next if (m/^#/); - - if (m/^\s*\[(.*)\]\s*$/) { - push @sections, $1; - next; + 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; +} - if (@sections) { - if (m/^\s*(.+)\s*=\s*(.*)\s*$/) { - ${$Config{$sections[$#sections]}}{$1} = $2; +my %Config = read_inifile("$ENV{HOME}/.rsbs2rc"); + +my $valid_arg = 0; +my $powup = 0; +my $powdown = 0; +my $powcyc = 0; +my $reset = 0; +my @sprop = (); +my @gprop = (); +my $show = 0; +my $enable_debug = ""; +my $save = ""; +my $load = ""; +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; + }; + /^-l$/ && do { + shift @ARGV; + $enable_debug = shift @ARGV; + last SWITCH; + }; + /^-x$/ && do { + $show = 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; } + + while ( defined($ARGV[0]) ) { $valid_arg = 0; shift(@ARGV); } } } -close(INIFILE); -$host = ${$Config{$sections[0]}}{"host"}; +if ($valid_arg && (!defined(${$Config{$hostalias}}{'host'}))) { + $valid_arg = 0; +} -$sid = login(${$Config{$sections[0]}}{"user"}, ${$Config{$sections[0]}}{"pass"}); +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-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-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); +} -show_boarddesc(); +$host = ${$Config{$hostalias}}{"host"}; +$poweronms = ${$Config{$hostalias}}{"poweronms"} if (defined(${$Config{$hostalias}}{"poweronms"})); +$poweroffms = ${$Config{$hostalias}}{"poweroffms"} if (defined(${$Config{$hostalias}}{"poweroffms"})); -#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"); +$sid = login(${$Config{$hostalias}}{"user"}, ${$Config{$hostalias}}{"pass"}); -board_properties(); +if ($show) { + show_boarddesc(); + board_properties(); + show_all_vars(); +} -#show_all_vars(); +if (@gprop) { + foreach my $p (@gprop) { + showprop($p); + } +} -syslog_debug("255.255.255.255", "TRUE"); +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); + } + } +} -#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 ($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'); -my $pmode = 2; + print SAVEFILE $up->{NAME}."=".$up->{VAL}."\n"; + } + print STDERR "." if (!$verbose); + } + close(SAVEFILE); + print STDERR "done\n" if (!$verbose); +} -setprop("SERVER_HARD_RESET_VIA_IPMI", "FALSE"); -setprop("SERVER_POWER_CHANGE_VIA_IPMI", "FALSE"); -#Power Mgmt. Pane -setprop("FP_REMOTE_POWER", "TRUE"); -#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"); +if ($load ne '') { + my %loadfile = read_inifile("${load}"); + print STDERR "loading" if (!$verbose); -#$reqstr=''.$boarddesc_new.''; -#print $reqstr."\n"; -#print Dumper(_req($reqstr)); + foreach my $p (keys(%{$loadfile{'global'}})) { + setprop($p, $loadfile{'global'}->{$p}); + print STDERR "." if (!$verbose); + } -serveraction("hardreset"); -serveraction("powerup"); -serveraction("powerdown"); -serveraction("powercycle"); + 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"; + my $reqstr=''; + _req($reqstr); + exit(0); +} + +if ($enable_debug ne '') { + syslog_debug($enable_debug, "TRUE"); +} + +if ($reset) { + print "hardreset\n" if ($verbose); + serveraction("hardreset"); +} + +if ($powup) { + powerup(); +} + +if ($powdown) { + powerdown(); +} + +if ($powcyc) { + powercycle(); +} logout();