#!perl

use strict;
use warnings;
use CGI::Pretty qw( :standard );
use DBI;

$CGI::Pretty::INDENT = "  ";

my $cgi = CGI::Pretty->new();

my $db_host = "localhost";
my $db_user = "myuser";
my $db_pass = "mypass";

my $dbh = DBI->connect("DBI:mysql:database=fnoofs;host=$db_host",
                       $db_user,
                       $db_pass,
                       {'RaiseError' => 1});
my $sth = $dbh->prepare("SELECT * FROM fnoofus WHERE picname='?'");

opendir(DIR, "/web/htdocs/images/fnoofus") or die "wtf.. $!";
@all_files = grep { $_ ne '.' and $_ ne '..' } readdir DIR;
closedir DIR;

print header;
print start_html("Test page");

print start_form;
foreach my $file (@all_files) {
    my $number = $sth->execute($file);
    my @row;
    if ($number > 0) {
        @row = $sth->fetchrow_array();
    } else {
        @row = ('nothing here') x 4;
    }
    print table(TR(td({rowspan => "4"},
                      img({src => "somepath/$file"})),
                   td({valign => "top"},
                      "Image location: ",
                      textfield({name => "imageLoc_$file",
                                 default => $row[1],
                                 size => 50,
                                 maxlength => 80}))),
                TR(td("Description: ",
                      textfield({name => "description_$file",
                                 default => $row[2],
                                 size => 55}))),
                TR(td("Picname: ",
                      textfield({name => "picname_$file",
                                 default => $row[3],
                                 size => 20}))),
                TR(td({valign => "top"},
                      checkbox({name => $file . '_db',
                                checked => 1,
                                value => "ON"}))));
    print hr;
}
print submit;
print end_form;

print end_html;
[download]