summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat
-rw-r--r--_data/scripts.yaml10
-rw-r--r--_testing/config.yml4
-rw-r--r--scripts/dau.pl10
-rw-r--r--scripts/mangle.pl26
-rw-r--r--scripts/ogg123.pl2
-rw-r--r--scripts/topicsed.pl9
6 files changed, 32 insertions, 29 deletions
diff --git a/_data/scripts.yaml b/_data/scripts.yaml
index 99ecb44..8387fc1 100644
--- a/_data/scripts.yaml
+++ b/_data/scripts.yaml
@@ -1259,7 +1259,7 @@
description: 'write like an idiot'
filename: dau.pl
license: BSD
- modified: '2015-02-02 14:02:20'
+ modified: '2017-03-19 21:19:42'
name: DAU
url: http://dau.pl/
version: 2.4.3
@@ -2833,14 +2833,15 @@
version: 1.4.5
-
authors: 'Szymon Sokol'
+ commands: mangle
contact: szymon@hell.pl
description: 'translates your messages into Morse code, rot13 and other sillinesses.'
filename: mangle.pl
license: GPLv2
- modified: '2008-05-17 17:39:11'
+ modified: '2017-03-17 23:41:44'
name: mangle
url: http://irssi.org/scripts/
- version: '2004031701'
+ version: '2017031701'
-
authors: 'Petr Baudis'
contact: pasky@ji.cz
@@ -4685,8 +4686,9 @@
description: 'editing channel topics by regexps'
filename: topicsed.pl
license: 'public domain'
- modified: '2004-08-13 19:27:38'
+ modified: '2017-03-18 23:06:54'
name: topicsed
+ version: '0.1'
-
authors: "Sebastian 'yath' Schmidt"
contact: yath+irssiscripts@yath.de
diff --git a/_testing/config.yml b/_testing/config.yml
index 6a9ac6c..7f88d48 100644
--- a/_testing/config.yml
+++ b/_testing/config.yml
@@ -39,7 +39,6 @@ whitelist:
- cap_sasl_fail
- cap_sasl
- connectcmd
- - dau
- dnsspam
- irc_chess
- ircgallery
@@ -50,11 +49,9 @@ whitelist:
- l33tmusic
- localize
- log2ansi
- - mangle
- mkshorterlink
- newsline
- nicklist
- - ogg123
- oidenty
- 'on'
- osd
@@ -64,7 +61,6 @@ whitelist:
- quiz
- stocks
- sysinfoplus
- - topicsed
- tvmusor
- wordcompletition
- xetra
diff --git a/scripts/dau.pl b/scripts/dau.pl
index 89a6623..ac8c051 100644
--- a/scripts/dau.pl
+++ b/scripts/dau.pl
@@ -1417,7 +1417,7 @@ sub switch_create_files {
} else {
- if (open(FH1, "> $file1")) {
+ if (open(FH1, ">", $file1)) {
print FH1 &fix(<<' END');
# dau.pl - http://dau.pl/
@@ -1451,7 +1451,7 @@ sub switch_create_files {
} else {
- if (open(FH1, "> $file2")) {
+ if (open(FH1, ">", $file2)) {
print FH1 &fix(<<' END');
END
@@ -1479,7 +1479,7 @@ sub switch_create_files {
} else {
- if (open(FH1, "> $file3")) {
+ if (open(FH1, ">", $file3)) {
print FH1 &fix(<<' END');
END
@@ -5736,7 +5736,7 @@ sub time_parse {
################################################################################
sub debug_message {
- open(DEBUG, ">> $ENV{HOME}/.dau/.debug");
+ open(DEBUG, ">>", "$ENV{HOME}/.dau/.debug");
print DEBUG $_[0];
@@ -5746,5 +5746,5 @@ sub debug_message {
#BEGIN {
# use warnings;
#
-# open(STDERR, ">> $ENV{HOME}/.dau/.STDERR");
+# open(STDERR, ">>", $ENV{HOME}/.dau/.STDERR");
#}
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 ($$) {
diff --git a/scripts/ogg123.pl b/scripts/ogg123.pl
index 274ebbd..85a6700 100644
--- a/scripts/ogg123.pl
+++ b/scripts/ogg123.pl
@@ -64,7 +64,7 @@ sub cmd_ogg123 {
}
}
- open (f, $ogg123file) || return;
+ open (f,'<', $ogg123file) || return;
while ($ogg123linha=<f>) {
diff --git a/scripts/topicsed.pl b/scripts/topicsed.pl
index d56ed3d..58d0143 100644
--- a/scripts/topicsed.pl
+++ b/scripts/topicsed.pl
@@ -4,17 +4,18 @@
# Thanks to Mikael Magnusson for the idea and patch to implement a
# preview functionality. ;]
#
-
+use strict;
use Irssi;
-use vars %IRSSI;
+use vars qw/%IRSSI $VERSION/;
+$VERSION="0.1";
%IRSSI = (
authors => "Gabor Nyeki",
contact => "bigmac\@vim.hu",
name => "topicsed",
description => "editing channel topics by regexps",
license => "public domain",
- changed => "Fri Aug 13 19:27:38 CEST 2004"
+ changed => "2017-03-18"
);
@@ -32,7 +33,7 @@ sub topicsed {
return;
}
return if (!$server || !$server->{connected} ||
- !$winit || $winit->{type} != 'CHANNEL');
+ !$winit || $winit->{type} ne 'CHANNEL');
my $topic = $winit->{topic};
my $x = $topic;
generated by cgit v1.2.3 (git 2.25.1) at 2025-11-01 05:08:13 +0000