add ip <ipaddress> to dx by <spotter>

[spider.git] / perl / DXLogPrint.pm

diff --git a/perl/DXLogPrint.pm b/perl/DXLogPrint.pm
index 9564ae690b87d84817f32c1cea06e74cab5a826f..244402d6962493e685edb147cd734e83427284f3 100644 (file)
--- a/perl/DXLogPrint.pm
+++ b/perl/DXLogPrint.pm
@@ -18,8 +18,13 @@ use DXLog;
 use Julian;
 
 
-our $readback = `which tac`;
+our $readback = 1;
+if ($readback) {
+       $readback = `which tac`;
+} 
 chomp $readback;
+#undef $readback;                              # yet another reason not to use the cloud!
+ 
 
 use strict;
 
@@ -55,7 +60,7 @@ sub print
        }
        if ($who) {
                $hint .= ' && ' if $hint;
-               $hint .= q{m{\Q$who\E}oi};
+               $hint .= q{m{\Q$who\E}i};
        } 
        $hint = "next unless $hint" if $hint;
        $hint .= "; next unless m{^\\d+\\^$pattern\\^}" if $pattern;
@@ -107,7 +112,7 @@ sub print
                return "show/$name: ${s}not found";
        } 
 
-       for (reverse @in) {
+       for (sort {$a <=> $b } @in) {
                my @line = split /\^/ ;
                push @out, print_item(\@line);