scottk/wlan-lanforge-scripts
1
0
Fork 0
mirror of https://github.com/Telecominfraproject/wlan-lanforge-scripts.git synced 2025-11-01 03:07:56 +00:00
Code Issues Packages Projects Releases Wiki Activity

hostap-timestamp can now parse LANforge log timestamps as well.

Browse Source
This commit is contained in:
Ben Greear
2019-10-09 07:51:51 -07:00
parent 802084f880
commit f001c1df41
1 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
hostap_timestamp.pl
View File

@@ -1,5 +1,7 @@
#!/usr/bin/perl #!/usr/bin/perl
# Convert LANforge logs and hostapd log timestamps to human readable timestamp.
use POSIX qw( strftime ); use POSIX qw( strftime );
while (<>) { while (<>) {
@@ -12,6 +14,15 @@ while (<>) {
my $dt = strftime("%Y-%m-%d %H:%M:%S", localtime($time_sec)); my $dt = strftime("%Y-%m-%d %H:%M:%S", localtime($time_sec));
print "$dt.$usec_pad $rest\n"; print "$dt.$usec_pad $rest\n";
} }
elsif ($ln =~ /^(\d+): (.*)/) {
my $tot_msec = $1;
my $rest = $2;
my $sec = int($tot_msec / 1000);
my $msec = $tot_msec % 1000;
my $msec_pad = sprintf("%03d", $msec);
my $dt = strftime("%Y-%m-%d %H:%M:%S", localtime($sec));
print "$dt.$msec_pad $rest\n";
}
else { else {
print $ln; print $ln;
} }