Apache::Admin::Config version 0.03 ========================= INSTALLATION To install this module type the following: perl Makefile.PL make make test make install SYNOPSIS use Apache::Admin::Config; my $apache_conf = new Apache::Admin::Config ("/path/to/config_file.conf") || die $Apache::Admin::Config::ERROR; # parsing contents my @directives = @{ $apache_conf->directive() || die $apache_conf->error }; my @sections = @{ $apache_conf->section() || die $apache_conf->error }; my @file_sections = @{ $apache_conf->section('file') || die $apache_conf->error }; # parsing file section contents my @file_directives = @{ $apache_conf->section(file=>$file_sections[0])->directive }; my @file_sections = @{ $apache_conf->section(file=>$file_sections[0])->section }; # adding directive/section $apache_conf->add_directive(Options=>'+Indexes'); $apache_conf->section(File=>'/some/file')->add_directive(Allow=>'from all'); $apache_conf->add_section(File=>'/some/file'); $apache_conf->section(VirtualHost=>'some.host')->add_section(File=>'/some/file'); # change directive value $apache_conf->directive(Options=>'+Indexes')->value('+Indexes -FollowSymlinks'); $apache_conf->section(File=>'/some/file')->directive(Allow=>'from all')->value('from 127.0.0.1'); $apache_conf->section(File=>'/some/file')->value('/some/other/file'); $apache_conf->section(VirtualHost=>'some.host')->section(File=>'/some/file')->value('/some/other/file'); # delete directive (the last one if more than one identicales) $apache_conf->directive(Options=>'+Indexes')->delete; $apache_conf->section(File=>'/some/file')->directive(Allow=>'from all')->delete; $apache_conf->section(File=>'/some/file')->delete; $apache_conf->section(VirtualHost=>'some.host')->section(File=>'/some/file')->delete; # save changes $apache_conf->save; $apache_conf->save('/path/to/another/file.conf'); DESCRIPTION under construction METHODES new under construction save under construction delete under construction value under construction add_section under construction section @sections_name = $obj->section; @sections_entrys = $obj->section(SectionName); $section_object = $obj->section(SectionName=>'value'); arguments: name : the name of section, it's "File" in section value : the value of the section add_directive under construction directive under construction error under construction AUTHOR Olivier Poitrey LICENCE This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with the program; if not, write to the Free Software Foundation, Inc. : 59 Temple Place, Suite 330, Boston, MA 02111-1307 COPYRIGHT Copyright (C) 2001 - Olivier Poitrey HISTORY $Log: README,v $ Revision 1.5 2001/08/16 23:08:39 rs update infos for version 0.03 Revision 1.4 2001/08/15 23:58:25 rs changes for 0.02 Revision 1.3 2001/08/15 23:44:18 rs add the pod documentation of Apache::Admin::Config Revision 1.6 2001/08/14 09:49:07 rs adding some pod sections