From 06fdfd617e3944e5ed07aa0e230d71a1e76384c3 Mon Sep 17 00:00:00 2001 From: ailin-nemui Date: Mon, 8 Feb 2016 14:38:33 +0100 Subject: sync scriptassist.pl --- scripts/scriptassist.pl | 454 +++++++++++++++++++++++++++--------------------- 1 file changed, 259 insertions(+), 195 deletions(-) diff --git a/scripts/scriptassist.pl b/scripts/scriptassist.pl index dd6d3737..459d97f6 100644 --- a/scripts/scriptassist.pl +++ b/scripts/scriptassist.pl @@ -5,21 +5,19 @@ use strict; -use vars qw($VERSION %IRSSI); -$VERSION = '2003020803'; -%IRSSI = ( +our $VERSION = '2003020804'; +our %IRSSI = ( authors => 'Stefan \'tommie\' Tomanek', contact => 'stefan@pico.ruhr.de', name => 'scriptassist', description => 'keeps your scripts on the cutting edge', license => 'GPLv2', url => 'http://irssi.org/scripts/', - changed => $VERSION, modules => 'Data::Dumper LWP::UserAgent (GnuPG)', commands => "scriptassist" ); -use vars qw($forked %remote_db $have_gpg); +our ($forked, %remote_db, $have_gpg, @complist); use Irssi 20020324; use Data::Dumper; @@ -27,12 +25,11 @@ use LWP::UserAgent; use POSIX; # GnuPG is not always needed -use vars qw($have_gpg @complist); $have_gpg = 0; eval "use GnuPG qw(:algo :trust);"; $have_gpg = 1 if not ($@); -sub show_help() { +sub show_help { my $help = "scriptassist $VERSION /scriptassist check Check all loaded scripts for new available versions @@ -42,15 +39,15 @@ sub show_help() { Search the script database /scriptassist info Display information about -/scriptassist ratings - Retrieve the average ratings of the the scripts -/scriptassist top - Retrieve the first top rated scripts -/scriptassist new +".#/scriptassist ratings +# Retrieve the average ratings of the the scripts +#/scriptassist top +# Retrieve the first top rated scripts +"/scriptassist new Display the newest scripts -/scriptassist rate