]> git.zerfleddert.de Git - rsbs2/blob - rsbs2.pl
96540464b67c6fd4973fe18ed850874c8a028564
[rsbs2] / 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 version="1.0"?><?RMCXML version="1.0"?><RMCSEQ>'.$xml.'</RMCSEQ>');
152 $response = $ua->request($request);
153 die("Error in request: " . $response->status_line . "\n") unless ($response->is_success);
154 XMLin($response->content, SuppressEmpty => '')->{RESP};
155 }
156
157 sub _cmd {
158 my $cmd = shift;
159
160 my $reqstr='<REQ CMD="'.$cmd.'"></REQ>';
161 my $res = _req($reqstr);
162 if ($res->{RC} ne '0x0') {
163 print "${cmd} failed: ".$res->{RC}."\n";
164 undef;
165 }
166
167 $res;
168 }
169
170 sub _getprop {
171 my $property = shift;
172
173 my $reqstr='<REQ CMD="propget"><PROPLIST><PROP NAME="'.$property.'"/></PROPLIST></REQ>';
174 my $resp = _req($reqstr);
175
176 print "get: ${property}\n" if ($verbose);
177
178 if ($resp->{RC} ne '0x0') {
179 $resp->{RC};
180 } else {
181 $resp;
182 }
183 }
184
185 sub logout {
186 print "Logout\n" if ($verbose);
187 my $request = HTTP::Request->new(GET => "http://${host}/cgi/logout");
188 $request->header(Cookie => "sid=$sid");
189 my $response = $ua->request($request);
190 die("While trying to logout: " . $response->status_line . "\n") unless ($response->is_success);
191
192 my $xmlin = XMLin($response->decoded_content);
193 die "Error logging out: ".$xmlin->{RC} if ($xmlin->{RC} ne '0x0');
194 }
195
196 sub setprop {
197 my $property = shift;
198 my $value = shift;
199
200 my $oldval = _getprop($property)->{PROPLIST}->{PROP}->{VAL};
201
202 if ($value eq $oldval) {
203 print "${property} is already ${value}\n" if ($verbose);
204 return;
205 }
206
207 my $reqstr='<REQ CMD="propset"><PROP NAME="'.$property.'"><VAL>'.$value.'</VAL></PROP></REQ>';
208 my $res = _req($reqstr);
209
210 if ($res->{RC} ne '0x0') {
211 print "Error setting ${property} to ${value}: ".$res->{RC}."\n";
212 undef;
213 } else {
214 print "${property}: ${oldval} -> ${value}\n" if ($verbose);
215 $oldval;
216 }
217 }
218
219 sub serveraction {
220 my $action = shift;
221
222 my $pmode = 2;
223
224 setprop("SERVER_HARD_RESET_VIA_IPMI", "FALSE");
225 setprop("SERVER_POWER_CHANGE_VIA_IPMI", "FALSE");
226 #PM Mode
227 setprop("SERVER_POWER_ON_MODE", sprintf("0x%x", $pmode));
228 setprop("SERVER_POWER_OFF_MODE", sprintf("0x%x", $pmode));
229
230 print "${action}...\n" if ($verbose);
231 my $reqstr='<REQ CMD="serveraction"><ACT>'.$action.'</ACT></REQ>';
232 my $res = _req($reqstr);
233
234 if ($res->{RC} ne '0x0') {
235 print "FAILED:".$res->{RC}."\n";
236 }
237 }
238
239 sub powerup {
240 print "powerup\n" if ($verbose);
241 setprop("SERVER_POWER_ON_PULSE_MS", sprintf("0x%x", $poweronms));
242 setprop("SERVER_POWER_OFF_PULSE_MS", "0x0");
243 serveraction("powercycle");
244 }
245
246 sub powerdown {
247 print "powerdown\n" if ($verbose);
248 setprop("SERVER_POWER_ON_PULSE_MS", "0x0");
249 setprop("SERVER_POWER_OFF_PULSE_MS", sprintf("0x%x", $poweroffms));
250 serveraction("powercycle");
251 }
252
253 sub powercycle {
254 print "powercycle\n" if ($verbose);
255 setprop("SERVER_POWER_ON_PULSE_MS", sprintf("0x%x", $poweronms));
256 setprop("SERVER_POWER_OFF_PULSE_MS", sprintf("0x%x", $poweroffms));
257 serveraction("powercycle");
258 }
259
260 sub showprop {
261 my $property = shift;
262
263 my $phash = _getprop($property)->{PROPLIST}->{PROP};
264
265 print "${property}: " . ${phash}->{VAL} . " (" . ${phash}->{PERMS} . ")\n";
266 }
267
268 sub board_properties {
269 my $reqstr='<REQ CMD="boardpropget"><PROPLIST><PROP NAME=""/></PROPLIST></REQ>';
270 my $resp = _req($reqstr);
271
272 print " * Board Properties:\n";
273 foreach my $bprop (@{$resp->{BPROPLIST}->{BPROP}}) {
274 print " * " . ${bprop}->{NAME} . ": " . ${bprop}->{VAL} . "\n";
275 }
276 }
277
278 sub show_boarddesc {
279 my $reqstr='<REQ CMD="boardpropget"><BPROPLIST><BPROP NAME="BOARD_DESCRIPTION"/></BPROPLIST></REQ>';
280 my $boarddesc64 = _req($reqstr)->{BPROPLIST}->{BPROP}->{VAL};
281 my $boarddesc = decode_base64($boarddesc64);
282 my @board = split(//, $boarddesc);
283 foreach my $byte (@board) {
284 printf ("0x%02x ", ord($byte));
285 }
286 print "\n";
287 }
288
289 sub show_all_vars {
290 foreach my $fwvar (@fw_vars) {
291 showprop($fwvar);
292 }
293 }
294
295 sub usrlist {
296 my $res = _cmd("usrlist");
297 my @users = ();
298
299 if ($res->{RC} ne '0x0') {
300 print "FAILED:".$res->{RC}."\n";
301 ();
302 } else {
303 if (ref($res->{USRLIST}->{USER}) eq 'ARRAY') {
304 foreach my $usr (@{$res->{USRLIST}->{USER}}) {
305 push @users, $usr->{NAME};
306 }
307 } else {
308 push @users, $res->{USRLIST}->{USER}->{NAME};
309 }
310 }
311 @users;
312 }
313
314 sub getusrprops {
315 my $usr = shift;
316
317 my $reqstr = '<REQ CMD="usrpropget"><USER NAME="'.$usr.'"></USER></REQ>';
318 my $res = _req($reqstr)->{USER}->{PROP};
319
320 $res;
321 }
322
323 sub usradd {
324 my $usr = shift;
325
326 my $reqstr='<REQ CMD="usradd"><USER NAME="'.$usr.'"/></REQ>';
327 my $res = _req($reqstr);
328 if ($res->{RC} ne '0x0') {
329 print "FAILED:".$res->{RC}."\n";
330 }
331 }
332
333 sub setusrprop {
334 my $usr = shift;
335 my $property = shift;
336 my $value = shift;
337
338 my $reqstr='<REQ CMD="usrpropget"><USER NAME="'.$usr.'"><PROP NAME="'.$property.'"></PROP></USER></REQ>';
339 my $res = _req($reqstr);
340
341 my $oldval = ${res}->{USER}->{PROP}->{VAL};
342
343 if ($value eq $oldval) {
344 print "${property} is already ${value}\n" if ($verbose);
345 return;
346 }
347
348 $reqstr='<REQ CMD="usrpropset"><USER NAME="'.$usr.'"><PROP NAME="'.$property.'"><VAL>'.$value.'</VAL></PROP></USER></REQ>';
349 $res = _req($reqstr);
350
351 if ($res->{RC} ne '0x0') {
352 print "Error setting ${property} to ${value}: ".$res->{RC}."\n";
353 undef;
354 } else {
355 print "${property}: ${oldval} -> ${value}\n" if ($verbose);
356 $oldval;
357 }
358 }
359
360 sub syslog_debug {
361 my $destination_ip = shift;
362 my $bcast = shift;
363
364 my $reqstr='<REQ CMD="dbgmsglancfg"><IP>'.${destination_ip}.'</IP><BCAST>'.${bcast}.'</BCAST><STORE>FALSE</STORE></REQ>';
365 my $res = _req($reqstr);
366 if ($res->{RC} ne '0x0') {
367 print "FAILED:".$res->{RC}."\n";
368 return;
369 }
370
371 $reqstr='<REQ CMD="dbgmsgcfg"><ON>TRUE</ON><CHANNELMASK>0x1</CHANNELMASK><MMASK>0x1</MMASK><STORE>FALSE</STORE></REQ>';
372 $res = _req($reqstr);
373 if ($res->{RC} ne '0x0') {
374 print "FAILED:".$res->{RC}."\n";
375 return;
376 }
377
378 print "Debug messages will be sent to ${destination_ip} (broadcast: ${bcast})\n";
379 }
380
381 sub get_sensors {
382 my $slist= _cmd("sensorlist");
383 my @sensors;
384
385 if ($slist->{RC} ne '0x0') {
386 print "Error getting sensorlist: ".$slist->{RC}."\n";
387 return;
388 }
389
390 my $req = '<REQ CMD="sensorpropget"><HANDLE>0x1</HANDLE><SENSORLIST>';
391 foreach my $s (@{$slist->{SENSORLIST}->{SENSOR}}) {
392 $req .= '<SENSOR KEY="'.$s->{KEY}.'"/>';
393 }
394 $req .= '</SENSORLIST></REQ>';
395
396 my $sprop = _req($req);
397 foreach my $s (@{$sprop->{SENSORLIST}->{SENSOR}}) {
398 my $sensor = {};
399 foreach my $sp (@{$s->{PROP}}) {
400 $sensor->{$sp->{NAME}} = $sp->{VAL};
401 }
402
403 next if (!defined($sensor->{NAME}));
404 $sensor->{VAL} = '0' if ($sensor->{VAL} eq '');
405 push @sensors, $sensor;
406 }
407 @sensors;
408 }
409
410 sub show_sensors {
411 my @sensors = get_sensors();
412
413 foreach my $sensor (@sensors) {
414 print $sensor->{NAME}.": ".$sensor->{VAL}.$sensor->{UNITS};
415
416 my @info = ();
417 foreach my $field qw(MIN MAX LOW_NON_CRITICAL UPPER_NON_CRITICAL LOW_CRITICAL UPPER_CRITICAL) {
418 if ($sensor->{$field} ne '') {
419 push @info, "${field}: ".$sensor->{$field}.$sensor->{UNITS};
420 }
421 }
422
423 print "\t(".join(", ",@info).")" if (@info);
424
425 print "\n";
426 }
427 }
428
429 sub status {
430 my $boardstatus = _cmd("boardstatus")->{STATUS};
431 my $fw = _cmd("boardfwstatus");
432 my $boardfwstatus = $fw->{STATUS};
433 my $boardfwprogress = $fw->{PROGRESS};
434 $bs = hex($boardstatus);
435
436 print "Server Power:\t\t" . (($bs & 0x01) ? "ON" : "OFF") . "\n";
437 print "External PSU:\t\t" . (($bs & 0x02) ? "ON" : "OFF") . "\n";
438 print "Battery:\t\t";
439 if ($bs & 0x04) {
440 if ($bs & 0x08) {
441 print "LOW\n";
442 } elsif ($bs & 0x800) {
443 print "ON\n";
444 } else {
445 print "UNKNOWN\n";
446 }
447 } else {
448 print "OFF\n";
449 }
450 print "Standby Power:\t\t" . (($bs & 0x08) ? "ON" : "OFF") . "\n";
451 print "LAN:\t\t\t" . (($bs & 0x10) ? "CONNECTED" : "NC") . "\n";
452 print "I2C:\t\t\t" . (($bs & 0x20) ? "CONNECTED" : "NC") . "\n";
453 print "SMM:\t\t\t" . (($bs & 0x40) ? "CONNECTED" : "NC") . "\n";
454 print "Instrumentation:\t" . (($bs & 0x200) ? "CONNECTED" : "NC") . "\n";
455 print "ICMB:\t\t\t" . (($bs & 0x400) ? "CONNECTED" : "NC") . "\n";
456 print "PPP:\t\t\t" . (($bs & 0x10000) ? "ON" : "OFF") . "\n";
457 print "Paging:\t\t\t" . (($bs & 0x20000) ? "ON" : "OFF") . "\n";
458 print "COM redirection:\t" . (($bs & 0x100000) ? "ON" : "OFF") . "\n";
459 print "UART redirect:\t\t" . (($bs & 0x200000) ? "ON" : "OFF") . "\n";
460 print "UART redirect pending:\t" . (($bs & 0x400000) ? "TRUE" : "FALSE") . "\n";
461 print "Hex BoardStatus:\t${boardstatus}\n";
462 my $fws = hex ($boardfwstatus);
463 print "FW status:\t\t";
464 if ($fws == 3 || $fws == 32771) {
465 print "WAITING";
466 } else {
467 print "DONE";
468 }
469 print " (${boardfwstatus})\n";
470 if (($fws & 0x8080) || ($fws & 0x80)) {
471 printf("FW error:\t\t0x%02x\n", ($fws & 0xff));
472 }
473 if ($fws != 0) {
474 print "FW upgrade progress:\t${boardfwprogress}\n";
475 }
476 print "\nSensors:\n";
477 show_sensors();
478 }
479
480 sub login {
481 my $user = shift;
482 my $pass = shift;
483
484 my $response = $ua->get("http://${host}/cgi/challenge");
485 die $response->status_line if (!($response->is_success));
486
487 my $xmlin = XMLin($response->decoded_content);
488 die "Error getting Challenge: ".$xmlin->{RC} if ($xmlin->{RC} ne '0x0');
489 my $challenge = $xmlin->{CHALLENGE};
490 print "Challenge: ${challenge}\n" if ($verbose);
491
492 $sid = $response->headers->header('Set-Cookie');
493 die "No SessionID!" if (!defined($sid));
494 chomp($sid);
495 $sid =~ s/.*sid=(.*);.*/$1/;
496 print "SID: ${sid}\n" if ($verbose);
497
498 my $login_hash = _hash($pass, $challenge);
499 print "Hash: ${login_hash}\n" if ($verbose);
500
501 my $request = HTTP::Request->new(GET => "http://${host}/cgi/login?user=${user}&hash=${login_hash}");
502 $request->header(Cookie => "sid=$sid");
503 $response = $ua->request($request);
504 die("While trying to login: " . $response->status_line . "\n") unless ($response->is_success);
505
506 $xmlin = XMLin($response->decoded_content);
507 die "Error logging in: ".$xmlin->{RC} if ($xmlin->{RC} ne '0x0');
508
509 $sid;
510 }
511
512 sub read_inifile {
513 my $filename = shift;
514
515 open(INIFILE,"<${filename}") || die("can't open config: ${filename}: $!");
516 my %Ini = ();
517 my @sections = ();
518 while(<INIFILE>) {
519 chomp;
520
521 next if (m/^#/);
522
523 if (m/^\s*\[(.*)\]\s*$/) {
524 push @sections, $1;
525 next;
526 }
527
528 if (@sections) {
529 if (m/^\s*([^=]+)\s*=\s*(.*)\s*$/) {
530 ${$Ini{$sections[$#sections]}}{$1} = $2;
531 }
532 }
533 }
534 close(INIFILE);
535
536 %Ini;
537 }
538
539 my %Config = read_inifile("$ENV{HOME}/.rsbs2rc");
540
541 my $valid_arg = 0;
542 my $powup = 0;
543 my $powdown = 0;
544 my $powcyc = 0;
545 my $reset = 0;
546 my $resetrsbs2 = 0;
547 my @sprop = ();
548 my @gprop = ();
549 my @xmlsend = ();
550 my $show = 0;
551 my $enable_debug = "";
552 my $save = "";
553 my $load = "";
554 my $showstat = 0;
555 my $gui = 0;
556 my $hostalias;
557
558 while (defined($ARGV[0])) {
559 SWITCH: for ($ARGV[0]) {
560 /^-v$/ && do {
561 $verbose = 1;
562 shift @ARGV;
563 last SWITCH;
564 };
565 /^-g$/ && do {
566 shift @ARGV;
567 push @gprop, shift @ARGV;
568 last SWITCH;
569 };
570 /^-s$/ && do {
571 shift @ARGV;
572 push @sprop, shift @ARGV;
573 last SWITCH;
574 };
575 /^-u$/ && do {
576 $powup = 1;
577 shift @ARGV;
578 last SWITCH;
579 };
580 /^-d$/ && do {
581 $powdown = 1;
582 shift @ARGV;
583 last SWITCH;
584 };
585 /^-c$/ && do {
586 $powcyc = 1;
587 shift @ARGV;
588 last SWITCH;
589 };
590 /^-r$/ && do {
591 $reset = 1;
592 shift @ARGV;
593 last SWITCH;
594 };
595 /^-R$/ && do {
596 $resetrsbs2 = 1;
597 shift @ARGV;
598 last SWITCH;
599 };
600 /^-l$/ && do {
601 shift @ARGV;
602 $enable_debug = shift @ARGV;
603 last SWITCH;
604 };
605 /^-x$/ && do {
606 $show = 1;
607 shift @ARGV;
608 last SWITCH;
609 };
610 /^-X$/ && do {
611 shift @ARGV;
612 push @xmlsend, shift @ARGV;
613 last SWITCH;
614 };
615 /^-b$/ && do {
616 $showstat = 1;
617 shift @ARGV;
618 last SWITCH;
619 };
620 /^-G$/ && do {
621 $gui = 1;
622 shift @ARGV;
623 last SWITCH;
624 };
625 /^-save$/ && do {
626 shift @ARGV;
627 $save = shift @ARGV;
628 last SWITCH;
629 };
630 /^-load$/ && do {
631 shift @ARGV;
632 $load = shift @ARGV;
633 last SWITCH;
634 };
635
636 if (defined($ARGV[0])) {
637 $hostalias = $ARGV[0];
638 shift(@ARGV);
639 $valid_arg = 1;
640 }
641
642 while ( defined($ARGV[0]) ) { $valid_arg = 0; shift(@ARGV); }
643 }
644 }
645
646 if ($valid_arg && (!defined($Config{$hostalias}))) {
647 $valid_arg = 0;
648 }
649
650 if (!$valid_arg) {
651 print STDERR "Usage: $0 options card-alias\n";
652 print STDERR "Options:\n";
653 print STDERR "\t-g property\tget property value\n";
654 print STDERR "\t-s property=val\tset property value\n";
655 print STDERR "\t-u\t\tpowerup\n";
656 print STDERR "\t-d\t\tpowerdown\n";
657 print STDERR "\t-c\t\tpowercycle\n";
658 print STDERR "\t-r\t\treset\n";
659 print STDERR "\t-R\t\treset RSB S2 board\n";
660 print STDERR "\t-x\t\tshow all properties, variables and settings\n";
661 print STDERR "\t-l IP\t\tsend SYSLOG debug messages to IP\n";
662 print STDERR "\t-b\t\tshow board/server status\n";
663 print STDERR "\t-X\t\tsend raw XML string (start with REQ tag)\n";
664 print STDERR "\t-G\t\tstart GUI in appletviewer\n";
665 print STDERR "\t-v\t\tverbose\n";
666 print STDERR "\t-save file\tsave configuration to 'file'\n";
667 print STDERR "\t-load file\tload configuration from 'file'\n";
668 print STDERR "\n";
669 print STDERR "card-alias\tone of: ";
670 foreach my $alias (keys(%Config)) {
671 print STDERR "\"${alias}\" ";
672 }
673 print STDERR "(see ~/.rsbs2rc)\n";
674 exit(1);
675 }
676
677 $host = ${$Config{$hostalias}}{"host"};
678 $poweronms = ${$Config{$hostalias}}{"poweronms"} if (defined(${$Config{$hostalias}}{"poweronms"}));
679 $poweroffms = ${$Config{$hostalias}}{"poweroffms"} if (defined(${$Config{$hostalias}}{"poweroffms"}));
680
681 if ($gui) {
682 open(APPLET,"|appletviewer /dev/stdin");
683 print APPLET '<HTML><HEAD><TITLE>RSB S2 User Interface</TITLE></HEAD>';
684 print APPLET '<BODY>';
685 print APPLET '<object width="640" height="480">';
686 print APPLET '<param name="code" value="com/agilent/rmc/mgui/RmcUI.class">';
687 print APPLET '<param name="codebase" value="http://'.$host.'/">';
688 print APPLET '<param name="archive" value="gui.jar, msa_shared.jar, msa_shared_comm.jar, msa_shared_oem.jar">';
689 print APPLET '</object>';
690 print APPLET '</BODY></HTML>';
691 close(APPLET);
692 }
693
694 $sid = login(${$Config{$hostalias}}{"user"}, ${$Config{$hostalias}}{"pass"});
695
696 if ($show) {
697 show_boarddesc();
698 board_properties();
699 show_all_vars();
700 }
701
702 if (@gprop) {
703 foreach my $p (@gprop) {
704 showprop($p);
705 }
706 }
707
708 if (@sprop) {
709 foreach my $p (@sprop) {
710 (my $pr, $v) = split(/=/,$p,2);
711 my $oldval = setprop($pr, $v);
712 if (defined($oldval)) {
713 print "${pr}: ${oldval} -> ${v}\n" if (!$verbose);
714 }
715 }
716 }
717
718 if (@xmlsend) {
719 foreach my $x (@xmlsend) {
720 $Data::Dumper::Terse = 1;
721 print Dumper(_req($x));
722 }
723 }
724
725 if ($save ne '') {
726 my @dontsave = qw(ENABLE_LAN_AUTONEG ENABLE_LAN_100 ENABLE_LAN_FDUPLEX
727 GATEWAY IP_ADDRESS NETMASK TFTP_FIRMWARE_FILE TFTP_ADDR_FIRMWARE
728 ENABLE_DHCP MAC_ADDRESS LAST_CARD_NAME LAST_ENABLE_DHCP LAST_GATEWAY
729 LAST_IP_ADDRESS LAST_NETMASK);
730
731 open (SAVEFILE, ">${save}") || die "Error opening save-file: $!\n";
732 print SAVEFILE "[global]\n";
733 print STDERR "saving" if (!$verbose);
734 foreach my $ts (@fw_vars) {
735 next if (grep(/^${ts}$/, @dontsave));
736
737 my $phash = _getprop($ts)->{PROPLIST}->{PROP};
738 next if ($phash->{PERMS} ne 'RW');
739
740 print SAVEFILE "${ts}=".$phash->{VAL}."\n";
741 print STDERR "." if (!$verbose);
742 }
743 foreach my $usr (usrlist()) {
744 print SAVEFILE "\n[${usr}]\n";
745 foreach my $up (@{getusrprops($usr)}) {
746 next if ($up->{PERMS} ne 'RW');
747
748 print SAVEFILE $up->{NAME}."=".$up->{VAL}."\n";
749 }
750 print STDERR "." if (!$verbose);
751 }
752 close(SAVEFILE);
753 print STDERR "done\n" if (!$verbose);
754 }
755
756 if ($load ne '') {
757 my %loadfile = read_inifile("${load}");
758 print STDERR "loading" if (!$verbose);
759
760 foreach my $p (keys(%{$loadfile{'global'}})) {
761 setprop($p, $loadfile{'global'}->{$p});
762 print STDERR "." if (!$verbose);
763 }
764
765 my @users = usrlist();
766 foreach my $usr (keys(%loadfile)) {
767 next if ($usr eq 'global');
768 if (!grep(/^${usr}$/, @users)) {
769 print STDERR "\nAdding user \"${usr}\".\n" if ($verbose);
770 usradd($usr);
771 }
772 foreach my $p (keys(%{$loadfile{$usr}})) {
773 setusrprop($usr, $p, $loadfile{$usr}->{$p});
774 print STDERR "." if (!$verbose);
775 }
776 }
777 print STDERR "done\n" if (!$verbose);
778 print "Settings loaded, resetting board...\n";
779 _cmd("boardreset");
780 exit(0);
781 }
782
783 if ($enable_debug ne '') {
784 syslog_debug($enable_debug, "TRUE");
785 }
786
787 if ($reset) {
788 print "hardreset\n" if ($verbose);
789 serveraction("hardreset");
790 }
791
792 if ($powup) {
793 powerup();
794 }
795
796 if ($powdown) {
797 powerdown();
798 }
799
800 if ($powcyc) {
801 powercycle();
802 }
803
804 if ($showstat) {
805 status();
806 }
807
808 if ($resetrsbs2) {
809 print "Resetting board...\n";
810 _cmd("boardreset");
811 exit(0);
812 }
813
814 logout();
Impressum, Datenschutz