aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2025-01-03 14:56:47 -05:00
Code

Updated from scripts.irssi.org

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3026 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2002-11-25 00:40:42 +00:00 committed by cras
parent dae3d7be8b
commit c67ea66b14
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scripts/scriptassist.pl
View File

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