[rsbs2] / rsbs2.pl

#!/usr/bin/perl -w

use LWP::UserAgent;
use XML::Simple;
use Data::Dumper;
use MIME::Base64;
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
	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
	AMR_DISABLE_PCI AMR_ENABLE_ISCSI_TIMEOUT AMR_ENABLED AMR_HOST_INTERFACE
	AMR_SERVER_LIST AMR_USB_FDD_CBI_UFI_TRANSPORT AMR_USB_R2T_TIMEOUT_MSEC
	AVR_4BIT_ACTION AVR_4BIT_SAMPLE_TIME AVR_ARCHITECTURE AVR_CHIP_TYPE
	AVR_CLIENT_LANGUAGE AVR_DISABLE_SVR_MOUSE_ON_SESSION_START
	AVR_KB_VERSION AVR_MAX_SESSION_COUNT AVR_MOUSE_ACCELERATION
	AVR_MOUSE_MAX_STEP_SIZE AVR_NUMB_MOUSE_PACKETS
	AVR_PCI_PATTERN_HANDS_OFF_ENABLED AVR_PREF_KB_STICKY_KEY_MODE_ON
	AVR_PREF_KB_TYPING_MODE_ON AVR_PREF_KB_WARN_UNID_EV
	AVR_REGISTERS_BASE_ADDR AVR_RESET_PAUSE AVR_SCREEN_REFRESH
	AVR_SUPPORTED_CHIP AVR_TILE_TIMEOUT AVR_VIDEO_MEM_BASE_ADDR BAUDRATE
	BAUDRATE_MODEM BAUDRATE_PPP BMC_SUPPORTS_GRACEFULL
	BMC_TIMESYNC_INTERVAL CARD_NAME CONSOLE_IPMI_MOUSE_BYTE_TIME
	CONSOLE_KEYBOARD_ACCESS_MODE CONSOLE_MOUSE_ACCESS_MODE
	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 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_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
	EXPROM_ENTRY EXPROM_EXIT_DELAY_SEC EXPROM_F3_DELAY_SEC
	EXPROM_INT13_COMPATIBILITY EXPROM_SETUP_BANNER FIRMWARE_REVISION
	FP_ACDC FP_AMR FP_AVR_ASR FP_AVR_GRAPHIC_CONSOLE FP_AVR_TEXT_CONSOLE
	FP_AVRMANCONF_4BIT_SAMPLE FP_AVRMANCONF_ACCESS_MODES FP_AVRMANCONF_CHIP
	FP_AVRMANCONF_MOUSE_ACCELERATION FP_AVRMANCONF_MOUSE_TYPE
	FP_AVRMANCONF_RESET_PAUSE FP_AVRMANCONF_SCREEN_REFRESH FP_BATTERY
	FP_BOARDRESET_BUTTON FP_COMREDIRECT FP_F3_PPP FP_I2C FP_ICMB FP_INSTR
	FP_INTERNAL_LAN FP_KEY_CONSOLE FP_LAN_SPEED
	FP_LAST_BOARD_POWER_WARNING_ENABLED FP_NO_BLADE_PANEL
	FP_NO_CARDCONF_PANEL FP_NO_DIAG_PANEL FP_NO_DSAUTHCONF_PANEL
	FP_NO_MANAGE_PANEL FP_NO_MEMORY_PANEL FP_NO_SENSOR_PANEL
	FP_NO_SERVERCONF_PANEL FP_NO_SSL_PANEL FP_NO_SYSLOG_PANEL
	FP_NO_USERCONF_PANEL FP_PAGING_EMAIL FP_PAGING_SERIAL FP_PAGING_SNMP
	FP_PCI_CONFIG FP_PPP FP_PROP_BAUDRATE_REQBOOT FP_PROP_PPP_INIT_REQBOOT
	FP_PROP_PS_REQBOOT FP_PROP_TERM_DIRECT_CONNECT_REQBOOT FP_REMOTE_BOOT
	FP_REMOTE_DISK FP_REMOTE_POWER FP_SAC_CONSOLE FP_SEL FP_SENSOR_HISTORY
	FP_SEQ_SEL FP_SERVER_POWER FP_SERVER_REBOOT FP_SERVER_RESET
	FP_SERVER_SHUTDOWN FP_SMM FP_SSL FP_STATUS_DIAG_PANEL
	FP_STATUS_MEMORY_PANEL FP_STATUS_PCI_CONFIG FP_STATUS_SAC_CONSOLE
	FP_SYSTEM_LAN FP_TEXT_ASR FP_TEXT_CONSOLE FP_TUI FP_VERSION FP_VGA_ASR
	FP_VGA_CONSOLE FP_VT100_CONSOLE GATEWAY GATEWAY_MAC
	GRATUITOUS_ARP_INTERVAL HELP_LOCATION HIST0_SAMPLE_TIME HIST0_SENSOR_ID
	HIST1_SAMPLE_TIME HIST1_SENSOR_ID HIST2_SAMPLE_TIME HIST2_SENSOR_ID
	HIST3_SAMPLE_TIME HIST3_SENSOR_ID HTTP_PORT_NUM HTTP_SSL_PORT_NUM
	I2C_ADDR_8BIT_CHASSIS_BMC I2C_ADDR_8BIT_MY_BMC I2C_ADDR_8BIT_THIS_CARD
	INFOTXT_BPROP_ACCESS INFOTXT_DB_ACCESS IP_ADDRESS IP_ADDRESS_SOURCE
	IPMB_RETRY_TIMEOUT IPMB_SEQ_NUM_TIMEOUT IPMB_TX_RETRIES
	IPMI_COUNTRY_SELECT IPV4_HEADER_PARAMETERS ISCSI_DEVICE_VENDOR
	ISCSI_PRODUCT_EMUL_BD ISCSI_PRODUCT_EMUL_CD ISCSI_PRODUCT_EMUL_FD
	LAST_CARD_NAME LAST_ENABLE_DHCP LAST_GATEWAY LAST_IP_ADDRESS
	LAST_NETMASK LOCATION MAC_ADDRESS MODEM_CONNECT MODEM_CONNECT2
	MODEM_SEPARATOR NETMASK PAGE_RETRIES PAGE_RETRY_DELAY_SEC POST_ERRCODE
	POST_PROP PPP_AVAILABLE PPP_INIT PPP_IP_ADDR PPP_NETMASK PPP_PORT
	PPP_STATUS PPP_STAY_ALIVE_SECS PPP_WELCOME PPP2_BAUDRATE PPP2_INIT
	PPP2_IP_ADDR PPP2_NETMASK PPP2_PORT PPP2_STAY_ALIVE_SECS PRODUCT
	PRODUCT_ABBR PS_ASR PS_DISK PS_FAN PS_HARDWARE PS_MEMORY PS_NETWORK
	PS_OTHER PS_POST PS_RMC PS_SECURITY PS_SYS_POWER PS_SYS_STATUS
	PS_TEMPERATURE PS2_ADAPTER_POWER_UP_MODE PS2_FW_UPDATE_CMD
	PS2_FW_UPDATE_IMG_NAME PS2_FW_UPDATE_STATUS RMC_DS_GROUP SAC_PORT
	SERVER_CODEPAGE SERVER_HARD_RESET_PULSE_MS SERVER_HARD_RESET_VIA_IPMI
	SERVER_ID SERVER_IP SERVER_KEYBOARD SERVER_KEYBOARD_LANGUAGES_LIST
	SERVER_MEMORY SERVER_NAME SERVER_POWER_CHANGE_VIA_IPMI
	SERVER_POWER_OFF_MODE SERVER_POWER_OFF_PULSE_MS SERVER_POWER_ON_MODE
	SERVER_POWER_ON_PULSE_MS SERVER_TIMEZONE SERVER_URL
	SESSION_MANAGER_SESSION_TIMEOUT SI_DEF_POLL_INTERVAL_MS
	SI_DEF_POLL_OFFSET_MS SMTP_RESP_TIME_SEC SMTP_RETRIES
	SMTP_RETRY_DELAY_SEC SMTP_REVERSE_PATH SMTP_SERVER SNMP_AGENT_ENABLED
	SNMP_COMMUNITY SNMP_ENTERPRISE_ID SNMP_SERVER SNMP_SERVER_1
	SNMP_SERVER_2 SNMP_SERVER_3 SNMP_SERVER_4 SNMP_SERVER_5 SNMP_SERVER_6
	SNMP_SERVER_7 SNMP_SERVER_MAC SNMP_SYSOID SNMP_TRAP_MASK
	SNMP_TRAP_VERSION SSL_40_OR_128_ENCRYPTION SSL_CAPABLE_FIRMWARE
	SSL_ENABLE_ALOG SSL_ENABLE_ALOG_FALLBACK SSL_ENABLE_CLIENT_CERT
	SSL_ENABLE_HTTP SSL_ENABLE_HTTPS SSL_ENABLE_NOTIFY
	SSL_NOTIFICATION_TIME TELNET_ENABLE TELNET_PORT_NUM
	TERMINAL_DIRECT_CONNECT TERMINAL_ENCODING TEXT_CONSOLE_TIMEOUT
	TFTP_ADDR_FIRMWARE TFTP_ADDR_REBOOT TFTP_FIRMWARE_FILE TFTP_REBOOT_FILE
	TXT_REMOTE_CONSOLE_COLOR_MAP TXT_REMOTE_CONSOLE_FREQ
	USB_DEVICE_SETTINGS USE_SERVER_IP_ADDRESS USER_TIMEOUT VENDOR
	RMC_AUTODETECT RMC_FUNCTIONS RMC_MODULES AGENT_VERSION BIOS_VER
	BOARD_MFT BOARD_MODEL BOARD_PART_NUM BOARD_SERIAL BOARD_VER CAB_MFT
	CAB_MODEL CAB_PROD_NUM CAB_PROD_VER CAB_SERIAL CHA_MODEL
	CSV_ConfAlarmMailFrom CSV_ConfAlarmMailMessage CSV_ConfAlarmMailSubject
	CSV_ConfAlarmMailType CSV_ConfAlarmMailUserInfo0
	CSV_ConfAlarmMailUserInfo1 PER_USER_PAGING RMC_SEL_FILTER
	SERVER_AD_NAME SERVER_AD_NAME2 SERVER_AD_NAME3 SERVER_AD_NAME4
	SERVER_CONTACT SERVER_DESCRIPTION SERVER_IP_ADDRESS SERVER_IP_ADDRESS2
	SERVER_IP_ADDRESS3 SERVER_IP_ADDRESS4 SERVER_IP_DHCP SERVER_IP_DHCP2
	SERVER_IP_DHCP3 SERVER_IP_DHCP4 SERVER_IP_GATEWAY SERVER_IP_GATEWAY2
	SERVER_IP_GATEWAY3 SERVER_IP_GATEWAY4 SERVER_IP_NETMASK
	SERVER_IP_NETMASK2 SERVER_IP_NETMASK3 SERVER_IP_NETMASK4
	SERVER_LOCATION SERVER_MAC_ADDRESS SERVER_MAC_ADDRESS2
	SERVER_MAC_ADDRESS3 SERVER_MAC_ADDRESS4 SERVER_MAX_LAN_ADAPTER
	SERVER_OS SERVER_OS_VENDOR);

