#!/usr/bin/perl -w package main; use CGI qw/:standard/; use CGI::Carp qw(fatalsToBrowser); print "Content-type: text/html\n\n"; if (param){ $x=param("pname"); open (F1,"> /tmp/file1.txt"); print F1 $x; close(F1); system("perl ./utf82iscii.pl < /tmp/file1.txt > /tmp/file2.txt"); system("./QL.out < /tmp/file2.txt > /tmp/file3.txt"); system("./ir < /tmp/file3.txt > /tmp/file4.txt"); open (F2,"< /tmp/file4.txt"); @y=; chomp(@y); $z=$y[0]; close(F2); if ( $z eq "Axiparva") { $no=1; } elsif ($z eq "saBAparva") { $no=2; } elsif ($z eq "vanaparva") { $no=3; } elsif ($z eq "virAtaparva") { $no=4; } elsif ($z eq "uxyogaparva") { $no=5; } elsif ($z eq "BIRmaparva") { $no=6; } elsif ($z eq "xroNaparva") { $no=7; } elsif ($z eq "karNaparva") { $no=8; } elsif ($z eq "Salyaparva") { $no=9; } elsif ($z eq "sOpwikaparva") { $no=10; } elsif ($z eq "swrIparva") { $no=11; } elsif ($z eq "SAnwiparva") { $no=12; } elsif ($z eq "anuSAsanaparva") { $no=13; } elsif ($z eq "ASvameXikaparva") { $no=14; } elsif ($z eq "ASramavAsikaparva") { $no=15; } elsif ($z eq "mOsalaparva") { $no=16; } elsif ($z eq "mahAprasWAnikaparva") { $no=17; } else { $no=18; } $prname="<".$z.">"; $prname1="<\/".$z.">"; open(H1, "> /tmp/output.txt"); open(H2, "< $no"); @in =

; chomp(@in); foreach $a(@in) { if($a=~/[0-9]ab$/){$a=~s/ab$//g;} if($a=~/[0-9]a$/){$a=~s/a$//g;} if($a=~/[0-9]b$/){$a=~s/b$//g;} if($a=~/[0-9]c$/){$a=~s/c$//g;} if($a=~/[0-9]d$/){$a=~s/d$//g;} if($a=~/[0-9]e$/){$a=~s/e$//g;} for ($ctr=1; $ctr<=31; $ctr++) { if($a=~ s/\{$ctr\}//g){} if($a=~ s/\{\/$ctr\}//g){} } if($a=~/$prname/){ $count=1; $a=~s/ [0-9].*//g; print H1 $a."\n"; } elsif ($count==1){ if($a=~/$prname1/){$count=0;} else{ $a=~s/ [0-9].*//g; print H1 $a."\n"; } } } close(H1); close(H2); } print ""; print "Parva Page"; print ""; print ""; print "

श्रीमहाभारतम्
$x

"; print ""; system("./ri /tmp/output1.txt"); system("./iscii_nuktaZ.out /tmp/output2.txt"); system("./QL.out /tmp/output3.txt"); system("./iscii2utf8.py 1 /tmp/output4.txt"); open (TMP,"< /tmp/output4.txt"); @in=; foreach $x(@in){ if($x=~/"; } close(TMP); print "
$x
";