diff options
| author | Timo Sirainen <cras@irssi.org> | 2002-12-02 19:40:48 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-12-02 19:40:48 +0000 |
| commit | 3c2aec1214c9d4ab572217e460bdc9f6dce21f4a (patch) | |
| tree | 7a867f38e4e3b2e41ff42fea7372b0038a51897e | |
| parent | 0e56d6ef0e5fe4c96f47c2a1ffa14ccbc8c19d3b (diff) | |
| download | irssi-3c2aec1214c9d4ab572217e460bdc9f6dce21f4a.zip | |
Updated from scripts.irssi.org
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3038 dbcabf3a-b0e7-0310-adc4-f8d773084564
| -rw-r--r-- | scripts/scriptassist.pl | 19 |
1 files changed, 13 insertions, 6 deletions
diff --git a/scripts/scriptassist.pl b/scripts/scriptassist.pl index e28f1abe..96d6f26d 100644 --- a/scripts/scriptassist.pl +++ b/scripts/scriptassist.pl @@ -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"; |