sub _crc16 {
	my $str = shift;
	my $crc = 0;
	for my $k (0..length($str)-1) {
		$crc ^= ord(substr($str, $k, 1)) << 8;
		for (0..7) {
			$crc = (($crc & 0x8000) == 32768 ? ($crc<<1) ^ 0x1021 : $crc<<1);
		}
	}
	$crc = $crc & 0xFFFF;
	return $crc;
}

sub _hash {
	my ($password, $challenge) = @_;
	my @challenge_bytes = unpack 'c16', decode_base64($challenge);
	my @pwd_hash            = unpack 'c16', md5($password);
	my @xor_bytes;
	for my $i (0..15) {
		$xor_bytes[$i] = $challenge_bytes[$i] ^ $pwd_hash[$i];
	};
	my $hash = md5(pack 'c16', @xor_bytes);
	my $crc = _crc16($hash);
	$hash .= chr($crc & 0xff) . chr($crc >> 8 & 0xff);
	return encode_base64($hash, "");
}

sub _req {
	my $xml = shift;
	$request = HTTP::Request->new(POST => "http://${host}/cgi/bin");
	$request->header(Cookie => "sid=$sid");
	$request->content_type('application/x-www-form-urlencoded');
	$request->content($xml);
	$response = $ua->request($request);
	die("Error in request: " . $response->status_line . "\n") unless ($response->is_success);
	XMLin($response->content, SuppressEmpty => '');
}

