Bitte ergänzen: für Ausgabe der gets
Ab line 272
# corresponding get parameters
$str .= sprintf("%*s\"gets\": [\n", $lev+6, " ");
my $gets = getAllGets($d);
if($gets) {
my @pGets;
foreach my $get (split(" ", JsonEscape($gets))) {
push @pGets, sprintf("%*s\"%s\"", $lev+8, " ", $get);
}
$str .= join(",\n", @pGets);
}
$str .= sprintf("\n%*s],\n", $lev+6, " ");
Danke ;)