1
0
Fork 0

run perltidy on clonedev.pl

This commit is contained in:
Luca Bilke 2024-02-18 13:02:37 +01:00
parent 822dab6090
commit 887fa25cb3

View file

@ -9,7 +9,6 @@
print("This shit ain't done yet!");
exit;
use strict;
use warnings;
use feature ("signatures");
@ -167,26 +166,26 @@ read_conf();
# );
#
my $last_handle = 0;
foreach my $i ( keys @{$conf{plugins}} ) {
my %plugin = %{$conf{plugins}[$i]};
chomp( $ENV{TOKEN} =
foreach my $i ( keys @{ $conf{plugins} } ) {
my %plugin = %{ $conf{plugins}[$i] };
chomp(
$ENV{TOKEN} =
$plugin{token_cmd}
? `$plugin{token_cmd}`
: "" );
: ""
);
foreach ( @{ $plugin{extra_headers} } ) {
last if ( !$_ );
$_ = `printf "$_"`;
}
foreach my $j ( keys @{ $plugin{targets} } ) {
# FIX: $_[$j] is empty
$last_handle++;
$handles[$last_handle]{plugin} = $i;
print("$plugin{api_url}/$_[$j]/$plugin{endpoint}\n");
set_curl(
$last_handle,
"$plugin{api_url}/$_[$j]/$plugin{endpoint}",
$plugin{extra_headers}
);
set_curl( $last_handle, "$plugin{api_url}/$_[$j]/$plugin{endpoint}",
$plugin{extra_headers} );
add_callback( $last_handle, \&dump );
add_callback( $last_handle, \&json_decode );
add_callback( $last_handle, \&filter );