#!/usr/bin/perl -Tw
use warnings;
use strict;
$|++;
#------------------------------------------------------------------------------
# includes
use CGI;
use CGI::Carp qw/fatalsToBrowser/;
use URI::Escape;
#------------------------------------------------------------------------------
# constants, global vars
#my $SELF_URL = $ENV{QUERY_STRING}) =~ s![^/]*$!!;
#my $SELF_URL ='./translate.cgi';
my $TRANSLATE_CGI = './translate.cgi';
#------------------------------------------------------------------------------
# read CGI params
my %params = %{{
txt => undef,
frame => undef,
}};
my $cgi = new CGI;
foreach my $p (keys %params) {
$params{$p} = $cgi->param ($p)
if (defined $cgi->param ($p));
}
print "Content-Type: text/html; charset=utf8\n\n";
print
"\n" .
" \n" .
" Anuvad\n" .
" \n" .
" \n";
if (!$params{txt}) {
#print $cgi->header(-type=>'text/html');
print $cgi->start_html(-title=>'Anuvad');
print $cgi->img({ src => '../../images/logo1.png',
alt => 'Powered by Perl',
});
print "
";
print "\n" ;
print "
";
print "|Development Team: Dr. Gurpreet Singh Lehal & Dr. Vishal Goyal (Punjabi University Patiala), Mr. Ajit Kumar (Multani Mal Modi College, Patiala)| ";
print " |Uses: Moses © Decoder| ";
print "\n";
print "