sub _getprop {
	my $property = shift;

	my $reqstr='<?xml version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="propget"><PROPLIST><PROP NAME="'.$property.'"/></PROPLIST></REQ></RMCSEQ>';
	my $resp = _req($reqstr);

	print "get: ${property}\n" if ($verbose);
	
	if ($resp->{RESP}->{RC} ne '0x0') {
		$resp->{RESP}->{RC};
	} else {
		$resp;
	}
}

sub logout {
	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);
	die("While trying to logout: " . $response->status_line . "\n") unless ($response->is_success);

	my $xmlin = XMLin($response->decoded_content);
	die "Error logging out: ".$xmlin->{RC} if ($xmlin->{RC} ne '0x0');
}

sub setprop {
	my $property = shift;
	my $value = shift;

	my $oldval = _getprop($property)->{RESP}->{PROPLIST}->{PROP}->{VAL};

	if ($value eq $oldval) {
		print "${property} is already ${value}\n" if ($verbose);
		return;
	}
	
	my $reqstr='<?xml version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="propset"><PROP NAME="'.$property.'"><VAL>'.$value.'</VAL></PROP></REQ></RMCSEQ>';
	my $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 serveraction {
	my $action = shift;

	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='<?xml version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="serveraction"><ACT>'.$action.'</ACT></REQ></RMCSEQ>';
	my $res = _req($reqstr);

	if ($res->{RESP}->{RC} ne '0x0') {
		print "FAILED:".$res->{RESP}->{RC}."\n";
	}
}

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;

	my $phash = _getprop($property)->{RESP}->{PROPLIST}->{PROP};

	print "${property}: " . ${phash}->{VAL} . " (" . ${phash}->{PERMS} . ")\n";
}

