mayatool3_test2: docs/scripts/html/code/TextFilesToHTML.html annotate

annotate docs/scripts/html/code/TextFilesToHTML.html @ 0:4816e4a8ae95 draft default tip

Uploaded

author	deepakjadmin
date	Wed, 20 Jan 2016 09:23:18 -0500
parents
children

rev	line source
0 4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1 <html>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	2 <head>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	3 <title>MayaChemTools:Code:TextFilesToHTML.pl</title>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	4 <meta http-equiv="content-type" content="text/html;charset=utf-8">
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	5 <link rel="stylesheet" type="text/css" href="../../../css/MayaChemToolsCode.css">
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	6 </head>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	7 <body leftmargin="20" rightmargin="20" topmargin="10" bottommargin="10">
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	8 <br/>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	9 <center>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	10 <a href="http://www.mayachemtools.org" title="MayaChemTools Home"><img src="../../../images/MayaChemToolsLogo.gif" border="0" alt="MayaChemTools"></a>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	11 </center>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	12 <br/>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	13 <pre>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	14 1 #!/usr/bin/perl -w
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	15 2 <span class="c">#</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	16 3 <span class="c"># $RCSfile: TextFilesToHTML.pl,v $</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	17 4 <span class="c"># $Date: 2015/02/28 20:46:21 $</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	18 5 <span class="c"># $Revision: 1.41 $</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	19 6 <span class="c">#</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	20 7 <span class="c"># Author: Manish Sud <msud@san.rr.com></span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	21 8 <span class="c">#</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	22 9 <span class="c"># Copyright (C) 2015 Manish Sud. All rights reserved.</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	23 10 <span class="c">#</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	24 11 <span class="c"># This file is part of MayaChemTools.</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	25 12 <span class="c">#</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	26 13 <span class="c"># MayaChemTools is free software; you can redistribute it and/or modify it under</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	27 14 <span class="c"># the terms of the GNU Lesser General Public License as published by the Free</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	28 15 <span class="c"># Software Foundation; either version 3 of the License, or (at your option) any</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	29 16 <span class="c"># later version.</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	30 17 <span class="c">#</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	31 18 <span class="c"># MayaChemTools is distributed in the hope that it will be useful, but without</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	32 19 <span class="c"># any warranty; without even the implied warranty of merchantability of fitness</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	33 20 <span class="c"># for a particular purpose. See the GNU Lesser General Public License for more</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	34 21 <span class="c"># details.</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	35 22 <span class="c">#</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	36 23 <span class="c"># You should have received a copy of the GNU Lesser General Public License</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	37 24 <span class="c"># along with MayaChemTools; if not, see <http://www.gnu.org/licenses/> or</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	38 25 <span class="c"># write to the Free Software Foundation Inc., 59 Temple Place, Suite 330,</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	39 26 <span class="c"># Boston, MA, 02111-1307, USA.</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	40 27 <span class="c">#</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	41 28
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	42 29 <span class="k">use</span> <span class="w">strict</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	43 30 <span class="k">use</span> <span class="w">FindBin</span><span class="sc">;</span> <span class="k">use</span> <span class="w">lib</span> <span class="q">"$FindBin::Bin/../lib"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	44 31 <span class="k">use</span> <span class="w">Getopt::Long</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	45 32 <span class="k">use</span> <span class="w">File::Basename</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	46 33 <span class="k">use</span> <span class="w">Text::ParseWords</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	47 34 <span class="k">use</span> <span class="w">Benchmark</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	48 35 <span class="k">use</span> <span class="w">FileUtil</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	49 36 <span class="k">use</span> <span class="w">TextUtil</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	50 37 <span class="k">use</span> <span class="w">HTMLUtil</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	51 38
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	52 39 <span class="k">my</span><span class="s">(</span><span class="i">$ScriptName</span><span class="cm">,</span> <span class="i">%Options</span><span class="cm">,</span> <span class="i">$StartTime</span><span class="cm">,</span> <span class="i">$EndTime</span><span class="cm">,</span> <span class="i">$TotalTime</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	53 40
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	54 41 <span class="c"># Autoflush STDOUT</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	55 42 <span class="i">$\|</span> = <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	56 43
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	57 44 <span class="c"># Starting message...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	58 45 <span class="i">$ScriptName</span> = <span class="i">basename</span><span class="s">(</span><span class="i">$0</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	59 46 <span class="k">print</span> <span class="q">"\n$ScriptName: Starting...\n\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	60 47 <span class="i">$StartTime</span> = <span class="w">new</span> <span class="w">Benchmark</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	61 48
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	62 49 <span class="c"># Get the options and setup script...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	63 50 <span class="i">SetupScriptUsage</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	64 51 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">help</span>} \|\| <span class="i">@ARGV</span> < <span class="n">1</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	65 52 <span class="k">die</span> <span class="i">GetUsageFromPod</span><span class="s">(</span><span class="q">"$FindBin::Bin/$ScriptName"</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	66 53 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	67 54
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	68 55 <span class="k">my</span><span class="s">(</span><span class="i">@TextFilesList</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	69 56 <span class="i">@TextFilesList</span> = <span class="i">ExpandFileNames</span><span class="s">(</span>\<span class="i">@ARGV</span><span class="cm">,</span> <span class="q">"csv tsv"</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	70 57
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	71 58 <span class="k">print</span> <span class="q">"Processing options...\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	72 59 <span class="k">my</span><span class="s">(</span><span class="i">%OptionsInfo</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	73 60 <span class="i">ProcessOptions</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	74 61
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	75 62 <span class="k">print</span> <span class="q">"Checking input text file(s)...\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	76 63 <span class="k">my</span><span class="s">(</span><span class="i">%TextFilesInfo</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	77 64 <span class="i">RetrieveTextFilesInfo</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	78 65 <span class="i">SetupCoulmnsTablesAndMiscInfo</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	79 66
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	80 67 <span class="c"># Generate output files...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	81 68 <span class="k">my</span><span class="s">(</span><span class="i">$FileIndex</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	82 69 <span class="k">if</span> <span class="s">(</span><span class="i">@TextFilesList</span> > <span class="n">1</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	83 70 <span class="k">print</span> <span class="q">"\nProcessing text files...\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	84 71 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	85 72 <span class="k">for</span> <span class="i">$FileIndex</span> <span class="s">(</span><span class="n">0</span> .. <span class="i">$#TextFilesList</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	86 73 <span class="k">if</span> <span class="s">(</span><span class="i">$TextFilesInfo</span>{<span class="w">FileOkay</span>}[<span class="i">$FileIndex</span>]<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	87 74 <span class="k">print</span> <span class="q">"\nProcessing file $TextFilesList[$FileIndex]...\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	88 75 <span class="i">GenerateHTMLTable</span><span class="s">(</span><span class="i">$FileIndex</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	89 76 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	90 77 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	91 78 <span class="k">print</span> <span class="q">"\n$ScriptName:Done...\n\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	92 79
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	93 80 <span class="i">$EndTime</span> = <span class="w">new</span> <span class="w">Benchmark</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	94 81 <span class="i">$TotalTime</span> = <span class="w">timediff</span> <span class="s">(</span><span class="i">$EndTime</span><span class="cm">,</span> <span class="i">$StartTime</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	95 82 <span class="k">print</span> <span class="q">"Total time: "</span><span class="cm">,</span> <span class="i">timestr</span><span class="s">(</span><span class="i">$TotalTime</span><span class="s">)</span><span class="cm">,</span> <span class="q">"\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	96 83
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	97 84 <span class="c">###############################################################################</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	98 85
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	99 86 <span class="c"># Generate HTML table(s)...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	100 <a name="GenerateHTMLTable-"></a> 87 <span class="k">sub </span><span class="m">GenerateHTMLTable</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	101 88 <span class="k">my</span><span class="s">(</span><span class="i">$Index</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	102 89
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	103 90 <span class="k">if</span> <span class="s">(</span><span class="i">$TextFilesInfo</span>{<span class="w">MultipleHTMLTables</span>}[<span class="i">$Index</span>]<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	104 91 <span class="i">GenerateMultipleHTMLTable</span><span class="s">(</span><span class="i">$Index</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	105 92 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	106 93 <span class="k">else</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	107 94 <span class="i">GenerateOneHTMLTable</span><span class="s">(</span><span class="i">$Index</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	108 95 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	109 96 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	110 97
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	111 98 <span class="c"># Generate one table...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	112 <a name="GenerateOneHTMLTable-"></a> 99 <span class="k">sub </span><span class="m">GenerateOneHTMLTable</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	113 100 <span class="k">my</span><span class="s">(</span><span class="i">$Index</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	114 101 <span class="k">my</span><span class="s">(</span><span class="i">$TextFile</span><span class="cm">,</span> <span class="i">$TopHTMLDir</span><span class="cm">,</span> <span class="i">$HTMLFile</span><span class="cm">,</span> <span class="i">$Line</span><span class="cm">,</span> <span class="i">$StartRowNum</span><span class="cm">,</span> <span class="i">$EndRowNum</span><span class="cm">,</span> <span class="i">$CSSFile</span><span class="cm">,</span> <span class="i">$CSSFilePath</span><span class="cm">,</span> <span class="i">$CSSRef</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	115 102
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	116 103 <span class="i">$HTMLFile</span> = <span class="i">$TextFilesInfo</span>{<span class="w">HTMLRoot</span>}[<span class="i">$Index</span>] . <span class="q">".html"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	117 104 <span class="i">$TextFile</span> = <span class="i">$TextFilesList</span>[<span class="i">$Index</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	118 105
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	119 106 <span class="c"># Setup data directories...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	120 107 <span class="s">(</span><span class="i">$TopHTMLDir</span><span class="s">)</span> = <span class="i">SetupDataDirs</span><span class="s">(</span><span class="i">$Index</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	121 108
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	122 109 <span class="c"># Setup stylesheet file...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	123 110 <span class="i">$CSSRef</span> = <span class="q">""</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	124 111 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">stylesheet</span>} =~ <span class="q">/^new$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	125 112 <span class="i">$CSSFile</span> = <span class="i">$TextFilesInfo</span>{<span class="w">HTMLRoot</span>}[<span class="i">$Index</span>] . <span class="q">".css"</span><span class="sc">;</span> <span class="i">$CSSRef</span> = <span class="q">".\/"</span> . <span class="q">"$CSSFile"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	126 113 <span class="i">$CSSFilePath</span> = <span class="q">"$TopHTMLDir"</span> . <span class="q">"\/"</span> . <span class="i">$CSSFile</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	127 114 <span class="i">GenerateStyleSheetFile</span><span class="s">(</span><span class="i">$CSSFilePath</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	128 115 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	129 116 <span class="k">elsif</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">stylesheet</span>} =~ <span class="q">/^old$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	130 117 <span class="i">$CSSRef</span> = <span class="i">$Options</span>{<span class="w">stylesheetname</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	131 118 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	132 119 <span class="c"># Set HTML file location...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	133 120 <span class="i">$HTMLFile</span> = <span class="q">"$TopHTMLDir"</span> . <span class="q">"\/"</span> . <span class="i">$HTMLFile</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	134 121
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	135 122 <span class="k">print</span> <span class="q">"Generating HTML file $HTMLFile...\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	136 123 <span class="k">open</span> <span class="w">HTMLFILE</span><span class="cm">,</span> <span class="q">">$HTMLFile"</span> <span class="k">or</span> <span class="k">die</span> <span class="q">"Error: Can't open $HTMLFile: $! \n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	137 124 <span class="k">open</span> <span class="w">TEXTFILE</span><span class="cm">,</span> <span class="q">"$TextFile"</span> <span class="k">or</span> <span class="k">die</span> <span class="q">"Error: Can't open $TextFile: $! \n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	138 125
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	139 126 <span class="c"># Write out HTML page header...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	140 127 <span class="k">print</span> <span class="i">HTMLFILE</span> <span class="i">SetupHTMLPageHeader</span><span class="s">(</span><span class="i">$TextFilesInfo</span>{<span class="w">HTMLTitle</span>}[<span class="i">$Index</span>]<span class="cm">,</span> <span class="i">$CSSRef</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	141 128 <span class="k">if</span> <span class="s">(</span><span class="i">$OptionsInfo</span>{<span class="w">TitleDisplay</span>}<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	142 129 <span class="k">print</span> <span class="i">HTMLFILE</span> <span class="i">SetupHTMLPageTitle</span><span class="s">(</span><span class="i">$TextFilesInfo</span>{<span class="w">HTMLTitle</span>}[<span class="i">$Index</span>]<span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	143 130 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	144 131 <span class="k">else</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	145 132 <span class="k">print</span> <span class="i">HTMLFILE</span> <span class="i">SetupHTMLEmptyLines</span><span class="s">(</span><span class="n">1</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	146 133 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	147 134
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	148 135 <span class="c"># Start the table...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	149 136 <span class="k">print</span> <span class="i">HTMLFILE</span> <span class="i">SetupHTMLAlignmentBegin</span><span class="s">(</span><span class="q">"center"</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	150 137 <span class="k">print</span> <span class="i">HTMLFILE</span> <span class="i">SetupHTMLTableHeader</span><span class="s">(</span><span class="i">$OptionsInfo</span>{<span class="w">TableBorder</span>}<span class="cm">,</span> <span class="i">$OptionsInfo</span>{<span class="w">TableCellPadding</span>}<span class="cm">,</span> <span class="i">$OptionsInfo</span>{<span class="w">TableCellSpacing</span>}<span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	151 138
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	152 139 <span class="i">WriteColLabels</span><span class="s">(</span><span class="i">$Index</span><span class="cm">,</span> \<span class="i">TEXTFILE</span><span class="cm">,</span> \<span class="i">HTMLFILE</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	153 140
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	154 141 <span class="c"># Skip the labels and write out all the other rows...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	155 142 <span class="i">$Line</span> = <span class="q"><TEXTFILE></span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	156 143 <span class="i">$StartRowNum</span> = <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	157 144 <span class="i">$EndRowNum</span> = <span class="i">$TextFilesInfo</span>{<span class="w">LineCount</span>}[<span class="i">$Index</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	158 145 <span class="i">WriteRowValues</span><span class="s">(</span><span class="i">$Index</span><span class="cm">,</span> <span class="i">$StartRowNum</span><span class="cm">,</span> <span class="i">$EndRowNum</span><span class="cm">,</span> \<span class="i">TEXTFILE</span><span class="cm">,</span> \<span class="i">HTMLFILE</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	159 146
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	160 147 <span class="c"># Finish up the table...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	161 148 <span class="k">print</span> <span class="i">HTMLFILE</span> <span class="i">SetupHTMLTableEnd</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	162 149 <span class="k">print</span> <span class="i">HTMLFILE</span> <span class="i">SetupHTMLAlignmentEnd</span><span class="s">(</span><span class="q">"center"</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	163 150
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	164 151 <span class="c"># Write out HTML page end...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	165 152 <span class="k">print</span> <span class="i">HTMLFILE</span> <span class="i">SetupHTMLPageEnd</span><span class="s">(</span><span class="i">$OptionsInfo</span>{<span class="w">Footer</span>}<span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	166 153
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	167 154 <span class="k">close</span> <span class="w">HTMLFILE</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	168 155 <span class="k">close</span> <span class="w">TEXTFILE</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	169 156 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	170 157
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	171 158 <span class="c"># Generate multiple tables...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	172 <a name="GenerateMultipleHTMLTable-"></a> 159 <span class="k">sub </span><span class="m">GenerateMultipleHTMLTable</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	173 160 <span class="k">my</span><span class="s">(</span><span class="i">$Index</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	174 161 <span class="k">my</span><span class="s">(</span><span class="i">$TopHTMLDir</span><span class="cm">,</span> <span class="i">$SubHTMLDir</span><span class="cm">,</span> <span class="i">$TextFile</span><span class="cm">,</span> <span class="i">$HTMLFile</span><span class="cm">,</span> <span class="i">$TableNum</span><span class="cm">,</span> <span class="i">$TableCount</span><span class="cm">,</span> <span class="i">$TableIndex</span><span class="cm">,</span> <span class="i">$TableStartLineNum</span><span class="cm">,</span> <span class="i">$TableEndLineNum</span><span class="cm">,</span> <span class="i">$Line</span><span class="cm">,</span> <span class="i">$InSubHTMLDir</span><span class="cm">,</span> <span class="i">$PrintMsg</span><span class="cm">,</span> <span class="i">$CSSFile</span><span class="cm">,</span> <span class="i">$CSSFilePath</span><span class="cm">,</span> <span class="i">$CSSRef</span><span class="cm">,</span> <span class="i">$NewStyleSheet</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	175 162
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	176 163 <span class="c"># Open text file and skip over label line...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	177 164 <span class="i">$TextFile</span> = <span class="i">$TextFilesList</span>[<span class="i">$Index</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	178 165 <span class="k">open</span> <span class="w">TEXTFILE</span><span class="cm">,</span> <span class="q">"$TextFile"</span> <span class="k">or</span> <span class="k">die</span> <span class="q">"Error: Can't open $TextFile: $! \n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	179 166 <span class="i">$Line</span> = <span class="q"><TEXTFILE></span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	180 167
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	181 168 <span class="c"># Set up data directories to hold various html files...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	182 169 <span class="s">(</span><span class="i">$TopHTMLDir</span><span class="cm">,</span> <span class="i">$SubHTMLDir</span><span class="s">)</span> = <span class="i">SetupDataDirs</span><span class="s">(</span><span class="i">$Index</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	183 170
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	184 171 <span class="c"># Create stylesheet file...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	185 172 <span class="i">$CSSRef</span> = <span class="q">""</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	186 173 <span class="i">$NewStyleSheet</span> = <span class="n">0</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	187 174 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">stylesheet</span>} =~ <span class="q">/^new$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	188 175 <span class="i">$NewStyleSheet</span> = <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	189 176 <span class="i">$CSSFile</span> = <span class="i">$TextFilesInfo</span>{<span class="w">HTMLRoot</span>}[<span class="i">$Index</span>] . <span class="q">".css"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	190 177 <span class="i">$CSSFilePath</span> = <span class="q">"$TopHTMLDir"</span> . <span class="q">"\/"</span> . <span class="i">$CSSFile</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	191 178 <span class="i">GenerateStyleSheetFile</span><span class="s">(</span><span class="i">$CSSFilePath</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	192 179 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	193 180 <span class="k">elsif</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">stylesheet</span>} =~ <span class="q">/^old$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	194 181 <span class="i">$CSSRef</span> = <span class="i">$Options</span>{<span class="w">stylesheetname</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	195 182 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	196 183
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	197 184 <span class="i">$PrintMsg</span> = <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	198 185 <span class="c"># Generate HTML files for all the tables...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	199 186 <span class="i">$TableCount</span> = <span class="i">$TextFilesInfo</span>{<span class="w">TableCount</span>}[<span class="i">$Index</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	200 187 <span class="k">for</span> <span class="i">$TableNum</span> <span class="s">(</span><span class="n">1</span> .. <span class="i">$TableCount</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	201 188 <span class="i">$TableIndex</span> = <span class="i">$TableNum</span> - <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	202 189 <span class="i">$HTMLFile</span> = <span class="i">$</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableHTMLFiles</span>}[<span class="i">$Index</span>]}[<span class="i">$TableIndex</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	203 190 <span class="i">$TableStartLineNum</span> = <span class="i">$</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableStartLineNum</span>}[<span class="i">$Index</span>]}[<span class="i">$TableIndex</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	204 191 <span class="i">$TableEndLineNum</span> = <span class="i">$</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableEndLineNum</span>}[<span class="i">$Index</span>]}[<span class="i">$TableIndex</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	205 192
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	206 193 <span class="c"># Setup file name...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	207 194 <span class="k">if</span> <span class="s">(</span><span class="i">$TableNum</span> == <span class="n">1</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	208 195 <span class="i">$HTMLFile</span> = <span class="q">"$TopHTMLDir"</span> . <span class="q">"\/"</span> . <span class="i">$HTMLFile</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	209 196 <span class="k">print</span> <span class="q">"Generating HTML file $HTMLFile...\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	210 197 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	211 198 <span class="k">else</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	212 199 <span class="i">$HTMLFile</span> = <span class="q">"$SubHTMLDir"</span> . <span class="q">"\/"</span> . <span class="i">$HTMLFile</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	213 200 <span class="k">if</span> <span class="s">(</span><span class="i">$PrintMsg</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	214 201 <span class="i">$PrintMsg</span> = <span class="n">0</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	215 202 <span class="k">if</span> <span class="s">(</span><span class="i">$TableCount</span> == <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	216 203 <span class="k">print</span> <span class="q">"Generating HTML file $HTMLFile...\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	217 204 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	218 205 <span class="k">else</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	219 206 <span class="k">print</span> <span class="q">"Generating "</span><span class="cm">,</span> <span class="s">(</span><span class="i">$TableCount</span> - <span class="n">1</span><span class="s">)</span><span class="cm">,</span> <span class="q">" other HTML files: $SubHTMLDir\/$TextFilesInfo{HTMLRoot}[$Index]\*.html...\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	220 207 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	221 208 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	222 209 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	223 210 <span class="c"># Setup stylesheet reference...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	224 211 <span class="k">if</span> <span class="s">(</span><span class="i">$NewStyleSheet</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	225 212 <span class="i">$CSSRef</span> = <span class="s">(</span><span class="i">$TableNum</span> == <span class="n">1</span><span class="s">)</span> ? <span class="q">".\/"</span> <span class="co">:</span> <span class="q">"..\/"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	226 213 <span class="i">$CSSRef</span> .= <span class="i">$CSSFile</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	227 214 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	228 215
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	229 216 <span class="k">open</span> <span class="w">HTMLFILE</span><span class="cm">,</span> <span class="q">">$HTMLFile"</span> <span class="k">or</span> <span class="k">die</span> <span class="q">"Error: Can't open $HTMLFile: $! \n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	230 217 <span class="c"># Write out HTML page header...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	231 218 <span class="k">print</span> <span class="i">HTMLFILE</span> <span class="i">SetupHTMLPageHeader</span><span class="s">(</span><span class="i">$TextFilesInfo</span>{<span class="w">HTMLTitle</span>}[<span class="i">$Index</span>]<span class="cm">,</span> <span class="i">$CSSRef</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	232 219
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	233 220 <span class="c"># Set up the navigation links for this table...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	234 221 <span class="k">if</span> <span class="s">(</span><span class="i">$OptionsInfo</span>{<span class="w">NavLinksAtTop</span>}<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	235 222 <span class="i">WriteNavigationLinks</span><span class="s">(</span><span class="i">$Index</span><span class="cm">,</span> <span class="i">$TableNum</span><span class="cm">,</span> \<span class="i">*HTMLFILE</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	236 223 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	237 224 <span class="c"># Setup page title...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	238 225 <span class="k">if</span> <span class="s">(</span><span class="i">$OptionsInfo</span>{<span class="w">TitleDisplay</span>}<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	239 226 <span class="k">print</span> <span class="i">HTMLFILE</span> <span class="i">SetupHTMLPageTitle</span><span class="s">(</span><span class="i">$TextFilesInfo</span>{<span class="w">HTMLTitle</span>}[<span class="i">$Index</span>]<span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	240 227 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	241 228 <span class="k">else</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	242 229 <span class="k">print</span> <span class="i">HTMLFILE</span> <span class="i">SetupHTMLEmptyLines</span><span class="s">(</span><span class="n">1</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	243 230 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	244 231
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	245 232 <span class="c"># Start the table...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	246 233 <span class="k">print</span> <span class="i">HTMLFILE</span> <span class="i">SetupHTMLAlignmentBegin</span><span class="s">(</span><span class="q">"center"</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	247 234 <span class="k">print</span> <span class="i">HTMLFILE</span> <span class="i">SetupHTMLTableHeader</span><span class="s">(</span><span class="i">$OptionsInfo</span>{<span class="w">TableBorder</span>}<span class="cm">,</span> <span class="i">$OptionsInfo</span>{<span class="w">TableCellPadding</span>}<span class="cm">,</span> <span class="i">$OptionsInfo</span>{<span class="w">TableCellSpacing</span>}<span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	248 235
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	249 236 <span class="i">WriteColLabels</span><span class="s">(</span><span class="i">$Index</span><span class="cm">,</span> \<span class="i">TEXTFILE</span><span class="cm">,</span> \<span class="i">HTMLFILE</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	250 237
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	251 238 <span class="c"># Write out appropriate row data for this table...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	252 239 <span class="i">WriteRowValues</span><span class="s">(</span><span class="i">$Index</span><span class="cm">,</span> <span class="i">$TableStartLineNum</span><span class="cm">,</span> <span class="i">$TableEndLineNum</span><span class="cm">,</span> \<span class="i">TEXTFILE</span><span class="cm">,</span> \<span class="i">HTMLFILE</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	253 240
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	254 241 <span class="c"># Finish up the table...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	255 242 <span class="k">print</span> <span class="i">HTMLFILE</span> <span class="i">SetupHTMLTableEnd</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	256 243 <span class="k">print</span> <span class="i">HTMLFILE</span> <span class="i">SetupHTMLAlignmentEnd</span><span class="s">(</span><span class="q">"center"</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	257 244
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	258 245 <span class="c"># Set up the navigation links for this table...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	259 246 <span class="k">if</span> <span class="s">(</span><span class="i">$OptionsInfo</span>{<span class="w">NavLinksAtBottom</span>}<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	260 247 <span class="k">print</span> <span class="i">HTMLFILE</span> <span class="i">SetupHTMLEmptyLines</span><span class="s">(</span><span class="n">1</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	261 248 <span class="i">WriteNavigationLinks</span><span class="s">(</span><span class="i">$Index</span><span class="cm">,</span> <span class="i">$TableNum</span><span class="cm">,</span> \<span class="i">*HTMLFILE</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	262 249 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	263 250
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	264 251 <span class="c"># Write out HTML page end...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	265 252 <span class="k">print</span> <span class="i">HTMLFILE</span> <span class="i">SetupHTMLPageEnd</span><span class="s">(</span><span class="i">$OptionsInfo</span>{<span class="w">Footer</span>}<span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	266 253 <span class="k">close</span> <span class="w">HTMLFILE</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	267 254 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	268 255 <span class="k">close</span> <span class="w">TEXTFILE</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	269 256
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	270 257 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	271 258
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	272 259 <span class="c"># Create stylesheet file...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	273 <a name="GenerateStyleSheetFile-"></a> 260 <span class="k">sub </span><span class="m">GenerateStyleSheetFile</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	274 261 <span class="k">my</span><span class="s">(</span><span class="i">$CSSFile</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	275 262 <span class="k">print</span> <span class="q">"Generating stylesheet file $CSSFile...\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	276 263 <span class="k">open</span> <span class="w">CSSFILE</span><span class="cm">,</span> <span class="q">">$CSSFile"</span> <span class="k">or</span> <span class="k">die</span> <span class="q">"Error: Can't open $CSSFile: $! \n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	277 264 <span class="k">print</span> <span class="i">CSSFILE</span> <span class="i">SetupHTMLStyleSheetTags</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	278 265 <span class="k">close</span> <span class="w">CSSFILE</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	279 266 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	280 267
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	281 268 <span class="c"># Write out table header using column labels...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	282 <a name="WriteColLabels-"></a> 269 <span class="k">sub </span><span class="m">WriteColLabels</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	283 270 <span class="k">my</span><span class="s">(</span><span class="i">$Index</span><span class="cm">,</span> <span class="i">$TextFileRef</span><span class="cm">,</span> <span class="i">$HTMLFileRef</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	284 271 <span class="k">my</span><span class="s">(</span><span class="i">@ColLabels</span><span class="cm">,</span> <span class="i">$Label</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	285 272
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	286 273 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">$TextFilesInfo</span>{<span class="w">TableRowHeaderTags</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	287 274
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	288 275 <span class="i">@ColLabels</span> = <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">ColLabels</span>}[<span class="i">$Index</span>]}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	289 276 <span class="k">for</span> <span class="i">$Label</span> <span class="s">(</span><span class="i">@ColLabels</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	290 277 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">SetupHTMLTableRowHeaderValue</span><span class="s">(</span><span class="i">$Label</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	291 278 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	292 279 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">$TextFilesInfo</span>{<span class="w">RowEndTags</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	293 280 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	294 281
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	295 282 <span class="c">#Write out the rows value...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	296 <a name="WriteRowValues-"></a> 283 <span class="k">sub </span><span class="m">WriteRowValues</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	297 284 <span class="k">my</span><span class="s">(</span><span class="i">$Index</span><span class="cm">,</span> <span class="i">$StartRowNum</span><span class="cm">,</span> <span class="i">$EndRowNum</span><span class="cm">,</span> <span class="i">$TextFileRef</span><span class="cm">,</span> <span class="i">$HTMLFileRef</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	298 285 <span class="k">my</span><span class="s">(</span><span class="i">$ColNum</span><span class="cm">,</span> <span class="i">$BackgroundColor</span><span class="cm">,</span> <span class="i">$FontColor</span><span class="cm">,</span> <span class="i">$LineCount</span><span class="cm">,</span> <span class="i">$Line</span><span class="cm">,</span> <span class="i">@RowValues</span><span class="cm">,</span> <span class="i">$Value</span><span class="cm">,</span> <span class="i">$InDelim</span><span class="cm">,</span> <span class="i">$LastColNum</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	299 286
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	300 287 <span class="i">$InDelim</span> = <span class="i">$TextFilesInfo</span>{<span class="w">InDelim</span>}[<span class="i">$Index</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	301 288 <span class="i">$LastColNum</span> = <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">ColLabels</span>}[<span class="i">$Index</span>]} - <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	302 289
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	303 290 <span class="k">for</span> <span class="i">$LineCount</span> <span class="s">(</span><span class="i">$StartRowNum</span> .. <span class="i">$EndRowNum</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	304 291 <span class="i">$Line</span> = <span class="i">GetTextLine</span><span class="s">(</span><span class="i">$TextFileRef</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	305 292
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	306 293 <span class="k">if</span> <span class="s">(</span><span class="i">$OptionsInfo</span>{<span class="w">ShadeRowsStatus</span>}<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	307 294 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="s">(</span><span class="i">$LineCount</span> % <span class="n">2</span><span class="s">)</span> ? <span class="i">$TextFilesInfo</span>{<span class="w">BgFilledOddRowHeaderTags</span>} <span class="co">:</span> <span class="i">$TextFilesInfo</span>{<span class="w">BgFilledEvenRowHeaderTags</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	308 295 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	309 296 <span class="k">else</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	310 297 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">$TextFilesInfo</span>{<span class="w">RowHeaderTags</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	311 298 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	312 299 <span class="i">@RowValues</span> = <span class="i">quotewords</span><span class="s">(</span><span class="i">$InDelim</span><span class="cm">,</span> <span class="n">0</span><span class="cm">,</span> <span class="i">$Line</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	313 300 <span class="k">for</span> <span class="i">$ColNum</span> <span class="s">(</span><span class="n">0</span> .. <span class="i">$LastColNum</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	314 301 <span class="i">$Value</span> = <span class="s">(</span><span class="i">$ColNum</span> <= <span class="i">$#RowValues</span><span class="s">)</span> ? <span class="i">$RowValues</span>[<span class="i">$ColNum</span>] <span class="co">:</span> <span class="q">""</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	315 302 <span class="i">$BackgroundColor</span> = <span class="q">""</span><span class="sc">;</span> <span class="i">$FontColor</span> = <span class="q">""</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	316 303 <span class="k">if</span> <span class="s">(</span><span class="i">$OptionsInfo</span>{<span class="w">HighlightStatus</span>}<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	317 304 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span><span class="s">(</span><span class="i">$TextFilesInfo</span>{<span class="w">HightlightColNumMap</span>}[<span class="i">$Index</span>]{<span class="i">$ColNum</span>}<span class="s">)</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	318 305 <span class="s">(</span><span class="i">$BackgroundColor</span><span class="cm">,</span> <span class="i">$FontColor</span><span class="s">)</span> = <span class="i">GetValueHighlightColors</span><span class="s">(</span><span class="i">$Index</span><span class="cm">,</span> <span class="i">$ColNum</span><span class="cm">,</span> <span class="i">$Value</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	319 306 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	320 307 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	321 308 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">SetupHTMLTableRowDataValue</span><span class="s">(</span><span class="i">$Value</span><span class="cm">,</span> <span class="i">$BackgroundColor</span><span class="cm">,</span> <span class="i">$FontColor</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	322 309 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	323 310 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">$TextFilesInfo</span>{<span class="w">RowEndTags</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	324 311 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	325 312 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	326 313
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	327 314 <span class="c"># Setup navigation link information for each table.</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	328 315 <span class="c">#</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	329 316 <span class="c"># All table sets besides first and last have these links: FirstTable, Previous, Current-1,Current,Current+1, Next, and LastTable</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	330 317 <span class="c"># First set: Current, Next, and LastTable</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	331 318 <span class="c"># Last set: FirstTable, Previous and Current.</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	332 319 <span class="c">#</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	333 <a name="WriteNavigationLinks-"></a> 320 <span class="k">sub </span><span class="m">WriteNavigationLinks</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	334 321 <span class="k">my</span><span class="s">(</span><span class="i">$Index</span><span class="cm">,</span> <span class="i">$CurTableNum</span><span class="cm">,</span> <span class="i">$HTMLFileRef</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	335 322 <span class="k">my</span><span class="s">(</span><span class="i">$TableNum</span><span class="cm">,</span> <span class="i">$StartTableNum</span><span class="cm">,</span> <span class="i">$EndTableNum</span><span class="cm">,</span> <span class="i">$TableIndex</span><span class="cm">,</span> <span class="i">$BorderWidth</span><span class="cm">,</span> <span class="i">$CellPadding</span><span class="cm">,</span> <span class="i">$CellSpacing</span><span class="cm">,</span><span class="i">$HTMLFile</span><span class="cm">,</span> <span class="i">$HTMLRefFile</span><span class="cm">,</span> <span class="i">$RelativeFileDir</span><span class="cm">,</span> <span class="i">$HTMLRefValue</span><span class="cm">,</span> <span class="i">$FirstTableNum</span><span class="cm">,</span> <span class="i">$FirstTableIndex</span><span class="cm">,</span> <span class="i">$LastTableNum</span><span class="cm">,</span> <span class="i">$LastTableIndex</span><span class="cm">,</span> <span class="i">$TableStartLineNum</span><span class="cm">,</span> <span class="i">$TableEndLineNum</span><span class="cm">,</span> <span class="i">$LastLineNum</span><span class="cm">,</span> <span class="i">$BGColor</span><span class="cm">,</span> <span class="i">$LinksOffSet</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	336 323
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	337 324 <span class="i">$LinksOffSet</span> = <span class="n">10</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	338 325
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	339 326 <span class="i">$FirstTableNum</span> = <span class="n">1</span><span class="sc">;</span> <span class="i">$FirstTableIndex</span> = <span class="i">$FirstTableNum</span> - <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	340 327 <span class="i">$LastTableNum</span> = <span class="i">$TextFilesInfo</span>{<span class="w">TableCount</span>}[<span class="i">$Index</span>]<span class="sc">;</span> <span class="i">$LastTableIndex</span> = <span class="i">$LastTableNum</span> - <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	341 328 <span class="i">$LastLineNum</span> = <span class="i">$</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableEndLineNum</span>}[<span class="i">$Index</span>]}[<span class="i">$LastTableIndex</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	342 329
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	343 330 <span class="c"># Figure out which links to display for a particular table...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	344 331 <span class="i">$StartTableNum</span> = <span class="i">$CurTableNum</span> - <span class="i">$LinksOffSet</span> + <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	345 332 <span class="i">$StartTableNum</span> = <span class="s">(</span><span class="i">$StartTableNum</span> < <span class="i">$FirstTableNum</span><span class="s">)</span> ? <span class="i">$FirstTableNum</span> <span class="co">:</span> <span class="i">$StartTableNum</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	346 333 <span class="k">if</span> <span class="s">(</span><span class="i">$CurTableNum</span> < <span class="i">$LinksOffSet</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	347 334 <span class="i">$EndTableNum</span> = <span class="i">$LinksOffSet</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	348 335 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	349 336 <span class="k">else</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	350 337 <span class="i">$EndTableNum</span> = <span class="i">$CurTableNum</span> + <span class="i">$LinksOffSet</span> - <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	351 338 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	352 339 <span class="i">$EndTableNum</span> = <span class="s">(</span><span class="i">$EndTableNum</span> > <span class="i">$LastTableNum</span><span class="s">)</span> ? <span class="i">$LastTableNum</span> <span class="co">:</span> <span class="i">$EndTableNum</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	353 340
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	354 341 <span class="k">my</span><span class="s">(</span><span class="i">$InactiveLinkNumColor</span><span class="cm">,</span> <span class="i">$InactiveLinkFontBold</span><span class="s">)</span> = <span class="s">(</span><span class="q">"#8e2323"</span><span class="cm">,</span> <span class="q">"1"</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	355 342 <span class="k">my</span><span class="s">(</span><span class="i">$LinkTextColor</span><span class="cm">,</span> <span class="i">$LinkBGColor</span><span class="cm">,</span> <span class="i">$LinkFontBold</span><span class="s">)</span> = <span class="s">(</span><span class="q">""</span><span class="cm">,</span> <span class="q">""</span><span class="cm">,</span> <span class="q">"1"</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	356 343
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	357 344 <span class="c"># Start link table...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	358 345 <span class="i">$BorderWidth</span> = <span class="n">0</span><span class="sc">;</span> <span class="i">$CellPadding</span> = <span class="n">2</span><span class="sc">;</span> <span class="i">$CellSpacing</span> = <span class="n">2</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	359 346 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">SetupHTMLAlignmentBegin</span><span class="s">(</span><span class="q">"center"</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	360 347 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">SetupHTMLDivBegin</span><span class="s">(</span><span class="q">"tablenav"</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	361 348 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">SetupHTMLTableHeader</span><span class="s">(</span><span class="i">$BorderWidth</span><span class="cm">,</span> <span class="i">$CellPadding</span><span class="cm">,</span> <span class="i">$CellSpacing</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	362 349 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">$TextFilesInfo</span>{<span class="w">RowHeaderTags</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	363 350
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	364 351 <span class="k">if</span> <span class="s">(</span><span class="i">$OptionsInfo</span>{<span class="w">NavLinksTableInfo</span>} && <span class="i">$OptionsInfo</span>{<span class="w">NavLinksLineInfo</span>}<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	365 352 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">SetupHTMLTableRowDataValue</span><span class="s">(</span><span class="q">"Showing table $CurTableNum of $LastTableNum"</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	366 353 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">SetupHTMLTableRowDataValue</span><span class="s">(</span><span class="q">"&nbsp"</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	367 354 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">SetupHTMLTableRowDataValue</span><span class="s">(</span><span class="q">"&nbsp"</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	368 355 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	369 356
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	370 357 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">SetupHTMLTableRowDataValue</span><span class="s">(</span><span class="q">"Tables: "</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	371 358 <span class="c"># Setup a link to first table...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	372 359 <span class="k">if</span> <span class="s">(</span><span class="i">$StartTableNum</span> != <span class="i">$FirstTableNum</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	373 360 <span class="i">$HTMLFile</span> = <span class="i">$</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableHTMLFiles</span>}[<span class="i">$Index</span>]}[<span class="i">$FirstTableIndex</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	374 361 <span class="i">$HTMLRefFile</span> = <span class="i">GetRelativeFileDir</span><span class="s">(</span><span class="i">$CurTableNum</span><span class="cm">,</span> <span class="i">$FirstTableNum</span><span class="cm">,</span> <span class="i">$FirstTableNum</span><span class="s">)</span> . <span class="i">$HTMLFile</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	375 362 <span class="i">$TableStartLineNum</span> = <span class="i">$</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableStartLineNum</span>}[<span class="i">$Index</span>]}[<span class="i">$FirstTableIndex</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	376 363 <span class="i">$TableEndLineNum</span> = <span class="i">$</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableEndLineNum</span>}[<span class="i">$Index</span>]}[<span class="i">$FirstTableIndex</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	377 364 <span class="i">$HTMLRefValue</span> = <span class="i">SetupHTMLHRef</span><span class="s">(</span><span class="q">"First"</span><span class="cm">,</span> <span class="i">$HTMLRefFile</span><span class="cm">,</span> <span class="q">"First Table Containing Lines $TableStartLineNum To $TableEndLineNum"</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	378 365 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">SetupHTMLTableRowDataValue</span><span class="s">(</span><span class="i">$HTMLRefValue</span><span class="cm">,</span> <span class="i">$LinkBGColor</span><span class="cm">,</span> <span class="i">$LinkTextColor</span><span class="cm">,</span> <span class="i">$LinkFontBold</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	379 366 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	380 367
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	381 368 <span class="c"># Setup link to previous table...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	382 369 <span class="k">if</span> <span class="s">(</span><span class="i">$CurTableNum</span> != <span class="i">$FirstTableNum</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	383 370 <span class="k">my</span><span class="s">(</span><span class="i">$PreviousTableNum</span><span class="cm">,</span> <span class="i">$PreviousTableIndex</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	384 371 <span class="i">$PreviousTableNum</span> = <span class="i">$CurTableNum</span> - <span class="n">1</span><span class="sc">;</span> <span class="i">$PreviousTableIndex</span> = <span class="i">$PreviousTableNum</span> - <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	385 372 <span class="i">$HTMLFile</span> = <span class="i">$</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableHTMLFiles</span>}[<span class="i">$Index</span>]}[<span class="i">$PreviousTableIndex</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	386 373 <span class="i">$HTMLRefFile</span> = <span class="i">GetRelativeFileDir</span><span class="s">(</span><span class="i">$CurTableNum</span><span class="cm">,</span> <span class="i">$PreviousTableNum</span><span class="cm">,</span> <span class="i">$FirstTableNum</span><span class="s">)</span> . <span class="i">$HTMLFile</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	387 374 <span class="i">$TableStartLineNum</span> = <span class="i">$</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableStartLineNum</span>}[<span class="i">$Index</span>]}[<span class="i">$PreviousTableIndex</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	388 375 <span class="i">$TableEndLineNum</span> = <span class="i">$</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableEndLineNum</span>}[<span class="i">$Index</span>]}[<span class="i">$PreviousTableIndex</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	389 376 <span class="i">$HTMLRefValue</span> = <span class="i">SetupHTMLHRef</span><span class="s">(</span><span class="q">"Previous"</span><span class="cm">,</span> <span class="i">$HTMLRefFile</span><span class="cm">,</span> <span class="q">"Previous Table Containing Lines $TableStartLineNum To $TableEndLineNum"</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	390 377 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">SetupHTMLTableRowDataValue</span><span class="s">(</span><span class="i">$HTMLRefValue</span><span class="cm">,</span> <span class="i">$LinkBGColor</span><span class="cm">,</span> <span class="i">$LinkTextColor</span><span class="cm">,</span> <span class="i">$LinkFontBold</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	391 378 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	392 379
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	393 380 <span class="k">for</span> <span class="i">$TableNum</span> <span class="s">(</span><span class="i">$StartTableNum</span> .. <span class="i">$EndTableNum</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	394 381 <span class="i">$TableIndex</span> = <span class="i">$TableNum</span> - <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	395 382 <span class="i">$HTMLFile</span> = <span class="i">$</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableHTMLFiles</span>}[<span class="i">$Index</span>]}[<span class="i">$TableIndex</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	396 383 <span class="k">if</span> <span class="s">(</span><span class="i">$TableNum</span> == <span class="i">$CurTableNum</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	397 384 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">SetupHTMLTableRowDataValue</span><span class="s">(</span><span class="i">$TableNum</span><span class="cm">,</span> <span class="i">$LinkBGColor</span><span class="cm">,</span> <span class="i">$InactiveLinkNumColor</span><span class="cm">,</span> <span class="i">$InactiveLinkFontBold</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	398 385 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	399 386 <span class="k">else</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	400 387 <span class="c"># Setup the link...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	401 388 <span class="k">my</span><span class="s">(</span><span class="i">$RefTitle</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	402 389 <span class="i">$TableStartLineNum</span> = <span class="i">$</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableStartLineNum</span>}[<span class="i">$Index</span>]}[<span class="i">$TableIndex</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	403 390 <span class="i">$TableEndLineNum</span> = <span class="i">$</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableEndLineNum</span>}[<span class="i">$Index</span>]}[<span class="i">$TableIndex</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	404 391 <span class="i">$RefTitle</span> = <span class="i">AddNumberSuffix</span><span class="s">(</span><span class="i">$TableNum</span><span class="s">)</span> . <span class="q">" Table Containing Lines $TableStartLineNum To $TableEndLineNum"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	405 392 <span class="i">$HTMLRefFile</span> = <span class="i">GetRelativeFileDir</span><span class="s">(</span><span class="i">$CurTableNum</span><span class="cm">,</span> <span class="i">$TableNum</span><span class="cm">,</span> <span class="i">$FirstTableNum</span><span class="s">)</span> . <span class="i">$HTMLFile</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	406 393 <span class="i">$HTMLRefValue</span> = <span class="i">SetupHTMLHRef</span><span class="s">(</span><span class="i">$TableNum</span><span class="cm">,</span> <span class="i">$HTMLRefFile</span><span class="cm">,</span> <span class="i">$RefTitle</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	407 394 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">SetupHTMLTableRowDataValue</span><span class="s">(</span><span class="i">$HTMLRefValue</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	408 395 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	409 396 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	410 397
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	411 398 <span class="c"># Setup link to next table...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	412 399 <span class="k">if</span> <span class="s">(</span><span class="i">$CurTableNum</span> != <span class="i">$LastTableNum</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	413 400 <span class="k">my</span><span class="s">(</span><span class="i">$NextTableNum</span><span class="cm">,</span> <span class="i">$NextTableIndex</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	414 401 <span class="i">$NextTableNum</span> = <span class="i">$CurTableNum</span> + <span class="n">1</span><span class="sc">;</span> <span class="i">$NextTableIndex</span> = <span class="i">$NextTableNum</span> - <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	415 402 <span class="i">$HTMLFile</span> = <span class="i">$</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableHTMLFiles</span>}[<span class="i">$Index</span>]}[<span class="i">$NextTableIndex</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	416 403 <span class="i">$HTMLRefFile</span> = <span class="i">GetRelativeFileDir</span><span class="s">(</span><span class="i">$CurTableNum</span><span class="cm">,</span> <span class="i">$NextTableNum</span><span class="cm">,</span> <span class="i">$FirstTableNum</span><span class="s">)</span> . <span class="i">$HTMLFile</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	417 404 <span class="i">$TableStartLineNum</span> = <span class="i">$</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableStartLineNum</span>}[<span class="i">$Index</span>]}[<span class="i">$NextTableIndex</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	418 405 <span class="i">$TableEndLineNum</span> = <span class="i">$</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableEndLineNum</span>}[<span class="i">$Index</span>]}[<span class="i">$NextTableIndex</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	419 406 <span class="i">$HTMLRefValue</span> = <span class="i">SetupHTMLHRef</span><span class="s">(</span><span class="q">"Next"</span><span class="cm">,</span> <span class="i">$HTMLRefFile</span><span class="cm">,</span> <span class="q">"Next Table Containing Lines $TableStartLineNum To $TableEndLineNum"</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	420 407 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">SetupHTMLTableRowDataValue</span><span class="s">(</span><span class="i">$HTMLRefValue</span><span class="cm">,</span> <span class="i">$LinkBGColor</span><span class="cm">,</span> <span class="i">$LinkTextColor</span><span class="cm">,</span> <span class="i">$LinkFontBold</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	421 408 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	422 409
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	423 410 <span class="c"># Setup link to last table...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	424 411 <span class="k">if</span> <span class="s">(</span><span class="i">$EndTableNum</span> != <span class="i">$LastTableNum</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	425 412 <span class="i">$HTMLFile</span> = <span class="i">$</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableHTMLFiles</span>}[<span class="i">$Index</span>]}[<span class="i">$LastTableIndex</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	426 413 <span class="i">$HTMLRefFile</span> = <span class="i">GetRelativeFileDir</span><span class="s">(</span><span class="i">$CurTableNum</span><span class="cm">,</span> <span class="i">$LastTableNum</span><span class="cm">,</span> <span class="i">$FirstTableNum</span><span class="s">)</span> . <span class="i">$HTMLFile</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	427 414 <span class="i">$TableStartLineNum</span> = <span class="i">$</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableStartLineNum</span>}[<span class="i">$Index</span>]}[<span class="i">$LastTableIndex</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	428 415 <span class="i">$TableEndLineNum</span> = <span class="i">$</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableEndLineNum</span>}[<span class="i">$Index</span>]}[<span class="i">$LastTableIndex</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	429 416 <span class="i">$HTMLRefValue</span> = <span class="i">SetupHTMLHRef</span><span class="s">(</span><span class="q">"Last"</span><span class="cm">,</span> <span class="i">$HTMLRefFile</span><span class="cm">,</span> <span class="q">"Last Table Containing Lines $TableStartLineNum To $TableEndLineNum"</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	430 417 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">SetupHTMLTableRowDataValue</span><span class="s">(</span><span class="i">$HTMLRefValue</span><span class="cm">,</span> <span class="i">$LinkBGColor</span><span class="cm">,</span> <span class="i">$LinkTextColor</span><span class="cm">,</span> <span class="i">$LinkFontBold</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	431 418 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	432 419 <span class="c"># Setup current table info text....</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	433 420 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">SetupHTMLTableRowDataValue</span><span class="s">(</span><span class="q">"&nbsp"</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	434 421 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">SetupHTMLTableRowDataValue</span><span class="s">(</span><span class="q">"&nbsp"</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	435 422 <span class="i">$TableStartLineNum</span> = <span class="i">$</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableStartLineNum</span>}[<span class="i">$Index</span>]}[<span class="i">$CurTableNum</span> - <span class="n">1</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	436 423 <span class="i">$TableEndLineNum</span> = <span class="i">$</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableEndLineNum</span>}[<span class="i">$Index</span>]}[<span class="i">$CurTableNum</span> - <span class="n">1</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	437 424 <span class="k">if</span> <span class="s">(</span><span class="i">$OptionsInfo</span>{<span class="w">NavLinksLineInfo</span>}<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	438 425 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">SetupHTMLTableRowDataValue</span><span class="s">(</span><span class="q">"Showing lines $TableStartLineNum to $TableEndLineNum of $LastLineNum"</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	439 426 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	440 427 <span class="k">else</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	441 428 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">SetupHTMLTableRowDataValue</span><span class="s">(</span><span class="q">"Showing table $CurTableNum of $LastTableNum"</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	442 429 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	443 430
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	444 431 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">$TextFilesInfo</span>{<span class="w">RowEndTags</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	445 432 <span class="c"># End link table...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	446 433 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">SetupHTMLTableEnd</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	447 434 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">SetupHTMLDivEnd</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	448 435 <span class="k">print</span> <span class="i">$HTMLFileRef</span> <span class="i">SetupHTMLAlignmentEnd</span><span class="s">(</span><span class="q">"center"</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	449 436 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	450 437
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	451 438 <span class="c"># Generate relative directory path...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	452 <a name="GetRelativeFileDir-"></a> 439 <span class="k">sub </span><span class="m">GetRelativeFileDir</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	453 440 <span class="k">my</span><span class="s">(</span><span class="i">$FromTableNum</span><span class="cm">,</span> <span class="i">$ToTableNum</span><span class="cm">,</span> <span class="i">$FirstTableNum</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	454 441 <span class="k">my</span><span class="s">(</span><span class="i">$RelativeFileDir</span><span class="s">)</span> = <span class="q">""</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	455 442
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	456 443 <span class="k">if</span> <span class="s">(</span><span class="i">$FromTableNum</span> == <span class="i">$FirstTableNum</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	457 444 <span class="i">$RelativeFileDir</span> = <span class="s">(</span><span class="i">$ToTableNum</span> == <span class="i">$FirstTableNum</span><span class="s">)</span> ? <span class="q">".\/"</span> <span class="co">:</span> <span class="q">".\/html\/"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	458 445 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	459 446 <span class="k">else</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	460 447 <span class="i">$RelativeFileDir</span> = <span class="s">(</span><span class="i">$ToTableNum</span> == <span class="i">$FirstTableNum</span><span class="s">)</span> ? <span class="q">"..\/"</span> <span class="co">:</span> <span class="q">".\/"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	461 448 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	462 449 <span class="k">return</span> <span class="i">$RelativeFileDir</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	463 450 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	464 451
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	465 452 <span class="c"># Based on hightlight stype, return appropriate colors for background or text...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	466 <a name="GetValueHighlightColors-"></a> 453 <span class="k">sub </span><span class="m">GetValueHighlightColors</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	467 454 <span class="k">my</span><span class="s">(</span><span class="i">$FileIndex</span><span class="cm">,</span> <span class="i">$ColNum</span><span class="cm">,</span> <span class="i">$Value</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	468 455 <span class="k">my</span><span class="s">(</span><span class="i">$DataType</span><span class="cm">,</span> <span class="i">$Criterion</span><span class="cm">,</span> <span class="i">$CriterionValue</span><span class="cm">,</span> <span class="i">$BgColor</span><span class="cm">,</span> <span class="i">$FontColor</span><span class="cm">,</span> <span class="i">$ValueOk</span><span class="cm">,</span> <span class="i">$Nothing</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	469 456
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	470 457 <span class="i">$BgColor</span> = <span class="q">""</span><span class="sc">;</span> <span class="i">$FontColor</span> = <span class="q">""</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	471 458 <span class="i">$DataType</span> = <span class="i">$</span>{<span class="i">$TextFilesInfo</span>{<span class="w">HightlightDataMap</span>}[<span class="i">$FileIndex</span>]{<span class="i">$ColNum</span>}}[<span class="n">0</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	472 459 <span class="i">$Criterion</span> = <span class="i">$</span>{<span class="i">$TextFilesInfo</span>{<span class="w">HightlightDataMap</span>}[<span class="i">$FileIndex</span>]{<span class="i">$ColNum</span>}}[<span class="n">1</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	473 460 <span class="i">$CriterionValue</span> = <span class="i">$</span>{<span class="i">$TextFilesInfo</span>{<span class="w">HightlightDataMap</span>}[<span class="i">$FileIndex</span>]{<span class="i">$ColNum</span>}}[<span class="n">2</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	474 461
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	475 462 <span class="i">$ValueOk</span> = <span class="n">0</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	476 463 <span class="k">if</span> <span class="s">(</span><span class="i">$DataType</span> =~ <span class="q">/^numeric$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	477 464 <span class="j">NUMSWITCH:</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	478 465 <span class="k">if</span> <span class="s">(</span><span class="i">$Criterion</span> =~ <span class="q">/^ge$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$ValueOk</span> = <span class="s">(</span><span class="i">$Value</span> >= <span class="i">$CriterionValue</span><span class="s">)</span> ? <span class="n">1</span> <span class="co">:</span> <span class="n">0</span><span class="sc">;</span> <span class="k">last</span> <span class="j">NUMSWITCH</span><span class="sc">;</span> <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	479 466 <span class="k">if</span> <span class="s">(</span><span class="i">$Criterion</span> =~ <span class="q">/^le$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$ValueOk</span> = <span class="s">(</span><span class="i">$Value</span> <= <span class="i">$CriterionValue</span><span class="s">)</span> ? <span class="n">1</span> <span class="co">:</span> <span class="n">0</span><span class="sc">;</span> <span class="k">last</span> <span class="j">NUMSWITCH</span><span class="sc">;</span> <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	480 467 <span class="k">if</span> <span class="s">(</span><span class="i">$Criterion</span> =~ <span class="q">/^eq$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$ValueOk</span> = <span class="s">(</span><span class="i">$Value</span> == <span class="i">$CriterionValue</span><span class="s">)</span> ? <span class="n">1</span> <span class="co">:</span> <span class="n">0</span><span class="sc">;</span> <span class="k">last</span> <span class="j">NUMSWITCH</span><span class="sc">;</span> <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	481 468 <span class="i">$Nothing</span> = <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	482 469 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	483 470 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	484 471 <span class="k">else</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	485 472 <span class="j">TEXTSWITCH:</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	486 473 <span class="k">if</span> <span class="s">(</span><span class="i">$Criterion</span> =~ <span class="q">/^ge$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$ValueOk</span> = <span class="s">(</span><span class="i">$Value</span> <span class="k">ge</span> <span class="i">$CriterionValue</span><span class="s">)</span> ? <span class="n">1</span> <span class="co">:</span> <span class="n">0</span><span class="sc">;</span> <span class="k">last</span> <span class="j">TEXTSWITCH</span><span class="sc">;</span> <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	487 474 <span class="k">if</span> <span class="s">(</span><span class="i">$Criterion</span> =~ <span class="q">/^le$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$ValueOk</span> = <span class="s">(</span><span class="i">$Value</span> <span class="k">le</span> <span class="i">$CriterionValue</span><span class="s">)</span> ? <span class="n">1</span> <span class="co">:</span> <span class="n">0</span><span class="sc">;</span> <span class="k">last</span> <span class="j">TEXTSWITCH</span><span class="sc">;</span> <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	488 475 <span class="k">if</span> <span class="s">(</span><span class="i">$Criterion</span> =~ <span class="q">/^eq$/i</span><span class="s">)</span> <span class="s">{</span> <span class="i">$ValueOk</span> = <span class="s">(</span><span class="i">$Value</span> <span class="k">eq</span> <span class="i">$CriterionValue</span><span class="s">)</span> ? <span class="n">1</span> <span class="co">:</span> <span class="n">0</span><span class="sc">;</span> <span class="k">last</span> <span class="j">TEXTSWITCH</span><span class="sc">;</span> <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	489 476 <span class="i">$Nothing</span> = <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	490 477 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	491 478 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	492 479 <span class="i">$BgColor</span> = <span class="i">$ValueOk</span> ? <span class="i">$OptionsInfo</span>{<span class="w">ValueOkColor</span>} <span class="co">:</span> <span class="i">$OptionsInfo</span>{<span class="w">ValueNotOkColor</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	493 480 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">highlightstyle</span>} =~ <span class="q">/^text$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	494 481 <span class="i">$BgColor</span> = <span class="q">""</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	495 482 <span class="i">$FontColor</span> = <span class="i">$ValueOk</span> ? <span class="i">$OptionsInfo</span>{<span class="w">ValueOkColor</span>} <span class="co">:</span> <span class="i">$OptionsInfo</span>{<span class="w">ValueNotOkColor</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	496 483 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	497 484 <span class="k">return</span> <span class="s">(</span><span class="i">$BgColor</span><span class="cm">,</span> <span class="i">$FontColor</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	498 485 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	499 486
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	500 487 <span class="c"># Setup columns, tables and other information...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	501 <a name="SetupCoulmnsTablesAndMiscInfo-"></a> 488 <span class="k">sub </span><span class="m">SetupCoulmnsTablesAndMiscInfo</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	502 489 <span class="i">SetupColumnsToHighlightInfo</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	503 490 <span class="i">SetupMultipleTablesInfo</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	504 491 <span class="i">SetupHTMLTagsInfo</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	505 492 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	506 493
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	507 494 <span class="c"># Setup columns to highlight information...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	508 <a name="SetupColumnsToHighlightInfo-"></a> 495 <span class="k">sub </span><span class="m">SetupColumnsToHighlightInfo</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	509 496 <span class="k">my</span><span class="s">(</span><span class="i">$ColID</span><span class="cm">,</span> <span class="i">$DataType</span><span class="cm">,</span> <span class="i">$Criterion</span><span class="cm">,</span> <span class="i">$Value</span><span class="cm">,</span> <span class="i">$Index</span><span class="cm">,</span> <span class="i">$ColNum</span><span class="cm">,</span> <span class="i">$ColLabel</span><span class="cm">,</span> <span class="i">$ColIndex</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	510 497
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	511 498 <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">HightlightColNumMap</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	512 499 <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">HightlightDataMap</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	513 500
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	514 501 <span class="k">for</span> <span class="i">$Index</span> <span class="s">(</span><span class="n">0</span> .. <span class="i">$#TextFilesList</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	515 502 <span class="i">%</span>{<span class="i">$TextFilesInfo</span>{<span class="w">HightlightColNumMap</span>}[<span class="i">$Index</span>]} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	516 503 <span class="i">%</span>{<span class="i">$TextFilesInfo</span>{<span class="w">HightlightDataMap</span>}[<span class="i">$Index</span>]} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	517 504 <span class="k">if</span> <span class="s">(</span><span class="i">$TextFilesInfo</span>{<span class="w">FileOkay</span>}[<span class="i">$Index</span>]<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	518 505 <span class="j">SPECIFIEDCOLS:</span> <span class="k">for</span> <span class="i">$ColIndex</span> <span class="s">(</span><span class="n">0</span> .. <span class="i">$#</span>{<span class="i">$OptionsInfo</span>{<span class="w">SpecifiedColIds</span>}}<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	519 506 <span class="i">$ColID</span> = <span class="i">$OptionsInfo</span>{<span class="w">SpecifiedColIds</span>}[<span class="i">$ColIndex</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	520 507 <span class="i">$DataType</span> = <span class="i">$OptionsInfo</span>{<span class="w">SpecifiedColDataTypes</span>}[<span class="i">$ColIndex</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	521 508 <span class="i">$Criterion</span> = <span class="i">$OptionsInfo</span>{<span class="w">SpecifiedColCriteria</span>}[<span class="i">$ColIndex</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	522 509 <span class="i">$Value</span> = <span class="i">$OptionsInfo</span>{<span class="w">SpecifiedColValues</span>}[<span class="i">$ColIndex</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	523 510 <span class="k">if</span> <span class="s">(</span>!<span class="i">$OptionsInfo</span>{<span class="w">HighlightStatus</span>}<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	524 511 <span class="k">next</span> <span class="j">SPECIFIEDCOLS</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	525 512 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	526 513 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">highlightby</span>} =~ <span class="q">/^colnum$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	527 514 <span class="i">$ColNum</span> = <span class="i">$ColID</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	528 515 <span class="k">if</span> <span class="s">(</span><span class="i">$ColNum</span> > <span class="n">0</span> && <span class="i">$ColNum</span> <= <span class="i">$TextFilesInfo</span>{<span class="w">ColCount</span>}[<span class="i">$Index</span>]<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	529 516 <span class="i">$ColNum</span> -= <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	530 517 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	531 518 <span class="k">else</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	532 519 <span class="k">warn</span> <span class="q">"Warning: Ignoring column number, $ColID, specifed in quartet, \"$ColID,$DataType,$Criterion,$Value\", using \"--highlight\" option for $TextFilesList[$Index]: it doesn't exists \n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	533 520 <span class="k">next</span> <span class="j">SPECIFIEDCOLS</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	534 521 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	535 522 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	536 523 <span class="k">else</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	537 524 <span class="i">$ColLabel</span> = <span class="i">$ColID</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	538 525 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span><span class="s">(</span><span class="i">$TextFilesInfo</span>{<span class="w">ColLabelToNumMap</span>}[<span class="i">$Index</span>]{<span class="i">$ColLabel</span>}<span class="s">)</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	539 526 <span class="i">$ColNum</span> = <span class="i">$TextFilesInfo</span>{<span class="w">ColLabelToNumMap</span>}[<span class="i">$Index</span>]{<span class="i">$ColLabel</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	540 527 <span class="s">}</span> <span class="k">else</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	541 528 <span class="k">warn</span> <span class="q">"Warning: Ignoring column label, $ColID, specifed in quartet, \"$ColID,$DataType,$Criterion,$Value\", using \"--highlight\" option for $TextFilesList[$Index]: it doesn't exists \n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	542 529 <span class="k">next</span> <span class="j">SPECIFIEDCOLS</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	543 530 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	544 531 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	545 532 <span class="i">$TextFilesInfo</span>{<span class="w">HightlightColNumMap</span>}[<span class="i">$Index</span>]{<span class="i">$ColNum</span>} = <span class="i">$ColNum</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	546 533 <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">HightlightDataMap</span>}[<span class="i">$Index</span>]{<span class="i">$ColNum</span>}} =<span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	547 534 <span class="k">push</span> <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">HightlightDataMap</span>}[<span class="i">$Index</span>]{<span class="i">$ColNum</span>}}<span class="cm">,</span> <span class="s">(</span><span class="i">$DataType</span><span class="cm">,</span> <span class="i">$Criterion</span><span class="cm">,</span> <span class="i">$Value</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	548 535 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	549 536 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	550 537 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	551 538 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	552 539
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	553 540 <span class="c"># Setup navigation link information for multiple tables...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	554 <a name="SetupMultipleTablesInfo-"></a> 541 <span class="k">sub </span><span class="m">SetupMultipleTablesInfo</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	555 542 <span class="k">my</span><span class="s">(</span><span class="i">$Index</span><span class="cm">,</span> <span class="i">$LinesPerTable</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	556 543
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	557 544 <span class="i">$LinesPerTable</span> = <span class="i">$Options</span>{<span class="w">numrows</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	558 545 <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableCount</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	559 546 <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableHTMLFiles</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	560 547 <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableStartLineNum</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	561 548 <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableEndLineNum</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	562 549
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	563 550 <span class="k">for</span> <span class="i">$Index</span> <span class="s">(</span><span class="n">0</span> .. <span class="i">$#TextFilesList</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	564 551 <span class="i">$TextFilesInfo</span>{<span class="w">TableCount</span>}[<span class="i">$Index</span>] = <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	565 552 <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableHTMLFiles</span>}[<span class="i">$Index</span>]} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	566 553 <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableStartLineNum</span>}[<span class="i">$Index</span>]} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	567 554 <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableEndLineNum</span>}[<span class="i">$Index</span>]} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	568 555
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	569 556 <span class="k">if</span> <span class="s">(</span><span class="i">$TextFilesInfo</span>{<span class="w">FileOkay</span>}[<span class="i">$Index</span>]<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	570 557 <span class="k">if</span> <span class="s">(</span><span class="i">$TextFilesInfo</span>{<span class="w">MultipleHTMLTables</span>}[<span class="i">$Index</span>]<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	571 558 <span class="k">my</span><span class="s">(</span><span class="i">$TableIndex</span><span class="cm">,</span> <span class="i">$TotalLines</span><span class="cm">,</span> <span class="i">$TableCount</span><span class="cm">,</span> <span class="i">$TableStartLineNum</span><span class="cm">,</span> <span class="i">$TableEndLineNum</span><span class="cm">,</span> <span class="i">$Name</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	572 559
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	573 560 <span class="i">$TotalLines</span> = <span class="i">$TextFilesInfo</span>{<span class="w">LineCount</span>}[<span class="i">$Index</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	574 561 <span class="i">$TableCount</span> = <span class="s">(</span><span class="i">$TotalLines</span> % <span class="i">$LinesPerTable</span><span class="s">)</span> ? <span class="s">(</span><span class="k">int</span><span class="s">(</span><span class="i">$TotalLines</span>/<span class="i">$LinesPerTable</span><span class="s">)</span> + <span class="n">1</span><span class="s">)</span> <span class="co">:</span> <span class="s">(</span><span class="i">$TotalLines</span>/<span class="i">$LinesPerTable</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	575 562 <span class="i">$TextFilesInfo</span>{<span class="w">TableCount</span>}[<span class="i">$Index</span>] = <span class="i">$TableCount</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	576 563 <span class="k">for</span> <span class="i">$TableIndex</span> <span class="s">(</span><span class="n">1</span> .. <span class="i">$TableCount</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	577 564 <span class="i">$TableStartLineNum</span> = <span class="s">(</span><span class="i">$TableIndex</span> - <span class="n">1</span><span class="s">)</span> * <span class="i">$LinesPerTable</span> + <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	578 565 <span class="i">$TableEndLineNum</span> = <span class="s">(</span><span class="i">$TableIndex</span> == <span class="i">$TableCount</span><span class="s">)</span> ? <span class="i">$TotalLines</span> <span class="co">:</span> <span class="s">(</span><span class="i">$TableIndex</span> * <span class="i">$LinesPerTable</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	579 566 <span class="k">push</span> <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableStartLineNum</span>}[<span class="i">$Index</span>]}<span class="cm">,</span> <span class="i">$TableStartLineNum</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	580 567 <span class="k">push</span> <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableEndLineNum</span>}[<span class="i">$Index</span>]}<span class="cm">,</span> <span class="i">$TableEndLineNum</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	581 568
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	582 569 <span class="c"># Setup HTML file names for all the tables...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	583 570 <span class="i">$Name</span> = <span class="q">"Lines"</span> . <span class="q">"$TableStartLineNum"</span> . <span class="q">"To"</span> . <span class="q">"$TableEndLineNum"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	584 571 <span class="k">if</span> <span class="s">(</span><span class="i">$TableIndex</span> == <span class="n">1</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	585 572 <span class="i">$Name</span> = <span class="q">""</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	586 573 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	587 574 <span class="i">$Name</span> = <span class="i">$TextFilesInfo</span>{<span class="w">HTMLRoot</span>}[<span class="i">$Index</span>] . <span class="i">$Name</span> . <span class="q">".html"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	588 575 <span class="k">push</span> <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TableHTMLFiles</span>}[<span class="i">$Index</span>]}<span class="cm">,</span> <span class="i">$Name</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	589 576 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	590 577 <span class="c">#print "$TextFilesList[$Index]: $TableCount - @{$TextFilesInfo{TableStartLineNum}[$Index]} - @{$TextFilesInfo{TableEndLineNum}[$Index]} - @{$TextFilesInfo{TableHTMLFiles}[$Index]}\n";</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	591 578 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	592 579 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	593 580 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	594 581 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	595 582
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	596 583 <span class="c"># Setup HTML tags information...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	597 <a name="SetupHTMLTagsInfo-"></a> 584 <span class="k">sub </span><span class="m">SetupHTMLTagsInfo</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	598 585 <span class="c"># Setup row tags...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	599 586 <span class="i">$TextFilesInfo</span>{<span class="w">RowHeaderTags</span>} = <span class="q">""</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	600 587 <span class="i">$TextFilesInfo</span>{<span class="w">RowEndTags</span>} = <span class="q">""</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	601 588 <span class="i">$TextFilesInfo</span>{<span class="w">BgFilledOddRowHeaderTags</span>} = <span class="q">""</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	602 589 <span class="i">$TextFilesInfo</span>{<span class="w">BgFilledEvenRowHeaderTags</span>} = <span class="q">""</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	603 590 <span class="i">$TextFilesInfo</span>{<span class="w">TableRowHeaderTags</span>} = <span class="q">""</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	604 591
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	605 592 <span class="i">$TextFilesInfo</span>{<span class="w">RowHeaderTags</span>} = <span class="i">SetupHTMLTableRowHeader</span><span class="s">(</span><span class="i">$OptionsInfo</span>{<span class="w">RowHAlignment</span>}<span class="cm">,</span> <span class="q">""</span><span class="cm">,</span> <span class="i">$OptionsInfo</span>{<span class="w">RowVAlignment</span>}<span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	606 593 <span class="i">$TextFilesInfo</span>{<span class="w">RowEndTags</span>} = <span class="i">SetupHTMLTableRowEnd</span><span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	607 594
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	608 595 <span class="k">if</span> <span class="s">(</span><span class="i">$OptionsInfo</span>{<span class="w">ShadeRowsStatus</span>}<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	609 596 <span class="i">$TextFilesInfo</span>{<span class="w">BgFilledOddRowHeaderTags</span>} = <span class="i">SetupHTMLTableRowHeader</span><span class="s">(</span><span class="i">$OptionsInfo</span>{<span class="w">RowHAlignment</span>}<span class="cm">,</span> <span class="i">$OptionsInfo</span>{<span class="w">OddRowsShadeColor</span>}<span class="cm">,</span> <span class="i">$OptionsInfo</span>{<span class="w">RowVAlignment</span>}<span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	610 597 <span class="i">$TextFilesInfo</span>{<span class="w">BgFilledEvenRowHeaderTags</span>} = <span class="i">SetupHTMLTableRowHeader</span><span class="s">(</span><span class="i">$OptionsInfo</span>{<span class="w">RowHAlignment</span>}<span class="cm">,</span> <span class="i">$OptionsInfo</span>{<span class="w">EvenRowsShadeColor</span>}<span class="cm">,</span> <span class="i">$OptionsInfo</span>{<span class="w">RowVAlignment</span>}<span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	611 598 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	612 599
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	613 600 <span class="i">$TextFilesInfo</span>{<span class="w">TableRowHeaderTags</span>} = <span class="i">SetupHTMLTableRowHeader</span><span class="s">(</span><span class="i">$OptionsInfo</span>{<span class="w">TableHeaderRowHAlignment</span>}<span class="cm">,</span> <span class="i">$OptionsInfo</span>{<span class="w">TableHeaderRowColor</span>}<span class="cm">,</span> <span class="i">$OptionsInfo</span>{<span class="w">TableHeaderRowVAlignment</span>}<span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	614 601
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	615 602 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	616 603
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	617 604 <span class="c">#Make sure appropriate mode specific option values are specified...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	618 <a name="ProcessOptions-"></a> 605 <span class="k">sub </span><span class="m">ProcessOptions</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	619 606
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	620 607 <span class="i">%OptionsInfo</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	621 608
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	622 609 <span class="i">$OptionsInfo</span>{<span class="w">RowHAlignment</span>} = <span class="q">"left"</span><span class="sc">;</span> <span class="i">$OptionsInfo</span>{<span class="w">RowVAlignment</span>} = <span class="q">"middle"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	623 610 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span><span class="s">(</span><span class="i">$Options</span>{<span class="w">align</span>}<span class="s">)</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	624 611 <span class="k">my</span> <span class="s">(</span><span class="i">@AlignValues</span><span class="s">)</span> = <span class="k">split</span> <span class="q">","</span><span class="cm">,</span> <span class="i">$Options</span>{<span class="w">align</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	625 612 <span class="k">if</span> <span class="s">(</span><span class="i">@AlignValues</span> == <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	626 613 <span class="i">$OptionsInfo</span>{<span class="w">RowHAlignment</span>} = <span class="i">$AlignValues</span>[<span class="n">0</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	627 614 <span class="i">$OptionsInfo</span>{<span class="w">RowVAlignment</span>} = <span class="i">$AlignValues</span>[<span class="n">1</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	628 615 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	629 616 <span class="k">elsif</span> <span class="s">(</span><span class="i">@AlignValues</span> == <span class="n">1</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	630 617 <span class="i">$OptionsInfo</span>{<span class="w">RowHAlignment</span>} = <span class="i">$AlignValues</span>[<span class="n">0</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	631 618 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	632 619 <span class="k">else</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	633 620 <span class="k">die</span> <span class="q">"Error: Invalid number of values, "</span><span class="cm">,</span> <span class="k">scalar</span><span class="s">(</span><span class="i">@AlignValues</span><span class="s">)</span> <span class="cm">,</span> <span class="q">", specified by \"-a --align\" option.\nIt must contain only one or two value.\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	634 621 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	635 622 <span class="k">if</span> <span class="s">(</span><span class="i">$OptionsInfo</span>{<span class="w">RowHAlignment</span>} !~ <span class="q">/^(left\|center\|right)$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	636 623 <span class="k">die</span> <span class="q">"Error: The horizontal alignment value specified, $Options{align}, for option \"-a --align\" is not valid. Allowed values: left, center, or right\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	637 624 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	638 625 <span class="k">if</span> <span class="s">(</span><span class="i">$OptionsInfo</span>{<span class="w">RowVAlignment</span>} !~ <span class="q">/^(top\|middle\|bottom)$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	639 626 <span class="k">die</span> <span class="q">"Error: The horizontal alignment value specified, $Options{align}, for option \"-a --align\" is not valid. Allowed values: top, middle, or bottom\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	640 627 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	641 628 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	642 629
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	643 630 <span class="i">$OptionsInfo</span>{<span class="w">TableHeaderRowHAlignment</span>} = <span class="q">"center"</span><span class="sc">;</span> <span class="i">$OptionsInfo</span>{<span class="w">TableHeaderRowVAlignment</span>} = <span class="q">"middle"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	644 631 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span><span class="s">(</span><span class="i">$Options</span>{<span class="w">headeralign</span>}<span class="s">)</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	645 632 <span class="k">my</span> <span class="s">(</span><span class="i">@AlignValues</span><span class="s">)</span> = <span class="k">split</span> <span class="q">","</span><span class="cm">,</span> <span class="i">$Options</span>{<span class="w">headeralign</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	646 633 <span class="k">if</span> <span class="s">(</span><span class="i">@AlignValues</span> == <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	647 634 <span class="i">$OptionsInfo</span>{<span class="w">TableHeaderRowHAlignment</span>} = <span class="i">$AlignValues</span>[<span class="n">0</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	648 635 <span class="i">$OptionsInfo</span>{<span class="w">TableHeaderRowVAlignment</span>} = <span class="i">$AlignValues</span>[<span class="n">1</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	649 636 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	650 637 <span class="k">elsif</span> <span class="s">(</span><span class="i">@AlignValues</span> == <span class="n">1</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	651 638 <span class="i">$OptionsInfo</span>{<span class="w">TableHeaderRowHAlignment</span>} = <span class="i">$AlignValues</span>[<span class="n">0</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	652 639 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	653 640 <span class="k">else</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	654 641 <span class="k">die</span> <span class="q">"Error: Invalid number of values, "</span><span class="cm">,</span> <span class="k">scalar</span><span class="s">(</span><span class="i">@AlignValues</span><span class="s">)</span> <span class="cm">,</span> <span class="q">", specified by \"--headeralign\" option.\nIt must contain only one or two value.\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	655 642 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	656 643 <span class="k">if</span> <span class="s">(</span><span class="i">$OptionsInfo</span>{<span class="w">TableHeaderRowHAlignment</span>} !~ <span class="q">/^(left\|center\|right)$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	657 644 <span class="k">die</span> <span class="q">"Error: The horizontal alignment value specified, $Options{headeralign}, for option \"--headeralign\" is not valid. Allowed values: left, center, or right\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	658 645 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	659 646 <span class="k">if</span> <span class="s">(</span><span class="i">$OptionsInfo</span>{<span class="w">TableHeaderRowVAlignment</span>} !~ <span class="q">/^(top\|middle\|bottom)$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	660 647 <span class="k">die</span> <span class="q">"Error: The horizontal alignment value specified, $Options{headeralign}, for option \"-a --headeralign\" is not valid. Allowed values: top, middle, or bottom\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	661 648 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	662 649 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	663 650
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	664 651 <span class="i">$OptionsInfo</span>{<span class="w">TitleDisplay</span>} = <span class="s">(</span><span class="i">$Options</span>{<span class="w">titledisplay</span>} =~ <span class="q">/^yes$/i</span><span class="s">)</span> ? <span class="n">1</span> <span class="co">:</span> <span class="n">0</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	665 652
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	666 653 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span><span class="s">(</span><span class="i">$Options</span>{<span class="w">border</span>}<span class="s">)</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	667 654 <span class="i">$OptionsInfo</span>{<span class="w">TableBorder</span>} = <span class="i">$Options</span>{<span class="w">border</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	668 655 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	669 656 <span class="k">else</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	670 657 <span class="i">$OptionsInfo</span>{<span class="w">TableBorder</span>} = <span class="s">(</span><span class="i">$Options</span>{<span class="w">mode</span>} =~ <span class="q">/^(plain\|highlight)$/i</span><span class="s">)</span> ? <span class="n">1</span> <span class="co">:</span> <span class="n">0</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	671 658 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	672 659 <span class="i">$OptionsInfo</span>{<span class="w">TableCellPadding</span>} = <span class="i">$Options</span>{<span class="w">cellpadding</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	673 660 <span class="i">$OptionsInfo</span>{<span class="w">TableCellSpacing</span>} = <span class="i">$Options</span>{<span class="w">cellspacing</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	674 661 <span class="i">$OptionsInfo</span>{<span class="w">Footer</span>} = <span class="i">$Options</span>{<span class="w">footer</span>} ? <span class="i">$Options</span>{<span class="w">footer</span>} <span class="co">:</span> <span class="q">""</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	675 662
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	676 663 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">headercolor</span>}<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	677 664 <span class="i">$OptionsInfo</span>{<span class="w">TableHeaderRowColor</span>} = <span class="i">$Options</span>{<span class="w">headercolor</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	678 665 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	679 666 <span class="k">else</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	680 667 <span class="i">$OptionsInfo</span>{<span class="w">TableHeaderRowColor</span>} = <span class="s">(</span><span class="i">$Options</span>{<span class="w">mode</span>} =~ <span class="q">/^plain$/i</span><span class="s">)</span> ? <span class="q">""</span> <span class="co">:</span> <span class="q">"#ccccff"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	681 668 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	682 669
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	683 670 <span class="i">$OptionsInfo</span>{<span class="w">NavLinksAtBottom</span>} = <span class="n">1</span><span class="sc">;</span> <span class="i">$OptionsInfo</span>{<span class="w">NavLinksAtTop</span>} = <span class="n">0</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	684 671 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">displaylinks</span>} =~ <span class="q">/^(both\|top)$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	685 672 <span class="i">$OptionsInfo</span>{<span class="w">NavLinksAtTop</span>} = <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	686 673 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	687 674 <span class="i">$OptionsInfo</span>{<span class="w">NavLinksTableInfo</span>} = <span class="n">1</span><span class="sc">;</span> <span class="i">$OptionsInfo</span>{<span class="w">NavLinksLineInfo</span>} = <span class="n">0</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	688 675 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">displaylinksinfo</span>} =~ <span class="q">/^both$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	689 676 <span class="i">$OptionsInfo</span>{<span class="w">NavLinksLineInfo</span>} = <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	690 677 <span class="i">$OptionsInfo</span>{<span class="w">NavLinksTableInfo</span>} = <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	691 678 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	692 679 <span class="k">elsif</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">displaylinksinfo</span>} =~ <span class="q">/^line$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	693 680 <span class="i">$OptionsInfo</span>{<span class="w">NavLinksLineInfo</span>} = <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	694 681 <span class="i">$OptionsInfo</span>{<span class="w">NavLinksTableInfo</span>} = <span class="n">0</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	695 682 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	696 683
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	697 684 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">stylesheet</span>} =~ <span class="q">/^old$/i</span> <span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	698 685 <span class="k">if</span> <span class="s">(</span>!<span class="i">$Options</span>{<span class="w">stylesheetname</span>}<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	699 686 <span class="k">die</span> <span class="q">"Error: No stylesheet name specified using \"--stylesheetname\" option: It is required for \"old\" value of \"-s --stylesheet\" option. \n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	700 687 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	701 688 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	702 689
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	703 690 <span class="k">my</span><span class="s">(</span><span class="i">@ColorValues</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	704 691 <span class="i">$OptionsInfo</span>{<span class="w">OddRowsShadeColor</span>} = <span class="q">""</span><span class="sc">;</span> <span class="i">$OptionsInfo</span>{<span class="w">EvenRowsShadeColor</span>} = <span class="q">""</span><span class="sc">;</span> <span class="i">$OptionsInfo</span>{<span class="w">ShadeRowsStatus</span>} = <span class="n">0</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	705 692 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">mode</span>} =~ <span class="q">/^(shade\|shadedhighlight)$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	706 693 <span class="i">$OptionsInfo</span>{<span class="w">OddRowsShadeColor</span>} = <span class="q">"#ffffff"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	707 694 <span class="i">$OptionsInfo</span>{<span class="w">EvenRowsShadeColor</span>} = <span class="q">"#e0e0eb"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	708 695 <span class="i">$OptionsInfo</span>{<span class="w">ShadeRowsStatus</span>} = <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	709 696 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">shadecolor</span>}<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	710 697 <span class="c"># Make sure only two value are specified...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	711 698 <span class="i">@ColorValues</span> = <span class="k">split</span> <span class="q">","</span><span class="cm">,</span> <span class="i">$Options</span>{<span class="w">shadecolor</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	712 699 <span class="k">if</span> <span class="s">(</span><span class="i">@ColorValues</span> == <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	713 700 <span class="i">$OptionsInfo</span>{<span class="w">OddRowsShadeColor</span>} = <span class="i">$ColorValues</span>[<span class="n">0</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	714 701 <span class="i">$OptionsInfo</span>{<span class="w">EvenRowsShadeColor</span>} = <span class="i">$ColorValues</span>[<span class="n">1</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	715 702 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	716 703 <span class="k">else</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	717 704 <span class="k">die</span> <span class="q">"Error: Invalid number of values, "</span><span class="cm">,</span> <span class="k">scalar</span><span class="s">(</span><span class="i">@ColorValues</span><span class="s">)</span> <span class="cm">,</span> <span class="q">", specified by \"--shadecolor\" option.\nIt must contain only two values.\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	718 705 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	719 706 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	720 707 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	721 708 <span class="i">$OptionsInfo</span>{<span class="w">ValueOkColor</span>} = <span class="q">""</span><span class="sc">;</span> <span class="i">$OptionsInfo</span>{<span class="w">ValueNotOkColor</span>} = <span class="q">""</span><span class="sc">;</span> <span class="i">$OptionsInfo</span>{<span class="w">HighlightStatus</span>} = <span class="n">0</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	722 709 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">mode</span>} =~ <span class="q">/^(highlight\|shadedhighlight)$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	723 710 <span class="k">my</span><span class="s">(</span><span class="i">$HighlightMode</span><span class="cm">,</span> <span class="i">$HighlightBy</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	724 711 <span class="i">$HighlightMode</span> = <span class="i">$Options</span>{<span class="w">mode</span>}<span class="sc">;</span> <span class="i">$HighlightBy</span> = <span class="i">$Options</span>{<span class="w">highlightby</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	725 712
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	726 713 <span class="i">$OptionsInfo</span>{<span class="w">HighlightStatus</span>} = <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	727 714 <span class="i">$OptionsInfo</span>{<span class="w">ValueOkColor</span>} = <span class="q">"#0fff0f"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	728 715 <span class="i">$OptionsInfo</span>{<span class="w">ValueNotOkColor</span>} = <span class="q">"#ff0f0f"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	729 716 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">highlightstyle</span>} =~ <span class="q">/^text$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	730 717 <span class="i">$OptionsInfo</span>{<span class="w">ValueOkColor</span>} = <span class="q">"#0fbb0f"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	731 718 <span class="i">$OptionsInfo</span>{<span class="w">ValueNotOkColor</span>} = <span class="q">"#ff0f0f"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	732 719 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	733 720 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">highlightcolor</span>}<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	734 721 <span class="c"># Make sure two values are specified...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	735 722 <span class="i">@ColorValues</span> = <span class="k">split</span> <span class="q">","</span><span class="cm">,</span> <span class="i">$Options</span>{<span class="w">highlightcolor</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	736 723 <span class="k">if</span> <span class="s">(</span><span class="i">@ColorValues</span> == <span class="n">2</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	737 724 <span class="i">$OptionsInfo</span>{<span class="w">ValueOkColor</span>} = <span class="i">$ColorValues</span>[<span class="n">0</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	738 725 <span class="i">$OptionsInfo</span>{<span class="w">ValueNotOkColor</span>} = <span class="i">$ColorValues</span>[<span class="n">1</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	739 726 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	740 727 <span class="k">else</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	741 728 <span class="k">die</span> <span class="q">"Error: Invalid number of values, "</span><span class="cm">,</span> <span class="k">scalar</span><span class="s">(</span><span class="i">@ColorValues</span><span class="s">)</span><span class="cm">,</span> <span class="q">", specified by \"--highlightcolor\" option.\nIt must contain only two value for $HighlightMode value specified using \"-m --mode\" option.\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	742 729 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	743 730 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	744 731 <span class="k">if</span> <span class="s">(</span>!<span class="i">$Options</span>{<span class="w">highlight</span>}<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	745 732 <span class="k">die</span> <span class="q">"Error: Specify columns to be highlighted using \"--hightlight\" option\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	746 733 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	747 734 <span class="c"># Retrieve quartet values from "hightlight" option...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	748 735 <span class="k">my</span><span class="s">(</span><span class="i">@HighlightValueQuartets</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	749 736
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	750 737 <span class="i">@HighlightValueQuartets</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	751 738 <span class="i">@HighlightValueQuartets</span> = <span class="k">split</span> <span class="q">","</span><span class="cm">,</span> <span class="i">$Options</span>{<span class="w">highlight</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	752 739 <span class="k">if</span> <span class="s">(</span><span class="s">(</span><span class="i">@HighlightValueQuartets</span> % <span class="n">4</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	753 740 <span class="k">die</span> <span class="q">"Error: Quartets not found in values specified using \"--highlight\" option for $HighlightMode \"-m --mode\"\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	754 741 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	755 742 <span class="c"># Process quartets...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	756 743 <span class="k">my</span><span class="s">(</span><span class="i">$Index</span><span class="cm">,</span> <span class="i">$Col</span><span class="cm">,</span> <span class="i">$DataType</span><span class="cm">,</span> <span class="i">$Criterion</span><span class="cm">,</span> <span class="i">$Value</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	757 744
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	758 745 <span class="i">@</span>{<span class="i">$OptionsInfo</span>{<span class="w">SpecifiedColIds</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	759 746 <span class="i">@</span>{<span class="i">$OptionsInfo</span>{<span class="w">SpecifiedColDataTypes</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	760 747 <span class="i">@</span>{<span class="i">$OptionsInfo</span>{<span class="w">SpecifiedColCriteria</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	761 748 <span class="i">@</span>{<span class="i">$OptionsInfo</span>{<span class="w">SpecifiedColValues</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	762 749 <span class="k">for</span> <span class="s">(</span><span class="i">$Index</span> = <span class="n">0</span><span class="sc">;</span> <span class="i">$Index</span> < <span class="i">@HighlightValueQuartets</span><span class="sc">;</span> <span class="i">$Index</span> = <span class="i">$Index</span> + <span class="n">4</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	763 750 <span class="i">$Col</span> = <span class="i">$HighlightValueQuartets</span>[<span class="i">$Index</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	764 751 <span class="i">$DataType</span> = <span class="i">$HighlightValueQuartets</span>[<span class="i">$Index</span> + <span class="n">1</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	765 752 <span class="i">$Criterion</span> = <span class="i">$HighlightValueQuartets</span>[<span class="i">$Index</span> + <span class="n">2</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	766 753 <span class="i">$Value</span> = <span class="i">$HighlightValueQuartets</span>[<span class="i">$Index</span> + <span class="n">3</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	767 754 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">highlightby</span>} =~ <span class="q">/^colnum$/i</span> <span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	768 755 <span class="k">if</span> <span class="s">(</span>!<span class="i">IsPositiveInteger</span><span class="s">(</span><span class="i">$Col</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	769 756 <span class="k">die</span> <span class="q">"Error: Invalid column id, $Col, specified in quartet, \"$Col,$DataType,$Criterion,$Value\", using \"--hightlight\" option: It must be an integer value > 0 for $HighlightMode \"-m --mode\" and $HighlightBy \"--highlightby\" option values.\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	770 757 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	771 758 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	772 759 <span class="k">if</span> <span class="s">(</span><span class="i">$DataType</span> !~ <span class="q">/^(numeric\|text)$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	773 760 <span class="k">die</span> <span class="q">"Error: Invalid column data type, $DataType, specified in quartet, \"$Col,$DataType,$Criterion,$Value\", using \"--hightlight\" option: Valid values: numeric or text\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	774 761 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	775 762 <span class="k">if</span> <span class="s">(</span><span class="i">$Criterion</span> !~ <span class="q">/^(eq\|le\|ge)$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	776 763 <span class="k">die</span> <span class="q">"Error: Invalid criterion value, $Criterion, specified in quartet, \"$Col,$DataType,$Criterion,$Value\", using \"--hightlight\" option: Valid values: le, ge, or eq\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	777 764 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	778 765 <span class="k">if</span> <span class="s">(</span><span class="i">$DataType</span> =~ <span class="q">/^numeric$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	779 766 <span class="k">if</span> <span class="s">(</span>!<span class="i">IsFloat</span><span class="s">(</span><span class="i">$Value</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	780 767 <span class="k">die</span> <span class="q">"Error: Invalid criterion value, $Value, specified in quartet, \"$Col,$DataType,$Criterion,$Value\", using \"--hightlight\" option: numeric value required for numeric data type\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	781 768 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	782 769 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	783 770 <span class="k">push</span> <span class="i">@</span>{<span class="i">$OptionsInfo</span>{<span class="w">SpecifiedColIds</span>}}<span class="cm">,</span> <span class="i">$Col</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	784 771 <span class="k">push</span> <span class="i">@</span>{<span class="i">$OptionsInfo</span>{<span class="w">SpecifiedColDataTypes</span>}}<span class="cm">,</span> <span class="i">$DataType</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	785 772 <span class="k">push</span> <span class="i">@</span>{<span class="i">$OptionsInfo</span>{<span class="w">SpecifiedColCriteria</span>}}<span class="cm">,</span> <span class="i">$Criterion</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	786 773 <span class="k">push</span> <span class="i">@</span>{<span class="i">$OptionsInfo</span>{<span class="w">SpecifiedColValues</span>}}<span class="cm">,</span> <span class="i">$Value</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	787 774 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	788 775 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	789 776 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	790 777
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	791 778 <span class="c"># Retrieve information about input text files...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	792 <a name="RetrieveTextFilesInfo-"></a> 779 <span class="k">sub </span><span class="m">RetrieveTextFilesInfo</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	793 780 <span class="k">my</span><span class="s">(</span><span class="i">$LineCount</span><span class="cm">,</span> <span class="i">$TextFile</span><span class="cm">,</span> <span class="i">$FileDir</span><span class="cm">,</span> <span class="i">$FileName</span><span class="cm">,</span> <span class="i">$HTMLFile</span><span class="cm">,</span> <span class="i">$CSSFile</span><span class="cm">,</span> <span class="i">$HTMLRoot</span><span class="cm">,</span> <span class="i">$HTMLTitle</span><span class="cm">,</span> <span class="i">$FileExt</span><span class="cm">,</span> <span class="i">$Index</span><span class="cm">,</span> <span class="i">$ColIndex</span><span class="cm">,</span> <span class="i">$ColNum</span><span class="cm">,</span> <span class="i">$ColLabel</span><span class="cm">,</span> <span class="i">$LinesCount</span><span class="cm">,</span> <span class="i">$InDelim</span><span class="cm">,</span> <span class="i">$Line</span><span class="cm">,</span> <span class="i">@LineWords</span><span class="cm">,</span> <span class="i">@ColLabels</span><span class="cm">,</span> <span class="i">$TopHTMLDir</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	794 781
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	795 782 <span class="i">%TextFilesInfo</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	796 783
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	797 784 <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">FileOkay</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	798 785 <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">ColCount</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	799 786 <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">ColLabels</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	800 787 <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">ColLabelToNumMap</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	801 788 <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">LineCount</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	802 789 <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">InDelim</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	803 790
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	804 791 <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">HTMLRoot</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	805 792 <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">HTMLTitle</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	806 793 <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">MultipleHTMLTables</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	807 794
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	808 795 <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">TopHTMLDir</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	809 796 <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">SubHTMLDir</span>}} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	810 797
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	811 798 <span class="j">FILELIST:</span> <span class="k">for</span> <span class="i">$Index</span> <span class="s">(</span><span class="n">0</span> .. <span class="i">$#TextFilesList</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	812 799 <span class="i">$TextFile</span> = <span class="i">$TextFilesList</span>[<span class="i">$Index</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	813 800
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	814 801 <span class="i">$TextFilesInfo</span>{<span class="w">FileOkay</span>}[<span class="i">$Index</span>] = <span class="n">0</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	815 802 <span class="i">$TextFilesInfo</span>{<span class="w">ColCount</span>}[<span class="i">$Index</span>] = <span class="n">0</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	816 803 <span class="i">$TextFilesInfo</span>{<span class="w">LineCount</span>}[<span class="i">$Index</span>] = <span class="n">0</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	817 804 <span class="i">$TextFilesInfo</span>{<span class="w">InDelim</span>}[<span class="i">$Index</span>] = <span class="q">""</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	818 805 <span class="i">$TextFilesInfo</span>{<span class="w">HTMLRoot</span>}[<span class="i">$Index</span>] = <span class="q">""</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	819 806 <span class="i">$TextFilesInfo</span>{<span class="w">HTMLTitle</span>}[<span class="i">$Index</span>] = <span class="q">""</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	820 807 <span class="i">$TextFilesInfo</span>{<span class="w">MultipleHTMLTables</span>}[<span class="i">$Index</span>] = <span class="n">0</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	821 808
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	822 809 <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">ColLabels</span>}[<span class="i">$Index</span>]} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	823 810 <span class="i">%</span>{<span class="i">$TextFilesInfo</span>{<span class="w">ColLabelToNumMap</span>}[<span class="i">$Index</span>]} = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	824 811
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	825 812 <span class="k">if</span> <span class="s">(</span>!<span class="s">(</span><span class="k">-e</span> <span class="i">$TextFile</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	826 813 <span class="k">warn</span> <span class="q">"Warning: Ignoring file $TextFile: It doesn't exist\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	827 814 <span class="k">next</span> <span class="j">FILELIST</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	828 815 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	829 816 <span class="k">if</span> <span class="s">(</span>!<span class="i">CheckFileType</span><span class="s">(</span><span class="i">$TextFile</span><span class="cm">,</span> <span class="q">"csv tsv"</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	830 817 <span class="k">warn</span> <span class="q">"Warning: Ignoring file $TextFile: It's not a csv or tsv file\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	831 818 <span class="k">next</span> <span class="j">FILELIST</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	832 819 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	833 820 <span class="s">(</span><span class="i">$FileDir</span><span class="cm">,</span> <span class="i">$FileName</span><span class="cm">,</span> <span class="i">$FileExt</span><span class="s">)</span> = <span class="i">ParseFileName</span><span class="s">(</span><span class="i">$TextFile</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	834 821 <span class="k">if</span> <span class="s">(</span><span class="i">$FileExt</span> =~ <span class="q">/^tsv$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	835 822 <span class="i">$InDelim</span> = <span class="q">"\t"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	836 823 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	837 824 <span class="k">else</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	838 825 <span class="i">$InDelim</span> = <span class="q">"\,"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	839 826 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">indelim</span>} !~ <span class="q">/^(comma\|semicolon)$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	840 827 <span class="k">warn</span> <span class="q">"Warning: Ignoring file $TextFile: The value specified, $Options{indelim}, for option \"--indelim\" is not valid for csv files\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	841 828 <span class="k">next</span> <span class="j">FILELIST</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	842 829 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	843 830 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">indelim</span>} =~ <span class="q">/^semicolon$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	844 831 <span class="i">$InDelim</span> = <span class="q">"\;"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	845 832 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	846 833 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	847 834
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	848 835 <span class="k">if</span> <span class="s">(</span>!<span class="k">open</span> <span class="w">TEXTFILE</span><span class="cm">,</span> <span class="q">"$TextFile"</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	849 836 <span class="k">warn</span> <span class="q">"Warning: Ignoring file $TextFile: Couldn't open it: $! \n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	850 837 <span class="k">next</span> <span class="j">FILELIST</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	851 838 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	852 839
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	853 840 <span class="i">$Line</span> = <span class="i">GetTextLine</span><span class="s">(</span>\<span class="i">*TEXTFILE</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	854 841 <span class="i">@ColLabels</span> = <span class="i">quotewords</span><span class="s">(</span><span class="i">$InDelim</span><span class="cm">,</span> <span class="n">0</span><span class="cm">,</span> <span class="i">$Line</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	855 842 <span class="i">$LineCount</span> = <span class="n">0</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	856 843 <span class="k">while</span> <span class="s">(</span><span class="q"><TEXTFILE></span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	857 844 <span class="i">$LineCount</span>++<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	858 845 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	859 846 <span class="k">close</span> <span class="w">TEXTFILE</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	860 847
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	861 848 <span class="i">$FileDir</span> = <span class="q">""</span><span class="sc">;</span> <span class="i">$FileName</span> = <span class="q">""</span><span class="sc">;</span> <span class="i">$FileExt</span> = <span class="q">""</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	862 849 <span class="s">(</span><span class="i">$FileDir</span><span class="cm">,</span> <span class="i">$FileName</span><span class="cm">,</span> <span class="i">$FileExt</span><span class="s">)</span> = <span class="i">ParseFileName</span><span class="s">(</span><span class="i">$TextFile</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	863 850 <span class="i">$HTMLRoot</span> = <span class="i">$FileName</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	864 851 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">root</span>} && <span class="s">(</span><span class="i">@TextFilesList</span> == <span class="n">1</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	865 852 <span class="k">my</span> <span class="s">(</span><span class="i">$RootFileDir</span><span class="cm">,</span> <span class="i">$RootFileName</span><span class="cm">,</span> <span class="i">$RootFileExt</span><span class="s">)</span> = <span class="i">ParseFileName</span><span class="s">(</span><span class="i">$Options</span>{<span class="w">root</span>}<span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	866 853 <span class="k">if</span> <span class="s">(</span><span class="i">$RootFileName</span> && <span class="i">$RootFileExt</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	867 854 <span class="i">$HTMLRoot</span> = <span class="i">$RootFileName</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	868 855 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	869 856 <span class="k">else</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	870 857 <span class="i">$HTMLRoot</span> = <span class="i">$Options</span>{<span class="w">root</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	871 858 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	872 859 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	873 860 <span class="i">$HTMLTitle</span> = <span class="i">$HTMLRoot</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	874 861 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">title</span>} && <span class="s">(</span><span class="i">@TextFilesList</span> == <span class="n">1</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	875 862 <span class="i">$HTMLTitle</span> = <span class="i">$Options</span>{<span class="w">title</span>}<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	876 863 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	877 864 <span class="i">$HTMLFile</span> = <span class="k">lc</span><span class="s">(</span><span class="i">$HTMLRoot</span><span class="s">)</span> . <span class="q">"-html"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	878 865 <span class="k">if</span> <span class="s">(</span>!<span class="i">$Options</span>{<span class="w">overwrite</span>}<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	879 866 <span class="k">if</span> <span class="s">(</span><span class="k">-d</span> <span class="i">$HTMLFile</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	880 867 <span class="k">warn</span> <span class="q">"Warning: Ignoring file $TextFile: The directory $HTMLFile already exists\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	881 868 <span class="k">next</span> <span class="j">FILELIST</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	882 869 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	883 870 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	884 871
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	885 872 <span class="i">$TextFilesInfo</span>{<span class="w">FileOkay</span>}[<span class="i">$Index</span>] = <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	886 873 <span class="i">$TextFilesInfo</span>{<span class="w">InDelim</span>}[<span class="i">$Index</span>] = <span class="i">$InDelim</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	887 874 <span class="i">$TextFilesInfo</span>{<span class="w">HTMLRoot</span>}[<span class="i">$Index</span>] = <span class="q">"$HTMLRoot"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	888 875 <span class="i">$TextFilesInfo</span>{<span class="w">HTMLTitle</span>}[<span class="i">$Index</span>] = <span class="q">"$HTMLTitle"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	889 876
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	890 877 <span class="i">$TextFilesInfo</span>{<span class="w">ColCount</span>}[<span class="i">$Index</span>] = <span class="i">@ColLabels</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	891 878 <span class="k">push</span> <span class="i">@</span>{<span class="i">$TextFilesInfo</span>{<span class="w">ColLabels</span>}[<span class="i">$Index</span>]}<span class="cm">,</span> <span class="i">@ColLabels</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	892 879 <span class="k">for</span> <span class="i">$ColNum</span> <span class="s">(</span><span class="n">0</span> .. <span class="i">$#ColLabels</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	893 880 <span class="i">$ColLabel</span> = <span class="i">$ColLabels</span>[<span class="i">$ColNum</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	894 881 <span class="i">$TextFilesInfo</span>{<span class="w">ColLabelToNumMap</span>}[<span class="i">$Index</span>]{<span class="i">$ColLabel</span>} = <span class="i">$ColNum</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	895 882 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	896 883 <span class="i">$TextFilesInfo</span>{<span class="w">LineCount</span>}[<span class="i">$Index</span>] = <span class="i">$LineCount</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	897 884
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	898 885 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">numrows</span>} == <span class="n">0</span> \|\| <span class="i">$LineCount</span> <= <span class="i">$Options</span>{<span class="w">numrows</span>}<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	899 886 <span class="i">$TextFilesInfo</span>{<span class="w">MultipleHTMLTables</span>}[<span class="i">$Index</span>] = <span class="n">0</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	900 887 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	901 888 <span class="k">else</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	902 889 <span class="i">$TextFilesInfo</span>{<span class="w">MultipleHTMLTables</span>}[<span class="i">$Index</span>] = <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	903 890 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	904 891 <span class="c"># Setup HTML data directories paths...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	905 892 <span class="i">$TopHTMLDir</span> = <span class="k">lc</span><span class="s">(</span><span class="i">$TextFilesInfo</span>{<span class="w">HTMLRoot</span>}[<span class="i">$Index</span>]<span class="s">)</span> . <span class="q">"-html"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	906 893 <span class="i">$TextFilesInfo</span>{<span class="w">TopHTMLDir</span>}[<span class="i">$Index</span>] = <span class="q">"$TopHTMLDir"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	907 894 <span class="i">$TextFilesInfo</span>{<span class="w">SubHTMLDir</span>}[<span class="i">$Index</span>] = <span class="q">"$TopHTMLDir\/html"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	908 895 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	909 896 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	910 897
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	911 898 <span class="c"># Setup various data directories to hold HTML and other related files...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	912 <a name="SetupDataDirs-"></a> 899 <span class="k">sub </span><span class="m">SetupDataDirs</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	913 900 <span class="k">my</span><span class="s">(</span><span class="i">$Index</span><span class="s">)</span> = <span class="i">@_</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	914 901 <span class="k">my</span><span class="s">(</span><span class="i">$TopHTMLDir</span><span class="cm">,</span> <span class="i">$SubHTMLDir</span><span class="cm">,</span> <span class="i">$CreateTopHTMLDir</span><span class="cm">,</span> <span class="i">$CreateSubHTMLDir</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	915 902
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	916 903 <span class="i">$TopHTMLDir</span> = <span class="i">$TextFilesInfo</span>{<span class="w">TopHTMLDir</span>}[<span class="i">$Index</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	917 904 <span class="i">$SubHTMLDir</span> = <span class="i">$TextFilesInfo</span>{<span class="w">SubHTMLDir</span>}[<span class="i">$Index</span>]<span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	918 905
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	919 906 <span class="c"># Clean up existing directories...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	920 907 <span class="k">if</span> <span class="s">(</span><span class="k">-d</span> <span class="i">$TopHTMLDir</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	921 908 <span class="k">unlink</span> <span class="q">"<$TopHTMLDir/*.html>"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	922 909 <span class="k">unlink</span> <span class="q">"<$TopHTMLDir/*.css>"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	923 910 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	924 911 <span class="k">if</span> <span class="s">(</span><span class="k">-d</span> <span class="i">$SubHTMLDir</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	925 912 <span class="k">unlink</span> <span class="q">"<$SubHTMLDir/*.html>"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	926 913 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	927 914 <span class="c"># What directories need to be created...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	928 915 <span class="i">$CreateTopHTMLDir</span> = <span class="s">(</span><span class="k">-d</span> <span class="i">$TopHTMLDir</span><span class="s">)</span> ? <span class="n">0</span> <span class="co">:</span> <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	929 916
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	930 917 <span class="i">$CreateSubHTMLDir</span> = <span class="n">0</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	931 918 <span class="k">if</span> <span class="s">(</span><span class="i">$TextFilesInfo</span>{<span class="w">MultipleHTMLTables</span>}[<span class="i">$Index</span>]<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	932 919 <span class="i">$CreateSubHTMLDir</span> = <span class="s">(</span><span class="k">-d</span> <span class="i">$SubHTMLDir</span><span class="s">)</span> ? <span class="n">0</span> <span class="co">:</span> <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	933 920 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	934 921
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	935 922 <span class="c"># Create appropriate directories...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	936 923 <span class="k">if</span> <span class="s">(</span><span class="i">$CreateTopHTMLDir</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	937 924 <span class="k">mkdir</span> <span class="i">$TopHTMLDir</span> <span class="k">or</span> <span class="k">die</span> <span class="q">"Couldn't mkdir $TopHTMLDir: $! \n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	938 925 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	939 926 <span class="k">if</span> <span class="s">(</span><span class="i">$CreateSubHTMLDir</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	940 927 <span class="k">mkdir</span> <span class="i">$SubHTMLDir</span> <span class="k">or</span> <span class="k">die</span> <span class="q">"Error: Couldn't mkdir $SubHTMLDir: $! \n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	941 928 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	942 929 <span class="k">else</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	943 930 <span class="k">unlink</span> <span class="q"><$SubHTMLDir/*.html></span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	944 931 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	945 932 <span class="k">return</span> <span class="s">(</span><span class="i">$TopHTMLDir</span><span class="cm">,</span> <span class="i">$SubHTMLDir</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	946 933 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	947 934
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	948 935 <span class="c"># Setup script usage and retrieve command line arguments specified using various options...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	949 <a name="SetupScriptUsage-"></a> 936 <span class="k">sub </span><span class="m">SetupScriptUsage</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	950 937
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	951 938 <span class="c"># Retrieve all the options...</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	952 939 <span class="i">%Options</span> = <span class="s">(</span><span class="s">)</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	953 940 <span class="i">$Options</span>{<span class="w">indelim</span>} = <span class="q">"comma"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	954 941 <span class="i">$Options</span>{<span class="w">numrows</span>} = <span class="n">50</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	955 942
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	956 943 <span class="i">$Options</span>{<span class="w">mode</span>} = <span class="q">"shade"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	957 944 <span class="i">$Options</span>{<span class="w">highlightby</span>} = <span class="q">"colnum"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	958 945 <span class="i">$Options</span>{<span class="w">highlightstyle</span>} = <span class="q">"background"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	959 946
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	960 947 <span class="i">$Options</span>{<span class="w">cellpadding</span>} = <span class="n">2</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	961 948 <span class="i">$Options</span>{<span class="w">cellspacing</span>} = <span class="n">1</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	962 949
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	963 950 <span class="i">$Options</span>{<span class="w">displaylinks</span>} = <span class="q">"both"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	964 951 <span class="i">$Options</span>{<span class="w">displaylinksinfo</span>} = <span class="q">"both"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	965 952 <span class="i">$Options</span>{<span class="w">stylesheet</span>} = <span class="q">"new"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	966 953
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	967 954 <span class="i">$Options</span>{<span class="w">titledisplay</span>} = <span class="q">"yes"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	968 955
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	969 956 <span class="k">if</span> <span class="s">(</span>!<span class="i">GetOptions</span><span class="s">(</span>\<span class="i">%Options</span><span class="cm">,</span> <span class="q">"align\|a=s"</span><span class="cm">,</span> <span class="q">"border\|b=i"</span><span class="cm">,</span> <span class="q">"cellpadding=i"</span><span class="cm">,</span> <span class="q">"cellspacing=i"</span><span class="cm">,</span> <span class="q">"color\|c=s"</span><span class="cm">,</span> <span class="q">"footer=s"</span><span class="cm">,</span> <span class="q">"displaylinks\|d=s"</span><span class="cm">,</span> <span class="q">"displaylinksinfo=s"</span><span class="cm">,</span> <span class="q">"help\|h"</span><span class="cm">,</span> <span class="q">"headeralign=s"</span><span class="cm">,</span> <span class="q">"headercolor=s"</span><span class="cm">,</span> <span class="q">"highlight=s"</span><span class="cm">,</span> <span class="q">"highlightby=s"</span><span class="cm">,</span> <span class="q">"highlightcolor=s"</span><span class="cm">,</span> <span class="q">"highlightstyle=s"</span><span class="cm">,</span> <span class="q">"indelim=s"</span><span class="cm">,</span> <span class="q">"mode\|m=s"</span><span class="cm">,</span> <span class="q">"numrows\|n=i"</span><span class="cm">,</span> <span class="q">"overwrite\|o"</span><span class="cm">,</span> <span class="q">"root\|r=s"</span><span class="cm">,</span> <span class="q">"shadecolor=s"</span><span class="cm">,</span> <span class="q">"stylesheet=s"</span><span class="cm">,</span> <span class="q">"stylesheetname=s"</span><span class="cm">,</span> <span class="q">"title\|t=s"</span><span class="cm">,</span> <span class="q">"titledisplay=s"</span><span class="cm">,</span> <span class="q">"workingdir\|w=s"</span><span class="s">)</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	970 957 <span class="k">die</span> <span class="q">"\nTo get a list of valid options and their values, use \"$ScriptName -h\" or\n\"perl -S $ScriptName -h\" command and try again...\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	971 958 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	972 959
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	973 960 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">workingdir</span>}<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	974 961 <span class="k">if</span> <span class="s">(</span>! <span class="k">-d</span> <span class="i">$Options</span>{<span class="w">workingdir</span>}<span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	975 962 <span class="k">die</span> <span class="q">"Error: The value specified, $Options{workingdir}, for option \"-w --workingdir\" is not a directory name.\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	976 963 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	977 964 <span class="k">chdir</span> <span class="i">$Options</span>{<span class="w">workingdir</span>} <span class="k">or</span> <span class="k">die</span> <span class="q">"Error: Couldn't chdir $Options{workingdir}: $! \n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	978 965 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	979 966 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">displaylinks</span>} !~ <span class="q">/^(top\|bottom\|both)$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	980 967 <span class="k">die</span> <span class="q">"Error: The value specified, $Options{displaylinks}, for option \"-d --displaylinks\" is not valid. Allowed values: top, bottom, or both\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	981 968 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	982 969 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">displaylinksinfo</span>} !~ <span class="q">/^(line\|table\|both)$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	983 970 <span class="k">die</span> <span class="q">"Error: The value specified, $Options{displaylinksinfo}, for option \"--displaylinksinfo\" is not valid. Allowed values: line, table, or both\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	984 971 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	985 972 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">indelim</span>} !~ <span class="q">/^(comma\|semicolon)$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	986 973 <span class="k">die</span> <span class="q">"Error: The value specified, $Options{indelim}, for option \"--indelim\" is not valid. Allowed values: comma or semicolon\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	987 974 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	988 975 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">highlightby</span>} !~ <span class="q">/^(colnum\|collabel)$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	989 976 <span class="k">die</span> <span class="q">"Error: The value specified, $Options{highlightby}, for option \"--highlightby\" is not valid. Allowed values: colnum or collabel\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	990 977 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	991 978 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">highlightstyle</span>} !~ <span class="q">/^(background\|text)$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	992 979 <span class="k">die</span> <span class="q">"Error: The value specified, $Options{highlightstyle}, for option \"--highlightstyle\" is not valid. Allowed values: background or text\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	993 980 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	994 981 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">mode</span>} !~ <span class="q">/^(plain\|shade\|highlight\|shadedhighlight)$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	995 982 <span class="k">die</span> <span class="q">"Error: The value specified, $Options{mode}, for option \"-m --mode\" is not valid. Allowed values: plain, shade, hightlight, or shadedhighlight\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	996 983 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	997 984 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">stylesheet</span>} !~ <span class="q">/^(old\|new\|none)$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	998 985 <span class="k">die</span> <span class="q">"Error: The value specified, $Options{stylesheet}, for option \"-s --stylesheet\" is not valid. Allowed values: old, new, or none\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	999 986 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1000 987 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">numrows</span>} < <span class="n">0</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1001 988 <span class="k">die</span> <span class="q">"Error: The value specified, $Options{numrows}, for option \"-n --numrows\" is not valid. Allowed values: >= 0 \n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1002 989 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1003 990 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">titledisplay</span>} !~ <span class="q">/^(yes\|no)$/i</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1004 991 <span class="k">die</span> <span class="q">"Error: The value specified, $Options{titledisplay}, for option \"--titledisplay\" is not valid. Allowed values: yes or no\n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1005 992 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1006 993 <span class="k">if</span> <span class="s">(</span><span class="k">exists</span><span class="s">(</span><span class="i">$Options</span>{<span class="w">border</span>}<span class="s">)</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1007 994 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">border</span>} < <span class="n">0</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1008 995 <span class="k">die</span> <span class="q">"Error: The value specified, $Options{border}, for option \"--border\" is not valid. Allowed values: >= 0 \n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1009 996 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1010 997 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1011 998 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">cellpadding</span>} < <span class="n">0</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1012 999 <span class="k">die</span> <span class="q">"Error: The value specified, $Options{cellpadding}, for option \"--cellpadding\" is not valid. Allowed values: >= 0 \n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1013 1000 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1014 1001 <span class="k">if</span> <span class="s">(</span><span class="i">$Options</span>{<span class="w">cellspacing</span>} < <span class="n">0</span><span class="s">)</span> <span class="s">{</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1015 1002 <span class="k">die</span> <span class="q">"Error: The value specified, $Options{cellspacing}, for option \"--cellspacing\" is not valid. Allowed values: >= 0 \n"</span><span class="sc">;</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1016 1003 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1017 1004 <span class="s">}</span>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1018 1005
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1019 <a name="EOF-"></a></pre>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1020 <p> </p>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1021 <br />
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1022 <center>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1023 <img src="../../../images/h2o2.png">
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1024 </center>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1025 </body>
4816e4a8ae95 Uploaded deepakjadmin parents: diff changeset	1026 </html>

Mercurial > repos > deepakjadmin > mayatool3_test2

annotate docs/scripts/html/code/TextFilesToHTML.html @ 0:4816e4a8ae95 draft default tip