mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 17:35:40 -04:00
24 lines
406 B
Perl
24 lines
406 B
Perl
use Config::General;
|
|
|
|
no warnings 'void';
|
|
|
|
sub {
|
|
my( $said, $pm ) = @_;
|
|
my $main_conf = $pm->get_main_conf;
|
|
|
|
my $o;
|
|
{no warnings 'once'; #keep it from bitching about it
|
|
$o = Config::General->new(
|
|
-ConfigFile => $file,
|
|
-LowerCaseNames => 1,
|
|
-UseApacheInclude => 1,
|
|
-AutoTrue => 1
|
|
);
|
|
}
|
|
|
|
print $o->save_string( $main_conf );
|
|
};
|
|
|
|
__DATA__
|
|
|
|
Dump the current configuration file
|