861 lines
23 KiB
Perl
861 lines
23 KiB
Perl
package Lemonldap::NG::Manager::Cli;
|
||
|
||
# Required packages
|
||
|
||
use strict;
|
||
use Lemonldap::NG::Common::Conf;
|
||
|
||
# Constants
|
||
|
||
our $VERSION = "1.4.0";
|
||
|
||
my $ERRORS = {
|
||
TOO_FEW_ARGUMENTS => "Too few arguments",
|
||
UNKNOWN_ACTION => "Unknown action",
|
||
CONFIG_WRITE_ERROR => "Error while writting the configuration",
|
||
NOT_IMPLEMENTED => "Not yet implemented",
|
||
};
|
||
|
||
## @cmethod Lemonldap::NG::Manager::Cli new ()
|
||
# Create a new Lemonldap::NG::Manager::Cli object
|
||
#
|
||
# @return New Lemonldap::NG::Manager::Cli object
|
||
sub new {
|
||
my ($class) = @_;
|
||
|
||
my $self = { "confAccess" => Lemonldap::NG::Common::Conf->new() };
|
||
|
||
$self->{conf} = $self->{confAccess}->getConf();
|
||
|
||
bless( $self, $class );
|
||
return $self;
|
||
}
|
||
|
||
## @method int saveConf ()
|
||
# Save LemonLDAP::NG configuration
|
||
#
|
||
# @return Configuration identifier.
|
||
sub saveConf {
|
||
my ($self) = @_;
|
||
my $ret = $self->{confAccess}->saveConf( $self->{conf} );
|
||
return $ret;
|
||
}
|
||
|
||
## @method string determineMethod ()
|
||
# Determine the method from the arguments
|
||
#
|
||
# @return method name
|
||
sub determineMethod {
|
||
my ($self, $opt) = @_;
|
||
$opt =~ s/-(\w+)/ucfirst($1)/ge;
|
||
return $opt;
|
||
}
|
||
|
||
## @method void setError (string str)
|
||
# Set error message
|
||
#
|
||
# @param str Text of the error
|
||
sub setError {
|
||
my ($self, $msg) = @_;
|
||
$self->{errormsg} = $msg;
|
||
}
|
||
|
||
## @method string getError ()
|
||
# Get error message
|
||
#
|
||
# @return Text of the error
|
||
sub getError {
|
||
my ($self) = @_;
|
||
return $self->{errormsg};
|
||
}
|
||
|
||
## @method int run (string method, array args)
|
||
# Run the requested method with @args
|
||
#
|
||
# @return result code of the method
|
||
sub run {
|
||
my $self = shift;
|
||
my $method = shift;
|
||
|
||
my @args;
|
||
@args = @_ if (@_ >= 1);
|
||
|
||
# perl black magic :)
|
||
return (@args >= 1) ? $self->$method(@args) : $self->$method();
|
||
}
|
||
|
||
## @method void set ( string variable, string value )
|
||
# Set the requested variable to the given value
|
||
#
|
||
# @return nothing
|
||
sub set {
|
||
my ($self, $var, $val) = @_;
|
||
$self->{conf}->{$var} = $val;
|
||
}
|
||
|
||
## @method void unset (string variable)
|
||
# Unset the requested variable
|
||
#
|
||
# @return nothing
|
||
sub unset {
|
||
my ($self, $var) = @_;
|
||
if (not defined($self->conf->{$var})) {
|
||
$self->setError("$_: " . $ERRORS->{CONFIG_WRITE_ERROR} . ": There is no variables named $var" );
|
||
return 0;
|
||
}
|
||
delete $self->conf->{$var};
|
||
}
|
||
|
||
## @method void get (string variable)
|
||
# Get the value of the requested variable
|
||
#
|
||
# @return nothing
|
||
sub get {
|
||
my ($self, $var) = @_;
|
||
if (not defined($self->conf->{$var})) {
|
||
$self->setError("$_: " . $ERRORS->{CONFIG_WRITE_ERROR} . ": There is no variables named $var" );
|
||
return 0;
|
||
}
|
||
print "$var = " . $self->{conf}->{$var} . "\n";
|
||
}
|
||
|
||
## @method void setMacro (string macro, string value)
|
||
# Set the requested macro to the given value
|
||
#
|
||
# @return nothing
|
||
sub setMacro {
|
||
my ($self, $macro, $value) = @_;
|
||
$self->{conf}->{macros}->{$macro} = $value;
|
||
}
|
||
|
||
## @method void unsetMacro (string macro)
|
||
# Unset the requested macro
|
||
#
|
||
# return nothing
|
||
sub unsetMacro {
|
||
my ($self, $macro) = @_;
|
||
if ( not defined( $self->{conf}->{macros}->{$macro} ) ) {
|
||
$self->setError("$_: " . $ERRORS->{CONFIG_WRITE_ERROR} . ": There is no macro named $macro" );
|
||
return 0;
|
||
}
|
||
delete $self->{conf}->{macros}->{$macro};
|
||
}
|
||
|
||
## @method void getMacro (string macro)
|
||
# Get the value of the requested macro
|
||
#
|
||
# @return nothing
|
||
sub getMacro {
|
||
my ($self, $macro) = @_;
|
||
if ( not defined( $self->{conf}->{macros}->{$macro} ) ) {
|
||
$self->setError("$_: " . $ERRORS->{CONFIG_WRITE_ERROR} . ": There is no macro named $macro" );
|
||
return 0;
|
||
}
|
||
print "$macro = " . $self->{conf}->{macros}->{$macro} . "\n";
|
||
}
|
||
|
||
## @method void appsSetCat ( int id, string name )
|
||
# Set the category name by its id
|
||
#
|
||
# @return nothing
|
||
sub appsSetCat {
|
||
my ($self, $id, $name) = @_;
|
||
if ( defined( $self->{conf}->{applicationList}->{$id} ) ) {
|
||
$self->{conf}->{applicationList}->{$id}->{catname} = $name;
|
||
}
|
||
else {
|
||
$self->{conf}->{applicationList}->{$id} = {
|
||
type => "category",
|
||
name => $name
|
||
};
|
||
}
|
||
}
|
||
|
||
## @method void appsGetCat ( int id )
|
||
# Get a category name by its id
|
||
#
|
||
# @return nothing
|
||
sub appsGetCat {
|
||
my ($self, $id) = @_;
|
||
if ( not defined( $self->{conf}->{applicationList}->{$id} ) ) {
|
||
$self->setError("$_: There is no category $id");
|
||
return 0;
|
||
}
|
||
print "$id : " . $self->{conf}->{applicationList}->{$id}->{catname} . "\n";
|
||
}
|
||
|
||
## @method void appsAdd (int appId, int catId )
|
||
# Add a new application to a category
|
||
#
|
||
# @return nothing
|
||
sub appsAdd {
|
||
my ($self, $appId, $catId) = @_;
|
||
if ( not defined( $self->{conf}->{applicationList}->{$catId} ) ) {
|
||
$self->setError("$_" . $ERRORS->{CONFIG_WRITE_ERROR} . ": Category $catId doesn't exist");
|
||
return 0;
|
||
}
|
||
if ( defined( $self->{conf}->{applicationList}->{$catId}->{$appId} ) ) {
|
||
$self->setError("$_" . $ERRORS->{CONFIG_WRITE_ERROR} . ": Application $appId exists");
|
||
}
|
||
$self->{conf}->{applicationList}->{$catId}->{$appId} = {
|
||
type => "application",
|
||
options => {
|
||
logo => "demo.png",
|
||
name => $appId,
|
||
description => $appId,
|
||
display => "auto",
|
||
uri => "http://test1.example.com"
|
||
}
|
||
};
|
||
}
|
||
|
||
## @cmethod void appsSetUri ( string id, string uri )
|
||
# Set given application's uri
|
||
#
|
||
# @return nothing
|
||
sub appsSetUri {
|
||
my ($self, $id, $uri) = @_;
|
||
my $found = 0;
|
||
|
||
while ( my ($catId, $appList) = each %{ $self->{conf}->{applicationList} } and $found != 1 ) {
|
||
while ( my ( $_appid, $app ) = each %{$appList} and $found != 1 ) {
|
||
if ( $id eq $_appid ) {
|
||
$app->{options}->{uri} = $uri;
|
||
$found = 1;
|
||
}
|
||
}
|
||
}
|
||
|
||
if ( $found == 0 ) {
|
||
$self->setError( "$_: " . $ERRORS->{CONFIG_WRITE_ERROR} . ": Application $id not found" );
|
||
return 0;
|
||
}
|
||
}
|
||
|
||
## @method void appsSetName ( string id, string name )
|
||
# Set the name of the given application
|
||
#
|
||
# @return nothing
|
||
sub appsSetName {
|
||
my ($self, $id, $name) = @_;
|
||
my $found = 0;
|
||
|
||
while ( my ($catId, $appList) = each %{ $self->{conf}->{applicationList} } and $found != 1 ) {
|
||
while ( my ( $_appid, $app ) = each %{$appList} and $found != 1 ) {
|
||
if ( $id eq $_appid ) {
|
||
$app->{options}->{name} = $name;
|
||
$found = 1;
|
||
}
|
||
|
||
if ( $found == 0 ) {
|
||
$self->setError( "$_: " . $ERRORS->{CONFIG_WRITE_ERROR} . ": Application $id not found" );
|
||
return 0;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
## @method void appsSetDesc ( string id, string desc )
|
||
# Set the description of the given application
|
||
#
|
||
# @return nothing
|
||
sub appsSetDesc {
|
||
my ($self, $id, $desc) = @_;
|
||
my $found = 0;
|
||
|
||
while ( my ($catId, $appList) = each %{ $self->{conf}->{applicationList} } and $found != 1 ) {
|
||
while ( my ( $_appid, $app ) = each %{$appList} and $found != 1 ) {
|
||
if ( $id eq $_appid ) {
|
||
$app->{options}->{description} = $desc;
|
||
$found = 1;
|
||
}
|
||
|
||
if ( $found == 0 ) {
|
||
$self->setError( "$_: " . $ERRORS->{CONFIG_WRITE_ERROR} . ": Application $id not found" );
|
||
return 0;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
## @method void appsSetLogo ( string id, string logo )
|
||
# Set the logo of the given application
|
||
#
|
||
# @return nothing
|
||
sub appsSetLogo {
|
||
my ($self, $id, $logo) = @_;
|
||
my $found = 0;
|
||
|
||
while ( my ($catId, $appList) = each %{ $self->{conf}->{applicationList} } and $found != 1 ) {
|
||
while ( my ( $_appid, $app ) = each %{$appList} and $found != 1 ) {
|
||
if ( $id eq $_appid ) {
|
||
$app->{options}->{logo} = $logo;
|
||
$found = 1;
|
||
}
|
||
|
||
if ( $found == 0 ) {
|
||
$self->setError( "$_: " . $ERRORS->{CONFIG_WRITE_ERROR} . ": Application $id not found" );
|
||
return 0;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
## @method void appsSetDisplay ( string id, string display )
|
||
# Set display setting of the given application
|
||
#
|
||
# @return nothing
|
||
sub appsSetDisplay {
|
||
my ($self, $id, $display) = @_;
|
||
my $found = 0;
|
||
|
||
while ( my ($catId, $appList) = each %{ $self->{conf}->{applicationList} } and $found != 1 ) {
|
||
while ( my ( $_appid, $app ) = each %{$appList} and $found != 1 ) {
|
||
if ( $id eq $_appid ) {
|
||
$app->{options}->{display} = $display;
|
||
$found = 1;
|
||
}
|
||
|
||
if ( $found == 0 ) {
|
||
$self->setError( "$_: " . $ERRORS->{CONFIG_WRITE_ERROR} . ": Application $id not found" );
|
||
return 0;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
## @method void appsGet ( string id )
|
||
# Show all the given application's settings
|
||
#
|
||
# @return nothing
|
||
sub appsGet {
|
||
my ($self, $id) = @_;
|
||
my $found = 0;
|
||
|
||
while ( my ( $catid, $applist ) = each %{ $self->{conf}->{applicationList} } and $found != 1 ) {
|
||
while ( my ( $_appid, $app ) = each %{$applist} and $found != 1 ) {
|
||
if ( $id eq $_appid ) {
|
||
print "Category $catid: " . $self->{conf}->{applicationList}->{$catid}->{catname} . "\n";
|
||
print "Application $id: " . $app->{options}->{name} . "\n";
|
||
print "- Description: " . $app->{options}->{description} . "\n";
|
||
print "- URI: " . $app->{options}->{uri} . "\n";
|
||
print "- Logo: " . $app->{options}->{logo} . "\n";
|
||
print "- Display: " . $app->{options}->{display} . "\n";
|
||
$found = 1;
|
||
}
|
||
}
|
||
}
|
||
|
||
if ( $found == 0 ) {
|
||
$self->setError("$_: Application $id not found");
|
||
return 0;
|
||
}
|
||
}
|
||
|
||
## @method void appsRm ( string id )
|
||
# Delete the given application from the configuration
|
||
#
|
||
# @return nothing
|
||
sub appsRm {
|
||
my ($self, $id) = @_;
|
||
my $found = 0;
|
||
|
||
while ( my ( $catid, $applist ) = each %{ $self->{conf}->{applicationList} } and $found != 1 ) {
|
||
while ( my ( $_appid, $app ) = each %{$applist} and $found != 1 ) {
|
||
if ($id eq $_appid) {
|
||
delete $applist->{$id};
|
||
$found = 1;
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
## @method void rulesSet ( string uri, string expr, string rule )
|
||
# Set a rule for teh given vhost
|
||
#
|
||
# @return nothing
|
||
sub rulesSet {
|
||
my ($self, $uri, $expr, $rule) = @_;
|
||
|
||
if ( not defined( $self->{conf}->{locationRules}->{$uri} ) ) {
|
||
$self->{conf}->{locationRules}->{$uri} = {};
|
||
}
|
||
|
||
$self->{conf}->{locationRules}->{$uri}->{$expr} = $rule;
|
||
}
|
||
|
||
## @method void rulesUnset ( string uri, string expr)
|
||
# Unset a rule for the given vhost
|
||
#
|
||
# @return nothing
|
||
sub rulesUnset {
|
||
my ($self, $uri, $expr) = @_;
|
||
|
||
if ( not defined( $self->{conf}->{locationRules}->{$uri} ) ) {
|
||
$self->setError( "$_: " . $ERRORS->{CONFIG_WRITE_ERROR} . ": There is rule $expr for virtual host $uri" );
|
||
return 0;
|
||
}
|
||
|
||
delete $self->{conf}->{locationRules}->{$uri}->{$expr};
|
||
}
|
||
|
||
## @method void rulesGet ( string uri )
|
||
# Get the rules of the given vhost
|
||
#
|
||
# @return nothing
|
||
sub rulesGet {
|
||
my ($self, $uri) = @_;
|
||
|
||
if ( not defined( $self->{conf}->{locationRules}->{$uri} ) ) {
|
||
$self->setError("$_: There is no virtual host $uri");
|
||
return 0;
|
||
}
|
||
|
||
print "Virtual Host : $uri\n";
|
||
|
||
while ( my ( $expr, $rule ) = each %{ $self->{conf}->{locationRules}->{$uri} } ) {
|
||
print "- $expr => $rule\n";
|
||
}
|
||
}
|
||
|
||
## @method void exportVar ( string key, string val )
|
||
# export a variable
|
||
#
|
||
# @return nothing
|
||
sub exportVar {
|
||
my ($self, $key, $val) = @_;
|
||
$self->{conf}->{exportedVars}->{$key} = $val;
|
||
}
|
||
|
||
## @method void unexportVar ( string key )
|
||
# unexport a variable
|
||
#
|
||
# @return nothing
|
||
sub unexportVar {
|
||
my ($self, $key) = @_;
|
||
|
||
if ( not defined( $self->{conf}->{exportedVars}->{$key} ) ) {
|
||
$self->setError("$_: There is no exported variables named $key" );
|
||
return 0;
|
||
}
|
||
|
||
delete $self->{conf}->{exportedVars}->{$key};
|
||
}
|
||
|
||
## @method void getExportedVars ()
|
||
# print the exported variables of the configuration
|
||
#
|
||
# @return nothing
|
||
sub getExportedVars {
|
||
my $self = shift;
|
||
while ( my ( $key, $val ) = each %{ $self->{conf}->{exportedVars} } ) {
|
||
print "$key = $val\n";
|
||
}
|
||
}
|
||
|
||
## @method void exportHeader (string $vhost, string $header, string $expr )
|
||
# Export a header for the given vhost
|
||
#
|
||
# @return nothing
|
||
sub exportHeader {
|
||
my ($self, $vhost, $header, $expr) = @_;
|
||
|
||
if ( not defined( $self->{conf}->{exportedHeaders}->{$vhost} ) ) {
|
||
$self->setError( "$_: " . $ERRORS->{CONFIG_WRITE_ERROR} . ": There is no virtual host $vhost\n" );
|
||
return 0;
|
||
}
|
||
|
||
$self->{conf}->{exportedHeaders}->{$vhost}->{$header} = $expr;
|
||
}
|
||
|
||
## @method void unexportHeader ( string $vhost, string $header, string $expr )
|
||
# Unexport the given header
|
||
#
|
||
# @return nothing
|
||
sub unexportHeader {
|
||
my ($self, $vhost, $header, $expr) = @_;
|
||
|
||
if ( not defined( $self->{conf}->{exportedHeaders}->{$vhost} ) ) {
|
||
$self->setError( "$_: " . $ERRORS->{CONFIG_WRITE_ERROR} . ": There is no virtual host $vhost\n" );
|
||
return 0;
|
||
}
|
||
|
||
if ( not defined( $self->{conf}->{exportedHeaders}->{$vhost}->{$header} ) ) {
|
||
$self->setError( "$_: " . $ERRORS->{CONFIG_WRITE_ERROR} . ": There is no header named $header exported for virtual host $vhost\n" );
|
||
return 0;
|
||
}
|
||
|
||
delete $self->{conf}->{exportedHeaders}->{$vhost}->{$header};
|
||
}
|
||
|
||
## @method void getExportedHeaders ( string vhost )
|
||
# Give the exported headers for the given vhost
|
||
#
|
||
# @return nothing
|
||
sub getExportedHeaders {
|
||
my ($self, $vhost) = @_;
|
||
|
||
if ( not defined( $self->{conf}->{exportedHeaders}->{$vhost} ) ) {
|
||
$self->setError( "$_: " . $ERRORS->{CONFIG_WRITE_ERROR} . ": There is no virtual host $vhost\n" );
|
||
return 0;
|
||
}
|
||
|
||
while ( my ( $header, $expr ) = each %{ $self->{conf}->{exportedHeaders}->{$vhost} } ) {
|
||
print "$header : $expr\n";
|
||
}
|
||
}
|
||
|
||
## @method void vhostAdd ( string vhost )
|
||
# Add a new vhost
|
||
#
|
||
# @return nothing
|
||
sub vhostAdd {
|
||
my ($self, $vhost) = @_;
|
||
|
||
if ( defined( $self->{conf}->{vhostOptions}->{$vhost} )
|
||
or defined( $self->{conf}->{locationRules}->{$vhost} )
|
||
or defined( $self->{conf}->{exportedHeaders}->{$vhost} ) ) {
|
||
$self->setError( "$_: " . $ERRORS->{CONFIG_WRITE_ERROR} . ": Virtual host $vhost already exist" );
|
||
return 0;
|
||
}
|
||
|
||
$self->{conf}->{vhostOptions}->{$vhost} = {
|
||
vhostMaintenance => '0',
|
||
vhostPort => '-1',
|
||
vhostHttps => '-1'
|
||
};
|
||
|
||
$self->{conf}->{locationRules}->{$vhost} = { default => "deny" };
|
||
$self->{conf}->{exportedHeaders}->{$vhost} = { "Auth-User" => "\$uid" };
|
||
|
||
}
|
||
|
||
## @method void vhostDel ( string vhost )
|
||
# Drop a vhost
|
||
#
|
||
# @return nothing
|
||
sub vhostDel {
|
||
my ($self, $vhost) = @_;
|
||
|
||
my $error = "No virtual host in: ";
|
||
my $nerror = 0;
|
||
|
||
if ( not defined( $self->{conf}->{vhostOptions}->{$vhost} ) ) {
|
||
$nerror++;
|
||
$error .= "vhostOptions ";
|
||
}
|
||
else {
|
||
delete $self->{conf}->{vhostOptions}->{$vhost};
|
||
}
|
||
|
||
if ( not defined( $self->{conf}->{locationRules}->{$vhost} ) ) {
|
||
$nerror++;
|
||
$error .= "locationRules ";
|
||
}
|
||
else {
|
||
delete $self->{conf}->{locationRules}->{$vhost};
|
||
}
|
||
|
||
if ( not defined( $self->{conf}->{exportedHeaders}->{$vhost} ) ) {
|
||
$nerror++;
|
||
$error .= "exportedHeaders ";
|
||
}
|
||
else {
|
||
delete $self->{conf}->{exportedHeaders}->{$vhost};
|
||
}
|
||
|
||
if ( $nerror == 3 ) {
|
||
$error .= ". abortting...";
|
||
$self->setError( "$_: " . $ERRORS->{CONFIG_WRITE_ERROR} . ": $error" );
|
||
return 0;
|
||
}
|
||
elsif ( $nerror != 0 ) {
|
||
$error .= ". ignoring...";
|
||
$self->setError( "$_: " . $ERRORS->{CONFIG_WRITE_ERROR} . ": $error" );
|
||
}
|
||
}
|
||
|
||
## @method void vhostSetPort ( string vhost, int port )
|
||
# Set given vhost's port
|
||
#
|
||
# @return nothing
|
||
sub vhostSetPort {
|
||
my ($self, $vhost, $port) = @_;
|
||
|
||
if ( not defined( $self->{conf}->{vhostOptions}->{$vhost} ) ) {
|
||
if ( not defined( $self->{conf}->{locationRules}->{$vhost} )
|
||
and not defined( $self->{conf}->{exportedHeaders}->{$vhost} ) ) {
|
||
$self->setError( "$_: " . $ERRORS->{CONFIG_WRITE_ERROR} . ": There is no virtual host $vhost" );
|
||
return 0;
|
||
}
|
||
else {
|
||
$self->{conf}->{vhostOptions}->{$vhost} = {
|
||
vhostPort => $port,
|
||
vhostHttps => '-1',
|
||
vhostMaintenance => '0'
|
||
};
|
||
}
|
||
}
|
||
else {
|
||
$self->{conf}->{vhostOptions}->{$vhost}->{vhostPort} = $port;
|
||
}
|
||
}
|
||
|
||
## @method vhostSetHttps ( string vhost, int https )
|
||
# Set the https parameter on the given vhost
|
||
#
|
||
# @return nothing
|
||
sub vhostSetHttps {
|
||
my ($self, $vhost, $https) = @_;
|
||
if ( not defined( $self->{conf}->{vhostOptions}->{$vhost} ) ) {
|
||
if ( not defined( $self->{conf}->{locationRules}->{$vhost} )
|
||
and not defined( $self->{conf}->{exportedHeaders}->{$vhost} ) ) {
|
||
$self->setError( "$_: " . $ERRORS->{CONFIG_WRITE_ERROR} . ": There is no virtual host $vhost" );
|
||
return 0;
|
||
}
|
||
else {
|
||
$self->{conf}->{vhostOptions}->{$vhost} = {
|
||
vhostPort => '-1',
|
||
vhostHttps => $https,
|
||
vhostMaintenance => '0'
|
||
};
|
||
}
|
||
}
|
||
else {
|
||
$self->{conf}->{vhostOptions}->{$vhost}->{vhostHttps} = $https;
|
||
}
|
||
}
|
||
|
||
## @method vhostSetMaintenance ( string vhost, int off )
|
||
# Set the maintenance flag on a vhost
|
||
#
|
||
# @return nothing
|
||
sub vhostSetMaintenance {
|
||
my ($self, $vhost, $off) = @_;
|
||
|
||
if ( not defined( $self->{conf}->{vhostOptions}->{$vhost} ) ) {
|
||
if ( not defined( $self->{conf}->{locationRules}->{$vhost} )
|
||
and not defined( $self->{conf}->{exportedHeaders}->{$vhost} ) ) {
|
||
$self->setError( "$_: " . $ERRORS->{CONFIG_WRITE_ERROR} . ": There is no virtual host $vhost" );
|
||
return 0;
|
||
}
|
||
else {
|
||
$self->{conf}->{vhostOptions}->{$vhost} = {
|
||
vhostPort => '-1',
|
||
vhostHttps => '-1',
|
||
vhostMaintenance => $off
|
||
};
|
||
}
|
||
}
|
||
else {
|
||
$self->{conf}->{vhostOptions}->{$vhost}->{vhostMaintenance} = $off;
|
||
}
|
||
}
|
||
|
||
## @method void vhostList ( void )
|
||
# list all parameters of each vhosts
|
||
#
|
||
# @return nothing
|
||
sub vhostList {
|
||
my ($self) = shift;
|
||
|
||
while ( my ( $vhost, $vhostoptions ) = each %{ $self->{conf}->{vhostOptions} } ) {
|
||
print "- $vhost => ";
|
||
print "Maintenance: $vhostoptions->{vhostMaintenance} | ";
|
||
print "Port: $vhostoptions->{vhostPort} | ";
|
||
print "HTTPS: $vhostoptions->{vhostHttps}\n";
|
||
}
|
||
}
|
||
|
||
## @method void globalStorageSetDir ( string path )
|
||
# Set the global storage directory
|
||
#
|
||
# @return nothing
|
||
sub globalStorageSetDir {
|
||
my ($self, $path) = @_;
|
||
|
||
$self->{conf}->{globalStorageOptions}->{Directory} = $path;
|
||
}
|
||
|
||
## @method void globalStorageSetLockdir ( string path )
|
||
# Set the global storage lock directory
|
||
#
|
||
# @return nothing
|
||
sub globalStorageSetLockdir {
|
||
my ($self, $path) = @_;
|
||
|
||
$self->{conf}->{globalStorageOptions}->{LockDirectory} = $path;
|
||
}
|
||
|
||
## @method void globalStorage ( void )
|
||
# Get the global storage parameters
|
||
#
|
||
# @return nothing
|
||
sub globalStorage {
|
||
my ($self) = shift;
|
||
|
||
print "Global Storage options :\n";
|
||
print "- Directory: $self->{conf}->{globalStorageOptions}->{Directory}\n";
|
||
print "- Lock Directory: $self->{conf}->{globalStorageOptions}->{LockDirectory}\n";
|
||
}
|
||
|
||
## @method reloadUrls ( void )
|
||
# Print reloads urls by vhost
|
||
#
|
||
# @return nothing
|
||
sub reloadUrls {
|
||
my ($self) = shift;
|
||
|
||
while ( my ( $vhost, $url ) = each %{ $self->{conf}->{reloadUrls} } ) {
|
||
print "- $vhost => $url\n";
|
||
}
|
||
}
|
||
|
||
## @method void reloadUrlAdd ( string vhost, string url)
|
||
# Add a new reload url for the given vhost
|
||
#
|
||
# @return nothing
|
||
sub reloadUrlAdd {
|
||
my ($self, $vhost, $url) = @_;
|
||
|
||
$self->{conf}->{reloadUrls}->{$vhost} = $url;
|
||
}
|
||
|
||
## @method void reloadUrlDel ( string vhost )
|
||
# Delete the given vhost's reload url
|
||
#
|
||
# @return nothing
|
||
sub reloadUrlDel {
|
||
my ($self, $vhost) = @_;
|
||
|
||
if ( not defined( $self->{conf}->{reloadUrls}->{$vhost} ) ) {
|
||
$self->setError("$_: " . $ERRORS->{CONFIG_WRITE_ERROR} . ": There is no reload URLs setted for $vhost" );
|
||
return 0;
|
||
}
|
||
|
||
delete $self->{conf}->{reloadUrls}->{$vhost};
|
||
}
|
||
|
||
## @method void help ( void )
|
||
# print help message
|
||
#
|
||
# @return nothing
|
||
sub help {
|
||
my ($self) = @_;
|
||
|
||
print STDERR "
|
||
Set/get variables in the configuration:
|
||
|
||
lemonldap-ng-cli set <variable> <value>
|
||
lemonldap-ng-cli unset <variable>
|
||
lemonldap-ng-cli get <variable>
|
||
|
||
Define macros:
|
||
|
||
lemonldap-ng-cli set-macro <macro name> <perl expression>
|
||
lemonldap-ng-cli unset-macro <macro name>
|
||
lemonldap-ng-cli get-macro <macro name>
|
||
|
||
Modify application list:
|
||
|
||
lemonldap-ng-cli apps-set-cat <cat id> <cat name>
|
||
lemonldap-ng-cli apps-get-cat <cat id>
|
||
|
||
lemonldap-ng-cli apps-add <app id> <cat id>
|
||
lemonldap-ng-cli apps-set-uri <app id> <app uri>
|
||
lemonldap-ng-cli apps-set-name <app id> <app name>
|
||
lemonldap-ng-cli apps-set-desc <app id> <app description>
|
||
lemonldap-ng-cli apps-set-logo <app id> <logo>
|
||
lemonldap-ng-cli apps-set-display <app id> <app display>
|
||
|
||
lemonldap-ng-cli apps-get <app id>
|
||
lemonldap-ng-cli apps-rm <app id>
|
||
|
||
Manage rules:
|
||
|
||
lemonldap-ng-cli rules-set <virtual host> <expr> <rule>
|
||
lemonldap-ng-cli rules-unset <virtual host> <expr>
|
||
lemonldap-ng-cli rules-get <virtual host>
|
||
|
||
Manage exported variables:
|
||
|
||
lemonldap-ng-cli export-var <key> <value>
|
||
lemonldap-ng-cli unexport-var <key>
|
||
lemonldap-ng-cli get-exported-vars
|
||
|
||
Manage exported headers:
|
||
|
||
lemonldap-ng-cli export-header <virtual host> <HTTP header> <perl expression>
|
||
lemonldap-ng-cli unexport-header <virtual host> <HTTP header>
|
||
lemonldap-ng-cli get-exported-headers <virtual host>
|
||
|
||
Manage virtual hosts:
|
||
|
||
lemonldap-ng-cli vhost-add <virtual host uri>
|
||
lemonldap-ng-cli vhost-del <virtual host>
|
||
lemonldap-ng-cli vhost-set-port <virtual host> <port>
|
||
lemonldap-ng-cli vhost-set-https <virtual host> <value>
|
||
lemonldap-ng-cli vhost-set-maintenance <virtual host> <value>
|
||
lemonldap-ng-cli vhost-list
|
||
|
||
Global Storage:
|
||
|
||
lemonldap-ng-cli global-storage
|
||
lemonldap-ng-cli global-storage-set-dir <path>
|
||
lemonldap-ng-cli global-storage-set-lockdir <path>
|
||
|
||
Reload URLs:
|
||
|
||
lemonldap-ng-cli reload-urls
|
||
lemonldap-ng-cli reload-url-add <vhost> <url>
|
||
lemonldap-ng-cli reload-url-del <vhost>
|
||
|
||
";
|
||
|
||
}
|
||
|
||
1;
|
||
__END__
|
||
|
||
=head1 NAME
|
||
|
||
=encoding utf8
|
||
|
||
Lemonldap::NG::Manager::Cli - Command Line Interface to edit LemonLDAP::NG configuration.
|
||
|
||
=head1 SYNOPSIS
|
||
|
||
use Lemonldap::NG::Manager::Cli;
|
||
|
||
$cli = new Lemonldap::NG::Manager::Cli;
|
||
$action = shift(@ARGV);
|
||
$method = $cli->determineMethod($action);
|
||
$cli->run($method, @ARGV);
|
||
$ret = $cli->saveConf();
|
||
|
||
=head1 DESCRIPTION
|
||
|
||
Lemonldap::NG::Manager::Cli allow user to edit the configuration of Lemonldap::NG via the
|
||
command line.
|
||
|
||
=head1 SEE ALSO
|
||
|
||
L<Lemonldap::NG>, L<Lemonldap::NG::Common::Conf>
|
||
|
||
=head1 AUTHOR
|
||
|
||
David Delassus E<lt>david.jose.delassus@gmail.comE<gt>
|
||
Clement Oudot E<lt>clem.oudot@gmail.comE<gt>
|
||
Sandro Cazzaniga E<lt>cazzaniga.sandro@gmail.comE<gt>
|
||
|
||
=head1 COPYRIGHT AND LICENSE
|
||
|
||
Copyright (C) 2012, by David Delassus
|
||
Copyright (C) 2013, by Clement Oudot, Sandro Cazzaniga
|
||
|
||
This library is free software; you can redistribute it and/or modify
|
||
it under the same terms as Perl itself, either Perl version 5.10.0 or,
|
||
at your option, any later version of Perl 5 you may have available.
|
||
|
||
=cut
|