Author: qboosh Date: Sun Dec 16 16:39:11 2007 GMT
Module: admin Tag: HEAD
---- Log message:
- use custom User-Agent, some sites refuse wget
---- Files affected:
admin/distfiles:
file-fetcher.pl (1.44 -> 1.45)
---- Diffs:
================================================================
Index: admin/distfiles/file-fetcher.pl
diff -u admin/distfiles/file-fetcher.pl:1.44
admin/distfiles/file-fetcher.pl:1.45
--- admin/distfiles/file-fetcher.pl:1.44 Sun Jun 24 21:47:56 2007
+++ admin/distfiles/file-fetcher.pl Sun Dec 16 17:39:06 2007
@@ -10,6 +10,7 @@
$no_url_dir = "./upload";
$df_server = "distfiles.pld-linux.org";
$df_scp = "[EMAIL PROTECTED]:ftp";
+$user_agent = "PLD/distfiles"
@md5 = ();
@url = ();
@@ -220,8 +221,8 @@
my $all_out = "";
my $bn = basename($url);
my $local = "$tmp_dir/$md5/$bn";
- my $cmd = "wget -nv --no-check-certificate -O $local \"$url\"";
- my $cmd2 = "wget -nv --no-check-certificate --passive-ftp -O $local
\"$url\"";
+ my $cmd = "wget -nv --no-check-certificate --user-agent=$user_agent -O
$local \"$url\"";
+ my $cmd2 = "wget -nv --no-check-certificate --user-agent=$user_agent
--passive-ftp -O $local \"$url\"";
push @files, $bn;
================================================================
---- CVS-web:
http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/admin/distfiles/file-fetcher.pl?r1=1.44&r2=1.45&f=u
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
