mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 16:45:40 -04:00
11 lines
399 B
Perl
11 lines
399 B
Perl
no warnings 'void';
|
|
sub {
|
|
my( $said, $pm ) = @_;
|
|
|
|
push @{$said->{special_commands}}, [ bb3_save_main_conf => 1 ];
|
|
|
|
print "Attempting to save my config, note that it won't change anything until I restart.";
|
|
}
|
|
|
|
__DATA__
|
|
save_config. Attempts to write the current config structure back to the file it was originally read from. Hopefully you've modified it first. Note, may lose comments. Root only.
|