Cleanup and updated contact info

diff --git a/scripts/autochannel.pl b/scripts/autochannel.pl
index c5c5d600be5fcc546e0e1c2de94dd4bbf7b55814..a18a19b59d7c86c474d74ae7a8c30087c84ef232 100644 (file)
--- a/scripts/autochannel.pl
+++ b/scripts/autochannel.pl
@@ -1,21 +1,18 @@
 #
-# Copyright (C) 2007-2019 by Peder Stray <peder@ninja.no>
+# Copyright (C) 2007-2021 by Peder Stray <peder.stray@gmail.com>
 #
 
 use strict;
 use Irssi;
 use Irssi::Irc;
 
-use Data::Dumper;
-$Data::Dumper::Indent = 1;
-
 use vars qw{$VERSION %IRSSI};
 ($VERSION) = ' $Revision: 1.2 $ ' =~ / (\d+\.\d+) /;
 %IRSSI = (
          name        => 'autochannel',
          authors     => 'Peder Stray',
-         contact     => 'peder@ninja.no',
-         url         => 'http://ninja.no/irssi/autochannel.pl',
+         contact     => 'peder.stray@gmail.com',
+         url         => 'https://github.com/pstray/irssi-autochannel',
          license     => 'GPL',
          description => 'Auto add channels to channel list on join',
         );

diff --git a/scripts/chansort.pl b/scripts/chansort.pl
index df67a5983afb059803389118e1876488624fb0c4..82e2c695993e19f9a939404c3583cb72dcd177f3 100644 (file)
--- a/scripts/chansort.pl
+++ b/scripts/chansort.pl
@@ -1,5 +1,5 @@
 #
-# Copyright (C) 2004-2019 by Peder Stray <peder@ninja.no>
+# Copyright (C) 2004-2021 by Peder Stray <peder.stray@gmail.com>
 #
 
 use strict;
@@ -11,8 +11,8 @@ use vars qw{$VERSION %IRSSI};
 %IRSSI = (
          name        => 'chansort',
          authors     => 'Peder Stray',
-         contact     => 'peder@ninja.no',
-         url         => 'http://ninja.no/irssi/chansort.pl',
+         contact     => 'peder.stray@gmail.com',
+         url         => 'https://github.com/pstray/irssi-chansort',
          license     => 'GPL',
          description => 'Sort all channel and query windows',
         );

diff --git a/scripts/dccmove.pl b/scripts/dccmove.pl
index 2625b9fdc9a72de50a1964b635f374f31cf6c3b6..f73d1fcb17400581f68c3b3b58e1e3971a610f32 100644 (file)
--- a/scripts/dccmove.pl
+++ b/scripts/dccmove.pl
@@ -1,5 +1,5 @@
 #
-# Copyright (C) 2003 by Peder Stray <peder@ninja.no>
+# Copyright (C) 2003-2021 by Peder Stray <peder.stray@gmail.com>
 #
 
 use strict;
@@ -9,8 +9,8 @@ use vars qw{$VERSION %IRSSI};
 %IRSSI = (
          name        => 'dccmove',
          authors     => 'Peder Stray',
-         contact     => 'peder@ninja.no',
-         url         => 'http://ninja.no/irssi/dccmove.pl',
+         contact     => 'peder.stray@gmail.com',
+         url         => 'https://github.com/pstray/irssi-dccmove',
          license     => 'GPL',
          description => 'Move completed dcc gets to the subfolder done',
         );

diff --git a/scripts/friends_peder.pl b/scripts/friends_peder.pl
index d0cc9139a11926ffc06d0986bf6bfffe199610c8..eea0ae0082145062f4096d0aebc5aaf28ce66dc6 100644 (file)
--- a/scripts/friends_peder.pl
+++ b/scripts/friends_peder.pl
@@ -1,5 +1,5 @@
 #
