1996-09-15 16:41:39 +00:00
|
|
|
*** webcopy.src.old Sat Jun 8 20:42:14 1996
|
|
|
|
|
--- webcopy.src Sun Sep 15 20:14:20 1996
|
1996-09-14 00:59:32 +00:00
|
|
|
***************
|
|
|
|
|
*** 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) ||
|
1996-09-15 16:41:39 +00:00
|
|
|
***************
|
|
|
|
|
*** 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))) &&
|
