Catalog Script: display.cgi

#!/usr/local/bin/perl
# display.cgi
# Fetch picture of product from the database

use DBI;
use lib 'modules';
use Catalog;
use CGI 'header','param';
use strict;
use vars '$DB';
use constant DB           => 'dbi:mysql:perl_conference';

no_content() unless my $catno = param('catno');

# open database
$DB = DBI->connect(DB,undef,undef,{PrintError=>0}) || die $DBI::errstr;


my $catalog = Catalog->new($DB) || die;
no_content() unless my $image = $catalog->image($catno);

print header(-type           => 'image/jpeg',
	     -content_length => length($image));
print $image;

$DB->disconnect;

sub no_content {
    print header(-status=>204);
    $DB->disconnect if defined $DB;
    exit 0;
}