git.zerfleddert.de Git - rsbs2/blob - rsbs2.pl

   1 #!/usr/bin/perl -w
   2
   3 use LWP::UserAgent;
   4 use XML::Simple;
   5 use Data::Dumper;
   6 use MIME::Base64;
   7 use Digest::MD5 qw(md5);
   8
   9 my $ua = LWP::UserAgent->new;
  10 my $sid;
  11 my $host;
  12 my $poweronms=200;
  13 my $poweroffms=5000;
  14 my $verbose = 0;
  15
  16 my @fw_vars = qw(ENABLE_LAN_AUTONEG ENABLE_LAN_100 ENABLE_LAN_FDUPLEX GATEWAY
  17         IP_ADDRESS NETMASK TFTP_FIRMWARE_FILE TFTP_ADDR_FIRMWARE ENABLE_DHCP
  18         ENABLE_DNS DNS_SERVER DNS_DOMAIN_NAME
  19         ACCESS_CONTROL_SERVER_1 ACCESS_CONTROL_SERVER_2 ACCESS_CONTROL_SERVERS
  20         ACPI_DISABLE_BIOS_SCAN ACPI_FORCE_RSDP_ADDRESS ACPI_FORCE_RSDT_ADDRESS
  21         ACPI_RSDP_BIOS_ROM_ADDRESS ACPI_SCAN_DELAY_SECONDS AMR_AUTH_METHOD
  22         AMR_DISABLE_PCI AMR_ENABLE_ISCSI_TIMEOUT AMR_ENABLED AMR_HOST_INTERFACE
  23         AMR_SERVER_LIST AMR_USB_FDD_CBI_UFI_TRANSPORT AMR_USB_R2T_TIMEOUT_MSEC
  24         AVR_4BIT_ACTION AVR_4BIT_SAMPLE_TIME AVR_ARCHITECTURE AVR_CHIP_TYPE
  25         AVR_CLIENT_LANGUAGE AVR_DISABLE_SVR_MOUSE_ON_SESSION_START
  26         AVR_KB_VERSION AVR_MAX_SESSION_COUNT AVR_MOUSE_ACCELERATION
  27         AVR_MOUSE_MAX_STEP_SIZE AVR_NUMB_MOUSE_PACKETS
  28         AVR_PCI_PATTERN_HANDS_OFF_ENABLED AVR_PREF_KB_STICKY_KEY_MODE_ON
  29         AVR_PREF_KB_TYPING_MODE_ON AVR_PREF_KB_WARN_UNID_EV
  30         AVR_REGISTERS_BASE_ADDR AVR_RESET_PAUSE AVR_SCREEN_REFRESH
  31         AVR_SUPPORTED_CHIP AVR_TILE_TIMEOUT AVR_VIDEO_MEM_BASE_ADDR BAUDRATE
  32         BAUDRATE_MODEM BAUDRATE_PPP BMC_SUPPORTS_GRACEFULL
  33         BMC_TIMESYNC_INTERVAL CARD_NAME CONSOLE_IPMI_MOUSE_BYTE_TIME
  34         CONSOLE_KEYBOARD_ACCESS_MODE CONSOLE_MOUSE_ACCESS_MODE
  35         CONSOLE_VIDEO_PARAM_MODE CONTACT CONTACT_PHONE CRIT_TEMP_SHUTDOWN
  36         CRIT_VOLT_SHUTDOWN DHCP_ADD_EXTENSION DHCP_ADD_SERIAL
  37         DHCP_CONFIGURE_DNS DHCP_HOSTNAME_EXT DHCP_SERVER DHCP_USE_CARDNAME
  38         DIAG_URL ENABLE_ANON_IPMI ENABLE_ANON_PCI
  39         ENABLE_ANON_WEB ENABLE_AVR_CHIP_DETECT ENABLE_BMC_AUTODETECT
  40         ENABLE_BMC_TIMESYNC ENABLE_CRTC_FETCH ENABLE_DHCP ENABLE_DHCP_HOSTNAME
  41         ENABLE_DS_CONNECTIVITY ENABLE_IO_UART_DECODER ENABLE_LAN_100
  42         ENABLE_LAN_AUTONEG ENABLE_LAN_FDUPLEX ENABLE_MEM_UART_DECODER
  43         ENABLE_PPP ENABLE_REMOTE_FLOPPY_BOOT ENABLE_SELF_DELETE
  44         ENABLE_SERIAL_DBG ETHDRIVER_SID EXPROM_BANNER EXPROM_EBDA_COMPATIBILITY
  45         EXPROM_ENTRY EXPROM_EXIT_DELAY_SEC EXPROM_F3_DELAY_SEC
  46         EXPROM_INT13_COMPATIBILITY EXPROM_SETUP_BANNER FIRMWARE_REVISION
  47         FP_ACDC FP_AMR FP_AVR_ASR FP_AVR_GRAPHIC_CONSOLE FP_AVR_TEXT_CONSOLE
  48         FP_AVRMANCONF_4BIT_SAMPLE FP_AVRMANCONF_ACCESS_MODES FP_AVRMANCONF_CHIP
  49         FP_AVRMANCONF_MOUSE_ACCELERATION FP_AVRMANCONF_MOUSE_TYPE
  50         FP_AVRMANCONF_RESET_PAUSE FP_AVRMANCONF_SCREEN_REFRESH FP_BATTERY
  51         FP_BOARDRESET_BUTTON FP_COMREDIRECT FP_F3_PPP FP_I2C FP_ICMB FP_INSTR
  52         FP_INTERNAL_LAN FP_KEY_CONSOLE FP_LAN_SPEED
  53         FP_LAST_BOARD_POWER_WARNING_ENABLED FP_NO_BLADE_PANEL
  54         FP_NO_CARDCONF_PANEL FP_NO_DIAG_PANEL FP_NO_DSAUTHCONF_PANEL
  55         FP_NO_MANAGE_PANEL FP_NO_MEMORY_PANEL FP_NO_SENSOR_PANEL
  56         FP_NO_SERVERCONF_PANEL FP_NO_SSL_PANEL FP_NO_SYSLOG_PANEL
  57         FP_NO_USERCONF_PANEL FP_PAGING_EMAIL FP_PAGING_SERIAL FP_PAGING_SNMP
  58         FP_PCI_CONFIG FP_PPP FP_PROP_BAUDRATE_REQBOOT FP_PROP_PPP_INIT_REQBOOT
  59         FP_PROP_PS_REQBOOT FP_PROP_TERM_DIRECT_CONNECT_REQBOOT FP_REMOTE_BOOT
  60         FP_REMOTE_DISK FP_REMOTE_POWER FP_SAC_CONSOLE FP_SEL FP_SENSOR_HISTORY
  61         FP_SEQ_SEL FP_SERVER_POWER FP_SERVER_REBOOT FP_SERVER_RESET
  62         FP_SERVER_SHUTDOWN FP_SMM FP_SSL FP_STATUS_DIAG_PANEL
  63         FP_STATUS_MEMORY_PANEL FP_STATUS_PCI_CONFIG FP_STATUS_SAC_CONSOLE
  64         FP_SYSTEM_LAN FP_TEXT_ASR FP_TEXT_CONSOLE FP_TUI FP_VERSION FP_VGA_ASR
  65         FP_VGA_CONSOLE FP_VT100_CONSOLE GATEWAY GATEWAY_MAC
  66         GRATUITOUS_ARP_INTERVAL HELP_LOCATION HIST0_SAMPLE_TIME HIST0_SENSOR_ID
  67         HIST1_SAMPLE_TIME HIST1_SENSOR_ID HIST2_SAMPLE_TIME HIST2_SENSOR_ID
  68         HIST3_SAMPLE_TIME HIST3_SENSOR_ID HTTP_PORT_NUM HTTP_SSL_PORT_NUM
  69         I2C_ADDR_8BIT_CHASSIS_BMC I2C_ADDR_8BIT_MY_BMC I2C_ADDR_8BIT_THIS_CARD
  70         INFOTXT_BPROP_ACCESS INFOTXT_DB_ACCESS IP_ADDRESS IP_ADDRESS_SOURCE
  71         IPMB_RETRY_TIMEOUT IPMB_SEQ_NUM_TIMEOUT IPMB_TX_RETRIES
  72         IPMI_COUNTRY_SELECT IPV4_HEADER_PARAMETERS ISCSI_DEVICE_VENDOR
  73         ISCSI_PRODUCT_EMUL_BD ISCSI_PRODUCT_EMUL_CD ISCSI_PRODUCT_EMUL_FD
  74         LAST_CARD_NAME LAST_ENABLE_DHCP LAST_GATEWAY LAST_IP_ADDRESS
  75         LAST_NETMASK LOCATION MAC_ADDRESS MODEM_CONNECT MODEM_CONNECT2
  76         MODEM_SEPARATOR NETMASK PAGE_RETRIES PAGE_RETRY_DELAY_SEC POST_ERRCODE
  77         POST_PROP PPP_AVAILABLE PPP_INIT PPP_IP_ADDR PPP_NETMASK PPP_PORT
  78         PPP_STATUS PPP_STAY_ALIVE_SECS PPP_WELCOME PPP2_BAUDRATE PPP2_INIT
  79         PPP2_IP_ADDR PPP2_NETMASK PPP2_PORT PPP2_STAY_ALIVE_SECS PRODUCT
  80         PRODUCT_ABBR PS_ASR PS_DISK PS_FAN PS_HARDWARE PS_MEMORY PS_NETWORK
  81         PS_OTHER PS_POST PS_RMC PS_SECURITY PS_SYS_POWER PS_SYS_STATUS
  82         PS_TEMPERATURE PS2_ADAPTER_POWER_UP_MODE PS2_FW_UPDATE_CMD
  83         PS2_FW_UPDATE_IMG_NAME PS2_FW_UPDATE_STATUS RMC_DS_GROUP SAC_PORT
  84         SERVER_CODEPAGE SERVER_HARD_RESET_PULSE_MS SERVER_HARD_RESET_VIA_IPMI
  85         SERVER_ID SERVER_IP SERVER_KEYBOARD SERVER_KEYBOARD_LANGUAGES_LIST
  86         SERVER_MEMORY SERVER_NAME SERVER_POWER_CHANGE_VIA_IPMI
  87         SERVER_POWER_OFF_MODE SERVER_POWER_OFF_PULSE_MS SERVER_POWER_ON_MODE
  88         SERVER_POWER_ON_PULSE_MS SERVER_TIMEZONE SERVER_URL
  89         SESSION_MANAGER_SESSION_TIMEOUT SI_DEF_POLL_INTERVAL_MS
  90         SI_DEF_POLL_OFFSET_MS SMTP_RESP_TIME_SEC SMTP_RETRIES
  91         SMTP_RETRY_DELAY_SEC SMTP_REVERSE_PATH SMTP_SERVER SNMP_AGENT_ENABLED
  92         SNMP_COMMUNITY SNMP_ENTERPRISE_ID SNMP_SERVER SNMP_SERVER_1
  93         SNMP_SERVER_2 SNMP_SERVER_3 SNMP_SERVER_4 SNMP_SERVER_5 SNMP_SERVER_6
  94         SNMP_SERVER_7 SNMP_SERVER_MAC SNMP_SYSOID SNMP_TRAP_MASK
  95         SNMP_TRAP_VERSION SSL_40_OR_128_ENCRYPTION SSL_CAPABLE_FIRMWARE
  96         SSL_ENABLE_ALOG SSL_ENABLE_ALOG_FALLBACK SSL_ENABLE_CLIENT_CERT
  97         SSL_ENABLE_HTTP SSL_ENABLE_HTTPS SSL_ENABLE_NOTIFY
  98         SSL_NOTIFICATION_TIME TELNET_ENABLE TELNET_PORT_NUM
  99         TERMINAL_DIRECT_CONNECT TERMINAL_ENCODING TEXT_CONSOLE_TIMEOUT
 100         TFTP_ADDR_FIRMWARE TFTP_ADDR_REBOOT TFTP_FIRMWARE_FILE TFTP_REBOOT_FILE
 101         TXT_REMOTE_CONSOLE_COLOR_MAP TXT_REMOTE_CONSOLE_FREQ
 102         USB_DEVICE_SETTINGS USE_SERVER_IP_ADDRESS USER_TIMEOUT VENDOR
 103         RMC_AUTODETECT RMC_FUNCTIONS RMC_MODULES AGENT_VERSION BIOS_VER
 104         BOARD_MFT BOARD_MODEL BOARD_PART_NUM BOARD_SERIAL BOARD_VER CAB_MFT
 105         CAB_MODEL CAB_PROD_NUM CAB_PROD_VER CAB_SERIAL CHA_MODEL
 106         CSV_ConfAlarmMailFrom CSV_ConfAlarmMailMessage CSV_ConfAlarmMailSubject
 107         CSV_ConfAlarmMailType CSV_ConfAlarmMailUserInfo0
 108         CSV_ConfAlarmMailUserInfo1 PER_USER_PAGING RMC_SEL_FILTER
 109         SERVER_AD_NAME SERVER_AD_NAME2 SERVER_AD_NAME3 SERVER_AD_NAME4
 110         SERVER_CONTACT SERVER_DESCRIPTION SERVER_IP_ADDRESS SERVER_IP_ADDRESS2
 111         SERVER_IP_ADDRESS3 SERVER_IP_ADDRESS4 SERVER_IP_DHCP SERVER_IP_DHCP2
 112         SERVER_IP_DHCP3 SERVER_IP_DHCP4 SERVER_IP_GATEWAY SERVER_IP_GATEWAY2
 113         SERVER_IP_GATEWAY3 SERVER_IP_GATEWAY4 SERVER_IP_NETMASK
 114         SERVER_IP_NETMASK2 SERVER_IP_NETMASK3 SERVER_IP_NETMASK4
 115         SERVER_LOCATION SERVER_MAC_ADDRESS SERVER_MAC_ADDRESS2
 116         SERVER_MAC_ADDRESS3 SERVER_MAC_ADDRESS4 SERVER_MAX_LAN_ADAPTER
 117         SERVER_OS SERVER_OS_VENDOR);
 118
 119 sub _crc16 {
 120         my $str = shift;
 121         my $crc = 0;
 122         for my $k (0..length($str)-1) {
 123                 $crc ^= ord(substr($str, $k, 1)) << 8;
 124                 for (0..7) {
 125                         $crc = (($crc & 0x8000) == 32768 ? ($crc<<1) ^ 0x1021 : $crc<<1);
 126                 }
 127         }
 128         $crc = $crc & 0xFFFF;
 129         return $crc;
 130 }
 131
 132 sub _hash {
 133         my ($password, $challenge) = @_;
 134         my @challenge_bytes = unpack 'c16', decode_base64($challenge);
 135         my @pwd_hash            = unpack 'c16', md5($password);
 136         my @xor_bytes;
 137         for my $i (0..15) {
 138                 $xor_bytes[$i] = $challenge_bytes[$i] ^ $pwd_hash[$i];
 139         };
 140         my $hash = md5(pack 'c16', @xor_bytes);
 141         my $crc = _crc16($hash);
 142         $hash .= chr($crc & 0xff) . chr($crc >> 8 & 0xff);
 143         return encode_base64($hash, "");
 144 }
 145
 146 sub _req {
 147         my $xml = shift;
 148         $request = HTTP::Request->new(POST => "http://${host}/cgi/bin");
 149         $request->header(Cookie => "sid=$sid");
 150         $request->content_type('application/x-www-form-urlencoded');
 151         $request->content($xml);
 152         $response = $ua->request($request);
 153         die("Error in request: " . $response->status_line . "\n") unless ($response->is_success);
 154         XMLin($response->content, SuppressEmpty => '');
 155 }
 156
 157 sub _getprop {
 158         my $property = shift;
 159
 160         my $reqstr='<?xml version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="propget"><PROPLIST><PROP NAME="'.$property.'"/></PROPLIST></REQ></RMCSEQ>';
 161         my $resp = _req($reqstr);
 162
 163         print "get: ${property}\n" if ($verbose);
 164
 165         if ($resp->{RESP}->{RC} ne '0x0') {
 166                 $resp->{RESP}->{RC};
 167         } else {
 168                 $resp;
 169         }
 170 }
 171
 172 sub logout {
 173         print "Logout\n" if ($verbose);
 174         my $request = HTTP::Request->new(GET => "http://${host}/cgi/logout");
 175         $request->header(Cookie => "sid=$sid");
 176         my $response = $ua->request($request);
 177         die("While trying to logout: " . $response->status_line . "\n") unless ($response->is_success);
 178
 179         my $xmlin = XMLin($response->decoded_content);
 180         die "Error logging out: ".$xmlin->{RC} if ($xmlin->{RC} ne '0x0');
 181 }
 182
 183 sub setprop {
 184         my $property = shift;
 185         my $value = shift;
 186
 187         my $oldval = _getprop($property)->{RESP}->{PROPLIST}->{PROP}->{VAL};
 188
 189         if ($value eq $oldval) {
 190                 print "${property} is already ${value}\n" if ($verbose);
 191                 return;
 192         }
 193
 194         my $reqstr='<?xml version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="propset"><PROP NAME="'.$property.'"><VAL>'.$value.'</VAL></PROP></REQ></RMCSEQ>';
 195         my $res = _req($reqstr);
 196
 197         if ($res->{RESP}->{RC} ne '0x0') {
 198                 print "Error setting ${property} to ${value}: ".$res->{RESP}->{RC}."\n";
 199                 undef;
 200         } else {
 201                 print "${property}: ${oldval} -> ${value}\n" if ($verbose);
 202                 $oldval;
 203         }
 204 }
 205
 206 sub serveraction {
 207         my $action = shift;
 208
 209         my $pmode = 2;
 210
 211         setprop("SERVER_HARD_RESET_VIA_IPMI", "FALSE");
 212         setprop("SERVER_POWER_CHANGE_VIA_IPMI", "FALSE");
 213         #PM Mode
 214         setprop("SERVER_POWER_ON_MODE", sprintf("0x%x", $pmode));
 215         setprop("SERVER_POWER_OFF_MODE", sprintf("0x%x", $pmode));
 216
 217         print "${action}...\n" if ($verbose);
 218         my $reqstr='<?xml version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="serveraction"><ACT>'.$action.'</ACT></REQ></RMCSEQ>';
 219         my $res = _req($reqstr);
 220
 221         if ($res->{RESP}->{RC} ne '0x0') {
 222                 print "FAILED:".$res->{RESP}->{RC}."\n";
 223         }
 224 }
 225
 226 sub powerup {
 227         print "powerup\n" if ($verbose);
 228         setprop("SERVER_POWER_ON_PULSE_MS", sprintf("0x%x", $poweronms));
 229         setprop("SERVER_POWER_OFF_PULSE_MS", "0x0");
 230         serveraction("powercycle");
 231 }
 232
 233 sub powerdown {
 234         print "powerdown\n" if ($verbose);
 235         setprop("SERVER_POWER_ON_PULSE_MS", "0x0");
 236         setprop("SERVER_POWER_OFF_PULSE_MS", sprintf("0x%x", $poweroffms));
 237         serveraction("powercycle");
 238 }
 239
 240 sub powercycle {
 241         print "powercycle\n" if ($verbose);
 242         setprop("SERVER_POWER_ON_PULSE_MS", sprintf("0x%x", $poweronms));
 243         setprop("SERVER_POWER_OFF_PULSE_MS", sprintf("0x%x", $poweroffms));
 244         serveraction("powercycle");
 245 }
 246
 247 sub showprop {
 248         my $property = shift;
 249
 250         my $phash = _getprop($property)->{RESP}->{PROPLIST}->{PROP};
 251
 252         print "${property}: " . ${phash}->{VAL} . " (" . ${phash}->{PERMS} . ")\n";
 253 }
 254
 255 sub board_properties {
 256         my $reqstr='<?xml version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="boardpropget"><PROPLIST><PROP NAME=""/></PROPLIST></REQ></RMCSEQ>';
 257         my $resp = _req($reqstr);
 258
 259         print " * Board Properties:\n";
 260         foreach my $bprop (@{$resp->{RESP}->{BPROPLIST}->{BPROP}}) {
 261                 print " * " . ${bprop}->{NAME} . ": " . ${bprop}->{VAL} . "\n";
 262         }
 263 }
 264
 265 sub show_boarddesc {
 266         my $reqstr='<?xml version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="boardpropget"><BPROPLIST><BPROP NAME="BOARD_DESCRIPTION"/></BPROPLIST></REQ></RMCSEQ>';
 267         my $boarddesc64 = _req($reqstr)->{RESP}->{BPROPLIST}->{BPROP}->{VAL};
 268         my $boarddesc = decode_base64($boarddesc64);
 269         my @board = split(//, $boarddesc);
 270         foreach my $byte (@board) {
 271                 printf ("0x%02x ", ord($byte));
 272 }
 273 print "\n";
 274 }
 275
 276 sub show_all_vars {
 277         foreach my $fwvar (@fw_vars) {
 278                 showprop($fwvar);
 279         }
 280 }
 281
 282 sub usrlist {
 283         my $reqstr = '<?XML version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="usrlist"></REQ></RMCSEQ>';
 284         my $res = _req($reqstr);
 285         my @users = ();
 286
 287         if ($res->{RESP}->{RC} ne '0x0') {
 288                 print "FAILED:".$res->{RESP}->{RC}."\n";
 289                 ();
 290         } else {
 291                 foreach my $usr (@{$res->{RESP}->{USRLIST}->{USER}}) {
 292                         push @users, $usr->{NAME};
 293                 }
 294         }
 295         @users;
 296 }
 297
 298 sub syslog_debug {
 299         my $destination_ip = shift;
 300         my $bcast = shift;
 301
 302         $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>';
 303         $res = _req($reqstr);
 304         if ($res->{RESP}->{RC} ne '0x0') {
 305                 print "FAILED:".$res->{RESP}->{RC}."\n";
 306                 return;
 307         }
 308
 309         $reqstr='<?XML version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="dbgmsgcfg"><ON>TRUE</ON><CHANNELMASK>0x1</CHANNELMASK><MMASK>0x1</MMASK><STORE>FALSE</STORE></REQ></RMCSEQ>';
 310         $res = _req($reqstr);
 311         if ($res->{RESP}->{RC} ne '0x0') {
 312                 print "FAILED:".$res->{RESP}->{RC}."\n";
 313                 return;
 314         }
 315
 316         print "Debug messages will be sent to ${destination_ip} (broadcast: ${bcast})\n";
 317 }
 318
 319 sub login {
 320         my $user = shift;
 321         my $pass = shift;
 322
 323         my $response = $ua->get("http://${host}/cgi/challenge");
 324         die $response->status_line if (!($response->is_success));
 325
 326         my $xmlin = XMLin($response->decoded_content);
 327         die "Error getting Challenge: ".$xmlin->{RC} if ($xmlin->{RC} ne '0x0');
 328         my $challenge = $xmlin->{CHALLENGE};
 329         print "Challenge: ${challenge}\n" if ($verbose);
 330
 331         $sid = $response->headers->header('Set-Cookie');
 332         die "No SessionID!" if (!defined($sid));
 333         chomp($sid);
 334         $sid =~ s/.*sid=(.*);.*/$1/;
 335         print "SID: ${sid}\n" if ($verbose);
 336
 337         my $login_hash = _hash($pass, $challenge);
 338         print "Hash: ${login_hash}\n" if ($verbose);
 339
 340         my $request = HTTP::Request->new(GET => "http://${host}/cgi/login?user=${user}&hash=${login_hash}");
 341         $request->header(Cookie => "sid=$sid");
 342         $response = $ua->request($request);
 343         die("While trying to login: " . $response->status_line . "\n") unless ($response->is_success);
 344
 345         $xmlin = XMLin($response->decoded_content);
 346         die "Error logging in: ".$xmlin->{RC} if ($xmlin->{RC} ne '0x0');
 347
 348         $sid;
 349 }
 350
 351 open(INIFILE,"<$ENV{HOME}/.rsbs2rc") || die("can't open config: $ENV{HOME}/.rsbs2rc: $!");
 352 my %Config = ();
 353 my @sections = ();
 354 while(<INIFILE>) {
 355         chomp;
 356
 357         next if (m/^#/);
 358
 359         if (m/^\s*\[(.*)\]\s*$/) {
 360                 push @sections, $1;
 361                 next;
 362         }
 363
 364         if (@sections) {
 365                 if (m/^\s*(.+)\s*=\s*(.*)\s*$/) {
 366                         ${$Config{$sections[$#sections]}}{$1} = $2;
 367                 }
 368         }
 369 }
 370 close(INIFILE);
 371
 372 my $valid_arg = 0;
 373 my $powup = 0;
 374 my $powdown = 0;
 375 my $powcyc = 0;
 376 my $reset = 0;
 377 my @sprop = ();
 378 my @gprop = ();
 379 my $show = 0;
 380 my $enable_debug = "";
 381 my $save = "";
 382 my $load = "";
 383 my $hostalias;
 384
 385 while (defined($ARGV[0])) {
 386         SWITCH: for ($ARGV[0]) {
 387                 /^-v$/  && do {
 388                                 $verbose = 1;
 389                                 shift @ARGV;
 390                                 last SWITCH;
 391                         };
 392                 /^-g$/ && do {
 393                                 shift @ARGV;
 394                                 push @gprop, shift @ARGV;
 395                                 last SWITCH;
 396                         };
 397                 /^-s$/ && do {
 398                                 shift @ARGV;
 399                                 push @sprop, shift @ARGV;
 400                                 last SWITCH;
 401                         };
 402                 /^-u$/ && do {
 403                                 $powup = 1;
 404                                 shift @ARGV;
 405                                 last SWITCH;
 406                         };
 407                 /^-d$/ && do {
 408                                 $powdown = 1;
 409                                 shift @ARGV;
 410                                 last SWITCH;
 411                         };
 412                 /^-c$/ && do {
 413                                 $powcyc = 1;
 414                                 shift @ARGV;
 415                                 last SWITCH;
 416                         };
 417                 /^-r$/ && do {
 418                                 $reset = 1;
 419                                 shift @ARGV;
 420                                 last SWITCH;
 421                         };
 422                 /^-l$/ && do {
 423                                 shift @ARGV;
 424                                 $enable_debug = shift @ARGV;
 425                                 last SWITCH;
 426                         };
 427                 /^-x$/ && do {
 428                                 $show = 1;
 429                                 shift @ARGV;
 430                                 last SWITCH;
 431                         };
 432                 /^-save$/ && do {
 433                                 shift @ARGV;
 434                                 $save = shift @ARGV;
 435                                 last SWITCH;
 436                         };
 437                 /^-load$/ && do {
 438                                 shift @ARGV;
 439                                 $load = shift @ARGV;
 440                                 last SWITCH;
 441                         };
 442
 443                 if (defined($ARGV[0])) {
 444                         $hostalias = $ARGV[0];
 445                         shift(@ARGV);
 446                         $valid_arg = 1;
 447                 }
 448
 449                 while ( defined($ARGV[0]) ) { $valid_arg = 0; shift(@ARGV); }
 450         }
 451 }
 452
 453 if ($valid_arg && (!defined(${$Config{$hostalias}}{'host'}))) {
 454         $valid_arg = 0;
 455 }
 456
 457 if (!$valid_arg) {
 458         print STDERR "Usage: $0 options card-alias\n";
 459         print STDERR "Options:\n";
 460         print STDERR "\t-g property\tget property value\n";
 461         print STDERR "\t-s property=val\tset property value\n";
 462         print STDERR "\t-u\t\tpowerup\n";
 463         print STDERR "\t-d\t\tpowerdown\n";
 464         print STDERR "\t-c\t\tpowercycle\n";
 465         print STDERR "\t-r\t\treset\n";
 466         print STDERR "\t-x\t\tshow all properties, variables and settings\n";
 467         print STDERR "\t-l IP\t\tsend SYSLOG debug messages to IP\n";
 468         print STDERR "\t-v\t\tverbose\n";
 469         print STDERR "\t-save file\tsave configuration to 'file'\n";
 470         print STDERR "\t-load file\tload configuration from 'file'\n";
 471         print STDERR "\n";
 472         print STDERR "card-alias\tone of: ";
 473         foreach my $alias (@sections) {
 474                 print STDERR "\"${alias}\" ";
 475         }
 476         print STDERR "(see ~/.rsbs2rc)\n";
 477         exit(1);
 478 }
 479
 480 $host = ${$Config{$hostalias}}{"host"};
 481 $poweronms = ${$Config{$hostalias}}{"poweronms"} if (defined(${$Config{$hostalias}}{"poweronms"}));
 482 $poweroffms = ${$Config{$hostalias}}{"poweroffms"} if (defined(${$Config{$hostalias}}{"poweroffms"}));
 483
 484 $sid = login(${$Config{$hostalias}}{"user"}, ${$Config{$hostalias}}{"pass"});
 485
 486 if ($show) {
 487         show_boarddesc();
 488         board_properties();
 489         show_all_vars();
 490 }
 491
 492 if (@gprop) {
 493         foreach my $p (@gprop) {
 494                 showprop($p);
 495         }
 496 }
 497
 498 if (@sprop) {
 499         foreach my $p (@sprop) {
 500                 (my $pr, $v) = split(/=/,$p,2);
 501                 my $oldval = setprop($pr, $v);
 502                 if (defined($oldval)) {
 503                         print "${pr}: ${oldval} -> ${v}\n" if (!$verbose);
 504                 }
 505         }
 506 }
 507
 508 if ($save ne '') {
 509         my @dontsave = qw(ENABLE_LAN_AUTONEG ENABLE_LAN_100 ENABLE_LAN_FDUPLEX
 510         GATEWAY IP_ADDRESS NETMASK TFTP_FIRMWARE_FILE TFTP_ADDR_FIRMWARE
 511         ENABLE_DHCP MAC_ADDRESS LAST_CARD_NAME LAST_ENABLE_DHCP LAST_GATEWAY
 512         LAST_IP_ADDRESS LAST_NETMASK);
 513
 514         open (SAVEFILE, ">${save}") || die "Error opening save-file: $!\n";
 515         print STDERR "saving" if (!$verbose);
 516         foreach my $ts (@fw_vars) {
 517                 next if (grep(/^${ts}$/, @dontsave));
 518
 519                 my $phash = _getprop($ts)->{RESP}->{PROPLIST}->{PROP};
 520                 next if ($phash->{PERMS} ne 'RW');
 521
 522                 print SAVEFILE "${ts}=".$phash->{VAL}."\n";
 523                 print STDERR "." if (!$verbose);
 524         }
 525         foreach my $usr (usrlist()) {
 526                 print STDERR "TODO: save user ${usr}\n";
 527         }
 528         close(SAVEFILE);
 529         print STDERR "done\n" if (!$verbose);
 530 }
 531
 532 if ($load ne '') {
 533         open (LOADFILE, "<${load}") || die "Error opening load-file: $!\n";
 534         print STDERR "loading" if (!$verbose);
 535         while(<LOADFILE>) {
 536                 chomp;
 537                 (my $p, my $v) = split(/=/, $_);
 538                 setprop($p, $v);
 539                 print STDERR "." if (!$verbose);
 540         }
 541         close(LOADFILE);
 542         print STDERR "done\n" if (!$verbose);
 543         print "Settings loaded, resetting board...\n";
 544         my $reqstr='<?XML version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="boardreset"></REQ></RMCSEQ>';
 545         _req($reqstr);
 546         exit(0);
 547 }
 548
 549 if ($enable_debug ne '') {
 550         syslog_debug($enable_debug, "TRUE");
 551 }
 552
 553 if ($reset) {
 554         print "hardreset\n" if ($verbose);
 555         serveraction("hardreset");
 556 }
 557
 558 if ($powup) {
 559         powerup();
 560 }
 561
 562 if ($powdown) {
 563         powerdown();
 564 }
 565
 566 if ($powcyc) {
 567         powercycle();
 568 }
 569
 570 logout();