summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTimo Sirainen <cras@irssi.org>2002-10-19 12:40:44 +0000
committercras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564>2002-10-19 12:40:44 +0000
commit33de2b63652e3797af812d39811435af637bc11b (patch)
tree064793dfaa53c84b2950612e504d7f8339275eec
parent2db9e25f5e072d3b8a425d4642b4a73ee5828ff7 (diff)
downloadirssi-33de2b63652e3797af812d39811435af637bc11b.zip
Updated from scripts.irssi.org
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2966 dbcabf3a-b0e7-0310-adc4-f8d773084564
-rw-r--r--scripts/scriptassist.pl9
1 files changed, 4 insertions, 5 deletions
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, ['', '', $_];
}