move pcucontrol package into pcucontrol module.
[monitor.git] / pcucontrol / models / hpilo / locfg.pl
diff --git a/pcucontrol/models/hpilo/locfg.pl b/pcucontrol/models/hpilo/locfg.pl
deleted file mode 100755 (executable)
index 0ff3529..0000000
+++ /dev/null
@@ -1,132 +0,0 @@
-#!/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;