# by Stefan "tommie" Tomanek # # scriptassist.pl use strict; use vars qw($VERSION %IRSSI); $VERSION = '2003020803'; %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); use Irssi 20020324; use Data::Dumper; 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() { my $help = "scriptassist $VERSION /scriptassist check Check all loaded scripts for new available versions /scriptassist update Update the selected or all script to the newest version /scriptassist search 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 Display the newest scripts /scriptassist rate