644 lines
22 KiB
Perl
Executable File
644 lines
22 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
||
#use strict;
|
||
use Template;
|
||
use CGI;
|
||
use Data::Dumper;
|
||
require './lemonldap-lib.pl';
|
||
|
||
|
||
my $dump1;
|
||
my $dump2;
|
||
|
||
|
||
#---------------------------------------------------------------------
|
||
# SUUPRIME DES COMPOSANTS ISSUS DU guiconfig.xml POUR ASSISTANT
|
||
#---------------------------------------------------------------------
|
||
|
||
sub CleanComposants {
|
||
my $compos = $_[0];
|
||
my @keep = @{$_[1]};
|
||
my $newcomp;
|
||
|
||
$dump2 = join(',', @keep);
|
||
|
||
for( @keep ){
|
||
my $item = $_;
|
||
|
||
for( @{$compos} ){
|
||
my $comp = $_;
|
||
if( $comp->{ 'id_input' } eq $item ){
|
||
push( @{$newcomp}, $comp );
|
||
}
|
||
}
|
||
}
|
||
$_[0] = $newcomp;
|
||
}
|
||
|
||
|
||
my $message = 0;
|
||
|
||
my $tt = Template->new( {# ABSOLUTE => 1,
|
||
PREC_CHOMP =>1,
|
||
POST_CHOMP =>1, } );
|
||
|
||
|
||
|
||
## ATTENTION A CONTROLER SI TYPE HANDLER == COMBINED ---> MotifOut PAS VIDE !!!!!
|
||
## PAS DE NOUVEAU HANDLER NOMMES "ADD HANDLER" OU NON NOMMES
|
||
##------------------------------------------------------------------------------------
|
||
my $flagSUBMIT = CGI::param('submitHandlers_0') ;
|
||
if( defined( $flagSUBMIT ) ) {
|
||
if( CGI::param( 'selTypeHandler' ) eq 'CombinedType' ){
|
||
if( !length( CGI::param( 'MotifOut' ) ) ){
|
||
$message = 'ERROR: ' . $text{lab_error_0};
|
||
$flagSUBMIT = undef;
|
||
}
|
||
}
|
||
if( CGI::param( 'idHandler' ) eq $text{ lab_55 } ){
|
||
$message = 'ERROR: \"\" ' . $text{ lab_55 } . ' \"\" ' . $text{lab_error_1};
|
||
$flagSUBMIT = undef;
|
||
}
|
||
if( !length( CGI::param( 'idHandler' ) ) ){
|
||
$message = 'ERROR: ' . ' ' . $text{lab_error_3};
|
||
$flagSUBMIT = undef;
|
||
}
|
||
if( defined( CGI::param( 'IPAdress' )) ){
|
||
if( !length( CGI::param( 'IPAdress' )) ){
|
||
$message = 'ERROR: ' . ' ' . $text{lab_error_11};
|
||
$flagSUBMIT = undef;
|
||
}
|
||
}
|
||
}
|
||
|
||
|
||
##########################################
|
||
# chargement des infos de la page #
|
||
##########################################
|
||
|
||
if ( !defined( $flagSUBMIT)) {
|
||
|
||
my $conf = &getXmlPage( "handlers_0" );
|
||
my $filethtml = $conf->{template};
|
||
|
||
my $selectedHand;
|
||
my $domActif;
|
||
my $flagSameHandler = 0;
|
||
my $tabular = [];
|
||
|
||
if ( defined (CGI::param ("Domain")) ) {
|
||
$domActif = CGI::param('Domain');
|
||
$selectedHand = CGI::param('SelHandler');
|
||
} else {
|
||
$domActif = CGI::param('idDomain');
|
||
$selectedHand = CGI::param('cbHandlers');
|
||
|
||
if( $selectedHand eq CGI::param('ExHandler')) {
|
||
$flagSameHandler = 1; ## m<>me handler en r<> entrant
|
||
}
|
||
}
|
||
|
||
my $title = $text{ &dePourCent( $conf->{title} ) } . " / " . $domActif;
|
||
|
||
my $_style = CGI::param('style')||$config{Style};
|
||
|
||
my $composs;
|
||
my $mode;
|
||
|
||
if (CGI::param('mode') =~ /pert/) { # mode expert beaucoups plus d option
|
||
$mode ='Expert' ;
|
||
$composs = &getAllComposants( $conf->{'composants'}->{'expert'} );
|
||
$tabular = &getTab( $conf->{'tabs'}->{'expert'} );
|
||
} else {
|
||
$mode ='Normal';
|
||
$composs = &getAllComposants( $conf->{'composants'}->{'normal'} );
|
||
$tabular = &getTab( $conf->{'tabs'}->{'normal'} );
|
||
}
|
||
|
||
$styl = $config{'Style'};
|
||
$tabular = &polyGlotTab( $tabular, \%text );
|
||
$tabular = &ajustLink ($tabular,$mode,$_style,$domActif);
|
||
$composs = &polyGlotTab( $composs, \%text );
|
||
|
||
my $xmlemon = getXML( $config{"XML_file"} );
|
||
my $chapter = getChapterXML( $xmlemon, "domain" );
|
||
|
||
my $handlers = $chapter->{ $domActif }->{ "handler" };
|
||
my @handkeys = keys( %{$handlers} );
|
||
@handkeys = sort( @handkeys );
|
||
|
||
my @comboHandlers;
|
||
|
||
for( @handkeys ){
|
||
my $item = { "labOption" => $_, "idValue" => $_ };
|
||
push( @comboHandlers, $item );
|
||
}
|
||
|
||
my $item = { "labOption" => $text{ lab_55 }, "idValue" => $text{ lab_55 } };
|
||
push( @comboHandlers, $item );
|
||
|
||
if( !$selectedHand ){
|
||
$selectedHand = $handkeys[ 0 ];
|
||
}
|
||
|
||
## Recup ALL handlers DATAS
|
||
##---------------------------------------
|
||
my @allHandlers;
|
||
my @auxall = keys( %{ $chapter->{ $domActif }->{ 'handler' } } );
|
||
for( @auxall ){
|
||
my $homer = $chapter->{ $domActif }->{ 'handler' }->{ $_ }->{ 'MultiHomer' };
|
||
if( $homer eq 'CombinedType' ){
|
||
push( @allHandlers, $_ );
|
||
}
|
||
}
|
||
|
||
|
||
## SELECTED HANDLER ONLY
|
||
##------------------------
|
||
my $allHandlersChapters = $chapter->{ $domActif }->{ 'handler' };
|
||
$chapter = $chapter->{ $domActif }->{ 'handler' }->{ $selectedHand };
|
||
|
||
my %chapterX = ( 'xxxx', $chapter );
|
||
&TransformVars( $composs, \%chapterX );
|
||
|
||
##---------------------------------------------------------------------------------------------------------
|
||
##---------------------------------------------------------------------------------------------------------
|
||
## ASSISTANT ??????
|
||
my $valab;
|
||
my $helpText = 0;
|
||
my $IDX_ASSIST = 0;
|
||
|
||
|
||
if( defined(CGI::param( 'AssistCreator' ) ) ){
|
||
$helpText = $text{ 'assist_handler_0' };
|
||
$filethtml = $conf->{templateAssist};
|
||
# clean composants PHASE 0
|
||
#--------------------------
|
||
my @keep = ('idHandler');
|
||
CleanComposants( $composs, \@keep );
|
||
}
|
||
|
||
|
||
if( defined(CGI::param( 'AssistCreate_Next' ) ) ){ # NEXT PHASE d'assistance
|
||
$IDX_ASSIST = CGI::param( 'IDX_WIZARD' );
|
||
|
||
if( $IDX_ASSIST == 0 ){
|
||
my $idhandler = CGI::param( 'idHandler' );
|
||
$filethtml = $conf->{templateAssist};
|
||
if( !length( $idhandler ) ){ ## nom de handler non saisie
|
||
$helpText = $text{ 'assist_handler_0' };
|
||
# clean composants PHASE 0
|
||
#--------------------------
|
||
my @keep = ('idHandler');
|
||
CleanComposants( $composs, \@keep );
|
||
$message = $text{'lab_error_7'};
|
||
}
|
||
else { ## name OK --> PHASE suivante
|
||
$helpText = $text{ 'assist_handler_1' };
|
||
my @keep = ('idHandler', 'Enabledproxy', 'Recursive');
|
||
CleanComposants( $composs, \@keep );
|
||
$valab = &getRefValueInCompo( $composs, 'idHandler' );
|
||
$valab->{ 'defValue' } = $idhandler;
|
||
$valab = &getRefValueInCompo( $composs, 'Enabledproxy' );
|
||
$valab->{ isChecked } = "";
|
||
$valab = getRefValueInCompo( $composs, 'Recursive' );
|
||
$valab->{ isChecked } = "";
|
||
|
||
$IDX_ASSIST = 1;
|
||
}
|
||
} elsif( $IDX_ASSIST == 1 ){
|
||
my $idhandler = CGI::param( 'idHandler' );
|
||
my $checkEnabled = defined( CGI::param( 'Enabledproxy' ) ) ? 'CHECKED' : '';
|
||
my $checkRecurs = defined( CGI::param( 'Recursive' ) ) ? 'CHECKED' : '';
|
||
$filethtml = $conf->{templateAssist};
|
||
if( !length( $idhandler ) ){ ## nom de handler non saisie
|
||
$helpText = $text{ 'assist_handler_1' };
|
||
# clean composants PHASE 0
|
||
#--------------------------
|
||
my @keep = ('idHandler', 'Enabledproxy', 'Recursive');
|
||
CleanComposants( $composs, \@keep );
|
||
$message = $text{'lab_error_7'};
|
||
}
|
||
else { ## name OK --> PHASE suivante
|
||
$helpText = $text{ 'assist_handler_2' };
|
||
my @keep = ('idHandler', 'Enabledproxy', 'Recursive', 'AttrLdap', 'idCodeAppli');
|
||
CleanComposants( $composs, \@keep );
|
||
$valab = &getRefValueInCompo( $composs, 'idHandler' );
|
||
$valab->{ 'defValue' } = $idhandler;
|
||
$valab = &getRefValueInCompo( $composs, 'Enabledproxy' );
|
||
$valab->{ 'isChecked' } = $checkEnabled;
|
||
$valab = getRefValueInCompo( $composs, 'Recursive' );
|
||
$valab->{ 'isChecked' } = $checkRecurs;
|
||
$valab = getRefValueInCompo( $composs, 'AttrLdap' );
|
||
$valab->{ 'defValue' } = '';
|
||
$valab = getRefValueInCompo( $composs, 'idCodeAppli' );
|
||
$valab->{ 'defValue' } = '';
|
||
$IDX_ASSIST = 2;
|
||
}
|
||
} elsif( $IDX_ASSIST == 2 ){
|
||
my $idhandler = CGI::param( 'idHandler' );
|
||
my $checkEnabled = defined( CGI::param( 'Enabledproxy' ) ) ? 'CHECKED' : '';
|
||
my $checkRecurs = defined( CGI::param( 'Recursive' ) ) ? 'CHECKED' : '';
|
||
my $attrldap = CGI::param( 'AttrLdap' );
|
||
my $codeappli = CGI::param( 'idCodeAppli' );
|
||
$filethtml = $conf->{templateAssist};
|
||
if( !length( $idhandler ) ){ ## nom de handler non saisie
|
||
$helpText = $text{ 'assist_handler_1' };
|
||
# clean composants PHASE 0
|
||
#--------------------------
|
||
my @keep = ('idHandler', 'Enabledproxy', 'Recursive');
|
||
CleanComposants( $composs, \@keep );
|
||
$message = $text{'lab_error_7'};
|
||
|
||
##### ATTRLDAP ET CODE APPLI A TESTER ??????
|
||
|
||
}
|
||
else { ## --> PHASE suivante
|
||
$helpText = $text{ 'assist_handler_3' };
|
||
my @keep = ('idHandler', 'Enabledproxy', 'Recursive', 'AttrLdap', 'idCodeAppli', 'BasePub', 'BasePriv');
|
||
CleanComposants( $composs, \@keep );
|
||
$valab = &getRefValueInCompo( $composs, 'idHandler' );
|
||
$valab->{ 'defValue' } = $idhandler;
|
||
$valab = &getRefValueInCompo( $composs, 'Enabledproxy' );
|
||
$valab->{ 'isChecked' } = $checkEnabled;
|
||
$valab = getRefValueInCompo( $composs, 'Recursive' );
|
||
$valab->{ 'isChecked' } = $checkRecurs;
|
||
$valab = getRefValueInCompo( $composs, 'AttrLdap' );
|
||
$valab->{ 'defValue' } = $attrldap;
|
||
$valab = getRefValueInCompo( $composs, 'idCodeAppli' );
|
||
$valab->{ 'defValue' } = $codeappli;
|
||
$valab = getRefValueInCompo( $composs, 'BasePub' );
|
||
$valab->{ 'defValue' } = '';
|
||
$valab = getRefValueInCompo( $composs, 'BasePriv' );
|
||
$valab->{ 'defValue' } = '';
|
||
$IDX_ASSIST = 3;
|
||
}
|
||
} elsif( $IDX_ASSIST == 3 ){ ## VALID !!!!
|
||
my $idhandler = CGI::param( 'idHandler' );
|
||
|
||
$xmlemon->{ 'domain' }->{ $domActif }->{ 'handler' }->{ $idhandler }->{ 'MultiHomer' } = CGI::param('selTypeHandler');
|
||
my $locchap = $xmlemon->{ 'domain' }->{ $domActif }->{ 'handler' }->{ $idhandler };
|
||
|
||
$locchap->{ 'VirtualHost' } = CGI::param('selVirtualHost');
|
||
$locchap->{ 'Organization' } = CGI::param('AttrLdap');
|
||
$locchap->{ 'BasePriv' } = CGI::param('BasePriv');
|
||
$locchap->{ 'BasePub' } = CGI::param('BasePub');
|
||
$locchap->{ 'AppliCode' } = CGI::param('idCodeAppli');
|
||
$locchap->{ 'EnableLWPProxy' }= defined( CGI::param('Enabledproxy') ) ? '1' : '0';
|
||
$locchap->{ 'ChaseRedirect'} = defined( CGI::param('Recursive' ) ) ? '1' : '0';
|
||
|
||
&writeXML( $xmlemon, $config{'XML_file'});
|
||
|
||
## MISE A JOUR DES AFFICHAGES AVEC LE NOUVEAU HANDLER !!!!!
|
||
##------------------------------------------------------------
|
||
$chapter = getChapterXML( $xmlemon, "domain" );
|
||
$handlers = $chapter->{ $domActif }->{ "handler" };
|
||
@handkeys = keys( %{$handlers} );
|
||
@handkeys = sort( @handkeys );
|
||
|
||
@comboHandlers = undef;
|
||
|
||
for( @handkeys ){
|
||
my $item = { "labOption" => $_, "idValue" => $_ };
|
||
push( @comboHandlers, $item );
|
||
}
|
||
|
||
my $item = { "labOption" => $text{ lab_55 }, "idValue" => $text{ lab_55 } };
|
||
push( @comboHandlers, $item );
|
||
|
||
@auxall = keys( %{ $chapter->{ $domActif }->{ 'handler' } } );
|
||
for( @auxall ){
|
||
$homer = $chapter->{ $domActif }->{ 'handler' }->{ $_ }->{ 'MultiHomer' };
|
||
if( $homer eq 'CombinedType' ){
|
||
push( @allHandlers, $_ );
|
||
}
|
||
}
|
||
## SELECTED HANDLER ONLY
|
||
##------------------------
|
||
$allHandlersChapters = $chapter->{ $domActif }->{ 'handler' };
|
||
$selectedHand = $idhandler;
|
||
$chapter = $chapter->{ $domActif }->{ 'handler' }->{ $selectedHand };
|
||
|
||
%chapterX = ( 'xxxx', $chapter );
|
||
$conf = &getXmlPage( "handlers_0" );
|
||
if( $mode eq 'Expert' ){
|
||
$composs = &getAllComposants( $conf->{'composants'}->{ 'expert' } );
|
||
} else {
|
||
$composs = &getAllComposants( $conf->{'composants'}->{ 'normal' } );
|
||
}
|
||
|
||
$composs = &polyGlotTab( $composs, \%text );
|
||
&TransformVars( $composs, \%chapterX );
|
||
|
||
}
|
||
}
|
||
# END OF WIZARD THING
|
||
#//////////////////////////////////////////////////////////////////////////
|
||
#//////////////////////////////////////////////////////////////////////////
|
||
|
||
|
||
##//////////////////////////////////////////////////////////////////////////
|
||
##//////////////////////////////////////////////////////////////////////////
|
||
####### VARIABLES PASSES EN PARAMETRE AU TEMPLATE
|
||
|
||
$valab = getRefValueInCompo( $composs, 'Enabledproxy' );
|
||
$valab->{ isChecked } = $chapter->{ 'EnableLWPProxy' } ? "CHECKED" : "";
|
||
$valab = getRefValueInCompo( $composs, 'Disabled' );
|
||
$valab->{ isChecked } = $chapter->{ 'DisableAccessControl' } ? "CHECKED" : "";
|
||
$valab = getRefValueInCompo( $composs, 'StopCookie' );
|
||
$valab->{ isChecked } = $chapter->{ 'StopCookie' } ? "CHECKED" : "";
|
||
$valab = getRefValueInCompo( $composs, 'Recursive' );
|
||
$valab->{ isChecked } = $chapter->{ 'ChaseRedirect' } ? "CHECKED" : "";
|
||
$valab = getRefValueInCompo( $composs, 'SoftControl' );
|
||
$valab->{ isChecked } = $chapter->{ 'SoftControl' } ? "CHECKED" : "";
|
||
|
||
|
||
##--------------------------------------------------------
|
||
##--------------------------------------------------------
|
||
## MULTI-HOMING HANDLER ????? !!!!!!!!!! VITUALHOST TYPE
|
||
##--------------------------------------------------------
|
||
my $exHomer = $chapter->{ 'MultiHomer' };
|
||
my $typeHomer = $exHomer;
|
||
|
||
## TYPE HANDLER CHANGE ?????
|
||
##----------------------------------------------
|
||
|
||
if( defined(CGI::param('selTypeHandler')) ){
|
||
if( $flagSameHandler ){
|
||
$typeHomer = CGI::param('selTypeHandler');
|
||
}
|
||
if( $flagSameHandler && ($typeHomer ne $exHomer) ){
|
||
my $flag = 1;
|
||
if( $exHomer eq 'CombinedType' ){
|
||
if( !&OkToChange( $allHandlersChapters, $selectedHand, $message )){
|
||
$flag = 0;
|
||
$typeHomer = $exHomer;
|
||
}
|
||
}
|
||
if( $flag ){
|
||
$chapter->{ 'MultiHomer' } = $typeHomer;
|
||
if( $typeHomer ne 'MultiHomingType' ){
|
||
delete( $chapter->{ 'MultiHoming' } );
|
||
}
|
||
## maj du XML
|
||
##------------
|
||
# &writeXML( $xmlemon, $config{'XML_file'});
|
||
}
|
||
}
|
||
}
|
||
|
||
my $flagHomer = $typeHomer eq 'MultiHomingType' ? 1 : 0;
|
||
my $virtualHost = $chapter->{ 'VirtualHost' };
|
||
if( !$virtualHost ) {
|
||
$virtualHost = 'byName';
|
||
}
|
||
my $newVH = $virtualHost;
|
||
|
||
## VIRTUAL HOST CHANGE ????
|
||
##--------------------------
|
||
if ( defined (CGI::param ('selVirtualHost')) ) {
|
||
if( $flagSameHandler ){
|
||
$newVH = CGI::param ('selVirtualHost');
|
||
}
|
||
if( $flagSameHandler && ($newVH ne $virtualHost ) ){
|
||
$virtualHost = $newVH;
|
||
|
||
#$chapter->{ 'VirtualHost' } = $virtualHost;
|
||
## maj du XML
|
||
##------------
|
||
#&writeXML( $xmlemon, $config{'XML_file'});
|
||
}
|
||
}
|
||
|
||
## PROXY ENABLED CHANGE ??
|
||
##------------------------
|
||
if( $flagSameHandler ){
|
||
$valab = getRefValueInCompo( $composs, 'Enabledproxy' );
|
||
if( defined (CGI::param ('Enabledproxy')) ) {
|
||
$valab->{ isChecked } = 'CHECKED';
|
||
} else {
|
||
$valab->{ isChecked } = '';
|
||
}
|
||
}
|
||
##
|
||
## si c est un handler MULTI-HOMING --> chargement des liste de handlers "homed"
|
||
## et dispo (non homed) pour le MULTI-HOMING
|
||
##----------------------------------------------
|
||
my @tabHomed;
|
||
my @tabDispo;
|
||
|
||
if( $typeHomer eq 'MultiHomingType' ){
|
||
|
||
my $line = $chapter->{ 'MultiHoming' };
|
||
@tabHomed = split( /,/, $line );
|
||
|
||
for( my $i=0; $i< @allHandlers; $i++ ){
|
||
my $h1 = $allHandlers[ $i ];
|
||
if( $h1 ne $selectedHand ){
|
||
my $flag = 0;
|
||
for( @tabHomed ){
|
||
if( $h1 eq $_ ){
|
||
$flag = 1;
|
||
}
|
||
}
|
||
if( !$flag ){
|
||
push( @tabDispo, $h1 );
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
##//////////////////////////////////////////////////////////////////////////
|
||
##//////////////////////////////////////////////////////////////////////////
|
||
## Traitement des ADD / REMOVE HANDLERS dans les multi homing
|
||
|
||
if( defined (CGI::param ('RemoveHomed')) ) {
|
||
my $hand = CGI::param ('listHomed');
|
||
my @nList;
|
||
push(@tabDispo, $hand);
|
||
for( @tabHomed ){
|
||
if( $_ ne $hand){
|
||
push(@nList, $_);
|
||
}
|
||
}
|
||
@tabHomed = @nList;
|
||
my $string = join(',', @tabHomed);
|
||
|
||
## maj du XML
|
||
##-------------
|
||
$chapter->{ 'MultiHoming' } = $string;
|
||
&writeXML( $xmlemon, $config{'XML_file'});
|
||
}
|
||
if( defined (CGI::param ('AddDispo')) ) {
|
||
my $hand = CGI::param ('listDispo');
|
||
push( @tabHomed, $hand );
|
||
my @nlist;
|
||
for( @tabDispo ){
|
||
if( $_ ne $hand ){
|
||
push( @nlist, $_ );
|
||
}
|
||
}
|
||
@tabDispo = @nlist;
|
||
my $string = join( ',', @tabHomed );
|
||
|
||
## maj du XML
|
||
##-------------
|
||
$chapter->{ 'MultiHoming' } = $string;
|
||
&writeXML( $xmlemon, $config{'XML_file'});
|
||
}
|
||
|
||
if( !$selectedHand ){
|
||
$selectedHand = $text{ lab_55 };
|
||
}
|
||
my $flagAddHandler = ($selectedHand eq $text{ lab_55 });
|
||
|
||
my @logLevels = ( 'debug', 'info', 'notice', 'warn', 'error', 'crit', 'alert', 'emerg', $text{'lab_68'} );
|
||
|
||
$vars= { style => $styl,
|
||
title => $title,
|
||
mode => $mode,
|
||
cgi => 'handlers_0.cgi',
|
||
css => $_style,
|
||
parent => $0,
|
||
label => '0',
|
||
langa => \%text,
|
||
tab_session => $tabular,
|
||
composall => $composs,
|
||
combo_handlers => \@comboHandlers,
|
||
labCombo => $title,
|
||
option_selected => $selectedHand,
|
||
domaine => $domActif,
|
||
flag_homer => $flagHomer,
|
||
type_homer => $typeHomer,
|
||
exHandler => $selectedHand,
|
||
homed_handlers => \@tabHomed,
|
||
dispo_handlers => \@tabDispo,
|
||
lab_6 => $text{ 'lab_6' },
|
||
lab_7 => $text{ 'lab_7' },
|
||
lab_42 => $text{ 'lab_42' },
|
||
lab_43 => $text{ 'lab_43' },
|
||
virtual_host => $virtualHost,
|
||
message => $message,
|
||
flagAddHandler => $flagAddHandler,
|
||
lab_58 => $text{ 'lab_58' },
|
||
helpText => $helpText,
|
||
lab_prev => $text{ 'lab_prev' },
|
||
lab_next => $text{ 'lab_next' },
|
||
IDX_ASSIST => $IDX_ASSIST,
|
||
lab_27 => $text{ 'lab_27' },
|
||
logLevels => \@logLevels
|
||
};
|
||
|
||
$vars->{style} = &getStyle($styl, $vars->{checked});
|
||
|
||
print "Content-type: text/html\n";
|
||
$tt->process($filethtml,$vars) || die $tt->error();
|
||
|
||
=pod
|
||
$dump1 = Dumper( $composs );
|
||
print("<BR><HR>Dump(1) ---> $dump1 <HR><BR>");
|
||
|
||
print("<BR><HR>Dump(2) ---> $dump2 <HR><BR>");
|
||
|
||
my @lo =CGI::param();
|
||
my $l =Dumper(@lo);
|
||
print "$l";
|
||
print( "<BR><hr><BR>" );
|
||
for( @lo ){
|
||
my $loc = CGI::param( $_ );
|
||
print("$_ --> $loc <br>");
|
||
}
|
||
=cut
|
||
|
||
} else { ## Traitement du "SUBMIT"
|
||
##########################################################
|
||
my $dom = CGI::param('idDomain');
|
||
my $_style = CGI::param('style');
|
||
my $mode = CGI::param('mode');
|
||
|
||
my $selectedHand = CGI::param('idHandler'); ## PAS cbHAndler a cause de ADD HADLER !!!!!
|
||
|
||
my $xmlemon = getXML( $config{'XML_file'} );
|
||
my $chapter = getChapterXML( $xmlemon, 'domain' );
|
||
$chapter = $chapter->{ $dom }->{ 'handler' }->{ $selectedHand };
|
||
|
||
##----------------------------------------------------------------------------------------
|
||
# SI LE HANDLER n existe pas --> CREATION DE L ANCRAGE XML and ROCK'N ROLL
|
||
##----------------------------------------------------------------------------------------
|
||
$dump1 = "JE SUIS ICI";
|
||
$dump2 = Dumper( $chapter );
|
||
if( !$chapter ){
|
||
$dump1 = "JE SUIS LA et pas ICI";
|
||
$xmlemon->{ 'domain' }->{ $dom }->{ 'handler' }->{ $selectedHand }->{ 'MultiHomer' } = CGI::param('selTypeHandler');
|
||
$chapter = $xmlemon->{ 'domain' }->{ $dom }->{ 'handler' }->{ $selectedHand };
|
||
$dump2 = Dumper( $chapter );
|
||
}
|
||
$chapter->{ 'MultiHomer' } = CGI::param('selTypeHandler');
|
||
$chapter->{ 'VirtualHost' } = CGI::param('selVirtualHost');
|
||
if( defined( CGI::param( 'IPAdress' )) ){
|
||
$chapter->{ 'IPAdress' } = CGI::param('IPAdress');
|
||
} else {
|
||
delete( $chapter->{ 'IPAdress' } );
|
||
}
|
||
|
||
|
||
$chapter->{ 'Allow' } = CGI::param('selAllow');
|
||
$chapter->{ 'Organization' } = CGI::param('AttrLdap');
|
||
$chapter->{ 'BasePriv' } = CGI::param('BasePriv');
|
||
$chapter->{ 'BasePub' } = CGI::param('BasePub');
|
||
$chapter->{ 'AppliCode' } = CGI::param('idCodeAppli');
|
||
$chapter->{ 'DisableAccessControl' } = defined( CGI::param('Disabled') ) ? '1' : '0';
|
||
if( defined( CGI::param('Enabledproxy') ) ){
|
||
$chapter->{ 'EnableLWPProxy' } = '1';
|
||
$chapter->{ 'LWPTimeout' } = CGI::param('LWPTimeout');
|
||
$chapter->{ 'ChaseRedirect' } = defined( CGI::param('Recursive' ) ) ? '1' : '0';
|
||
} else {
|
||
$chapter->{ 'EnableLWPProxy' } = '0';
|
||
delete( $chapter->{ 'LWPTimeout' } );
|
||
delete( $chapter->{ 'ChaseRedirect' } );
|
||
}
|
||
|
||
$chapter->{ 'Header' } = CGI::param('Header');
|
||
$chapter->{ 'ProxyPatterns' } = CGI::param('Ics');
|
||
$chapter->{ 'MotifIn' } = CGI::param('MotifIn');
|
||
$chapter->{ 'MotifOut' } = CGI::param('MotifOut');
|
||
|
||
if( defined( CGI::param( 'PlugInBackend' )) ) {
|
||
$chapter->{ 'BackendPlugIn' } = CGI::param('PlugInBackend');
|
||
}
|
||
if( defined( CGI::param( 'PlugInHeader' )) ) {
|
||
$chapter->{ 'HeaderPlugIn' } = CGI::param('PlugInHeader' );
|
||
}
|
||
if( defined( CGI::param( 'PlugInHtml' )) ) {
|
||
$chapter->{ 'RewritePlugIn' } = CGI::param('PlugInHtml' );
|
||
}
|
||
if( defined( CGI::param( 'PlugInPolicy' )) ) {
|
||
$chapter->{ 'PolicyPlugIn' } = CGI::param('PlugInPolicy' );
|
||
}
|
||
|
||
$chapter->{ 'Portal' } = CGI::param('Portal' );
|
||
$chapter->{ 'ProxyExt' } = CGI::param('ProxyExt' );
|
||
$chapter->{ 'SoftControl' } = defined( CGI::param('SoftControl') ) ? '1' : '0';
|
||
$chapter->{ 'StopCookie' } = defined( CGI::param('StopCookie' ) ) ? '1' : '0';
|
||
$chapter->{ 'LogLevel' } = CGI::param('LogLevel' );
|
||
|
||
&writeXML( $xmlemon, $config{'XML_file'});
|
||
|
||
=pod
|
||
print( "Content-type: text/html\n" );
|
||
print( "\n" );
|
||
|
||
print("<HR><BR> $dump1 <BR>$dump2<HR>");
|
||
|
||
my @lo =CGI::param();
|
||
for( @lo ){
|
||
my $loc = CGI::param( $_ );
|
||
print("$_ --> $loc <BR>");
|
||
}
|
||
|
||
# print( Dumper( $chapter ) );
|
||
=cut
|
||
&redirect( "handlers_0.cgi?mode=$mode&style=$_style&Domain=$dom" );
|
||
}
|
||
#
|
||
############ C FINI
|