+
+ unless (@in) {
+ my $name = $pattern ? $pattern : "log";
+ my $s = "$who "|| '';
+ return "show/$name: ${s}not found";
+ }
+
+ for (sort {$a <=> $b } @in) {
+ push @out, [ split /\^/ ]
+ }
+
+ return @out;
+}
+
+sub print
+{
+ my @out;
+
+ my @in = search(@_);