aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2025-01-03 14:56:47 -05:00
Code

Updated from scripts.irssi.org

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3057 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2002-12-11 09:40:47 +00:00 committed by cras
parent 6825f1e67e
commit 7aacb9638b
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scripts/scriptassist.pl
View File

@ -6,7 +6,7 @@
use strict;
use vars qw($VERSION %IRSSI);
$VERSION = '2002121001';
$VERSION = '2002121101';
%IRSSI = (
authors => 'Stefan \'tommie\' Tomanek',
contact => 'stefan@pico.ruhr.de',
@ -727,7 +727,6 @@ sub print_update (%) {
sub contact_author ($) {
my ($script) = @_;
$script =~ s/-/_/g;
no strict 'refs';
return unless defined %{ "Irssi::Script::${script}::" };
my %header = %{ "Irssi::Script::${script}::IRSSI" };
@ -803,13 +802,11 @@ sub get_scripts {
sub get_remote_version ($$) {
my ($script, $database) = @_;
$script =~ s/_/-/g;
return $database->{$script.".pl"}{version};
}
sub get_local_version ($) {
my ($script) = @_;
$script =~ s/-/_/g;
no strict 'refs';
return unless defined %{ "Irssi::Script::${script}::" };
my $version = ${ "Irssi::Script::${script}::VERSION" };
@ -873,7 +870,6 @@ sub check_scripts {
sub download_script ($$) {
my ($script, $xml) = @_;
my %result;
$script =~ s/_/-/;
my $site = $xml->{$script.".pl"}{source};
$result{installed} = 0;
$result{signed} = 0;