#!/usr/bin/perl
use DBI;
require "/usr/logins/usercgi/oracle_setup.pl";
use CGI;
$cgi=new CGI(\*STDIN);
$userid = $cgi->param('userid');
$passwd = $cgi->param('passwd');
print "Content-type: text/html\n\n<h1>Ihre Tabellen</h1>\n";
$dbh = DBI->connect('DBI:Oracle:', "$userid", "$passwd");
$sth=$dbh->prepare("select tname from tab");
$sth->execute;
$sth->bind_columns(undef,\$tname);
while (@row=$sth->fetchrow_array) {
  print "<p> <b>$tname</b> <br>\n";
  $sth2 = $dbh->prepare("select column_name, data_type, data_length from user_tab_columns where table_name = \'$tname\'");
  $sth2->execute;
  $sth2->bind_columns(undef,\$cname,\$dtype,\$dlength);
  print "<table>\n";
  while (@row2=$sth2->fetchrow_array) {
    print "<tr><td>$cname</td><td>$dtype($dlength)</td></tr>\n";
  }
  print "</table>\n";
  print "<form action=http://miss.wu-wien.ac.at:81/USERCGI/mitloehn/tabselect.pl method=post>\n";
  print "<input type=submit value=\"Select\"> * from $tname\n";
  print "<input type=hidden name=tname value=\"$tname\">\n";
  print "<input type=hidden name=userid value=\"$userid\">\n";
  print "<input type=hidden name=passwd value=\"$passwd\">\n";
  print "</form>\n";
  $sth2->finish;
}
$sth->finish;
$dbh->disconnect;