]> cvs.zerfleddert.de Git - rsbs2/blame - rsbs2.pl
retrieve userlist, so user properties can bes saved and restored, too
[rsbs2] / rsbs2.pl
CommitLineData
190cff13
MG
1#!/usr/bin/perl -w
2
3use LWP::UserAgent;
4use XML::Simple;
5use Data::Dumper;
6use MIME::Base64;
7use Digest::MD5 qw(md5);
8
9my $ua = LWP::UserAgent->new;
10my $sid;
bd1a6723 11my $host;
f4d84b07 12my $poweronms=200;
e270bbeb 13my $poweroffms=5000;
5a8d9e2e 14my $verbose = 0;
190cff13 15
874e09fb
MG
16my @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
3d45f4d1 18 ENABLE_DNS DNS_SERVER DNS_DOMAIN_NAME
874e09fb
MG
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
27cd8c11 38 DIAG_URL ENABLE_ANON_IPMI ENABLE_ANON_PCI
874e09fb
MG
39 ENABLE_ANON_WEB ENABLE_AVR_CHIP_DETECT ENABLE_BMC_AUTODETECT
40 ENABLE_BMC_TIMESYNC ENABLE_CRTC_FETCH ENABLE_DHCP ENABLE_DHCP_HOSTNAME
be101700 41 ENABLE_DS_CONNECTIVITY ENABLE_IO_UART_DECODER ENABLE_LAN_100
874e09fb
MG
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
190cff13
MG
119sub _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
132sub _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
146sub _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);
98f1f9af 154 XMLin($response->content, SuppressEmpty => '');
190cff13
MG
155}
156
157sub _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);
e7ae5b6c
MG
162
163 print "get: ${property}\n" if ($verbose);
190cff13
MG
164
165 if ($resp->{RESP}->{RC} ne '0x0') {
874e09fb 166 $resp->{RESP}->{RC};
190cff13 167 } else {
874e09fb 168 $resp;
190cff13
MG
169 }
170}
171
172sub logout {
5a8d9e2e 173 print "Logout\n" if ($verbose);
190cff13
MG
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
183sub setprop {
184 my $property = shift;
185 my $value = shift;
186
874e09fb 187 my $oldval = _getprop($property)->{RESP}->{PROPLIST}->{PROP}->{VAL};
190cff13
MG
188
189 if ($value eq $oldval) {
5a8d9e2e 190 print "${property} is already ${value}\n" if ($verbose);
190cff13
MG
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";
75085d94 199 undef;
190cff13 200 } else {
75085d94
MG
201 print "${property}: ${oldval} -> ${value}\n" if ($verbose);
202 $oldval;
190cff13
MG
203 }
204}
205
206sub serveraction {
207 my $action = shift;
208
f4d84b07
MG
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
5a8d9e2e 217 print "${action}...\n" if ($verbose);
190cff13
MG
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
f4d84b07 226sub powerup {
5a8d9e2e 227 print "powerup\n" if ($verbose);
f4d84b07
MG
228 setprop("SERVER_POWER_ON_PULSE_MS", sprintf("0x%x", $poweronms));
229 setprop("SERVER_POWER_OFF_PULSE_MS", "0x0");
230 serveraction("powercycle");
231}
232
233sub powerdown {
5a8d9e2e 234 print "powerdown\n" if ($verbose);
f4d84b07
MG
235 setprop("SERVER_POWER_ON_PULSE_MS", "0x0");
236 setprop("SERVER_POWER_OFF_PULSE_MS", sprintf("0x%x", $poweroffms));
237 serveraction("powercycle");
238}
239
240sub powercycle {
5a8d9e2e 241 print "powercycle\n" if ($verbose);
f4d84b07
MG
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
190cff13
MG
247sub showprop {
248 my $property = shift;
249
874e09fb
MG
250 my $phash = _getprop($property)->{RESP}->{PROPLIST}->{PROP};
251
252 print "${property}: " . ${phash}->{VAL} . " (" . ${phash}->{PERMS} . ")\n";
253}
254
255sub 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
bd1a6723
MG
265sub 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}
273print "\n";
274}
275
874e09fb
MG
276sub show_all_vars {
277 foreach my $fwvar (@fw_vars) {
278 showprop($fwvar);
279 }
190cff13
MG
280}
281
d5e3ce21
MG
282sub 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
99b39951
MG
298sub 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
39dccf16 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>';
99b39951
MG
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
bd1a6723
MG
319sub 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};
5a8d9e2e 329 print "Challenge: ${challenge}\n" if ($verbose);
bd1a6723
MG
330
331 $sid = $response->headers->header('Set-Cookie');
332 die "No SessionID!" if (!defined($sid));
333 chomp($sid);
334 $sid =~ s/.*sid=(.*);.*/$1/;
5a8d9e2e 335 print "SID: ${sid}\n" if ($verbose);
bd1a6723
MG
336
337 my $login_hash = _hash($pass, $challenge);
5a8d9e2e 338 print "Hash: ${login_hash}\n" if ($verbose);
bd1a6723
MG
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;
190cff13 349}
bd1a6723
MG
350
351open(INIFILE,"<$ENV{HOME}/.rsbs2rc") || die("can't open config: $ENV{HOME}/.rsbs2rc: $!");
352my %Config = ();
353my @sections = ();
354while(<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}
370close(INIFILE);
371
5a8d9e2e
MG
372my $valid_arg = 0;
373my $powup = 0;
374my $powdown = 0;
375my $powcyc = 0;
376my $reset = 0;
377my @sprop = ();
378my @gprop = ();
379my $show = 0;
380my $enable_debug = "";
381my $save = "";
382my $load = "";
383my $hostalias;
384
385while (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}
bd1a6723 452
e7ae5b6c 453if ($valid_arg && (!defined(${$Config{$hostalias}}{'host'}))) {
5a8d9e2e
MG
454 $valid_arg = 0;
455}
bd1a6723 456
5a8d9e2e
MG
457if (!$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
486if ($show) {
487 show_boarddesc();
488 board_properties();
489 show_all_vars();
490}
190cff13 491
5a8d9e2e
MG
492if (@gprop) {
493 foreach my $p (@gprop) {
494 showprop($p);
495 }
496}
874e09fb 497
5a8d9e2e
MG
498if (@sprop) {
499 foreach my $p (@sprop) {
500 (my $pr, $v) = split(/=/,$p,2);
75085d94
MG
501 my $oldval = setprop($pr, $v);
502 if (defined($oldval)) {
503 print "${pr}: ${oldval} -> ${v}\n" if (!$verbose);
504 }
5a8d9e2e
MG
505 }
506}
874e09fb 507
5a8d9e2e 508if ($save ne '') {
be101700
MG
509 my @dontsave = qw(ENABLE_LAN_AUTONEG ENABLE_LAN_100 ENABLE_LAN_FDUPLEX
510 GATEWAY IP_ADDRESS NETMASK TFTP_FIRMWARE_FILE TFTP_ADDR_FIRMWARE
98f1f9af 511 ENABLE_DHCP MAC_ADDRESS LAST_CARD_NAME LAST_ENABLE_DHCP LAST_GATEWAY
be101700 512 LAST_IP_ADDRESS LAST_NETMASK);
e7ae5b6c
MG
513
514 open (SAVEFILE, ">${save}") || die "Error opening save-file: $!\n";
75085d94 515 print STDERR "saving" if (!$verbose);
e7ae5b6c
MG
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";
75085d94 523 print STDERR "." if (!$verbose);
e7ae5b6c 524 }
d5e3ce21
MG
525 foreach my $usr (usrlist()) {
526 print STDERR "TODO: save user ${usr}\n";
527 }
e7ae5b6c 528 close(SAVEFILE);
75085d94 529 print STDERR "done\n" if (!$verbose);
5a8d9e2e 530}
190cff13 531
5a8d9e2e 532if ($load ne '') {
e7ae5b6c 533 open (LOADFILE, "<${load}") || die "Error opening load-file: $!\n";
75085d94 534 print STDERR "loading" if (!$verbose);
e7ae5b6c
MG
535 while(<LOADFILE>) {
536 chomp;
537 (my $p, my $v) = split(/=/, $_);
538 setprop($p, $v);
75085d94 539 print STDERR "." if (!$verbose);
e7ae5b6c
MG
540 }
541 close(LOADFILE);
75085d94 542 print STDERR "done\n" if (!$verbose);
be101700
MG
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);
5a8d9e2e 547}
99b39951 548
5a8d9e2e
MG
549if ($enable_debug ne '') {
550 syslog_debug($enable_debug, "TRUE");
551}
f4d84b07 552
5a8d9e2e
MG
553if ($reset) {
554 print "hardreset\n" if ($verbose);
555 serveraction("hardreset");
556}
190cff13 557
5a8d9e2e
MG
558if ($powup) {
559 powerup();
560}
190cff13 561
5a8d9e2e
MG
562if ($powdown) {
563 powerdown();
564}
190cff13 565
5a8d9e2e
MG
566if ($powcyc) {
567 powercycle();
568}
190cff13
MG
569
570logout();
Impressum, Datenschutz