mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 16:35:40 -04:00
19 lines
309 B
Text
19 lines
309 B
Text
use Config::General;
|
|
|
|
sub {
|
|
my( $said, $pm ) = @_;
|
|
my $main_conf = $pm->get_main_conf;
|
|
|
|
my $o = Config::General->new(
|
|
-ConfigFile => $file,
|
|
-LowerCaseNames => 1,
|
|
-UseApacheInclude => 1,
|
|
-AutoTrue => 1
|
|
);
|
|
|
|
print $o->save_string( $main_conf );
|
|
}
|
|
|
|
__DATA__
|
|
|
|
Dump the current configuration file
|