-# Copyright (C) 2001-2021 by Peder Stray <peder@ninja.no>
+# Copyright (C) 2001-2021 by Peder Stray <peder.stray@gmail.com>
 #
 
 use strict;
@@ -12,10 +12,10 @@ use vars qw{$VERSION %IRSSI};
 %IRSSI = (
          name        => 'friends',
          authors     => 'Peder Stray',
-         contact     => 'peder@ninja.no',
-         url         => 'http://ninja.no/irssi/friends.pl',
+         contact     => 'peder.stray@gmail.com',
+         url         => 'https://github.com/pstray/irssi-friends',
          license     => 'GPL',
-         description => 'Basicly an autoop script with a nice interface and nick coloring ;)',
+         description => 'Basically an autoop script with a nice interface and nick coloring ;)',
         );
 
 my(%friends, @friends);

diff --git a/scripts/keepnick.pl b/scripts/keepnick.pl
index 18a52aa45cfd6605b743309057dd8cd54aeb4a88..9726e05bf49f9d70395e8a2ae95357c0155e90ec 100644 (file)
--- a/scripts/keepnick.pl
+++ b/scripts/keepnick.pl
@@ -1,5 +1,5 @@
 #
-# Copyright (C) 2001-2013 by Peder Stray <peder@ninja.no>
+# Copyright (C) 2001-2021 by Peder Stray <peder.stray@gmail.com>
 #
 
 use strict;
@@ -11,8 +11,8 @@ use vars qw{$VERSION %IRSSI};
 %IRSSI = (
          name        => 'keepnick',
          authors     => 'Peder Stray',
-         contact     => 'peder@ninja.no',
-         url         => 'http://ninja.no/irssi/keepnick.pl',
+         contact     => 'peder.stray@gmail.com',
+         url         => 'https://github.com/pstray/irssi-keepnick',
          license     => 'GPL',
          description => 'Try to get your nick back when it becomes available.',
         );
