#!/usr/bin/perl
use File::Find;
use Cwd;
$topdir=cwd();
print STDOUT "$topdir\n";
@itransextns = ("txt", "itx");
@htmlextns = ("htm", "html");
@pixextns = ("gif","jpg","jpeg","jpe");
@dirs =(); #all the directories below
@reldirs=();
$thumbstr = "thumb";
$charstr = ""; 
$topref=""; #string contains links from the top of the page to things on the page itself
#$/ = "";               # Enable paragraph mode.
#$* = 1;                # Enable multi-line patterns.
foreach $extn (@htmlextns){
    $charstr = $charstr . "\\". $extn. "|"; #building an array of extensions to match
}
$charstr =~ s/(.*)\|$/$1/; #get rid of the last vertical line.
#open(INDEX, ">index.html") || die "cannot open index.html $!\n"; #The top index.html
open(INDEX, ">MasterFile.html")  || die "cannot open MasterFile.html $!\n"; #The masterfile 
select INDEX;
&printhead;
open(FINFO, "<masterfolderinfo.txt") or die "cannot open $onlydir\/folderinfo.txt $!\n";
while (<FINFO>){
    print INDEX $_;
}
find(\&mkdirlist,".");
#print STDOUT @dirs;
$smref = "<center>["; #sentence month reference header
foreach $dir (@dirs){ #build header for the sentence month-index files
    ($onlydir = $dir ) =~ s/(.*)\/(.*)?/$2/;
    if ("$topdir" eq "$dir") {
	$reldir = "\.";
    }
    else{
	($reldir = $dir) =~ s/$topdir\/(.*)/$1/;
    }
    if ($onlydir =~ m/(\d\d\d\d)-(\d\d)-(\d\d)/){
	$smyear = $1;
	&getmonth($2);
	$smref = "$smref" . "<a href=\"$reldir\/$onlydir\.html\"> $smmonth $smyear </a> |";
	#print STDOUT "$smref/n";
    }
}
$smref =~ s/(.*)\|$/$1/; #get rid of the last vertical line.
$smref = "$smref" . "]</center>\n"; #printed in the month-index file
#print STDOUT "$smref";
#
foreach $dir (@dirs){
    ($onlydir = $dir ) =~ s/(.*)\/(.*)?/$2/;
    if ("$topdir" eq "$dir") {
	$reldir = "\.";
    }
    else{
	($reldir = $dir) =~ s/$topdir\/(.*)/$1/;
    }
    if ($topdir =~ m/$onlydir/){ #do not create a folder index for the top directory
    	next; #don't do anything for the top directory
    }
    if ($onlydir =~ /^Sentences$/){ #don't do anything in the top sentence directory
	next;
    }
    #print STDOUT "Only Dir: $onlydir\n";
    #print STDOUT "Dir: $dir\n";
    #print STDOUT "Rel Dir: $reldir\n";
    chdir("$dir");
    @lindexstat = stat "$onlydir\.html"; #local index file statistics
    #system("pwd");
    @filelist = (); #a list of all the files (with full path) in a directory
    @onlyfilelist = (); #only file list without directory information
    $winIndex = 0;
    while (<*>) {
	$file = $_;
	if ($file =~ m/^thumb/i){next;}
	if ($file =~ m/($charstr)/i){ #
	  $extn = $1; #the match above
	  ($onlyfile = $file) =~ s/(.*)$\.$extn/$1/; #filename without the extension
	  push(@filelist,$file);
	  push(@onlyfilelist,$onlyfile);
      }
    }
    #$topref = "<center><a name=\"top\"> ["; #this string is put on the top
    #print STDOUT @filelist, "\n";
    $numoffiles = @filelist;
    if ($numoffiles == 0){next;}
    $topref =~ s/(.*)\|$/$1/; #get rid of the last vertical line.
    $topref = "$topref" . "]</a></center>"; #printed via printhead subroutine.
#
    print INDEX "<hr>\n";
	if ($onlydir =~ m/(\d\d\d\d)-(\d\d)-(\d\d)/){ #if it's a file with date then print the day
	    &getmonth($2);
	    print INDEX "<a href=\"$reldir\/$onlydir\.html\">";  #$onlydir\.html
	    print INDEX "$smmonth $1 Sentences </a> <br>\n";
	}
    else {
	print INDEX "<a href=\"$reldir\/$onlydir\.html\">";  #$onlydir\.html
	print INDEX "$onlydir  </a> <br>\n";
    }
#    select LOCALINDEX;
#    &printhead;  #$topref string is printed via printhead
    if ($onlydir =~ m/(\d\d\d\d)-(\d\d)-(\d\d)/){ #print month-year for sentence subdirectories
	print  INDEX $smref;
    }
#    open(FINFO, "<folderinfo.txt") or die "cannot open $onlydir\/folderinfo.txt $!\n";
#    while (<FINFO>){
#	print LOCALINDEX $_;
#    }
#
    for ($ctr=0; $ctr<$numoffiles ;$ctr++){
	$file = $filelist[$ctr];
	$onlyfile = $onlyfilelist[$ctr];
	if ($onlyfile =~ m/$onlydir/){  #m/$onlydir/){ #do not create link for the localindex file
	    #print STDOUT $onlydir;
	    next;
	}
	if ($onlyfile =~ m/(\d\d\d\d)-(\d\d)-(\d\d)/){ #if it's a file with date then print the day
	    print INDEX "$3 - ";
	}
	print INDEX "<a href=\"$reldir\/$file\">html</a> | "; #$file</a> | ";
	unless ($onlyfile =~ /index/){ #don't link the index.txt file
	    if (-e  "$onlyfile\.txt"){ #link only if a txt file exists
		print INDEX "<a href=\"$reldir\/$onlyfile\.txt\"> txt </a> \&nbsp"; #$onlyfile\.txt</a> ";
	    }
	}
	open(LFILE, "<$file") or die "cannot open $file $!\n";
	$keepskipping = 0;
	while(<LFILE>){
	    $line = $_; $line =~ s/\r//g;
	    #print STDOUT "Beginning: $line \n";
	    if ($line =~ m/^$/){
		next;
	    }
	    if ($line =~ m/<BODY>/i){
		$keepskipping = 1;
		#print STDOUT "$file: $line \n";
		next;
	    }
	    if ($line =~ m|<P>(.*)</P>|i & $keepskipping == 1){ #pick up the first paragraph
		print  INDEX "$1 <br>\n"; #print what is between the paragraph marks
		#print STDOUT "$file: $line \n";
		last; 
	    }
	}
	close(LFILE);
#end of link copying code
	#$topref = "$topref" . "<a href=\"$onlyfile\.htm\"> $onlyfile </a> |";
	#print STDOUT "$topref/n";
    }
chdir("$topdir");
}
select INDEX;
&printtail;
close(INDEX);
sub mkdirlist {
    if (-d $_) {
        ($dirname = $File::Find::name )=~ s/./$topdir/; #replace the first dot with $topdir
	push(@dirs, "$dirname");
    }
}

