#!/usr/bin/perl -w
$| = 1;
#
# From the desk of asif@panalinks.com
#
print "Content-type: text/html\n\n";
$home = "$ENV{DOCUMENT_ROOT}";
#$TEMPLATE ="$home/story/story_det.htm";
$Submit_Table='submit_site';
%INPUT=();
&ReadParse;
&print_top_page;
&OpenDatabase;
$DisplayStr;
&DisplayResult(*DisplayString);
#&print_bot_page;
&CloseDatabase;
##
## Subroutine Begin
##
##
## Open the database for getting inputs
##
sub OpenDatabase
{
local($db)=@_ if @_;
# Initialize variables and objects.
#$db = "egreetings";
# my $user = "asif";
my $db = "indianscifi_com_-_1";
my $user = "indiansc";
my $password = "indiansc123";
my $hostname = "localhost";
my $data_source = "DBI:mysql:$db:$hostname";
use DBI;
# Connect to the database.
$dbh = DBI->connect($data_source, $user, $password) or &ErrorMsg("Failed to connect to host:$host: $DBI::errstr\n");
}
##
## Database closed
##
sub CloseDatabase
{
$dbh->disconnect;
}
##
## Display the result
##
##############
sub DisplayResult
{
local(*DisplayStr)=@_ if @_;
local($CHUNK,$TOTAL,$OFFSET)=(10,0,0);
my @mrow=();
$QueryStr="select * from $Submit_Table where status='V' order by seq_id desc";
#print $QueryStr;
# $DisplayStr="Search result for \U Site";
&NextFetch(*QueryStr,*DisplayStr,*NEXTFETCH,*PREFETCH,*OFFSET,*CHUNK,*TOTAL,*COUNT);
# print $QueryStr;
my $mth=$dbh->prepare($QueryStr) or &ErrorMsg("Failed to prepare query: $DBI::errstr\n");
$mth->execute or &ErrorMsg("Failed to Select Main Master $DBI::errstr\n");
print <