diff options
| author | ailin-nemui | 2017-03-20 10:03:25 +0100 |
|---|---|---|
| committer | GitHub | 2017-03-20 10:03:25 +0100 |
| commit | f74303d84d2e9f21f56c630d08ffa54a24f7e066 (patch) | |
| tree | cd3dfe5de15011d6fc4ee6e88a2eda0d64ee3369 | |
| parent | 84681abc6f24f4b2bc92930165e760322b1bc937 (diff) | |
| parent | e99d9f49e637dea3650faaa4689166e3169409d7 (diff) | |
| download | scripts.irssi.org-f74303d84d2e9f21f56c630d08ffa54a24f7e066.tar.bz2 | |
Merge pull request #372 from bw1/mangle
[mangle] a small correction
| -rw-r--r-- | _testing/config.yml | 1 | ||||
| -rw-r--r-- | scripts/mangle.pl | 26 |
2 files changed, 15 insertions, 12 deletions
diff --git a/_testing/config.yml b/_testing/config.yml index 159f6d0..439775d 100644 --- a/_testing/config.yml +++ b/_testing/config.yml @@ -49,7 +49,6 @@ whitelist: - l33tmusic - localize - log2ansi - - mangle - mkshorterlink - newsline - nicklist diff --git a/scripts/mangle.pl b/scripts/mangle.pl index 00158a5..acfbcd6 100644 --- a/scripts/mangle.pl +++ b/scripts/mangle.pl @@ -7,18 +7,20 @@ use strict; use locale; use Irssi 20020324; +use Irssi::TextUI; use POSIX; use Data::Dumper; use vars qw($VERSION %IRSSI %HELP %channels %translations); -$VERSION = '2004031701'; +$VERSION = '2017031701'; %IRSSI = ( authors => 'Szymon Sokol', contact => 'szymon@hell.pl', name => 'mangle', description => 'translates your messages into Morse code, rot13 and other sillinesses.', license => 'GPLv2', - url => 'http://irssi.org/scripts/', changed => $VERSION, + url => 'http://irssi.org/scripts/', + changed => $VERSION, modules => 'Data::Dumper' ); @@ -192,23 +194,25 @@ sub add_channel ($$) { sub save_channels { my $filename = Irssi::settings_get_str('mangle_filename'); - local *F; - open F, '>'.$filename; + my $fo; + open $fo, '>',$filename; my $data = Dumper(\%channels); - print F $data; - close F; + print $fo $data; + close $fo; print CLIENTCRAP "%R>>%n Mangle channels saved"; } sub load_channels { my $filename = Irssi::settings_get_str('mangle_filename'); return unless (-e $filename); - local *F; - open F, '<'.$filename; + my $fi; + open $fi, '<',$filename; my $text; - $text .= $_ foreach <F>; - no strict "vars"; - %channels = %{ eval "$text" }; + $text .= $_ foreach <$fi>; + #no strict "vars"; + my $VAR1; + eval "$text"; + %channels = %$VAR1; } sub mangle_show ($$) { |