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