Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv12360
Modified Files:
NetAccess.pm
Log Message:
Send the UserAgent as fink/Version so that we can check how many installations
run what...
Index: NetAccess.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/NetAccess.pm,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -d -r1.51 -r1.52
--- NetAccess.pm 16 Apr 2006 13:27:02 -0000 1.51
+++ NetAccess.pm 17 Sep 2006 19:46:59 -0000 1.52
@@ -28,6 +28,8 @@
use Fink::Config qw($config $basepath $libpath);
use Fink::Mirror;
use Fink::Command qw(mkdir_p rm_f);
+use Fink::FinkVersion qw(&fink_version);
+
use strict;
use warnings;
@@ -331,7 +333,7 @@
# check if we have curl
if (-x "$basepath/bin/curl" or -x "/usr/bin/curl") {
- $cmd = "curl -f -L";
+ $cmd = "curl -f -L -A 'fink/".
Fink::FinkVersion::fink_version() ."'";
if ($config->verbosity_level() == 0) {
$cmd .= " -s -S";
}
@@ -351,7 +353,7 @@
# if we would prefer wget (or didn't have curl available), check for
wget
if ((!$cmd or $config->param_default("DownloadMethod") eq "wget") and
(-x "$basepath/bin/wget" or -x "/usr/bin/wget")) {
- $cmd = "wget";
+ $cmd = "wget -U 'fink/". Fink::FinkVersion::fink_version() ."'";
if ($config->verbosity_level() >= 1) {
$cmd .= " --verbose";
} else {
-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
Fink-commits mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/fink-commits
