#!/usr/bin/perl
#To prepare the list from Dhaturatnaakar of Muni Lavanya Vijaya 
# Time-stamp: <2007-06-27 22:56:00 s8904035>

if ($#ARGV == -1){
    print "Enter the .txt file: \n";
    $txtfile = <STDIN>;
    chop($txtfile);
} else {$txtfile = @ARGV[0];}
if ($txtfile !~ /.*\.txt/){$txtfile  .= '.txt';}
$itxfile = $txtfile;
$htmlfile = $txtfile;
$itxfile =~ s/\.txt$/\.itx/;
$htmlfile =~ s/\.txt$/\.htm/;
#print STDOUT "$htmlfile\n";
#
open(TXTFILE,  "< $txtfile") || die "Can't open $txtfile: $!\n";
open(ITXFILE,  "> $itxfile") || die "Can't open $itxfile: $!\n";
select(ITXFILE);
print <<HEADER;
<!--
#output=UTF_8
#sanskritifm=udvng.ifm
#sanskritfont=<font face="Sanskrit 2003",Chandas,mangal size=+2>
#endfont=</font>
#endwordvowel=.h
-->
To view correctly please choose: View -> Encoding -> UTF-8. Use CTRL+F to search (<a href="itrans.htm"> ITRANS </a> Encoding).<br> 
<hr>
<p>[ <A HREF="index.html"> Up </A>  |
     <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/MasterFile.html"> Site Index </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>
#sanskrit
HEADER

while (<TXTFILE>){
    chomp;
    $inrec = $_;
    @infields = split("\t",$inrec);
    print "$infields[0] - "; #dhaatva~NkaH
    print "$infields[1] - "; #dhaatunaama
    print "\#\#($infields[1]) \#\# - ";#dhaatunaama
    print "$infields[2] - "; #saMskRRitabhaaShaartha
    print "\#\# $infields[3] \#\# - "; #English meaning
    print "$infields[4] - "; #hindii bhaaShaartha
    print "$infields[5] - "; #gaNaH
    print "$infields[6] - "; #dhaatuH
    print "$infields[7] - "; #laT-prathama puruSha ekavacana
    print "$infields[8] - "; #laT-prathama puruSha bahuvacana
    print "$infields[9] - "; #lRRitT-prathama puruSha ekavacana
    print "$infields[10] - "; #luT-prathama puruSha ekavacana
    print "$infields[11] - "; #shatranta-shaanajanta
    print "$infields[12] "; #tva
    print " \#\#\<br\>\#\# \n";
    #s/(.*)\s*=\s*(.*)\s*=\s*(.*)/$1 = \#\# $2 ( $1 - \#\# $3 ), /g; #\<br\>
    #print $_; # STDOUT "$1\n";
}

print <<TAIL;
#endsanskrit
<hr>
<p>[ <A HREF="index.html"> Up </A>  |
     <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/MasterFile.html"> Site Index </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>
TAIL
&timestamp;
#
close(TXTFILE);
close(ITXFILE);
#
system("/cygdrive/c/itrans53/bin/itrans -i $itxfile -o $htmlfile");
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>";
}