#!d:\perl\bin\perl.exe

use DBI;

my %val=();

$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;

if( $ENV{'REQUEST_METHOD'} eq "GET" )
	{
		 $buffer=$ENV{'QUERY_STRING'};
	}

my @pairs = split(/&/,$buffer); #split info into name/value pairs

foreach my $pair (@pairs) 
	{
		my ($name,$value) = split(/=/,$pair);
		$value=~ tr/+/ /;
		$value=~ s/%(..)/pack("C",hex($1))/eg;
		$FORM{$name}=$value;
	}
	
	my $word=$FORM{'word'};
	
	my $flag=$FORM{'insert_retrieve'};

	$meaning=$FORM{'meaning'} if($flag == 1);


#-----------------------------data base part----------------------

	

	$dbh=DBI->connect("dbi:ODBC:database_name",'user_name','password');


if( $flag == 0)
	{
		$st=$dbh->prepare("select meaning from telugu_dictionary where word like '$word';");
		
		$st->execute();
		
		while( ($word_db) = $st->fetchrow_array)
		{
			$meaning="$word_db";
		}
	}

else
	{
		$st=$dbh->prepare("insert into telugu_dictionary values('$word','$meaning');");

		$st->execute();
	}

	



$st->finish();

print "Content-type:text/html\n\n";

if( $flag == 0)
{
	print "$meaning";
}
1;