sub board_properties {
	my $reqstr='<?xml version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="boardpropget"><PROPLIST><PROP NAME=""/></PROPLIST></REQ></RMCSEQ>';
	my $resp = _req($reqstr);

	print " * Board Properties:\n";
	foreach my $bprop (@{$resp->{RESP}->{BPROPLIST}->{BPROP}}) {
		print " * " . ${bprop}->{NAME} . ": " . ${bprop}->{VAL} . "\n";
	}
}

sub show_boarddesc {
	my $reqstr='<?xml version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="boardpropget"><BPROPLIST><BPROP NAME="BOARD_DESCRIPTION"/></BPROPLIST></REQ></RMCSEQ>';
	my $boarddesc64 = _req($reqstr)->{RESP}->{BPROPLIST}->{BPROP}->{VAL};
	my $boarddesc = decode_base64($boarddesc64);
	my @board = split(//, $boarddesc);
	foreach my $byte (@board) {
		printf ("0x%02x ", ord($byte));
}
print "\n";
}

sub show_all_vars {
	foreach my $fwvar (@fw_vars) {
		showprop($fwvar);
	}
}

sub usrlist {
	my $reqstr = '<?XML version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="usrlist"></REQ></RMCSEQ>';
	my $res = _req($reqstr);
	my @users = ();

	if ($res->{RESP}->{RC} ne '0x0') {
		print "FAILED:".$res->{RESP}->{RC}."\n";
		();
	} else {
		foreach my $usr (@{$res->{RESP}->{USRLIST}->{USER}}) {
			push @users, $usr->{NAME};
		}
	}
	@users;
}

sub syslog_debug {
	my $destination_ip = shift;
	my $bcast = shift;

	$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>';
	$res = _req($reqstr);
	if ($res->{RESP}->{RC} ne '0x0') {
		print "FAILED:".$res->{RESP}->{RC}."\n";
		return;
	}

	$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>';
	$res = _req($reqstr);
	if ($res->{RESP}->{RC} ne '0x0') {
		print "FAILED:".$res->{RESP}->{RC}."\n";
		return;
	}

	print "Debug messages will be sent to ${destination_ip} (broadcast: ${bcast})\n";
}

sub login {
	my $user = shift;
	my $pass = shift;

	my $response = $ua->get("http://${host}/cgi/challenge");
	die $response->status_line if (!($response->is_success));

	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" if ($verbose);

	$sid = $response->headers->header('Set-Cookie');
	die "No SessionID!" if (!defined($sid));
	chomp($sid);
	$sid =~ s/.*sid=(.*);.*/$1/;
	print "SID: ${sid}\n" if ($verbose);

	my $login_hash = _hash($pass, $challenge);
	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");
	$response = $ua->request($request);
	die("While trying to login: " . $response->status_line . "\n") unless ($response->is_success);

	$xmlin = XMLin($response->decoded_content);
	die "Error logging in: ".$xmlin->{RC} if ($xmlin->{RC} ne '0x0');

	$sid;
}

open(INIFILE,"<$ENV{HOME}/.rsbs2rc") || die("can't open config: $ENV{HOME}/.rsbs2rc: $!");
my %Config = ();
my @sections = ();
while(<INIFILE>) {
	chomp;

	next if (m/^#/);

	if (m/^\s*\[(.*)\]\s*$/) {
		push @sections, $1;
		next;
	}

	if (@sections) {
		if (m/^\s*(.+)\s*=\s*(.*)\s*$/) {
			${$Config{$sections[$#sections]}}{$1} = $2;
		}
	}
}
close(INIFILE);

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); }
	}
}

if ($valid_arg && (!defined(${$Config{$hostalias}}{'host'}))) {
	$valid_arg = 0;
}

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 (@sections) {
		print STDERR "\"${alias}\" ";
	}
	print STDERR "(see ~/.rsbs2rc)\n";
	exit(1);
}

