my $urlstringlog = $apiurllog . $sortor . $filter . $target . $appID .
+ $date2;
$strExcelFilename = "C:/" . "Analysis-Details-automatic-bk" . $date .
+".xlsx";
do {
# Run get the users
run_api_call($urlstringlog);
@responsetext = parse_json ($client->responseContent());
push @responsetextall, @responsetext;
$linkheader = $client->responseHeader("link");
if ($linkheader=~ m/next/) {
(my $link1 = $linkheader) =~ s/ .*? (self)/$1/gx;
(my $link2 = $link1) =~ s/self/$1/g;
print "Post Pagination: $link10";
$urlstringlog = $link2;
}
} while ($linkheader=~ m/next/);
for my $i (0..$#responsetextall) {
$responsetextall[$i] =~ s/]\[/,/g;
for my $j (0..$#{$responsetextall[$i]}) {
@responsests1 = $responsetextall[$i][$j]{tat};
$responseid = $responsetextall[$i][$j]{act}{id};
$responsdisp = $responsetextall[$i][$j]{act}{Name};
$responsalter = $responsetextall[$i][$j]{act}{Id};
$responseclientipadd = $responsetextall[$i][$j]{cln}{ipAd
+};
$responseappsdebug = $responsetextall[$i][$j]{deb}{Data};
+
for my $m (0..$#responsests1) {
for my $n (0..$#{$responsests1[$m]}) {
$responseapps2id = $responsests1[$m][$n]{id};
$responseapps2 = $responsests1[$m][$n]{ty};
$responseapps1 = $responsests1[$m][$n]{Name};
if ( $responseapps2 eq 'AppInstance' ){
@responseapps3 = $responsests1[$m][$n]{displayName};
$responseapps5 = $responseapps3[0];
print "Its Matches Appinstances";
$responseapps4 = $responsests1[$m][$n]{Name};
if ( $responseapps2 eq 'AppUser'){
$responseapps3id = $responsests1[$m][$n]{a
+Id};
}
}
push @responseapps3id,$responseapps3id;
push @responseapps5 , $responseapps4;
push @responseapps7, $responseapps7;
}
}
push @responsalter, $responsalter;
push @responseclientipadd,$responseclientipa
+dd;
}
}
|