From 33de2b63652e3797af812d39811435af637bc11b Mon Sep 17 00:00:00 2001 From: Timo Sirainen Date: Sat, 19 Oct 2002 12:40:44 +0000 Subject: Updated from scripts.irssi.org git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2966 dbcabf3a-b0e7-0310-adc4-f8d773084564 --- scripts/scriptassist.pl | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'scripts') diff --git a/scripts/scriptassist.pl b/scripts/scriptassist.pl index 9a824402..9063a512 100644 --- a/scripts/scriptassist.pl +++ b/scripts/scriptassist.pl @@ -1,5 +1,3 @@ -#!/usr/bin/perl -# # by Stefan "tommie" Tomanek # # scriptassist.pl @@ -8,7 +6,7 @@ use strict; use vars qw($VERSION %IRSSI); -$VERSION = '2002101601'; +$VERSION = '2002101901'; %IRSSI = ( authors => 'Stefan \'tommie\' Tomanek', contact => 'stefan@pico.ruhr.de', @@ -22,7 +20,7 @@ $VERSION = '2002101601'; use vars qw($forked %remote_db $have_gpg); -use Irssi; +use Irssi 20020324; use Data::Dumper; use LWP::UserAgent; use POSIX; @@ -664,7 +662,8 @@ sub print_update (%) { my $signed = 0; if ($data{$_}{installed} == 1) { my $local = $data{$_}{local}; - push @table, ['%yo%n', '%9'.$_.'%9', 'upgraded ('.$local.')']; + my $remote = $data{$_}{remote}; + push @table, ['%yo%n', '%9'.$_.'%9', 'upgraded ('.$local.'->'.$remote.')']; foreach (split /\n/, check_sig($data{$_})) { push @table, ['', '', $_]; } -- cgit v1.2.3