admin: distfiles/file-fetcher.pl - use custom User-Agent, some sit...

[qboosh]

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 = "plddist\@ep09.pld-linux.org: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