run perltidy on clonedev.pl
This commit is contained in:
parent
822dab6090
commit
887fa25cb3
1 changed files with 9 additions and 10 deletions
|
@ -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 );
|
||||
|
|
Loading…
Add table
Reference in a new issue