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.
--
Lisez la FAQ de la liste avant de poser une question :
http://wiki.debian.net/?DebianFrench
Vous pouvez aussi ajouter le mot ``spam'' dans vos champs "From" et
"Reply-To:"
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
