diff options
| -rw-r--r-- | _data/scripts.yaml | 5 | ||||
| -rw-r--r-- | _testing/config.yml | 2 | ||||
| -rw-r--r-- | scripts/dau.pl | 10 | ||||
| -rw-r--r-- | scripts/topicsed.pl | 9 |
4 files changed, 13 insertions, 13 deletions
diff --git a/_data/scripts.yaml b/_data/scripts.yaml index 99ecb44..ab29e28 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 @@ -4685,8 +4685,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 2ca586c..439775d 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 @@ -64,7 +63,6 @@ whitelist: - scroller - 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/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; |