From 29f227c9ad9c7325fbd0ac33567c35e06a70acb5 Mon Sep 17 00:00:00 2001
From: Barrie Slaymaker <barries@slaysys.com>
Date: Thu, 11 Feb 1999 11:29:24 -0500
Subject: backout change#2811 and add newer version based on File::Spec 
 Message-ID: <36C34BB4.A62090E0@telerama.com> 	Subject: [PATCH]5.005_54
 (pod2html) Relative URLs using new File::Spec

p4raw-link: @2811 on //depot/cfgperl: 5a039dd3f529422cb070070772502cedaf09ae20

p4raw-id: //depot/perl@2931
---
 installhtml | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

(limited to 'installhtml')

diff --git a/installhtml b/installhtml
index ad7e66e70a..db1e612865 100755
--- a/installhtml
+++ b/installhtml
@@ -236,7 +236,12 @@ foreach $dir (@splithead) {
     @data = ();
     while (<H>) {
 	last if /NAME=/;
-	s,HREF="#(.*)">,HREF="$file/$1.html">,g;
+	$_ =~ s{HREF="#(.*)">}{
+	    my $url = "$file/$1.html" ;
+            $url = Pod::Html::relativize_url( $url, "$file.html" )
+                if ( ! defined $opt_htmlroot || $opt_htmlroot eq '' ) ;
+            "HREF=\"$url\">" ;
+        }eg;
 	push @data, $_;
     } 
     close(H);
@@ -320,9 +325,14 @@ sub create_index {
 	if (defined $lcp1 and $lcp1 eq '<P>') { # Uninteresting.  Try again.
 	   ($lcp1,$lcp2) = ($name =~ m,/H1>\s<P>\s(\S+)\s[\s-]*(.*?)\s*$,sm);
 	}
-	print HTML qq(<A HREF="$dir/$file">);
+	my $url= "$dir/$file" ;
+	if ( ! defined $opt_htmlroot || $opt_htmlroot eq '' ) {
+	    $url = Pod::Html::relativize_url( "$dir/$file", $html ) ;
+	}
+
+	print HTML qq(<A HREF="$url">);
 	print HTML "<DT>$lcp1</A><DD>$lcp2\n" if defined $lcp1;
-#	print HTML qq(<A HREF="$dir/$file">$lcp1</A><BR>\n") if defined $lcp1;
+#	print HTML qq(<A HREF="$url">$lcp1</A><BR>\n") if defined $lcp1;
 
 	next;
 
-- 
cgit v1.2.1