From 33de2b63652e3797af812d39811435af637bc11b Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
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