diff options
| author | Timo Sirainen <cras@irssi.org> | 2002-10-19 12:40:44 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-10-19 12:40:44 +0000 |
| commit | 33de2b63652e3797af812d39811435af637bc11b (patch) | |
| tree | 064793dfaa53c84b2950612e504d7f8339275eec | |
| parent | 2db9e25f5e072d3b8a425d4642b4a73ee5828ff7 (diff) | |
| download | irssi-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.pl | 9 |
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, ['', '', $_]; } |