From ffd666e52164d06bc67d3d134ae8f53eb268bf6b Mon Sep 17 00:00:00 2001
From: root <root@ka-ata-killa.panaceas.james.local>
Date: Wed, 1 Sep 2021 00:15:20 +0100
Subject: tidy

---
 INF/ASRock.pm | 35 ++++++++++++++++-------------------
 1 file changed, 16 insertions(+), 19 deletions(-)

(limited to 'INF/ASRock.pm')

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} . ":"
-- 
cgit v1.2.3