--- a/account.pm Wed Aug 02 12:03:45 2006 +0000
+++ b/account.pm Wed Aug 09 07:57:14 2006 +0000
@@ -370,6 +370,8 @@
);
die $r->error if $r->code;
+ #if (-t STDOUT) { open(LESS, "|less -F -X") and select LESS; }
+
while (my $e = $r->shift_entry) {
my $uid = $e->get_value("uid");