]>
Commit | Line | Data |
---|---|---|
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=4500; | |
14 | ||
15 | my @fw_vars = qw(ENABLE_LAN_AUTONEG ENABLE_LAN_100 ENABLE_LAN_FDUPLEX GATEWAY | |
16 | IP_ADDRESS NETMASK TFTP_FIRMWARE_FILE TFTP_ADDR_FIRMWARE ENABLE_DHCP | |
17 | ENABLE_DNS DNS_SERVER DNS_DOMAIN_NAME DHCP_CONFIGURE_DNS | |
18 | ACCESS_CONTROL_SERVER_1 ACCESS_CONTROL_SERVER_2 ACCESS_CONTROL_SERVERS | |
19 | ACPI_DISABLE_BIOS_SCAN ACPI_FORCE_RSDP_ADDRESS ACPI_FORCE_RSDT_ADDRESS | |
20 | ACPI_RSDP_BIOS_ROM_ADDRESS ACPI_SCAN_DELAY_SECONDS AMR_AUTH_METHOD | |
21 | AMR_DISABLE_PCI AMR_ENABLE_ISCSI_TIMEOUT AMR_ENABLED AMR_HOST_INTERFACE | |
22 | AMR_SERVER_LIST AMR_USB_FDD_CBI_UFI_TRANSPORT AMR_USB_R2T_TIMEOUT_MSEC | |
23 | AVR_4BIT_ACTION AVR_4BIT_SAMPLE_TIME AVR_ARCHITECTURE AVR_CHIP_TYPE | |
24 | AVR_CLIENT_LANGUAGE AVR_DISABLE_SVR_MOUSE_ON_SESSION_START | |
25 | AVR_KB_VERSION AVR_MAX_SESSION_COUNT AVR_MOUSE_ACCELERATION | |
26 | AVR_MOUSE_MAX_STEP_SIZE AVR_NUMB_MOUSE_PACKETS | |
27 | AVR_PCI_PATTERN_HANDS_OFF_ENABLED AVR_PREF_KB_STICKY_KEY_MODE_ON | |
28 | AVR_PREF_KB_TYPING_MODE_ON AVR_PREF_KB_WARN_UNID_EV | |
29 | AVR_REGISTERS_BASE_ADDR AVR_RESET_PAUSE AVR_SCREEN_REFRESH | |
30 | AVR_SUPPORTED_CHIP AVR_TILE_TIMEOUT AVR_VIDEO_MEM_BASE_ADDR BAUDRATE | |
31 | BAUDRATE_MODEM BAUDRATE_PPP BMC_SUPPORTS_GRACEFULL | |
32 | BMC_TIMESYNC_INTERVAL CARD_NAME CONSOLE_IPMI_MOUSE_BYTE_TIME | |
33 | CONSOLE_KEYBOARD_ACCESS_MODE CONSOLE_MOUSE_ACCESS_MODE | |
34 | CONSOLE_VIDEO_PARAM_MODE CONTACT CONTACT_PHONE CRIT_TEMP_SHUTDOWN | |
35 | CRIT_VOLT_SHUTDOWN DHCP_ADD_EXTENSION DHCP_ADD_SERIAL | |
36 | DHCP_CONFIGURE_DNS DHCP_HOSTNAME_EXT DHCP_SERVER DHCP_USE_CARDNAME | |
37 | DIAG_URL DNS_DOMAIN_NAME DNS_SERVER ENABLE_ANON_IPMI ENABLE_ANON_PCI | |
38 | ENABLE_ANON_WEB ENABLE_AVR_CHIP_DETECT ENABLE_BMC_AUTODETECT | |
39 | ENABLE_BMC_TIMESYNC ENABLE_CRTC_FETCH ENABLE_DHCP ENABLE_DHCP_HOSTNAME | |
40 | ENABLE_DNS ENABLE_DS_CONNECTIVITY ENABLE_IO_UART_DECODER ENABLE_LAN_100 | |
41 | ENABLE_LAN_AUTONEG ENABLE_LAN_FDUPLEX ENABLE_MEM_UART_DECODER | |
42 | ENABLE_PPP ENABLE_REMOTE_FLOPPY_BOOT ENABLE_SELF_DELETE | |
43 | ENABLE_SERIAL_DBG ETHDRIVER_SID EXPROM_BANNER EXPROM_EBDA_COMPATIBILITY | |
44 | EXPROM_ENTRY EXPROM_EXIT_DELAY_SEC EXPROM_F3_DELAY_SEC | |
45 | EXPROM_INT13_COMPATIBILITY EXPROM_SETUP_BANNER FIRMWARE_REVISION | |
46 | FP_ACDC FP_AMR FP_AVR_ASR FP_AVR_GRAPHIC_CONSOLE FP_AVR_TEXT_CONSOLE | |
47 | FP_AVRMANCONF_4BIT_SAMPLE FP_AVRMANCONF_ACCESS_MODES FP_AVRMANCONF_CHIP | |
48 | FP_AVRMANCONF_MOUSE_ACCELERATION FP_AVRMANCONF_MOUSE_TYPE | |
49 | FP_AVRMANCONF_RESET_PAUSE FP_AVRMANCONF_SCREEN_REFRESH FP_BATTERY | |
50 | FP_BOARDRESET_BUTTON FP_COMREDIRECT FP_F3_PPP FP_I2C FP_ICMB FP_INSTR | |
51 | FP_INTERNAL_LAN FP_KEY_CONSOLE FP_LAN_SPEED | |
52 | FP_LAST_BOARD_POWER_WARNING_ENABLED FP_NO_BLADE_PANEL | |
53 | FP_NO_CARDCONF_PANEL FP_NO_DIAG_PANEL FP_NO_DSAUTHCONF_PANEL | |
54 | FP_NO_MANAGE_PANEL FP_NO_MEMORY_PANEL FP_NO_SENSOR_PANEL | |
55 | FP_NO_SERVERCONF_PANEL FP_NO_SSL_PANEL FP_NO_SYSLOG_PANEL | |
56 | FP_NO_USERCONF_PANEL FP_PAGING_EMAIL FP_PAGING_SERIAL FP_PAGING_SNMP | |
57 | FP_PCI_CONFIG FP_PPP FP_PROP_BAUDRATE_REQBOOT FP_PROP_PPP_INIT_REQBOOT | |
58 | FP_PROP_PS_REQBOOT FP_PROP_TERM_DIRECT_CONNECT_REQBOOT FP_REMOTE_BOOT | |
59 | FP_REMOTE_DISK FP_REMOTE_POWER FP_SAC_CONSOLE FP_SEL FP_SENSOR_HISTORY | |
60 | FP_SEQ_SEL FP_SERVER_POWER FP_SERVER_REBOOT FP_SERVER_RESET | |
61 | FP_SERVER_SHUTDOWN FP_SMM FP_SSL FP_STATUS_DIAG_PANEL | |
62 | FP_STATUS_MEMORY_PANEL FP_STATUS_PCI_CONFIG FP_STATUS_SAC_CONSOLE | |
63 | FP_SYSTEM_LAN FP_TEXT_ASR FP_TEXT_CONSOLE FP_TUI FP_VERSION FP_VGA_ASR | |
64 | FP_VGA_CONSOLE FP_VT100_CONSOLE GATEWAY GATEWAY_MAC | |
65 | GRATUITOUS_ARP_INTERVAL HELP_LOCATION HIST0_SAMPLE_TIME HIST0_SENSOR_ID | |
66 | HIST1_SAMPLE_TIME HIST1_SENSOR_ID HIST2_SAMPLE_TIME HIST2_SENSOR_ID | |
67 | HIST3_SAMPLE_TIME HIST3_SENSOR_ID HTTP_PORT_NUM HTTP_SSL_PORT_NUM | |
68 | I2C_ADDR_8BIT_CHASSIS_BMC I2C_ADDR_8BIT_MY_BMC I2C_ADDR_8BIT_THIS_CARD | |
69 | INFOTXT_BPROP_ACCESS INFOTXT_DB_ACCESS IP_ADDRESS IP_ADDRESS_SOURCE | |
70 | IPMB_RETRY_TIMEOUT IPMB_SEQ_NUM_TIMEOUT IPMB_TX_RETRIES | |
71 | IPMI_COUNTRY_SELECT IPV4_HEADER_PARAMETERS ISCSI_DEVICE_VENDOR | |
72 | ISCSI_PRODUCT_EMUL_BD ISCSI_PRODUCT_EMUL_CD ISCSI_PRODUCT_EMUL_FD | |
73 | LAST_CARD_NAME LAST_ENABLE_DHCP LAST_GATEWAY LAST_IP_ADDRESS | |
74 | LAST_NETMASK LOCATION MAC_ADDRESS MODEM_CONNECT MODEM_CONNECT2 | |
75 | MODEM_SEPARATOR NETMASK PAGE_RETRIES PAGE_RETRY_DELAY_SEC POST_ERRCODE | |
76 | POST_PROP PPP_AVAILABLE PPP_INIT PPP_IP_ADDR PPP_NETMASK PPP_PORT | |
77 | PPP_STATUS PPP_STAY_ALIVE_SECS PPP_WELCOME PPP2_BAUDRATE PPP2_INIT | |
78 | PPP2_IP_ADDR PPP2_NETMASK PPP2_PORT PPP2_STAY_ALIVE_SECS PRODUCT | |
79 | PRODUCT_ABBR PS_ASR PS_DISK PS_FAN PS_HARDWARE PS_MEMORY PS_NETWORK | |
80 | PS_OTHER PS_POST PS_RMC PS_SECURITY PS_SYS_POWER PS_SYS_STATUS | |
81 | PS_TEMPERATURE PS2_ADAPTER_POWER_UP_MODE PS2_FW_UPDATE_CMD | |
82 | PS2_FW_UPDATE_IMG_NAME PS2_FW_UPDATE_STATUS RMC_DS_GROUP SAC_PORT | |
83 | SERVER_CODEPAGE SERVER_HARD_RESET_PULSE_MS SERVER_HARD_RESET_VIA_IPMI | |
84 | SERVER_ID SERVER_IP SERVER_KEYBOARD SERVER_KEYBOARD_LANGUAGES_LIST | |
85 | SERVER_MEMORY SERVER_NAME SERVER_POWER_CHANGE_VIA_IPMI | |
86 | SERVER_POWER_OFF_MODE SERVER_POWER_OFF_PULSE_MS SERVER_POWER_ON_MODE | |
87 | SERVER_POWER_ON_PULSE_MS SERVER_TIMEZONE SERVER_URL | |
88 | SESSION_MANAGER_SESSION_TIMEOUT SI_DEF_POLL_INTERVAL_MS | |
89 | SI_DEF_POLL_OFFSET_MS SMTP_RESP_TIME_SEC SMTP_RETRIES | |
90 | SMTP_RETRY_DELAY_SEC SMTP_REVERSE_PATH SMTP_SERVER SNMP_AGENT_ENABLED | |
91 | SNMP_COMMUNITY SNMP_ENTERPRISE_ID SNMP_SERVER SNMP_SERVER_1 | |
92 | SNMP_SERVER_2 SNMP_SERVER_3 SNMP_SERVER_4 SNMP_SERVER_5 SNMP_SERVER_6 | |
93 | SNMP_SERVER_7 SNMP_SERVER_MAC SNMP_SYSOID SNMP_TRAP_MASK | |
94 | SNMP_TRAP_VERSION SSL_40_OR_128_ENCRYPTION SSL_CAPABLE_FIRMWARE | |
95 | SSL_ENABLE_ALOG SSL_ENABLE_ALOG_FALLBACK SSL_ENABLE_CLIENT_CERT | |
96 | SSL_ENABLE_HTTP SSL_ENABLE_HTTPS SSL_ENABLE_NOTIFY | |
97 | SSL_NOTIFICATION_TIME TELNET_ENABLE TELNET_PORT_NUM | |
98 | TERMINAL_DIRECT_CONNECT TERMINAL_ENCODING TEXT_CONSOLE_TIMEOUT | |
99 | TFTP_ADDR_FIRMWARE TFTP_ADDR_REBOOT TFTP_FIRMWARE_FILE TFTP_REBOOT_FILE | |
100 | TXT_REMOTE_CONSOLE_COLOR_MAP TXT_REMOTE_CONSOLE_FREQ | |
101 | USB_DEVICE_SETTINGS USE_SERVER_IP_ADDRESS USER_TIMEOUT VENDOR | |
102 | RMC_AUTODETECT RMC_FUNCTIONS RMC_MODULES AGENT_VERSION BIOS_VER | |
103 | BOARD_MFT BOARD_MODEL BOARD_PART_NUM BOARD_SERIAL BOARD_VER CAB_MFT | |
104 | CAB_MODEL CAB_PROD_NUM CAB_PROD_VER CAB_SERIAL CHA_MODEL | |
105 | CSV_ConfAlarmMailFrom CSV_ConfAlarmMailMessage CSV_ConfAlarmMailSubject | |
106 | CSV_ConfAlarmMailType CSV_ConfAlarmMailUserInfo0 | |
107 | CSV_ConfAlarmMailUserInfo1 PER_USER_PAGING RMC_SEL_FILTER | |
108 | SERVER_AD_NAME SERVER_AD_NAME2 SERVER_AD_NAME3 SERVER_AD_NAME4 | |
109 | SERVER_CONTACT SERVER_DESCRIPTION SERVER_IP_ADDRESS SERVER_IP_ADDRESS2 | |
110 | SERVER_IP_ADDRESS3 SERVER_IP_ADDRESS4 SERVER_IP_DHCP SERVER_IP_DHCP2 | |
111 | SERVER_IP_DHCP3 SERVER_IP_DHCP4 SERVER_IP_GATEWAY SERVER_IP_GATEWAY2 | |
112 | SERVER_IP_GATEWAY3 SERVER_IP_GATEWAY4 SERVER_IP_NETMASK | |
113 | SERVER_IP_NETMASK2 SERVER_IP_NETMASK3 SERVER_IP_NETMASK4 | |
114 | SERVER_LOCATION SERVER_MAC_ADDRESS SERVER_MAC_ADDRESS2 | |
115 | SERVER_MAC_ADDRESS3 SERVER_MAC_ADDRESS4 SERVER_MAX_LAN_ADAPTER | |
116 | SERVER_OS SERVER_OS_VENDOR); | |
117 | ||
118 | sub _crc16 { | |
119 | my $str = shift; | |
120 | my $crc = 0; | |
121 | for my $k (0..length($str)-1) { | |
122 | $crc ^= ord(substr($str, $k, 1)) << 8; | |
123 | for (0..7) { | |
124 | $crc = (($crc & 0x8000) == 32768 ? ($crc<<1) ^ 0x1021 : $crc<<1); | |
125 | } | |
126 | } | |
127 | $crc = $crc & 0xFFFF; | |
128 | return $crc; | |
129 | } | |
130 | ||
131 | sub _hash { | |
132 | my ($password, $challenge) = @_; | |
133 | my @challenge_bytes = unpack 'c16', decode_base64($challenge); | |
134 | my @pwd_hash = unpack 'c16', md5($password); | |
135 | my @xor_bytes; | |
136 | for my $i (0..15) { | |
137 | $xor_bytes[$i] = $challenge_bytes[$i] ^ $pwd_hash[$i]; | |
138 | }; | |
139 | my $hash = md5(pack 'c16', @xor_bytes); | |
140 | my $crc = _crc16($hash); | |
141 | $hash .= chr($crc & 0xff) . chr($crc >> 8 & 0xff); | |
142 | return encode_base64($hash, ""); | |
143 | } | |
144 | ||
145 | sub _req { | |
146 | my $xml = shift; | |
147 | $request = HTTP::Request->new(POST => "http://${host}/cgi/bin"); | |
148 | $request->header(Cookie => "sid=$sid"); | |
149 | $request->content_type('application/x-www-form-urlencoded'); | |
150 | $request->content($xml); | |
151 | $response = $ua->request($request); | |
152 | die("Error in request: " . $response->status_line . "\n") unless ($response->is_success); | |
153 | XMLin($response->content); | |
154 | } | |
155 | ||
156 | sub _getprop { | |
157 | my $property = shift; | |
158 | ||
159 | my $reqstr='<?xml version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="propget"><PROPLIST><PROP NAME="'.$property.'"/></PROPLIST></REQ></RMCSEQ>'; | |
160 | my $resp = _req($reqstr); | |
161 | ||
162 | if ($resp->{RESP}->{RC} ne '0x0') { | |
163 | $resp->{RESP}->{RC}; | |
164 | } else { | |
165 | $resp; | |
166 | } | |
167 | } | |
168 | ||
169 | sub logout { | |
170 | print "Logout\n"; | |
171 | my $request = HTTP::Request->new(GET => "http://${host}/cgi/logout"); | |
172 | $request->header(Cookie => "sid=$sid"); | |
173 | my $response = $ua->request($request); | |
174 | die("While trying to logout: " . $response->status_line . "\n") unless ($response->is_success); | |
175 | ||
176 | my $xmlin = XMLin($response->decoded_content); | |
177 | die "Error logging out: ".$xmlin->{RC} if ($xmlin->{RC} ne '0x0'); | |
178 | } | |
179 | ||
180 | sub setprop { | |
181 | my $property = shift; | |
182 | my $value = shift; | |
183 | ||
184 | my $oldval = _getprop($property)->{RESP}->{PROPLIST}->{PROP}->{VAL}; | |
185 | ||
186 | if ($value eq $oldval) { | |
187 | #print "${property} is already ${value}\n"; | |
188 | return; | |
189 | } | |
190 | ||
191 | my $reqstr='<?xml version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="propset"><PROP NAME="'.$property.'"><VAL>'.$value.'</VAL></PROP></REQ></RMCSEQ>'; | |
192 | my $res = _req($reqstr); | |
193 | ||
194 | if ($res->{RESP}->{RC} ne '0x0') { | |
195 | print "Error setting ${property} to ${value}: ".$res->{RESP}->{RC}."\n"; | |
196 | } else { | |
197 | print "${property}: ${oldval} -> ${value}\n"; | |
198 | } | |
199 | } | |
200 | ||
201 | sub serveraction { | |
202 | my $action = shift; | |
203 | ||
204 | my $pmode = 2; | |
205 | ||
206 | setprop("SERVER_HARD_RESET_VIA_IPMI", "FALSE"); | |
207 | setprop("SERVER_POWER_CHANGE_VIA_IPMI", "FALSE"); | |
208 | #PM Mode | |
209 | setprop("SERVER_POWER_ON_MODE", sprintf("0x%x", $pmode)); | |
210 | setprop("SERVER_POWER_OFF_MODE", sprintf("0x%x", $pmode)); | |
211 | ||
212 | print "${action}...\n"; | |
213 | my $reqstr='<?xml version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="serveraction"><ACT>'.$action.'</ACT></REQ></RMCSEQ>'; | |
214 | my $res = _req($reqstr); | |
215 | ||
216 | if ($res->{RESP}->{RC} ne '0x0') { | |
217 | print "FAILED:".$res->{RESP}->{RC}."\n"; | |
218 | } | |
219 | } | |
220 | ||
221 | sub powerup { | |
222 | setprop("SERVER_POWER_ON_PULSE_MS", sprintf("0x%x", $poweronms)); | |
223 | setprop("SERVER_POWER_OFF_PULSE_MS", "0x0"); | |
224 | serveraction("powercycle"); | |
225 | } | |
226 | ||
227 | sub powerdown { | |
228 | setprop("SERVER_POWER_ON_PULSE_MS", "0x0"); | |
229 | setprop("SERVER_POWER_OFF_PULSE_MS", sprintf("0x%x", $poweroffms)); | |
230 | serveraction("powercycle"); | |
231 | } | |
232 | ||
233 | sub powercycle { | |
234 | setprop("SERVER_POWER_ON_PULSE_MS", sprintf("0x%x", $poweronms)); | |
235 | setprop("SERVER_POWER_OFF_PULSE_MS", sprintf("0x%x", $poweroffms)); | |
236 | serveraction("powercycle"); | |
237 | } | |
238 | ||
239 | sub showprop { | |
240 | my $property = shift; | |
241 | ||
242 | my $phash = _getprop($property)->{RESP}->{PROPLIST}->{PROP}; | |
243 | ||
244 | print "${property}: " . ${phash}->{VAL} . " (" . ${phash}->{PERMS} . ")\n"; | |
245 | } | |
246 | ||
247 | sub board_properties { | |
248 | my $reqstr='<?xml version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="boardpropget"><PROPLIST><PROP NAME=""/></PROPLIST></REQ></RMCSEQ>'; | |
249 | my $resp = _req($reqstr); | |
250 | ||
251 | print " * Board Properties:\n"; | |
252 | foreach my $bprop (@{$resp->{RESP}->{BPROPLIST}->{BPROP}}) { | |
253 | print " * " . ${bprop}->{NAME} . ": " . ${bprop}->{VAL} . "\n"; | |
254 | } | |
255 | } | |
256 | ||
257 | sub show_boarddesc { | |
258 | my $reqstr='<?xml version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="boardpropget"><BPROPLIST><BPROP NAME="BOARD_DESCRIPTION"/></BPROPLIST></REQ></RMCSEQ>'; | |
259 | my $boarddesc64 = _req($reqstr)->{RESP}->{BPROPLIST}->{BPROP}->{VAL}; | |
260 | my $boarddesc = decode_base64($boarddesc64); | |
261 | my @board = split(//, $boarddesc); | |
262 | foreach my $byte (@board) { | |
263 | printf ("0x%02x ", ord($byte)); | |
264 | } | |
265 | print "\n"; | |
266 | } | |
267 | ||
268 | sub show_all_vars { | |
269 | foreach my $fwvar (@fw_vars) { | |
270 | showprop($fwvar); | |
271 | } | |
272 | } | |
273 | ||
274 | sub syslog_debug { | |
275 | my $destination_ip = shift; | |
276 | my $bcast = shift; | |
277 | ||
278 | $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>'; | |
279 | $res = _req($reqstr); | |
280 | if ($res->{RESP}->{RC} ne '0x0') { | |
281 | print "FAILED:".$res->{RESP}->{RC}."\n"; | |
282 | return; | |
283 | } | |
284 | ||
285 | $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>'; | |
286 | $res = _req($reqstr); | |
287 | if ($res->{RESP}->{RC} ne '0x0') { | |
288 | print "FAILED:".$res->{RESP}->{RC}."\n"; | |
289 | return; | |
290 | } | |
291 | ||
292 | print "Debug messages will be sent to ${destination_ip} (broadcast: ${bcast})\n"; | |
293 | } | |
294 | ||
295 | sub login { | |
296 | my $user = shift; | |
297 | my $pass = shift; | |
298 | ||
299 | my $response = $ua->get("http://${host}/cgi/challenge"); | |
300 | die $response->status_line if (!($response->is_success)); | |
301 | ||
302 | my $xmlin = XMLin($response->decoded_content); | |
303 | die "Error getting Challenge: ".$xmlin->{RC} if ($xmlin->{RC} ne '0x0'); | |
304 | my $challenge = $xmlin->{CHALLENGE}; | |
305 | print "Challenge: ${challenge}\n"; | |
306 | ||
307 | $sid = $response->headers->header('Set-Cookie'); | |
308 | die "No SessionID!" if (!defined($sid)); | |
309 | chomp($sid); | |
310 | $sid =~ s/.*sid=(.*);.*/$1/; | |
311 | print "SID: ${sid}\n"; | |
312 | ||
313 | my $login_hash = _hash($pass, $challenge); | |
314 | print "Hash: ${login_hash}\n"; | |
315 | ||
316 | my $request = HTTP::Request->new(GET => "http://${host}/cgi/login?user=${user}&hash=${login_hash}"); | |
317 | $request->header(Cookie => "sid=$sid"); | |
318 | $response = $ua->request($request); | |
319 | die("While trying to login: " . $response->status_line . "\n") unless ($response->is_success); | |
320 | ||
321 | $xmlin = XMLin($response->decoded_content); | |
322 | die "Error logging in: ".$xmlin->{RC} if ($xmlin->{RC} ne '0x0'); | |
323 | ||
324 | $sid; | |
325 | } | |
326 | ||
327 | open(INIFILE,"<$ENV{HOME}/.rsbs2rc") || die("can't open config: $ENV{HOME}/.rsbs2rc: $!"); | |
328 | my %Config = (); | |
329 | my @sections = (); | |
330 | while(<INIFILE>) { | |
331 | chomp; | |
332 | ||
333 | next if (m/^#/); | |
334 | ||
335 | if (m/^\s*\[(.*)\]\s*$/) { | |
336 | push @sections, $1; | |
337 | next; | |
338 | } | |
339 | ||
340 | if (@sections) { | |
341 | if (m/^\s*(.+)\s*=\s*(.*)\s*$/) { | |
342 | ${$Config{$sections[$#sections]}}{$1} = $2; | |
343 | } | |
344 | } | |
345 | } | |
346 | close(INIFILE); | |
347 | ||
348 | $host = ${$Config{$sections[0]}}{"host"}; | |
349 | $poweronms = ${$Config{$sections[0]}}{"poweronms"} if (defined(${$Config{$sections[0]}}{"poweronms"})); | |
350 | $poweroffms = ${$Config{$sections[0]}}{"poweroffms"} if (defined(${$Config{$sections[0]}}{"poweroffms"})); | |
351 | ||
352 | $sid = login(${$Config{$sections[0]}}{"user"}, ${$Config{$sections[0]}}{"pass"}); | |
353 | ||
354 | show_boarddesc(); | |
355 | ||
356 | #showprop("FP_REMOTE_POWER"); | |
357 | #showprop("FP_REMOTE_BOOT"); | |
358 | #showprop("SERVER_HARD_RESET_VIA_IPMI"); | |
359 | #showprop("SERVER_HARD_RESET_PULSE_MS"); | |
360 | #showprop("SERVER_POWER_CHANGE_VIA_IPMI"); | |
361 | #showprop("SERVER_POWER_ON_MODE"); | |
362 | #showprop("SERVER_POWER_ON_PULSE_MS"); | |
363 | #showprop("SERVER_POWER_OFF_MODE"); | |
364 | #showprop("SERVER_POWER_OFF_PULSE_MS"); | |
365 | ||
366 | board_properties(); | |
367 | ||
368 | #show_all_vars(); | |
369 | ||
370 | syslog_debug("255.255.255.255", "TRUE"); | |
371 | ||
372 | #Power Mgmt. Pane | |
373 | setprop("FP_REMOTE_POWER", "TRUE"); | |
374 | ||
375 | #server_power_on modes: (com/agilent/rmc/mgui/panels/PowerMgmtConf.class) | |
376 | #0: l_pmconf_option_disabled | |
377 | #1: l_pmconf_option_atx | |
378 | #2: l_pmconf_option_relay | |
379 | #default: disabled | |
380 | ||
381 | ||
382 | #$reqstr='<?xml version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="boardpropset"><BPROP NAME="BOARD_DESCRIPTION"><VAL>'.$boarddesc_new.'</VAL></BPROP></REQ></RMCSEQ>'; | |
383 | #print $reqstr."\n"; | |
384 | #print Dumper(_req($reqstr)); | |
385 | ||
386 | serveraction("hardreset"); | |
387 | powerup(); | |
388 | powerdown(); | |
389 | powercycle(); | |
390 | ||
391 | logout(); |