1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-11-24 00:45:52 +00:00

Return NO_PACKAGE back - don't distribute modified copies

Pass If-Modified-Since for user password case
Fix fetching for missing space cases
Submitted by: gibbs
This commit is contained in:
Andrey A. Chernov 1996-09-15 16:41:39 +00:00
parent c7fe6c5bd7
commit 73a15189a0
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=3785
2 changed files with 41 additions and 4 deletions

View File

@ -3,7 +3,7 @@
# Date created: 14 Sep 1996
# Whom: ache
#
# $Id: Makefile,v 1.1.1.1 1996/09/14 00:59:32 ache Exp $
# $Id: Makefile,v 1.2 1996/09/14 01:54:48 asami Exp $
#
# WWW site: http://www.inf.utfsm.cl/~vparada/webcopy.html
@ -16,7 +16,8 @@ DISTFILES= webcopy.tgz
MAINTAINER= ache@FreeBSD.ORG
ALL_TARGET=
NO_CDROM= yes # Don't sell for profit without written permission
NO_PACKAGE= yes # This program cannot be distributed if modified in any way
# Don't sell for profit without written permission
do-install:
cd ${WRKSRC}; ${INSTALL_SCRIPT} webcopy ${PREFIX}/bin

View File

@ -1,5 +1,5 @@
*** webcopy.src.orig Sat Jun 8 20:42:14 1996
--- webcopy.src Sat Sep 14 04:30:41 1996
*** webcopy.src.old Sat Jun 8 20:42:14 1996
--- webcopy.src Sun Sep 15 20:14:20 1996
***************
*** 1,4 ****
! #!%PERL% -- # -*- perl -*-
@ -21,3 +21,39 @@
&check_tag("BGSOUND", "SRC", $image) ||
&check_tag("FRAME", "SRC", $link) ||
&check_tag("AREA", "HREF", $link) ||
***************
*** 316,323 ****
($quote)=$value=~/^([\"\'])/;
if ($quote) {
if ($value!~/.$quote$/) {
! ($_,$etc)=$etc=~/^([^$quote]*)$quote?(.*)$/;
! $value.=$_.$quote;
}
$value=~s/$quote\s*(.*)\s*$quote$/$1/;
$value=~s/\s*$//;
--- 317,324 ----
($quote)=$value=~/^([\"\'])/;
if ($quote) {
if ($value!~/.$quote$/) {
! ($_,$etc)=$value=~/^($quote[^$quote]*)$quote?(.*)$/;
! $value=$_.$quote;
}
$value=~s/$quote\s*(.*)\s*$quote$/$1/;
$value=~s/\s*$//;
***************
*** 460,466 ****
local($url,$file)=@_;
local($status,$code,$info,$line,$length,$html,$redirect,$update,$data,
$bytes,$step,$slice);
! if ($useremote || $userpass) {
$update="Pragma: no-cache${rn}";
} else {
(($update=(($_=&get_date($file))) &&
--- 461,467 ----
local($url,$file)=@_;
local($status,$code,$info,$line,$length,$html,$redirect,$update,$data,
$bytes,$step,$slice);
! if ($useremote) {
$update="Pragma: no-cache${rn}";
} else {
(($update=(($_=&get_date($file))) &&