--- a/Common.pm	Wed Aug 02 12:03:45 2006 +0000
+++ b/Common.pm	Wed Aug 09 07:57:14 2006 +0000
@@ -3,6 +3,7 @@
 # $URL$
 use strict;
 use warnings;
+use ldapBase;
 use constant CONFIG => (
     { CASE => 1 },
     GLOBAL => { DEFAULT => undef },
@@ -67,3 +68,5 @@
 			    { ARGS => "=s", DEFAULT => "XXXmailPrimaryAddress" },
 
 );
+
+1;

--- 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");

--- a/ma	Wed Aug 02 12:03:45 2006 +0000
+++ b/ma	Wed Aug 09 07:57:14 2006 +0000
@@ -90,7 +90,7 @@
     }
 
     if ($Cf->help) {
-	if (-t STDOUT and -x "/usr/bin/less") { open(X, "|less -F") }
+	if (-t STDOUT and -x "/usr/bin/less") { open(X, "|less -FX") }
 	else { open(X, ">&STDOUT"); }
 	print X help();
 	exit 0;