1999-07-19 19:58:06 +00:00
|
|
|
--- html2ps.orig Sat Aug 9 20:59:05 1997
|
1999-09-10 08:27:35 +00:00
|
|
|
+++ html2ps Fri Sep 10 00:00:25 1999
|
1998-05-17 20:14:41 +00:00
|
|
|
@@ -1,5 +1,5 @@
|
|
|
|
|
: # Use perl
|
|
|
|
|
-eval 'exec perl -S $0 "$@"'
|
1999-09-10 08:27:35 +00:00
|
|
|
+eval 'exec !!PERL5!! -S $0 "$@"'
|
1998-05-17 20:14:41 +00:00
|
|
|
if $running_under_some_shell;
|
|
|
|
|
|
|
|
|
|
# This is html2ps version 1.0 beta1, an HTML-to-PostScript converter.
|
1999-09-10 08:27:35 +00:00
|
|
|
@@ -26,7 +26,7 @@
|
|
|
|
|
# Set the name of the global configuration file. See the installation notes
|
|
|
|
|
# and manual page for more details on configuration files.
|
|
|
|
|
|
|
|
|
|
-$globrc='/opt/tdb/lib/html2ps/html2psrc';
|
|
|
|
|
+$globrc='!!PREFIX!!/lib/html2ps/html2psrc';
|
|
|
|
|
|
|
|
|
|
$conf=<<'EOR';
|
|
|
|
|
@html2ps {
|
1999-07-19 19:58:06 +00:00
|
|
|
@@ -4072,6 +4072,7 @@
|
|
|
|
|
$URL=$url;
|
|
|
|
|
unless($url=~m|://|) {
|
|
|
|
|
if($url=~m|^http:(.*)|) {$url=$1}
|
|
|
|
|
+ if($url=~m|^file:(.*)|) {$url=$1}
|
|
|
|
|
if($url=~m|^/|) {$URL=$b1.$url} else {$URL=$b2.$url}
|
|
|
|
|
}
|
|
|
|
|
while($URL!~m|^\.\./| && $URL=~m|[^/]*/\.\./|) {$URL=$`.$'};
|
