*** webcopy.src.old Sat Jun 8 20:42:14 1996
--- webcopy.src Sun Sep 15 20:14:20 1996
***************
*** 1,4 ****
! #!%PERL% -- # -*- perl -*-
eval 'exec %PERL% -S $0 "$*"'
if undef;
#
--- 1,4 ----
! #!%PERL% --
eval 'exec %PERL% -S $0 "$*"'
if undef;
#
***************
*** 275,280 ****
--- 275,281 ----
&check_tag("OVERLAY", "SRC", $image) ||
&check_tag("BODY", "BACKGROUND", $image) ||
&check_tag("TABLE", "BACKGROUND", $image) ||
+ &check_tag("EMBED", "SRC", $image) ||
&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))) &&
