#!/usr/bin/perl

print "Content-type: text/html; charset=utf-8\n\n";
use CGI qw/:standard/;
use DBI;


        $driver = "mysql";
        $database="is3_03";
        $hostname="10.10.146.7";
	$port = "3306";
        $user="is3_03";
        $password="is";

        $dsn = "DBI:$driver:database=$database;host=$hostname;port=$port";
        $dbh = DBI->connect($dsn, $user, $password);

         $sth = $dbh->prepare( q{select * from cars}) || die "Can't prepare statement: $DBI::errstr";

$sth->execute(); 

	@FieldNames = @{ $sth->{NAME} };
	print "<table rules=all class='tableCreation'><tr>";
	foreach $field (@FieldNames) { 
		print "<td><b>".$field."</b></td>";
	}
	print "</tr>";

	while (@row = $sth->fetchrow_array) {
		print "<tr>";
		foreach $r (@row) {
			if ($r eq $row[$#row]) {

				if ($r eq undef) {
					print "<td>Логотип отсутствует</td>";
				} else {
					my $id = $row[0];
					print "<td>";
					print "<img src=\"10pl/get_blob.pl?id=$id\" width=\"50\" height=\"50\"> </img>";  #
					print "</td>";
				}

			} else {
				print "<td>".$r."</td>";
			}
		}
		print "</tr>";
	}
	print "</table>";
	
	$sth->finish;
	$dbh->disconnect;

#!/usr/bin/perl

use DBI;
require "cgi-lib.pl";

&ReadParse;

my $id = $in{'id'};

    $driver = "mysql";
    $database="is3_03";
    $hostname="10.10.146.7";
	$port = "3306";
    $user="is3_03";
    $password="is";
		
	$dsn = "DBI:$driver:database=$database;host=$hostname;port=$port";
    $dbh = DBI->connect($dsn, $user, $password);
	
	$sth = $dbh->prepare( qq {select logo from cars where id = $id}) || die "Can't prepare statement: $DBI::errstr";
	$sth->execute;

my $href = $sth->fetchrow_hashref;
my $blob = $$href{'id'};

print STDOUT "Content-Type: image/jpeg\n";
print STDOUT "Content-length: \n\n";
binmode STDOUT;
print STDOUT $blob;