use Data::Dump qw(dump);
use autodie;
+my $path = '/home/nodelogs/c405f97667784094bca5cfa52af0bcf1/';
+
+# select _id,json->'received',time,to_timestamp((json->>'received')::int8/1000) - interval '1 hour' from nodelog ;
+
my $dbh = DBI->connect("dbi:Pg:dbname=eg5120", "dpavlin", "", { RaiseError => 1 });
$dbh->do( qq{ truncate table nodelog } ); # FIXME
my $sth = $dbh->prepare(qq{insert into nodelog (time,json) values (?,?)});
-foreach my $filename ( sort(glob('node-logs/node-red-out__2023-07-*')), 'node-logs/node-red-out.log' ) {
+foreach my $filename (
+ sort(glob("$path/node-red-out__2023-07-*")),
+ "$path/node-red-out.log"
+ ) {
warn "# $filename";
open(my $log, '<', $filename);
my $in_json = 0;
}
}
+