# HG changeset patch
# User heiko
# Date 1155110234 0
# Node ID 4d73e4ea84cd4c1f0ae3d809b2b27fc9da2d5b52
# Parent  3b195e22603d68ede18fdbf71490cf92a99c68ab
less -X jetzt für die Hilfe (verhindert die Bildschirm-Initialisierung)
Common: 1 und use ldapBase

diff -r 3b195e22603d -r 4d73e4ea84cd Common.pm
--- 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;
diff -r 3b195e22603d -r 4d73e4ea84cd account.pm
--- 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");
diff -r 3b195e22603d -r 4d73e4ea84cd ma
--- 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;