diff options
| -rw-r--r-- | molly-guard/molly_guard.pl (renamed from foreach-guard/foreach-guard.pl) | 67 |
1 files changed, 53 insertions, 14 deletions
diff --git a/foreach-guard/foreach-guard.pl b/molly-guard/molly_guard.pl index bcebef6..fb45142 100644 --- a/foreach-guard/foreach-guard.pl +++ b/molly-guard/molly_guard.pl @@ -2,11 +2,30 @@ =head1 NAME -foreach-guard.pl - confirm that you really mean to send a (non-)command to all channels. +molly_guard.pl - confirm that you really mean to do things that could have +potentially dangerous (or embarassing) effects. =head1 DESCRIPTION +Named after the plastic cover installed over some Big Red Switches With +Major Consequences. See L<http://catb.org/jargon/html/M/molly-guard.html>. +Attempts to stop you shooting yourself in the foot, face, or other body-part +during normal day-to-day use of Irssi. +By default, it protects you from the following potential mishaps: + +=over 4 + +=item * C</foreach <channel|query|window|server> [not a command]> + +C</foreach THING ARGS> will pass I<ARGS> to every I<THING> specified. Usually, +this is used to, for example, run a command in every window. A common mistake is +not including a command char such as C</> in your I<ARGS>, in which case I<ARGS> +is sent as text to every window or channel it can be. This is almost always bad. + +=item * I<Nothing else, yet> + +=back =head1 INSTALLATION @@ -45,7 +64,25 @@ THE SOFTWARE. =head1 TODO -Use this template to make an actual script. +=over 4 + +=item * Commands to protect: + +=over 4 + +=item * C</foreach [noncommand]> + +=item * C</server> (in cases where C</connect> is probably meant) + +=item * C</upgrade> (way too easy to tab-complete instead of /UPTIME) + +=item * C</exit>, C</quit> (obvious) + +=item * ... + +=back + +=back =cut @@ -58,12 +95,14 @@ use Irssi::TextUI; use Data::Dumper; -our $VERSION = '0.1'; +our $VERSION = '0.2'; our %IRSSI = ( authors => 'shabble', contact => 'shabble+irssi@metavore.org', - name => 'foreach-guard', - description => '', + name => 'molly_guard', + description => 'A script to protect users from accidentally invoking' + . ' commands which may perform undesired actions. See ' + . 'http://catb.org/jargon/html/M/molly-guard.html', license => 'MIT', updated => '$DATE' ); @@ -76,14 +115,14 @@ my $cmd_confirm_list; my $txt_confirm_list; sub init { - Irssi::settings_add_bool('foreach_guard', - 'foreach_guard_debug', + Irssi::settings_add_bool('molly_guard', + 'molly_guard_debug', 0); - Irssi::settings_add_str ('foreach_guard', - 'foreach_guard_confirm_commands', + Irssi::settings_add_str ('molly_guard', + 'molly_guard_confirm_commands', ''); - Irssi::settings_add_str ('foreach_guard', - 'foreach_guard_confirm_text', + Irssi::settings_add_str ('molly_guard', + 'molly_guard_confirm_text', ''); Irssi::theme_register([ @@ -109,7 +148,7 @@ sub init { } sub sig_setup_changed { - $DEBUG = Irssi::settings_get_bool('foreach_guard_debug'); + $DEBUG = Irssi::settings_get_bool('molly_guard_debug'); _debug("settings changed"); $cmdchars = Irssi::settings_get_str('cmdchars'); my $tmp = join('|', map { quotemeta } split('', $cmdchars)); @@ -118,10 +157,10 @@ sub sig_setup_changed { _debug("Match cmdchars set to: %s", $match_cmdchars); $cmd_confirm_check = { map { $_ => 1 } split /\s+/, - Irssi::settings_get_str('foreach_guard_confirm_commands') }; + Irssi::settings_get_str('molly_guard_confirm_commands') }; $txt_confirm_check = { map { $_ => 1 } split /\s+/, - Irssi::settings_get_str('foreach_guard_confirm_text') }; + Irssi::settings_get_str('molly_guard_confirm_text') }; } |