@@ -88,8 +88,8 @@ sub save_nicks {
     local(*CONF);
 
     return if $auto && !Irssi::settings_get_bool('keepnick_autosave');
-    open CONF, ">", $file;
 
+    open CONF, ">", $file;
     for my $net (sort keys %keepnick) {
        print CONF "$net\t$keepnick{$net}\n";
        $count++;

diff --git a/scripts/log2ansi.pl b/scripts/log2ansi.pl
index f3ab07d0ba618ee3fa97f32b497f3b0386bc3661..bdeaa1bc6a3daef7f6959b64cbab64b50a74f0eb 100755 (executable)
--- a/scripts/log2ansi.pl
+++ b/scripts/log2ansi.pl
@@ -1,6 +1,6 @@
 #! /usr/bin/perl
 #
-# Copyright (C) 2002-2019 by Peder Stray <peder.stray@gmail.com>
+# Copyright (C) 2002-2021 by Peder Stray <peder.stray@gmail.com>
 #
 #    This is a standalone perl program and not intended to run within
 #    irssi, it will complain if you try to...

diff --git a/scripts/query.pl b/scripts/query.pl
index 5ff7228a5431b03d99cc2e50eca5c4428d8b99b2..4dcc24afadc278f99b3689e8969eee54af0822bb 100644 (file)
--- a/scripts/query.pl
+++ b/scripts/query.pl
@@ -1,5 +1,5 @@
 #
-# Copyright (C) 2001-2019 by Peder Stray <peder@ninja.no>
+# Copyright (C) 2001-2021 by Peder Stray <peder.stray@gmail.com>
 #
 
 use strict;
@@ -15,8 +15,8 @@ use vars qw{$VERSION %IRSSI};
 %IRSSI = (
          name        => 'query',
          authors     => 'Peder Stray',
-         contact     => 'peder@ninja.no',
-         url         => 'http://ninja.no/irssi/query.pl',
+         contact     => 'peder.stray@gmail.com',
+         url         => 'https://github.com/pstray/irssi-query',
          license     => 'GPL',
          description => 'Give you more control over when to jump to query windows and when to just tell you one has been created. Enhanced autoclose.',
         );
@@ -33,7 +33,7 @@ sub load_defaults {
     local *FILE;
 
     %defaults = ();
-    open FILE, '<',$file;
+    open FILE, "<", $file;
     while (<FILE>) {
        my($mask,$maxage,$immortal) = split;
        $defaults{$mask}{maxage}   = $maxage;
@@ -46,7 +46,7 @@ sub save_defaults {
     my $file = Irssi::get_irssi_dir."/query";
     local *FILE;
 
-    open FILE, '>', $file;
+    open FILE, ">", $file;
     for (keys %defaults) {
        my $d = $defaults{$_};
        print FILE join("\t", $_,
@@ -257,7 +257,7 @@ sub sig_redir_query_userhost {
 }
 
 sub sig_session_restore {
-    open STATE, sprintf "< %s/query.state", Irssi::get_irssi_dir;
+    open STATE, "<", sprintf "%s/query.state", Irssi::get_irssi_dir;
     %state = ();       # only needed if bound as command
     while (<STATE>) {
        chomp;
@@ -270,7 +270,7 @@ sub sig_session_restore {
 }
 
 sub sig_session_save {
-    open STATE, sprintf "> %s/query.state", Irssi::get_irssi_dir;
+    open STATE, ">", sprintf "%s/query.state", Irssi::get_irssi_dir;
     for my $tag (keys %state) {
        for my $nick (keys %{$state{$tag}}) {
            print STATE join("\t",$tag,$nick,%{$state{$tag}{$nick}}), "\n";

diff --git a/scripts/upgradeinfo.pl b/scripts/upgradeinfo.pl
index f86d241859ba4bfcfa57c90300acb95024148775..22eecb4d72699820b384be2b4a74f2e02c6b651c 100644 (file)
--- a/scripts/upgradeinfo.pl
+++ b/scripts/upgradeinfo.pl
@@ -1,5 +1,5 @@
 #
-# Copyright (C) 2002-2019 by Peder Stray <peder@ninja.no>
+# Copyright (C) 2002-2021 by Peder Stray <peder.stray@gmail.com>
 #
 
 use strict;
@@ -11,8 +11,8 @@ use vars qw{$VERSION %IRSSI};
 %IRSSI = (
          name        => 'upgradeinfo',
          authors     => 'Peder Stray',
-         contact     => 'peder@ninja.no',
-         url         => 'http://ninja.no/irssi/upgradeinfo.pl',
+         contact     => 'peder.stray@gmail.com',
+         url         => 'https://github.com/pstray/irssi-upgradeinfo',
          license     => 'GPL',
          description => 'Statusbar item notifying you about updated binary',
          sbitems     => 'upgradeinfo',

diff --git a/scripts/uptime.pl b/scripts/uptime.pl
index 739f76c5ce968c652ed80aa53465df4509acbffe..d2c657c8c175121db26917ed8d7957542fa6358e 100644 (file)
--- a/scripts/uptime.pl
+++ b/scripts/uptime.pl
@@ -1,5 +1,5 @@
 #
-# Copyright (C) 2002-2019 by Peder Stray <peder@ninja.no>
+# Copyright (C) 2002-2021 by Peder Stray <peder.stray@gmail.com>
 #
 
 use strict;
@@ -12,8 +12,8 @@ use vars qw{$VERSION %IRSSI};
 %IRSSI = (
          name        => 'uptime',
          authors     => 'Peder Stray',
-         contact     => 'peder@ninja.no',
-         url         => 'http://ninja.no/irssi/uptime.pl',
+         contact     => 'peder.stray@gmail.com',
+         url         => 'https://github.com/pstray/irssi-uptime',
          license     => 'GPL',
          description => 'Try a little harder to figure out client uptime',
          sbitem      => 'uptime',