sub cmd_save {
- open(CONF, '>'.$conffile);
- print CONF XML::Simple::XMLout($conf, KeepRoot => 1, KeyAttr => {'config' => 'module', 'option' => 'key'});
- close(CONF);
+ eval {
+ open(CONF, '>'.$conffile) or die 'Could not open config file';
+ print CONF XML::Simple::XMLout($conf, KeepRoot => 1, KeyAttr => {'config' => 'module', 'option' => 'key'});
+ close(CONF);
+ };
+ if ($@) {
+ write_irssi(undef, 'Could not save config: %s', $@);
+ } else {
+ write_irssi(undef, 'Saved config');
+ }
}
sub cmd_set {
}
write_irssi(undef, 'No such module');
} else {
- write_irssi(undef,
- "Supported commands:\n".
- " save: Save the current configuration\n".
- " help [modulename]: Display this help, or module specific help\n".
- " show [modulename]: Show loaded modules, or the current parameters of a module\n".
- " set modulename parameter value: set a module parameter to a new value\n".
- " getter [modulename]: display or set the getter to use\n".
- " debug: enable debugging messages\n".
- " nodebug: disable debugging messages"
- );
+ write_irssi(undef, <<'EOT');
+Supported commands:
+ save: Save the current configuration
+ help [modulename]: Display this help, or module specific help
+ show [modulename]: Show loaded modules, or the current parameters of a module
+ set modulename parameter value: set a module parameter to a new value
+ getter [modulename]: display or set the getter to use
+ debug: enable debugging messages
+ nodebug: disable debugging messages
+EOT
}
}