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@3038 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2002-12-02 19:40:48 +00:00 committed by cras
parent 0e56d6ef0e
commit 3c2aec1214
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
scripts/scriptassist.pl
View File

@ -6,7 +6,7 @@
use strict;
use vars qw($VERSION %IRSSI);
$VERSION = '2002120101';
$VERSION = '2002120202';
%IRSSI = (
authors => 'Stefan \'tommie\' Tomanek',
contact => 'stefan@pico.ruhr.de',
@ -189,6 +189,9 @@ sub script_info ($) {
$result{$_}{$entry} = $xml->{$_.".pl"}{$entry};
}
}
if ($xml->{$_.".pl"}{signature_available}) {
$result{$_}{signature_available} = 1;
}
if (defined $xml->{$_.".pl"}{modules}) {
my $modules = $xml->{$_.".pl"}{modules};
#$result{$_}{modules}{-foo} = 1;
@ -479,7 +482,9 @@ sub print_info (%) {
$line .= " Source : ".$data{$script}{source}."\n";
$line .= " Installed : ".$local."\n" if defined $local;
$line .= " Autorun : ".$autorun."\n" if defined $autorun;
$line .= " Authors : ".$data{$script}{authors}."\n";
$line .= " Authors : ".$data{$script}{authors};
$line .= " %Go-m signed%n" if $data{$script}{signature_available};
$line .= "\n";
$line .= " Contact : ".$data{$script}{contact}."\n";
$line .= " Description: ".$data{$script}{description}."\n";
$line .= "\n" if $data{$script}{modules};
@ -775,7 +780,7 @@ sub get_scripts {
$sites_db{$_}{source} = $src;
}
} else {
###FIXME Panic?!
## FIXME Panic?!
}
}
@ -980,12 +985,14 @@ sub sig_gui_print_text ($$$$$$) {
if ($text =~ /Can't locate (.*?)\.pm in \@INC \(\@INC contains:(.*?) at/) {
my $module = $1;
$module =~ s/\//::/g;
missing_module($module);
my $time;
$time = Irssi::timeout_add(10, \&missing_module, [$module, \$time]);
}
}
sub missing_module ($) {
my ($module) = @_;
sub missing_module ($$) {
my ($module, $time) = @{ $_[0] };
Irssi::timeout_remove($$time);
my $text;
$text .= "The perl module %9".$module."%9 is missing on your system.\n";
$text .= "Please ask your administrator about it.\n";