jrd/irssi
1
0
Fork 0
forked from PsychoticNinja/irssi
Code Issues Pull Requests Projects Releases Wiki Activity

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 # by Stefan "tommie" Tomanek
# #
# scriptassist.pl # scriptassist.pl
@ -8,7 +6,7 @@
use strict; use strict;
use vars qw($VERSION %IRSSI); use vars qw($VERSION %IRSSI);
$VERSION = '2002101601'; $VERSION = '2002101901';
%IRSSI = ( %IRSSI = (
authors => 'Stefan \'tommie\' Tomanek', authors => 'Stefan \'tommie\' Tomanek',
contact => 'stefan@pico.ruhr.de', contact => 'stefan@pico.ruhr.de',
@ -22,7 +20,7 @@ $VERSION = '2002101601';
use vars qw($forked %remote_db $have_gpg); use vars qw($forked %remote_db $have_gpg);
use Irssi; use Irssi 20020324;
use Data::Dumper; use Data::Dumper;
use LWP::UserAgent; use LWP::UserAgent;
use POSIX; use POSIX;
@ -664,7 +662,8 @@ sub print_update (%) {
my $signed = 0; my $signed = 0;
if ($data{$_}{installed} == 1) { if ($data{$_}{installed} == 1) {
my $local = $data{$_}{local}; 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{$_})) { foreach (split /\n/, check_sig($data{$_})) {
push @table, ['', '', $_]; push @table, ['', '', $_];
} }