From c67ea66b148b8a1cccb55d63b5434b3ab753badc Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Mon, 25 Nov 2002 00:40:42 +0000
Subject: Updated from scripts.irssi.org

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3026 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 scripts/scriptassist.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'scripts')

diff --git a/scripts/scriptassist.pl b/scripts/scriptassist.pl
index ad72f9a9..be79dc81 100644
--- a/scripts/scriptassist.pl
+++ b/scripts/scriptassist.pl
@@ -6,7 +6,7 @@
 use strict;
 
 use vars qw($VERSION %IRSSI);
-$VERSION = '2002112301';
+$VERSION = '2002112501';
 %IRSSI = (
     authors     => 'Stefan \'tommie\' Tomanek',
     contact     => 'stefan@pico.ruhr.de',
@@ -867,14 +867,14 @@ sub check_scripts {
 sub download_script ($$) {
     my ($script, $xml) = @_;
     my %result;
-    my $site = $xml->{$_.".pl"}{source};
+    $script =~ s/_/-/;
+    my $site = $xml->{$script.".pl"}{source};
     $result{installed} = 0;
     $result{signed} = 0;
     my $dir = Irssi::get_irssi_dir();
     my $ua = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1,timeout => 30);
     $ua->agent('ScriptAssist/'.$VERSION);
     my $request = HTTP::Request->new('GET', $site.'/scripts/'.$script.'.pl');
-    
     my $response = $ua->request($request);
     if ($response->is_success()) {
 	my $file = $response->content();
-- 
cgit v1.2.3