#!/opt/bin/perl -w # DO NOT FORGET TO GET YOUR ORACLE ACCOUNT AND PASSWORD FROM HELPDESK! use DBI; use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); $| = 1; my ($username) = 'cs4173'; my ($pswd) = '*******'; my ($dbname) = 'LCTS'; # $adv_type = param("adventure"); $ENV{"ORACLE_HOME"} = '/opt/oracle/8.0.4'; print header; print "\n"; $dbh = DBI -> connect("dbi:Oracle:$dbname", $username, $pswd) or die "Connecting: $DBI::errstr"; &RunSQL("Select * from domain"); $dbh->disconnect; sub RunSQL($){ local ($sth)=$dbh->prepare($_[0]); $sth->execute; while (@row=$sth->fetchrow()) { print "row: @row\n"; } $sth->finish; } print ""; print end_html;