#!/usr/pkg/bin/perl


use lib qw(lib lib/site_perl);
use strict;
use DBI;
use CGI qw(:standard);

my $query = new CGI;

print $query->header;
print "<HTML><BODY>\n";

my $haveFileSpec = eval { require File::Spec };
#my $table_dir = File::Spec->catdir(File::Spec->curdir());
my $table_dir="/arpa/ag/e/edgock/html/travel/pics";
my $dbh =
DBI->connect("DBI:CSV:f_dir=$table_dir") or die "Cannot connect: " . $DBI::errstr;
  my($sth);
  print "$table_dir\n";
  $sth = $dbh->prepare("SELECT id FROM images");
  $sth->execute() or die "Cannot execute: " . $sth->errstr(  );
  print "$table_dir\n";
  my($id);

#   $sth->bind_columns(undef,\$id);
my @row;

while (@row = $sth->fetchrow_array(  )) {
 print join(",", @row) . "<BR>\n";
}

$sth->finish( );
$dbh->disconnect( );
print "</body></html>";