112 lines
3.1 KiB
Perl
Executable File
112 lines
3.1 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
#use strict;
|
|
use Template;
|
|
use CGI;
|
|
use Data::Dumper;
|
|
require './lemonldap-lib.pl';
|
|
|
|
|
|
my $tt = Template->new( {# ABSOLUTE => 1,
|
|
PREC_CHOMP =>1,
|
|
POST_CHOMP =>1, } );
|
|
|
|
##########################################
|
|
# chargement des infos de la page #
|
|
##########################################
|
|
|
|
if (! defined (CGI::param ("submitTtlConfig")) ) {
|
|
|
|
my $conf = &getXmlPage( "ttlconfig" );
|
|
my $filethtml = $conf->{template};
|
|
my $title = $text{ &dePourCent( $conf->{title} ) };
|
|
my $_style = CGI::param('style')||$config{Style};
|
|
my $tabular = [];
|
|
|
|
$mode = 'Expert' ;
|
|
$tabular = &getTab( $conf->{tabs}->{expert} );
|
|
$tabular = &polyGlotTab( $tabular, \%text );
|
|
$tabular = &ajustLink ($tabular,$mode,$_style);
|
|
$flipflop = 'Normal';
|
|
$tab_active = '2' ;
|
|
|
|
$styl = $config{'Style'};
|
|
|
|
my $composs = &getAllComposants( $conf->{composants}->{expert} );
|
|
$composs = &polyGlotTab( $composs, \%text );
|
|
|
|
my $xmlemon = getXML( $config{'XML_file'} );
|
|
my $chapter = getChapterXML( $xmlemon, "cache" );
|
|
|
|
&TransformVars( $composs, $chapter );
|
|
|
|
# my $dump1 = Dumper( $composs );
|
|
# my $dump2 = Dumper( $chapter );
|
|
|
|
my $valab = getRefValueInCompo( $composs, "LastModified" );
|
|
my @fk = keys( %{$chapter} );
|
|
$valab->{ isChecked } = $chapter->{ $fk[0] }->{ LastModified } ? "CHECKED" : "";
|
|
|
|
$vars= { style => $styl,
|
|
title => $title,
|
|
mode => $mode,
|
|
css => $_style,
|
|
label => $flipflop,
|
|
parent => $0,
|
|
tab_about => $tabular,
|
|
langa => \%text,
|
|
composall => $composs
|
|
};
|
|
|
|
$vars->{style} = &getStyle($styl, $vars->{checked});
|
|
|
|
print "Content-type: text/html\n";
|
|
$tt->process($filethtml,$vars) || die $tt->error();
|
|
|
|
# print("<BR><HR>Dump = $dump1 <HR><BR>");
|
|
# print("<BR><HR>Dump = $dump2 <HR><BR>");
|
|
|
|
} else { ## Traitement du "SUBMIT"
|
|
##########################################################
|
|
|
|
# print "Content-type: text/html\n";
|
|
# print( "\n" );
|
|
my @lo =CGI::param();
|
|
# my $l =Dumper(@lo);
|
|
# print "$l";
|
|
# print( "<BR>" );
|
|
my $_style = CGI::param('style');
|
|
my $mode = CGI::param('mode');
|
|
my $old_clexml = CGI::param('_id');
|
|
my $new_clexml = CGI::param('id');
|
|
my $ttl = CGI::param('ConfigTtl') ;
|
|
(my $lastm) = CGI::param('LastModified')=~ /on/i;
|
|
my $path=CGI::param('ConfigIpcKey');
|
|
my $hash = {} ;
|
|
|
|
$hash->{'ConfigTtl'} = $ttl if $ttl;
|
|
$hash->{'LastModified'} = $lastm if $lastm;
|
|
$hash->{'ConfigFile'} = $path if $path;
|
|
|
|
my $xmlemon = getXML( $config{'XML_file'} );
|
|
my $chapter = getChapterXML( $xmlemon, "cache" );
|
|
# my $l= Dumper ($chapter);
|
|
# print "avant <BR>$l";
|
|
# print( "<BR>" );
|
|
delete $chapter->{$old_clexml};
|
|
# print "old $old_clexml";
|
|
# print( "<BR>" );
|
|
$chapter->{$new_clexml}= $hash;
|
|
# $l= Dumper ($chapter);
|
|
# print "apres <BR> $l";
|
|
###### ecriture par XMLOUT #############
|
|
|
|
&writeXML( $xmlemon, $config{'XML_file'});
|
|
|
|
#### affichage de la page ttconfig sur param
|
|
# $l= Dumper ($xmlemon);
|
|
# print "final $l";
|
|
&redirect( "index.cgi?mode=$mode&style=$_style" );
|
|
}
|
|
#
|
|
############ C FINI
|