From 3c2aec1214c9d4ab572217e460bdc9f6dce21f4a Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Mon, 2 Dec 2002 19:40:48 +0000
Subject: [PATCH] Updated from scripts.irssi.org

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3038 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 scripts/scriptassist.pl | 19 +++++++++++++------
 1 file 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";