add $url to exceptions.sites if the file exists

diff --git a/supermicro-kvm.pl b/supermicro-kvm.pl
index 79e4f03752fd021898f9845ebf0c019ea2ca8637..93e91a062b9c9e21df5ddbc278f8c193338f787a 100755 (executable)
--- a/supermicro-kvm.pl
+++ b/supermicro-kvm.pl
@@ -46,6 +46,22 @@ sub read_inifile {
        %Ini;
 }
 
        %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];
 my %Config = read_inifile("$ENV{HOME}/.rsbs2rc");
 
 my $hostalias = $ARGV[0];


@@ -62,6 +78,7 @@ if (!defined($hostalias) || !defined($Config{$hostalias})) {
 
 my $url = "http://" . ${$Config{$hostalias}}{"host"};
 login($url, ${$Config{$hostalias}}{"user"}, ${$Config{$hostalias}}{"pass"});
 
 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));
 
 my $response = $ua->get("${url}/cgi/url_redirect.cgi?url_name=ikvm&url_type=jwsk");
 die $response->status_line if (!($response->is_success));