Re: [HS] Publication/Edition de fichier de configuration

[Yves Rutschle <debian.anti-spam@rutschle.net>]

On Tue, Feb 19, 2008 at 10:09:30PM +0100, Stephane Bortzmeyer wrote:
> > le rendre éditable par l'utilisateur.
> 
> Pas de solution simple (bref, il faut programmer). 

C'est pas non plus la mer à boire, voici une solution
complète:


#! /usr/bin/perl -wT

use strict;
use CGI qw(:standard);
use Config::IniFiles;

my $ini_file = 'toto.ini';
tie my %conf, 'Config::IniFiles', (-file=>$ini_file);

foreach my $param_name (param()) {
    my ($section,$param) = split "/", $param_name;
    $conf{$section}{$param} = param($param_name);
}

print header;

(tied %conf)->RewriteConfig;

print start_html("Editing $ini_file"), start_form;
foreach my $section (sort keys %conf) {
    print hr, h1($section);
    foreach my $param (sort keys %{$conf{$section}}) {
        print "$param:",textfield("$section/$param",$conf{$section}{$param}),br;
    }
}
print hr, submit, end_form, end_html;


Après, pour bien faire (et surtout si ça va sur l'internet,
il faut bien sûr valider un peu les paramètres d'entrée,
authentifier les utilisateurs... ça n'est plus forcément
trivial.

Y.