#! /usr/bin/perl

# ---------------------------------
# SHARK e-business system
# Copyright (c)2001 Svatopluk Benes
# ---------------------------------

# -------------------------------
# SHARKIMG.PL - obrazek z databaze
# -------------------------------


# ------------
# Inicializace
# ------------

	use CGI qw/:standard/;

	require "../slib/sharkfn.pl";    
  	require "../slib/db_mysqlbase.pl";

# Predani parametru 
	
	&FNPredejSharkId;
	$ParAkce  = FNPredejPar(url_param('akce'),"init");
	$ParImg = FNPredejPar(url_param('img'),"");
	
# pripojeni databaze
				
	&SharkConnect;

# nacteni obrazku z db

	if ( $ParAkce eq 'full' )
	{
		$MyImg = ' obrazek ';
	}
	else
	{
		$MyImg = ' ikona ';
	}		
	$select = "SELECT ".$MyImg." FROM ".$sharkDb."img WHERE jmeno = '".$ParImg."'";
	$dotaz = $dbmy->prepare ($select );
	$dotaz->execute();
	@data = $dotaz->fetchrow_array();
	
# odeslani
	
	print header(-type=>'image/jpg');
	print @data[0];