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;
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;
%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 $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));