[Freeswitch-svn] [commit] r8158 - freeswitch/trunk/scripts

[Freeswitch SVN]

Author: anthm
Date: Mon Apr 21 19:45:47 2008
New Revision: 8158

Added:
   freeswitch/trunk/scripts/extract_log_range.pl

Log:
update

Added: freeswitch/trunk/scripts/extract_log_range.pl
==============================================================================
--- (empty file)
+++ freeswitch/trunk/scripts/extract_log_range.pl	Mon Apr 21 19:45:47 2008
@@ -0,0 +1,43 @@
+#!/usr/bin/perl
+use Time::Local;
+
+my $file = shift;
+my $start = shift;
+my $stop = shift;
+
+
+sub parse_date($) {
+  my $str = shift;
+
+  if (my ($yr, $mo, $day, $hr, $min, $sec) = $str =~ /(\d{4})\-(\d{2})\-(\d{2}) (\d{2})\:(\d{2})\:(\d{2})/) {
+    return timelocal($sec, $min, $hr, $day - 1, $mo - 1, $yr);
+  } else {
+    die $str;
+  }
+}
+
+if ($start =~ /\:/) {
+  $start = parse_date($start);
+}
+
+if ($stop =~ /\:/) {
+  $stop = parse_date($stop);
+} elsif ($stop =~ /^\+(\d+)/) {
+  $stop = $start + $1;
+}
+
+open(I, $file);
+	       
+while (<I>) {
+  my $str = $_;
+  $epoch = parse_date($str);
+  
+  if ($epoch > $start) {
+    if ($stop && $epoch > $stop) {
+      last;
+    }
+    print;
+  }
+}
+
+close(I);