sub printhead {
print <<HEADER;
<HTML><HEAD><TITLE>Master Index - Learn Sanskrit HR Pota </TITLE>
<meta name=\"keywords\" content=\"sanskrit learning - HR Pota\">
<STYLE type="text/css"><!--
BODY {
  margin: 5px 5px 5px 5px;
  background-color: #9f9ff0;
}
/*----------Text Styles----------*/
HR { color: #000000}
BODY, TABLE /* Devanagari */
{
  font-size: 16pt;
  font-family: "Sanskrit 2003","Sanskrit 99","URW Palladio ITU",Uttara,Chandas,Code2000;
  font-style: normal;
  font-weight: normal;
  color: #000000;
  text-decoration: none;
}
SPAN.RVTS1 /* English */
{
  font-family: "Times New Roman";
  color: #000000;
}
/*----------Para Styles----------*/
P,UL,OL /* Paragraph Style */
{
  text-align: left;
  text-indent: 0px;
  padding: 0px 0px 0px 0px;
  margin: 0px 0px 0px 0px;
}
.RVPS1 /* Centered */
{
  text-align: center;
  padding: 0px 0px 0px 0px;
  margin: 0px 0px 0px 0px;
}
.myH2 /* for my headings */
{
  font-size: x-large;
  font-weight: bold;
  padding: 0px 0px 0px 0px;
  margin: 0px 0px 0px 0px;
}

--></STYLE>
<style type=\"text/css\">
a.plain:link {color: rgb(0,0,0)}
a.plain:visited {color: rgb(0,0,0)}
a.plain:active {color: rgb(0,0,0)}
a.plain:hover {color: rgb(255,0,0)}
a.plain {text-decoration: none}
a.home {text-decoration: none}
a.home:link {color: rgb(255,0,0)}
a.home:visited {color: rgb(255,0,0)}
a.home:hover {color: rgb(255,0,0)}
</style>
</head>
<body>
<p>[ <A HREF="/staff/hrp/personal/sanskrit/Sentences/index.html"> Sentences  </A>  |
     <A HREF="/staff/hrp/personal/sanskrit/dhaatus/dhaatus.html"> Dhaatus  </A>  |
     <A HREF="/staff/hrp/personal/sanskrit/vibhakti/vibhakti.html"> Vibhakti  </A>  | 
     <A HREF="/staff/hrp/personal/sanskrit/misc/misc.html"> Misc  </A>  | 
     <A HREF="/staff/hrp/personal/sanskrit/index.html"> Learn Sanskrit  </A>  | 
     <A HREF="/staff/hrp/personal/index.html"> Home Personal  </A>  |
     <A HREF="/staff/hrp/index.shtml"> Home </A> ] <hr></p>
HEADER
}

sub printtail {
print <<EOF;
<hr>
<p>[ <A HREF="/staff/hrp/personal/sanskrit/Sentences/index.html"> Sentences</A>  |
     <A HREF="/staff/hrp/personal/sanskrit/dhaatus/dhaatus.html"> Dhaatus</A>  |
     <A HREF="/staff/hrp/personal/sanskrit/vibhakti/vibhakti.html"> Vibhakti</A>  |
     <A HREF="/staff/hrp/personal/sanskrit/misc/misc.html"> Misc</A>  | 
     <A HREF="/staff/hrp/personal/sanskrit/index.html"> Learn Sanskrit</A>  | 
     <A HREF="/staff/hrp/personal/index.html"> Home Personal</A>  |
     <A HREF="/staff/hrp/index.shtml"> Home </A> ] </p>
EOF
&timestamp;
print <<TAIL;
</BODY></HTML>
TAIL
}
sub timestamp {
    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
    $mon = $mon+1;
    $year = $year+1900; 
    $sec =  "0" . $sec  if ($sec =~ /^\d$/);
    $min =  "0" . $min  if ($min =~ /^\d$/);
    $hour = "0" . $hour if ($hour =~ /^\d$/);
    $mday = "0" . $mday if ($mday =~ /^\d$/);
    $mon =  "0" . $mon  if ($mon =~ /^\d$/);
    print "<P> <HR> Last Modified: $hour:$min:$sec ";
    print  "$year/$mon/$mday <HR>";
}

sub STEXT {
local($tstring) = @_[0];
local(@outstr)=();
local(@astr) = split(//,$tstring);       #make an array of characters.
local($numlbraces) = 0;                         #initialise
local($numrbraces) = 0;                         #initialise
local($strlen) = length($tstring);
local($pos) = $[;
local($braceLev, $i);
$pos = index($tstring, "\{", $pos);
    if ($pos >= 0 ){
        $braceLev = 1;
        $numlbraces++;
    }
$i = $pos;
while(($braceLev >= 1) && ($pos <= $strlen)){
     $i++;
     if (@astr[$i] =~ /\{/){
	 $numlbraces++; $braceLev++;
     }
     if (@astr[$i] =~ /\}/){
	$numrbraces++; $braceLev--;
     }
     push(@outstr,$astr[$i]);
}
pop(@outstr);                                # Get rid of the last right brace.
join('',@outstr);   # convert the string back to a variable
}
sub getmonth {
    $ddmonth = @_[0];
    if ($ddmonth =~ m/01/) {$smmonth = "January";}
    elsif ($ddmonth =~ m/02/) {$smmonth = "February";}
    elsif ($ddmonth =~ m/03/) {$smmonth = "March";}
    elsif ($ddmonth =~ m/04/) {$smmonth = "April";}
    elsif ($ddmonth =~ m/05/) {$smmonth = "May";}
    elsif ($ddmonth =~ m/06/) {$smmonth = "June";}
    elsif ($ddmonth =~ m/07/) {$smmonth = "July";}
    elsif ($ddmonth =~ m/08/) {$smmonth = "August";}
    elsif ($ddmonth =~ m/09/) {$smmonth = "September";}
    elsif ($ddmonth =~ m/10/) {$smmonth = "October";}
    elsif ($ddmonth =~ m/11/) {$smmonth = "November";}
    elsif ($ddmonth =~ m/12/) {$smmonth = "December";}
}