hi,
am new to Perl.
How to connect postgresql database with perl ? here
is the Perl code follows:
#!/usr/bin/perl
use CGI qw(:standard);
use DBI;
use strict;
print "Content-type: text/html\n\n";
use CGI::Carp qw/fatalsToBrowser/;
$query = new CGI;
print $query->header;
$dbh = DBI->connect("dbi:Pg:dbname=test", "postgres",
"", {AutoCommit => 1, Rais
eError => 1});
if($query->param("submit") eq "save") {
$sth = $dbh->prepare("SELECT ip_add from firewall
where $source_add ='10.0.0.10'");
} else {
print "error";
}
if(!defined($sth)) {
print "ERROR: Unable to execute database query:
$DBI::errstr\n";
exit;
}
$sth->execute;
$sth->finish;
print $query->start_html("FIREWALL");
print <<"EOF";
<HTML>
<BODY>
print "<center><H1>FIREWALL</H1></center>\n";
print "IP Adress:";
print $query->popup_menu(-name=>'IP Adress',
-Values=>['10.0.0.1','10.0.0.2','10.0.0.3','10.0.0.4',10.0.0.5,10.0.0.6],
);
print "Source IP Adress:";
print $query->textfield('numeric');
print "Destination IP Adress:";
print $query->textfield('Dest');
print $query->radio_group(-name=>'Disable Enable',
-Values=>['Disable','Enable'],
);
print "<P><center>$query->submit('Action','save');
print
$query->submit('Action','cancel')</center></P>";
</BODY>
</HTML>
EOF
print $query->end_html;
$dbh->disconnect;
exit(0);
=====
Y.SUDHEER RAGHAV+919440521140
__________________________________
Do you Yahoo!?
Yahoo! Mail - 250MB free storage. Do more. Manage less.
http://info.mail.yahoo.com/mail_250