Below is a sample perl script capable of running on a CUE linux host (e.g. jlabl1) to retrieve logbook content,.
#!/apps/bin/perl
use LWP::Simple;
use JSON::PP qw( decode_json );
use Data::Dumper;
use strict;
use warnings;
my $url = 'https://logbooks.jlab.org/api/elog/entries?book=HALOG'; # Base logbook query url
$url .= '&field=lognumber&field=title&field=body'; # Desired output fields
$url .= '&title=Start_Run_20685'; # Additional queriy
my $json = get( $url );
die "Could not get $url!" unless defined $json;
my $decoded_json = decode_json( $json );
if ($decoded_json->{stat} eq 'ok'){
my @entries = @{$decoded_json->{data}->{entries}};
foreach (@entries){
print $_->{lognumber}.": ".$_->{title}."\n";
print "\n-----\n";
print $_->{body}->{content}."\n\n";
}
exit 0;
}else{
print "The server did not return ok\n";
}
exit 1;