#!/usr/bin/perl
###########################################################################
##
## Simplified perl version of CPQLOCFG
## Copyright 2003,2007 Hewlett Packard Development Company, L.P.
##
## To use this program, you must have Net::SSLeay and IO::Socket::SSL
## installed.  You may obtain these modules from http://www.cpan.org/
##
## You may use and modify this program to suit your needs.
##
###########################################################################

use IO::Socket::SSL;
use Getopt::Long;


sub usage
{
	print "Usage:\n";
	print "    locfg -s server [-l logfile] -f inputfile [-u username -p password]\n";
	print "    Note: Use -u and -p with caution as command line options are\n";
	print "          visible on Linux.\n";
	exit 0;
}

sub usage_err
{
    print "Note:\n";
	print "  Both username and password must be specified with the -u and -p switches.\n";
	print "  Use -u and -p with caution as command line options are visible on Linux.\n";
	exit 0;
}
###########################################################################
##
## Process options
##
###########################################################################

my $host, $logfile, $file, $verbose, $help, $uname, $pword;
$verbose = 0;
$r = GetOptions("server|s=s" => \$host,
		"logfile|l=s" => \$logfile,
		"input|f=s" => \$file,
		"u=s" => \$uname,
		"p=s" => \$pword,
		"verbose" => \$verbose,
		"help|?" => \$help
		);

if ($help || !$host || !$file) {
	usage();
}

# Username and Password must be entered together
if( ($uname && !($pword)) || (!($uname) && $pword) ) {
    usage_err();
}

if ($logfile) {
	# If a logfile is specified, open it and select it as the default
	# filehandle
	open(L, ">$logfile") || die "Can't open $logfile\n";
	select(L);
}

# Set the default SSL port number if no port is specified
$host .= ":443" unless ($host =~ m/:/);

# Open the SSL connection and the input file
my $client = new IO::Socket::SSL->new(PeerAddr => $host);
if (!$client) {
	print "ERROR: Failed to establish SSL connection with $host.\n";
	exit 1;
}

open(F, "<$file") || die "Can't open $file\n";

# Send the XML header and begin processing the file
print $client '<?xml version="1.0"?>' . "\r\n";
while($ln=<F>) {
	# Chomp of any EOL characters
	$ln =~ s/\r|\n//g;

    # Find LOGIN tag.
    if ((($ln =~ ?<[ 	]*LOGIN[ 	]?) || ($ln =~ ?<[ 	]*LOGIN$?)) && ($pword) && ($uname)) {
       while( !($ln =~ m/\>/i) ) {
          $ln = <F>;
       }
       print $client "<LOGIN USER_LOGIN=\"$uname\" PASSWORD=\"$pword\">\n";
       print "\n<LOGIN USER_LOGIN=\"$uname\" PASSWORD=\"$pword\">\n" if ($verbose);
       # print "\nOverriding credentials in scripts with those from command line.\n" if ($verbose);
       next;
    }

	# Special case: UPDATE_RIB_FIRMWARE violates XML.  Send the full
	# UPDATE firmware tag followed by the binary firmware image
	if ($ln =~ m/UPDATE_RIB_FIRMWARE/i) {
		if ($ln =~ m/IMAGE_LOCATION=\"(.*)\"/i) {
			$firmware = $1;
			open(G, "<$firmware") || die "Can't open $firmware\n";
			$len = (stat(G))[7];
			print $client "\r\n<UPDATE_RIB_FIRMWARE IMAGE_LOCATION=\"$firmware\" IMAGE_LENGTH=\"$len\"/>\r\n";
			print "\r\n<UPDATE_RIB_FIRMWARE IMAGE_LOCATION=\"$firmware\" IMAGE_LENGTH=\"$len\"/>\r\n" if ($verbose);
			$x = read(G, $buf, $len);
			print "Read $x bytes from $firmware\n" if ($verbose);
			$x = $client->write($buf, $x);
			print "Wrote $x bytes\n" if ($verbose);
			close(G);
			next;
		}
                # print "\nError: syntax error detected in $ln\n" if ($verbose);
	}
	# Send the script to the iLO board
	print $ln . "\n" if ($verbose);
	print $client $ln . "\r\n" ;
}
close(F);

print "----\n" if ($verbose);

# Ok, now read the responses back from iLO
while($ln=<$client>) {
	last if (length($ln) == 0);

	# This isn't really required, but it makes the output look nicer
	$ln =~ s/<\/RIBCL>/<\/RIBCL>\n/g;
	print $ln;
}

# All done
exit 0;