smecontribs/smeserver-mailstats
6
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

More fixes for log format and make perl and python run from same datafile

Browse Source
This commit is contained in:
Brian Read
2024-12-31 13:34:23 +00:00
parent 8be2103dec
commit 9ebe02b80e
3 changed files with 41 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
root/usr/bin/mailstats.pl
View File

@@ -535,14 +535,14 @@ LINE: while (<>) {
#my $abshour = floor( $abstime / 3600 ); # Hours since the epoch
# Create a timestamp for the previous hour
my $previous_hour_epoch = $current_epoch - 3600; # Subtract 3600 seconds (1 hour)
my $previous_hour_epoch = $current_epoch; # - 3600; # Subtract 3600 seconds (1 hour)
# Convert epoch time to local time
my ($sec, $min, $hour) = localtime($previous_hour_epoch);
#print $sec." ".$min." ".$hour."\n";
$hour = ($hour==23)?0:$hour;
my $abshour = $hour+1;
#print "Abs:".$abshour."\n";
#$hour = ($hour==23)?0:$hour;
my $abshour = $hour;
#print "Abs:".$abshour." ".strftime('%Y-%m-%dT%H:%M:%SZ',gmtime($previous_hour_epoch))."\n";
my ($timestamp_part, $log_part) = split('`',$_,2); #bjr 0.6.12