diff options
| author | Andrey A. Chernov <ache@FreeBSD.org> | 2005-04-17 18:29:14 +0000 |
|---|---|---|
| committer | Andrey A. Chernov <ache@FreeBSD.org> | 2005-04-17 18:29:14 +0000 |
| commit | 1275f10a25da3d067269fe769f53ab6b5ed2606c (patch) | |
| tree | bd833a7df83fb8b58a2646e570a25183906cb813 /www | |
| parent | e20e93f52434d83ede9dceb56da686f6e4ac51ab (diff) | |
| download | ports-1275f10a25da3d067269fe769f53ab6b5ed2606c.tar.gz ports-1275f10a25da3d067269fe769f53ab6b5ed2606c.zip | |
Notes
Diffstat (limited to 'www')
| -rw-r--r-- | www/w3mir/Makefile | 2 | ||||
| -rw-r--r-- | www/w3mir/files/patch-aa | 13 | ||||
| -rw-r--r-- | www/w3mir/files/patch-ab | 19 | ||||
| -rw-r--r-- | www/w3mir/files/patch-ac | 19 |
4 files changed, 53 insertions, 0 deletions
diff --git a/www/w3mir/Makefile b/www/w3mir/Makefile index b72e3ab6ad0d..417504233b7b 100644 --- a/www/w3mir/Makefile +++ b/www/w3mir/Makefile @@ -7,6 +7,7 @@ PORTNAME= w3mir PORTVERSION= 1.0.10 +PORTREVISION= 1 CATEGORIES= www perl5 MASTER_SITES= http://langfeldt.net/w3mir/ @@ -14,6 +15,7 @@ MAINTAINER= ache@freebsd.org COMMENT= All-purpose HTTP copying and mirroring tool BUILD_DEPENDS= ${SITE_PERL}/LWP.pm:${PORTSDIR}/www/p5-libwww +RUN_DEPENDS= ${BUILD_DEPENDS} USE_PERL5= yes diff --git a/www/w3mir/files/patch-aa b/www/w3mir/files/patch-aa new file mode 100644 index 000000000000..5c64be77bbd7 --- /dev/null +++ b/www/w3mir/files/patch-aa @@ -0,0 +1,13 @@ +--- w3mir.PL.orig Mon Feb 5 00:21:47 2001 ++++ w3mir.PL Sun Apr 17 21:43:30 2005 +@@ -648,8 +648,10 @@ + $rum_url_o = url $rum_url_o + unless ref $rum_url_o; + ++ my($slash)=($lf_url =~ /^\//); + # Derive a filename from the url, the filename contains no URL-quoting + my($lf_name) = (url "file:$lf_url")->unix_path; ++ $lf_name =~ s~^/~~ if (!$slash); + + # Make all intermediate directories + &mkdir($lf_name) if $s==0; diff --git a/www/w3mir/files/patch-ab b/www/w3mir/files/patch-ab new file mode 100644 index 000000000000..58af17e12776 --- /dev/null +++ b/www/w3mir/files/patch-ab @@ -0,0 +1,19 @@ +--- w3http.pm.bak Mon Feb 5 00:21:47 2001 ++++ w3http.pm Sun Apr 17 21:43:30 2005 +@@ -551,13 +551,16 @@ + # found at cool sites. + $save=1; + ++ my($slash)=($saveto =~ /^\//); + # Find a temporary filename + $tmpf=url "file:$saveto"; + $tmpf->basename($tmpfile); + $tmpf=$tmpf->unix_path; ++ $tmpf =~ s~^/~~ if (!$slash); + + # Find suitable final filename, one with no URL escapes + $saveto=(url "file:$saveto")->unix_path; ++ $saveto =~ s~^/~~ if (!$slash); + + # If output to stdout then send it directly there rather than + # using disk unnecesarily. diff --git a/www/w3mir/files/patch-ac b/www/w3mir/files/patch-ac new file mode 100644 index 000000000000..6094ed3f2c4a --- /dev/null +++ b/www/w3mir/files/patch-ac @@ -0,0 +1,19 @@ +--- w3mfix.PL.bak Mon Feb 5 00:21:47 2001 ++++ w3mfix.PL Sun Apr 17 21:56:24 2005 +@@ -686,12 +686,15 @@ + + substr($lf_url,0,0)='./' unless substr($lf_url,0,1) eq '/'; + ++ my($slash)=($lf_url =~ /^\//); + $lf_url_o=url $lf_url; + my $tmp=$lf_url_o->clone; + $tmp->basename($indexname); ++ my($tpath)=$tmp->unix_path; ++ $tpath =~ s~^/~~ if (!$slash); + + if ( $doindex && $lf_url_o->basename eq "" && +- &stat($tmp->unix_path) eq 'f' && ++ &stat($tpath) eq 'f' && + !$htmlop::isdir{$key}) { + $lf_url_o=$tmp; + $il=1; |