AOO410/main/solenv/bin/convertlinks.pl

#**************************************************************
#  
#  Licensed to the Apache Software Foundation (ASF) under one
#  or more contributor license agreements.  See the NOTICE file
#  distributed with this work for additional information
#  regarding copyright ownership.  The ASF licenses this file
#  to you under the Apache License, Version 2.0 (the
#  "License"); you may not use this file except in compliance
#  with the License.  You may obtain a copy of the License at
#  
#    http://www.apache.org/licenses/LICENSE-2.0
#  
#  Unless required by applicable law or agreed to in writing,
#  software distributed under the License is distributed on an
#  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
#  KIND, either express or implied.  See the License for the
#  specific language governing permissions and limitations
#  under the License.
#  
#**************************************************************
#
# convertlinks - a perl script to make hrefs to 
# http://api.openoffice.org/common/ref relativ.
#

use File::Find;

# for the convenience of &wanted calls, including -eval statements:
use vars qw/*name *dir/;
*name   = *File::Find::name;
*dir    = *File::Find::dir;
@files = ();

if($#ARGV == 1)
{
	$pattern = "www";
} else
{
	$pattern = $ARGV[2];
}

find(\&wanted, "$ARGV[0]");

$return = 1;

foreach $i (@files) 
{
	next if( $i->{directory} =~ /.*common((\/|\\)ref(.*))/ ||
		 $i->{directory} =~ /.*cpp((\/|\\)ref(.*))/ ||
		 $i->{directory} =~ /.*java((\/|\\)ref(.*))/ );

	open ( FILEIN, $i->{filename} ) || die "could not open $i->{filename} for reading";

	$relPath = ".";
	$relToSource = ".";
	if( $i->{directory} =~ /.*$pattern((\/|\\)(.*))/ )
	{
		$relPath = $3;
		$relPath =~ s#\w+#\.\.#go;
		if($pattern eq "examples")
		{
			$relPath = "\.\.\/$relPath";
		}
		if($pattern eq "www")
		{
			$relToSource = "\.\.\/$relPath";
		} else
		{
			$relToSource = $relPath; 
		}
	} else
	{
		if($pattern eq "examples")
		{
			$relPath = "\.\.";
		}
		if($pattern eq "www")
		{
			$relToSource = "\.\.";
		} else
		{
			$relToSource = $relPath; 
		}		    
	}

	@lines = <FILEIN>;
	close( FILEIN );
	open( FILEOUT, ">$i->{filename}.tmp" ) || die "could not open $i->{filename} for writing";
	foreach $_ (@lines)
	{
		# change the refenreces to the index in dependency of UDK or ODK
		if("$ARGV[1]" eq "udk_" | "$ARGV[1]" eq "odk_")
		{
			s#((\")(index.html\"))#$2$ARGV[1]$3#go;
			s#((\/|\")(faq.html\"))#$2$ARGV[1]$3#go;
			s#((\/|\")(bylaws.html\"))#$2$ARGV[1]$3#go;
		}

		s#((http:\/\/api\.openoffice\.org\/)(common\/ref[^\"]+))#$relPath\/$3#go;
		s#((http:\/\/api\.openoffice\.org\/unbranded-source\/)(.*)(examples\/examples.html))#$relToSource\/$4#go;

		if($pattern eq "examples")
		{
			# change the links for the C++/Java examples in the ODK
			s#((http:\/\/api\.openoffice\.org\/source\/browse\/api\/odk\/examples\/)(java\/*))#$3#go;
			s#((http:\/\/api\.openoffice\.org\/source\/browse\/api\/odk\/examples\/)(cpp\/*))#$3#go;
			s#((http:\/\/api\.openoffice\.org\/source\/browse\/api\/odk\/examples\/)(basic\/*))#$3#go;
			s#((http:\/\/api\.openoffice\.org\/source\/browse\/api\/odk\/examples\/)(OLE\/*))#$3#go;

			# change link api specific stuff
			s#((http:\/\/api\.openoffice\.org\/)(design_guide.html))#$relPath\/www\/$3#go;
			s#(http:\/\/api\.openoffice\.org\/index.html)#$relPath\/www\/odk_index.html#go;

			# change the links for the C++ examples in the UDK			    
			s#((http:\/\/udk\.openoffice\.org\/source\/browse\/udk\/product\/examples\/)(cpp\/*))#$3#go;
			
			# change the links to udk.openoffice.org to relativ links			    
			s#(http:\/\/udk\.openoffice\.org\/index.html)#$relPath\/www\/udk_index.html#go;
			s#((http:\/\/udk\.openoffice\.org)(\/*))#$relPath\/www$3#go;
			
			# change the link to tutorial
			s#((http:\/\/api\.openoffice\.org\/)(basic\/man\/tutorial\/tutorial.pdf))#$relPath\/www\/$3#go;
		}
		print FILEOUT $_; 
	}
	close FILEOUT;
	chmod 0666, $i->{filename};
	rename "$i->{filename}.tmp", $i->{filename} || die "could not rename $i->{filename}.tmp to $i->{filename}";
	$return = 0;
}

exit $return;

sub wanted {
    %file = (
	     directory => $dir,
	     filename  => $name
	     );
    push @files, {%file} if /^.*\.html\z/s;
}