supermicro-kvm: handle redirects to https

[rsbs2] / supermicro-kvm.pl

diff --git a/supermicro-kvm.pl b/supermicro-kvm.pl
index 91ea8a61a86cb9f4b15a0e995638381dd4f71c32..3339289eafc9fce7207a05e5471062b577b7a7d8 100755 (executable)
--- a/supermicro-kvm.pl
+++ b/supermicro-kvm.pl
@@ -2,12 +2,16 @@
 
 use LWP::UserAgent;
 use LWP::ConnCache;
+use IO::Socket::SSL;
 use XML::Simple;
 use Data::Dumper;
 use File::Temp;
 
-my $ua = LWP::UserAgent->new(cookie_jar => {});
+my $ua = LWP::UserAgent->new(cookie_jar => {},
+                             ssl_opts => {verify_hostname => 0,
+                                          SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE});
 $ua->default_header('Referer' => 'http://localhost');
+push @{ $ua->requests_redirectable }, 'POST';
 
 sub login {
        my $url = shift;
@@ -27,14 +31,14 @@ sub read_inifile {
        my @sections = ();
        while(<INIFILE>) {
                chomp;
-       
+
                next if (m/^#/);
-       
+
                if (m/^\s*\[(.*)\]\s*$/) {
                        push @sections, $1;
                        next;
                }
-       
+
                if (@sections) {
                        if (m/^\s*([^=]+)\s*=\s*(.*)\s*$/) {
                                ${$Ini{$sections[$#sections]}}{$1} = $2;
@@ -46,15 +50,31 @@ sub read_inifile {
        %Ini;
 }
 
+sub add_url_to_java_exceptions {
+        my $url = shift || die;
+        my $file = "$ENV{HOME}/.java/deployment/security/exception.sites";
+        return unless -f ${file};
+        open  my $fh, '+<', $file || die;
+        unless (grep{m#${url}#} <$fh>){
+                close $fh;
+                if (open my $fh, '>>', $file) {
+                        print $fh "${url}\n";
+                        close $fh;
+                }
+        } else {
+                close $fh;
+        }
+}
+
 my %Config = read_inifile("$ENV{HOME}/.rsbs2rc");
 
 my $hostalias = $ARGV[0];
 
 if (!defined($hostalias) || !defined($Config{$hostalias})) {
        print STDERR "Usage: $0 card-alias\n\n";
-       print STDERR "card-alias\tone of: ";
-       foreach my $alias (keys(%Config)) {
-               print STDERR "\"${alias}\" ";
+       print STDERR "card-alias\tone of:\n";
+       foreach my $alias (sort keys(%Config)) {
+               print STDERR "\"${alias}\"\n";
        }
        print STDERR "(see ~/.rsbs2rc)\n";
        exit(1);
@@ -62,6 +82,7 @@ if (!defined($hostalias) || !defined($Config{$hostalias})) {
 
 my $url = "http://" . ${$Config{$hostalias}}{"host"};
 login($url, ${$Config{$hostalias}}{"user"}, ${$Config{$hostalias}}{"pass"});
+add_url_to_java_exceptions($url);
 
 my $response = $ua->get("${url}/cgi/url_redirect.cgi?url_name=ikvm&url_type=jwsk");
 die $response->status_line if (!($response->is_success));
@@ -75,5 +96,6 @@ $fh->unlink_on_destroy(1);
 
 print $fh $jnlp;
 
+$ENV{'AWT_TOOLKIT'} = 'MToolkit';
 system("javaws", $fh->filename);
 sleep(1);