#!/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) = 'courses'; # $adv_type = param("adventure"); $ENV{"ORACLE_HOME"} = '/opt/oracle/app/oracle/product/733'; print header; print "\n"; $dbh = DBI -> connect('dbi:Oracle:courses', $username, $pswd) or die "Connecting: $DBI::errstr"; &RunSQL("Select * from nur"); $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;