diff options
| author | Timo Sirainen <cras@irssi.org> | 2002-11-25 00:40:42 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-11-25 00:40:42 +0000 |
| commit | c67ea66b148b8a1cccb55d63b5434b3ab753badc (patch) | |
| tree | 6272c66bc007778f70fec26e98a11ddc89d07d87 | |
| parent | dae3d7be8b8018f34e64c2cccb5e4e2f4d363220 (diff) | |
| download | irssi-c67ea66b148b8a1cccb55d63b5434b3ab753badc.zip | |
Updated from scripts.irssi.org
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3026 dbcabf3a-b0e7-0310-adc4-f8d773084564
| -rw-r--r-- | scripts/scriptassist.pl | 6 |
1 files changed, 3 insertions, 3 deletions
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(); |