#!/usr/bin/perl
####################################################################################
# genindex.pl:
# Reads the source directory and creates an index.html with the link
# Author: Ram Viswanadha
#
####################################################################################
use File::Find;
use File::Basename;
use IO::File;
use Cwd;
use File::Copy;
use Getopt::Long;
use File::Path;
use File::Copy;
GetOptions(
"--sourcedir=s" => \$sourceDir,
"--destdir=s" => \$destDir,
"--href=s" => \$href
);
usage() unless defined $sourceDir;
usage() unless defined $destDir;
usage() unless defined $href;
# create list of html files
my @list;
if (@ARGV) {
@list = @ARGV;
foreach (@list) { $_ .= ".html" unless (/\.html$/i); }
} else {
opendir(DIR,$sourceDir);
@list = grep{/\.html$/} readdir(DIR);
closedir(DIR);
}
$outfile = $destDir."/index.html";
$outFH = IO::File->new($outfile,"w")
or die "could not open the file $outfile for writing: $! \n";
print $outFH "<html>\n";
print $outFH "\t<head>Index of all comparison charts</head>\n";
print $outFH "\t<body bgcolor=\"#FFFFFF\">\n";
print $outFH "\t\t<ul>\n";
# now convert
foreach $item (@list){
next if($item eq "." || $item eq ".." || $item eq "index.html");
($s1, $s2) = split(/\./,$item);
#grab the english translation
$inFH = IO::File->new($item,"r")
or die "could not open the file $outfile for reading: $! \n";
$fullName="";
while(defined ($line=<$inFH>)){
if($line =~ /.*?(\(.*\).*Cover Page.*)/){
$line =~ /.*?(\(.*\))/;
$fullName = $1;
if($fullName eq ""){
print $line."\n";
}
break;
}
}
print $outFH "\t\t\t<li><a href=\"$href/$item\">$s1</a> $fullName</li>\n";
close($inFH);
}
print $outFH "\t\t</ul>\n";
print $outFH "\t</body>\n";
print $outFH "</html>\n";
close($outFH);
#-----------------------------------------------------------------------
sub usage {
print << "END";
Usage:
txt2ldml.pl
Options:
--sourcedir=<directory>
--destdir=<directory>
--href=<The URL to be prepended>
END
exit(0);
}