changing bootstylesheet

This commit is contained in:
Rainer Gümpelein 2022-03-30 13:06:39 +02:00
parent 30bb566d5e
commit d6c5a31192
5 changed files with 31 additions and 161 deletions

View file

@ -62,6 +62,9 @@ print FILE "\n*** $now_dt 'sigo client' \n";
sub get_bikes {
my $self = shift;
open(FILE,">>$varenv{logdir}/APIsigo_client.log");
print FILE "\n*** $now_dt 'sigo client' \n";
my $endpoint = "https://sigo.dev.sigo.green/api/v1/bikes";
print "$endpoint\n";
@ -69,13 +72,14 @@ sub get_bikes {
my $ret_json = get_sigo("","$endpoint",$rest_json);
eval {
$response_in = decode_json($ret_json);
print "<--- get_bikes response_in:\n" . Dumper($response_in);
print FILE "<--- get_bikes response_in:\n" . Dumper($response_in);
};
if ($@){
print "<--- failure get_bikes raw response_in:\n" . Dumper($ret_json) . "\n";
print FILE "<--- failure get_bikes raw response_in:\n" . Dumper($ret_json) . "\n";
warn $@;
}
close(FILE);
}
#main GET