$host = ${$Config{$hostalias}}{"host"};
$poweronms = ${$Config{$hostalias}}{"poweronms"} if (defined(${$Config{$hostalias}}{"poweronms"}));
$poweroffms = ${$Config{$hostalias}}{"poweroffms"} if (defined(${$Config{$hostalias}}{"poweroffms"}));

$sid = login(${$Config{$hostalias}}{"user"}, ${$Config{$hostalias}}{"pass"});

if ($show) {
	show_boarddesc();
	board_properties();
	show_all_vars();
}

if (@gprop) {
	foreach my $p (@gprop) {
		showprop($p);
	}
}

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);
		}
	}
}

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 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 STDERR "TODO: save user ${usr}\n";
	}
	close(SAVEFILE);
	print STDERR "done\n" if (!$verbose);
}

if ($load ne '') {
	open (LOADFILE, "<${load}") || die "Error opening load-file: $!\n";
	print STDERR "loading" if (!$verbose);
	while(<LOADFILE>) {
		chomp;
		(my $p, my $v) = split(/=/, $_);
		setprop($p, $v);
		print STDERR "." if (!$verbose);
	}
	close(LOADFILE);
	print STDERR "done\n" if (!$verbose);
	print "Settings loaded, resetting board...\n";
	my $reqstr='<?XML version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="boardreset"></REQ></RMCSEQ>';
	_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();
Commit	Line	Data
190cff13 MG	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;
bd1a6723	11	my $host;
f4d84b07	12	my $poweronms=200;
e270bbeb	13	my $poweroffms=5000;
5a8d9e2e	14	my $verbose = 0;
190cff13	15
874e09fb MG	16	my @fw_vars = qw(ENABLE_LAN_AUTONEG ENABLE_LAN_100 ENABLE_LAN_FDUPLEX GATEWAY
874e09fb MG	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
874e09fb MG	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	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);
98f1f9af	154	XMLin($response->content, SuppressEmpty => '');
190cff13 MG	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);
e7ae5b6c MG	162
e7ae5b6c MG	163	print "get: ${property}\n" if ($verbose);
190cff13 MG	164
190cff13 MG	165	if ($resp->{RESP}->{RC} ne '0x0') {
874e09fb	166	$resp->{RESP}->{RC};
190cff13	167	} else {
874e09fb	168	$resp;
190cff13 MG	169	}
	170	}
	171
	172	sub 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
	183	sub setprop {
	184	my $property = shift;
	185	my $value = shift;
	186
874e09fb	187	my $oldval = _getprop($property)->{RESP}->{PROPLIST}->{PROP}->{VAL};
190cff13 MG	188
190cff13 MG	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);
75085d94 MG	202	$oldval;
190cff13 MG	203	}
	204	}
	205
	206	sub 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	226	sub 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
	233	sub 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
	240	sub 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	247	sub 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
	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
