#!/usr/bin/perl require "common.conf"; require "$basePath/cgi-lib.pl"; require "$basePath/alllib.cgi"; use DBI; #my $dbh =DBI->connect("DBI:$sqltype:database=$dbname;host=$hostname",$dbuser,$dbpassword); my $dbh =DBI->connect("DBI:$sqltype:database=$mysqldbname;host=$mysqlhost",$mysqlusername,$mysqlpasssword); use CGI; my $query = new CGI; $id = $query->param("id"); $cnt=0; my $qry="select * from news where newsid = $id"; my $tableData=$dbh->prepare($qry); $tableData->execute; my(@data)=$tableData->fetchrow_array; $desc = $data[2]; $desc =~ s/\n/\/g; $images = $data[4]; @imageArray = split(",",$images); &ReadParse(*gotData); print &PrintHeader; showMain(); sub showMain { print<<_HTML; www.yourgolfguru.com
        

  

$data[0]

$desc
   _HTML if ($images ne "") { foreach (@imageArray){ print " "; } } print<<_HTML;
   
_HTML }