diff options
Diffstat (limited to 'solenv/bin/convertlinks.pl')
-rw-r--r-- | solenv/bin/convertlinks.pl | 138 |
1 files changed, 0 insertions, 138 deletions
diff --git a/solenv/bin/convertlinks.pl b/solenv/bin/convertlinks.pl deleted file mode 100644 index 96a45286df05..000000000000 --- a/solenv/bin/convertlinks.pl +++ /dev/null @@ -1,138 +0,0 @@ -# -# This file is part of the LibreOffice project. -# -# This Source Code Form is subject to the terms of the Mozilla Public -# License, v. 2.0. If a copy of the MPL was not distributed with this -# file, You can obtain one at http://mozilla.org/MPL/2.0/. -# -# This file incorporates work covered by the following license notice: -# -# 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 . -# - -# -# 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; -} |