author | heiko |
Wed, 19 Jul 2006 12:09:36 +0000 | |
branch | cms |
changeset 17 | a4afc54e4b34 |
parent 16 | 65695e59a6f9 |
child 18 | e3710b49e8e4 |
--- a/ma Fri Jul 14 14:32:38 2006 +0000 +++ b/ma Wed Jul 19 12:09:36 2006 +0000 @@ -152,7 +152,12 @@ $Cf->ldap_admin($Cf->ldap_admin . "," . $Cf->ldap_base); } - print help() and exit 0 if $Cf->help; + if ($Cf->help) { + if (-t STDOUT and -x "/usr/bin/less") { open(X, "|less -F") } + else { open(X, ">&STDOUT"); } + print X help(); + exit 0; + } @_ = grep { $_ =~ /^\Q$Module\E/ } qw/account alias shared group/; die "Need module. Try --help\n" if @_ == 0;