From: Peder Stray Date: Fri, 20 Aug 2021 11:47:51 +0000 (+0200) Subject: Cleanup and updated contact info X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=302f350f0e14822a15b4587edbe57dfbf9f80b89;p=irssi-scripts.irssi.org.git Cleanup and updated contact info --- diff --git a/scripts/autochannel.pl b/scripts/autochannel.pl index c5c5d60..a18a19b 100644 --- a/scripts/autochannel.pl +++ b/scripts/autochannel.pl @@ -1,21 +1,18 @@ # -# Copyright (C) 2007-2019 by Peder Stray +# Copyright (C) 2007-2021 by Peder Stray # 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 df67a59..82e2c69 100644 --- a/scripts/chansort.pl +++ b/scripts/chansort.pl @@ -1,5 +1,5 @@ # -# Copyright (C) 2004-2019 by Peder Stray +# Copyright (C) 2004-2021 by Peder Stray # 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 2625b9f..f73d1fc 100644 --- a/scripts/dccmove.pl +++ b/scripts/dccmove.pl @@ -1,5 +1,5 @@ # -# Copyright (C) 2003 by Peder Stray +# Copyright (C) 2003-2021 by Peder Stray # 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 d0cc913..eea0ae0 100644 --- a/scripts/friends_peder.pl +++ b/scripts/friends_peder.pl @@ -1,5 +1,5 @@ # -# Copyright (C) 2001-2021 by Peder Stray +# Copyright (C) 2001-2021 by Peder Stray # 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 18a52aa..9726e05 100644 --- a/scripts/keepnick.pl +++ b/scripts/keepnick.pl @@ -1,5 +1,5 @@ # -# Copyright (C) 2001-2013 by Peder Stray +# Copyright (C) 2001-2021 by Peder Stray # 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 f3ab07d..bdeaa1b 100755 --- a/scripts/log2ansi.pl +++ b/scripts/log2ansi.pl @@ -1,6 +1,6 @@ #! /usr/bin/perl # -# Copyright (C) 2002-2019 by Peder Stray +# Copyright (C) 2002-2021 by Peder Stray # # 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 5ff7228..4dcc24a 100644 --- a/scripts/query.pl +++ b/scripts/query.pl @@ -1,5 +1,5 @@ # -# Copyright (C) 2001-2019 by Peder Stray +# Copyright (C) 2001-2021 by Peder Stray # 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 () { 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 () { 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 f86d241..22eecb4 100644 --- a/scripts/upgradeinfo.pl +++ b/scripts/upgradeinfo.pl @@ -1,5 +1,5 @@ # -# Copyright (C) 2002-2019 by Peder Stray +# Copyright (C) 2002-2021 by Peder Stray # 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 739f76c..d2c657c 100644 --- a/scripts/uptime.pl +++ b/scripts/uptime.pl @@ -1,5 +1,5 @@ # -# Copyright (C) 2002-2019 by Peder Stray +# Copyright (C) 2002-2021 by Peder Stray # 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',