bd1a6723 MG	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
874e09fb MG	276	sub show_all_vars {
	277	foreach my $fwvar (@fw_vars) {
	278	showprop($fwvar);
	279	}
190cff13 MG	280	}
190cff13 MG	281
d5e3ce21 MG	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
99b39951 MG	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
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	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};
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
bd1a6723 MG	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
	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
5a8d9e2e MG	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	}
bd1a6723	452
e7ae5b6c	453	if ($valid_arg && (!defined(${$Config{$hostalias}}{'host'}))) {
5a8d9e2e MG	454	$valid_arg = 0;
5a8d9e2e MG	455	}
bd1a6723	456
5a8d9e2e MG	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	}
190cff13	491
5a8d9e2e MG	492	if (@gprop) {
	493	foreach my $p (@gprop) {
	494	showprop($p);
	495	}
	496	}
874e09fb	497
5a8d9e2e MG	498	if (@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	}
5a8d9e2e MG	506	}
874e09fb	507
5a8d9e2e	508	if ($save ne '') {
be101700 MG	509	my @dontsave = qw(ENABLE_LAN_AUTONEG ENABLE_LAN_100 ENABLE_LAN_FDUPLEX
be101700 MG	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
e7ae5b6c MG	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	532	if ($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	}
e7ae5b6c MG	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	549	if ($enable_debug ne '') {
	550	syslog_debug($enable_debug, "TRUE");
	551	}
f4d84b07	552
5a8d9e2e MG	553	if ($reset) {
	554	print "hardreset\n" if ($verbose);
	555	serveraction("hardreset");
	556	}
190cff13	557
5a8d9e2e MG	558	if ($powup) {
	559	powerup();
	560	}
190cff13	561
5a8d9e2e MG	562	if ($powdown) {
	563	powerdown();
	564	}
190cff13	565
5a8d9e2e MG	566	if ($powcyc) {
	567	powercycle();
	568	}
190cff13 MG	569
190cff13 MG	570	logout();