summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorbw12017-04-01 17:22:26 +0200
committerbw12017-04-01 17:22:26 +0200
commit20ba143d3bcd64c081d35070e4fd403efeb7d2fe (patch)
tree1295359f9da16258278d34c91f98a477d3c6ac25
parent86cda6995891ea3102e171b92c9ac1014647c1fa (diff)
downloadscripts.irssi.org-20ba143d3bcd64c081d35070e4fd403efeb7d2fe.tar.bz2
[localize][crit] rewrite open
-rw-r--r--_testing/config.yml1
-rw-r--r--scripts/localize.pl8
2 files changed, 4 insertions, 5 deletions
diff --git a/_testing/config.yml b/_testing/config.yml
index 34c9c6d..bd6f323 100644
--- a/_testing/config.yml
+++ b/_testing/config.yml
@@ -46,7 +46,6 @@ whitelist:
- ixmmsa
- kicks
- l33tmusic
- - localize
- log2ansi
- mkshorterlink
- newsline
diff --git a/scripts/localize.pl b/scripts/localize.pl
index 7aabe9f..b836c92 100644
--- a/scripts/localize.pl
+++ b/scripts/localize.pl
@@ -60,7 +60,7 @@
use strict;
use vars qw($VERSION %IRSSI);
-$VERSION = "2014112501";
+$VERSION = "2017040101";
%IRSSI = (
authors => "Stefan 'tommie' Tomanek",
contact => "stefan\@pico.ruhr.de",
@@ -511,7 +511,7 @@ sub save_cache {
my $filename = Irssi::settings_get_str('localize_cache_filename');
my $data = Dumper(\%cache);
local *F;
- open(F, '>'.$filename);
+ open(F, '>',$filename);
print(F $data);
close(F);
print CLIENTCRAP "%R>>%n localize cache (".scalar(keys(%cache))." entries/".length($data)." bytes) saved to ".$filename;
@@ -522,7 +522,7 @@ sub load_cache {
my $filename = Irssi::settings_get_str('localize_cache_filename');
my (%new_cache, $text);
local *F;
- open F, "<".$filename || return;
+ open F, "<",$filename || return;
$text .= $_ foreach (<F>);
close(F);
eval { %new_cache = %{ eval "$text" }; };
@@ -561,7 +561,7 @@ sub show_map ($$$) {
my $cmd = Irssi::settings_get_str('localize_xplanet_cmd');
my $file = Irssi::settings_get_str('localize_xplanet_temp_file');
local *F;
- open F, '>'.$file;
+ open F, '>',$file;
print F $lat.' '.$long.' "'.$nick.'"';
close F;
system("$cmd -markerf $file &");