diff options
author | root <root@ka-ata-killa.panaceas.james.local> | 2021-09-01 00:15:20 +0100 |
---|---|---|
committer | root <root@ka-ata-killa.panaceas.james.local> | 2021-09-01 00:15:20 +0100 |
commit | ffd666e52164d06bc67d3d134ae8f53eb268bf6b (patch) | |
tree | 8ac3fbd546ed67b8053d27e16e8b2e83137473a0 /INF/ASRock.pm | |
parent | 21a57211e96a5ce5989ca006af8f26ffe391e0c9 (diff) | |
download | inf-ffd666e52164d06bc67d3d134ae8f53eb268bf6b.tar.gz inf-ffd666e52164d06bc67d3d134ae8f53eb268bf6b.tar.bz2 inf-ffd666e52164d06bc67d3d134ae8f53eb268bf6b.zip |
tidy
Diffstat (limited to 'INF/ASRock.pm')
-rw-r--r-- | INF/ASRock.pm | 35 |
1 files changed, 16 insertions, 19 deletions
diff --git a/INF/ASRock.pm b/INF/ASRock.pm index d4449c0..9ae247f 100644 --- a/INF/ASRock.pm +++ b/INF/ASRock.pm @@ -39,14 +39,13 @@ sub login($) { return -1; } - $self->{logged_in} = 1; my $json = decode_json( $res->content ); $self->{csrftoken} = $json->{CSRFToken}; - print "csrftoken ".$self->{csrftoken}."\n"; + print "csrftoken " . $self->{csrftoken} . "\n"; return 0; } @@ -56,22 +55,20 @@ sub view($) { $self->login() unless defined $self->{logged_in}; - my $get = GET( $self->{bmc_url} - . '/api/remote_control/get/kvm/launch' ); + my $get = GET( $self->{bmc_url} . '/api/remote_control/get/kvm/launch' ); - $get->header('X-CSRFTOKEN' => $self->{csrftoken}); - $get->header('Cookie' => 'lang=en-us'); + $get->header( 'X-CSRFTOKEN' => $self->{csrftoken} ); + $get->header( 'Cookie' => 'lang=en-us' ); my $res = $self->{ua}->request($get); unless ( $res->is_success ) { print STDERR "JWSK frequest failed - did not get 200\n"; - print Dumper ($res); + print Dumper ($res); return -1; } - my $xml = new XML::Simple; my $c = $res->content; @@ -105,25 +102,26 @@ sub view($) { print "Filename is $tmp->filename\n"; } - my $jars = [ ]; + my $jars = []; - push @$jars, $prefix.'JViewer.jar'; - push @$jars, $prefix.'JViewer-SOC.jar'; - push @$jars, $prefix.'JViewer-OEM.jar'; - push @$jars, $prefix.'JViewer-AVIStream.jar'; - push @$jars, $prefix.'Linux_x86_64.jar'; - push @$jars, $prefix.'JViewer-FolderRedir.jar'; + push @$jars, $prefix . 'JViewer.jar'; + push @$jars, $prefix . 'JViewer-SOC.jar'; + push @$jars, $prefix . 'JViewer-OEM.jar'; + push @$jars, $prefix . 'JViewer-AVIStream.jar'; + push @$jars, $prefix . 'Linux_x86_64.jar'; + push @$jars, $prefix . 'JViewer-FolderRedir.jar'; my $cp = join( ':', @$jars ); push @$java_args, "-cp"; push @$java_args, $cp; push @$java_args, "-Djava.library.path=" . $prefix; + # push @$java_args, "-Djava.security.manager"; # push @$java_args, "-Djava.security.policy=/usr/local/share/inf/asrock/mypolicy"; # push @$java_args, "-Dcom.sun.net.ssl.checkRevocation=false"; - push @$java_args,"-Xms100m"; - push @$java_args,"-Xmx256m"; + push @$java_args, "-Xms100m"; + push @$java_args, "-Xmx256m"; push @$java_args, "com.ami.kvm.jviewer.JViewer"; @@ -279,12 +277,11 @@ sub new ($;$) { || 'https://' . $self->{host}; $self->{ua}->ssl_opts( - SSL_version => 'TLSv1_2', + SSL_version => 'TLSv1_2', SSL_verify_mode => Net::SSLeay::VERIFY_NONE(), verify_hostname => 0, ); - if ( defined $parm->{proxy_host} ) { $self->{ua}->proxy( [qw(http https)] => "socks://" . $parm->{proxy_host} . ":" |