X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fgrepdbg;fp=perl%2Fgrepdbg;h=c44fc92b85c3a08f2565ef95e73f91a82886a1ca;hb=9da1742219a27b1c02fd57794412088e4d7b3d1d;hp=0000000000000000000000000000000000000000;hpb=a53dd3ac43ba8336e30057aa39220e71c925a197;p=spider.git

diff --git a/perl/grepdbg b/perl/grepdbg
new file mode 100755
index 00000000..c44fc92b
--- /dev/null
+++ b/perl/grepdbg
@@ -0,0 +1,66 @@
+#!/usr/bin/perl
+#
+# Program to do a grep with dates and times on the debug
+# files
+#
+# dispdbg [-nnn ...] <string>
+#
+# the -nnn is the day you what to look at -1 is yesterday -0 is today
+# and is optional if there is only one argument
+# <string> is the string, a caseless search is done
+#
+#
+
+require 5.004;
+
+# search local then perl directories
+BEGIN {
+	# root of directory tree for this system
+	$root = "/spider"; 
+	$root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
+	
+	unshift @INC, "$root/perl";	# this IS the right way round!
+	unshift @INC, "$root/local";
+}
+
+use DXVars;
+use DXUtil;
+use DXLog;
+
+use strict;
+
+use vars qw(@list $fp @today $string);
+
+$fp = DXLog::new('debug', 'dat', 'd');
+@today = Julian::unixtoj(time()); 
+
+for my $arg (@ARGV) {
+	if ($arg =~ /^-/) {
+		$arg =~ s/^-//o;
+		push @list, $arg;
+	} else {
+		$string = $arg;
+		last;
+	}
+}
+die "usage: dispdbg [[-nnn] ..] <string>\n" unless  $string;
+
+push @list, "0" unless @list;
+for my $entry (@list) {
+	my @now = Julian::sub(@today, $entry); 
+	my $fh = $fp->open(@now); 
+	my $line;
+	if ($fh) {
+		while (<$fh>) {
+			my $line = $_;
+			chomp $line;
+			if ($line =~ m{\Q$string}io) {
+				my @line =  split '\^', $line;
+				my $t = shift @line;
+				print atime($t), ' ', join('^', @line), "\n"; 
+			}
+		}
+		$fp->close();
+	}
+}
+exit(0);