aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-06-02 06:11:11 +00:00
Code

Updated from scripts.irssi.org

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2966 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2002-10-19 12:40:44 +00:00 committed by cras
parent 2db9e25f5e
commit 33de2b6365
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scripts/scriptassist.pl
View File

@ -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, ['', '', $_];
}