#!/usr/bin/perl
##############################################################################
# Perl-Script for Searching Adress-Database (c) Klaus Schönenberg Lohmar
# schoenenberg@lohmar.org
# Searching the cd-table in Iwalewa-Database (CD-Shop+Media)
#
# Relaeses
# 2001-02-21 KS	first release
#
#

require "main.lib";
require "para.lib";
require "db.lib";

&make_datum;

# Presetting
$err=0;

# read The INPUT BUFFER from .htm FORM-TAG
&read_args;
$search=$ARGS{search};

# Wenn Args gesetzt, darf der Buffer nicht ausgelesen werden,
# weil die Args aus der Uebergabe kommen und nicht aus der FORM
if ($search eq "") {

	# read The INPUT BUFFER from .htm FORM-TAG
	&read_buffer;
	$look_key=$FORM{look_key};
	$field=$FORM{field};
	$sort=$FORM{sort};
	$desc=$FORM{desc};
	$label=$FORM{label};
	$style=$FORM{style};
	$jahr=$FORM{jahr};
	$bild=$FORM{bild};

} else {

	$field=$ARGS{field};
	$key=$ARGS{key};
	$key=~tr/_/ /s;
	if ($field eq "interpret") {
		$look_key=$key;
	}
	if ($field eq "label") {
		$look_key="";
		$label=$key;
	}
$msg="S:$search F:$field K:$key ";
&write_log;


	# vorbelegen
	$bild="on";
}


# prepare html-Header
&print_html_header;

# prepare and open database
&open_dbi;

# prepare sql-statement 

if ($look_key eq "#" ){ $look_key="afrika"; }
if (length($field) == 0) { $field = "ALL" }

if ($label eq "none") { $label ="" }
if ($style eq "none") { $style ="" }
if ($jahr  eq "none") { $jahr  ="" }

# Such_Optionen
if ($look_key) {$so1=" Keyword:".$look_key}else{$so1=" no Keyword"}
if ($label)    {$so2=" Label:".$label}
if ($style)    {$so3=" Style:".$style}
if ($jahr)     {$so4=" Jahr:".$jahr}
if ($field)    {$so5=" Feld:".$field}
if ($sort)     {$so6=" Sort:".$sort}
if ($desc)     {$so7=" Desc:".$desc}
$such_optionen=$so1.$so2.$so3.$so4.$so5.$so6.$so7." ";

if ($look_key || $label || $style || $jahr ) {

	if ($look_key eq "*") {
		# select all
		$sql1="select * from cd";
		$sql2="";
	} else {
		$sql1="select * from cd where (";
		if ($field eq "ALL") {
			# Search all columns
			$sql2="          interpret  like '%".$look_key."%'";
			$sql2=$sql2." or titel      like '%".$look_key."%'";
			$sql2=$sql2." or nummer     like '%".$look_key."%'";
			$sql2=$sql2." or label      like '%".$look_key."%'";
			$sql2=$sql2." or style      like '%".$look_key."%'";
		} else {
			# Search specific column
			$sql2=$field . " like '%" . $look_key . "%'";
		}
		$sql2=$sql2.")";
		if ($look_key eq "") {
			$sql1="";
			$sql2="";
		}
		if (length($label.$style.$jahr) >0) {
			if ($sql1) {
				$sql2=$sql2." and (";
			} else {
				$sql2="select * from cd where (";
			}
			if ($label ne "") { $sql2=$sql2."label  like '%".$label."%'" }
			if ($style ne "") { $sql2=$sql2."style  like '%".$style."%'" }
			if ($jahr  ne "") { $sql2=$sql2."nummer like '%".$jahr ."%'" }
			$sql2=$sql2.")";
		}
		# Stripping den ganzen Leermuell
		$sql2=~tr/	/ /s;
		$sql2=~tr/   / /s;
	}

	if ($sort eq "No-Sort" || $sort eq "") {
		$sql_order=" order by vertrieb";
	}
	else {
		$sql_order=" order by " . $sort;
		if ($desc eq "on") {
			$sql_order=$sql_order . " desc";
		}
	}


	# put togehter the sql-statement-parts and lowercase them
	$sql="\L$sql1$sql2$sql_order\E" ;
	# prepare and xcute sql
	&prepare_sql_dbi;

	if ($rv eq "0E0") {

		$rv="0";
		&print_html_no_records_found;
		&print_html_feeter;

	}

	else {

		# getting found rows from database and put them into variables
		&print_result_header;
		&print_result_rows;
		&print_result_feeter;
		&print_html_feeter;

	}
	# end if rows found

	# write th log-file
	#&write_log;

}

else {

	&print_html_no_keyword;
	&print_html_feeter;

}
# end if search-word given


#
# End of program
###############################################################################

###############################################################################
# and now the subroutines
#

#
# The Log file
#
sub write_log {

	&make_datum;
	open (LOG,">> ../LOGS/search.log") or die "Cannot write to Log File";
	$log=$dat02
		. " | " . $rv
		. " | " . $look_key
		. " | " . $sort
		. " | " . $desc
		. " | " . $msg
		. " \n";
	print LOG $log;
	close LOG;

}


#
# All the HTML Stuff
#
#

# The Main Header
sub print_html_header {

	print "Content-type: text/html\n\n";
	print <<EOF;
<!DOCTYPE HTML PUBLIC "By Schoenenberg-Computers Clever/Trever">
<HTML>
  <HEAD>
    <TITLE>AFRICA-Iwalewa&#180;s CD-Shop, CDs, Neuvorstellungen, Reviews</TITLE>
<STYLE>
<!--
#slidemenubar, #slidemenubar2{
position:absolute;
left:-220px;
width:260px;
top:50px;
}
-->
</STYLE>
EOF
    $htmlfile="../include/meta.inc";
	&read_file;
    $htmlfile="../include/styles.inc";
	&read_file;
    $htmlfile="../include/top.inc";
	&read_file;
	print <<EOF;
  </HEAD>

<!-- *** javascript und layer-definition für das menü ab hier -------------->
    
<IFRAME ID="slidemenubar2" STYLE="left:-210;" SRC="../media/steuerung.htm" 
    WIDTH="0" HEIGHT="348"></IFRAME>
<LAYER ID="slidemenubar" ONMOUSEOVER="pull()" ONMOUSEOUT="draw()" 
    SRC="../media/steuerung.htm"></LAYER>

<SCRIPT LANGUAGE="JavaScript1.2">
/*
Sliding Menu Bar Script IV-
© Dynamic Drive (www.dynamicdrive.com)
For full source code, installation instructions,
100's more DHTML scripts, and Terms Of
Use, visit dynamicdrive.com
die Ziffer 2 deutet immer auf den IE5 hin
*/
function regenerate(){
window.location.reload()
}
function regenerate2(){
if (document.layers)
setTimeout("window.onresize=regenerate",200)
}
window.onload=regenerate2
if (document.all){
themenu=document.all.slidemenubar2.style
rightboundary=0
leftboundary=-210
}
else{
themenu=document.layers.slidemenubar
rightboundary=220
leftboundary=10
}
function pull(){
if (window.drawit)
clearInterval(drawit)
pullit=setInterval("pullengine()",10)
}
function draw(){
clearInterval(pullit)
drawit=setInterval("drawengine()",10)
}
function pullengine(){
if (document.all&&themenu.pixelLeft<rightboundary)
themenu.pixelLeft+=10
else if(document.layers&&themenu.left<rightboundary)
themenu.left+=10
else if (window.pullit)
clearInterval(pullit)
}
function drawengine(){
if (document.all&&themenu.pixelLeft>leftboundary)
themenu.pixelLeft-=10
else if(document.layers&&themenu.left>leftboundary)
themenu.left-=10
else if (window.drawit)
clearInterval(drawit)
}
</SCRIPT>

<SCRIPT SRC="../basket.js"></SCRIPT>

<SCRIPT>function cd(link)
{
ocd=window.open(link,"ocd","toolbar=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,copyhistory=no,width=600,height=450");
}
</SCRIPT>
  
  <BODY LEFTMARGIN="0" TOPMARGIN="0" TEXT="#996633" LINK="#000000" 
  VLINK="#000000" ALINK="#FFFF00" BGCOLOR="#FFFFFF" MARGINWIDTH="0" 
  MARGINHEIGHT="0" ONLOAD="topload()">
    
    <P><A NAME="0"></A><BR></P>
EOF

}


sub print_html_no_keyword {

	print <<EOF;
<TABLE WIDTH=100% HEIGHT=100%><TR><TD>
<CENTER><B>
<FONT COLOR=red>F E H L E R  /  E R R O R :<BR><BR></FONT>
Du must min. zwei Buchstaben als Suchbegriff eingeben, um ein Ergebnis zu erhalten<BR>
/<BR>
You must give at least two letters as a keyword to get a result.
<BR><BR></B>
(unnit einfach wo draufhacken ohne Nachdenken)
<BR><BR><BR><BR>
<A HREF="javascript: window.history.go(-1)"><B>Zurück / Back</B></A>
</CENTER>
</TD></TR></TABLE>
EOF

}


sub print_html_no_records_found {

	print <<EOF;
<TABLE WIDTH=100% HEIGHT=100%><TR><TD>
<CENTER><B>
<FONT COLOR=red>H I N W E I S / W A R N I N G :<BR><BR></FONT>
Kein Ergebnis - keine CDs mit diesen Angaben gefunden<BR>
/<BR>
No Result - No CDs found
<BR><BR></B>
<A HREF="javascript: window.history.go(-1)"><B>Zurück / Back</B></A>
</CENTER>
</TD></TR></TABLE>
EOF
}


sub print_result_header {

	$i1=index($p_gefunden,"_");
	$gefunden=substr($p_gefunden,0,$i1 - 1)." ".$rv." "
		.substr($p_gefunden,$i1 + 2,55);
	print "<CENTER><TABLE WIDTH=95% BGCOLOR=#FFCC66><TR><TD><B>$gefunden Titel</B> ($such_optionen)</TD></TR></TABLE></CENTER>";

}


sub print_result_rows {

	while(@row = $sth->fetchrow_array) {
		&fetch_row_dbi_cd;
		&build_line;
	}

}


sub build_line {

	$z++;
	$jahr=substr($nummer,0,4);
	if ($vertrieb eq "WM") {	# World Music Shop
		$link="http://www.globalmusicshop.de/sites/info/001/".substr($nummer,4,4)."_d.htm";
	} else {
		$link="../media/".$jahr."/".$nummer.".htm";
	}
	if (!$breite) { $breite="60" }
	if (!$hoehe) { $hoehe="60" }
	if ($vertrieb eq "WM") {	# World Music Shop
		$src="http://www.globalmusicshop.de/sites/cover/001/".substr($nummer,4,4)."_s.jpg";
		$bild="on";
		$deeplink="Die CD wird präsentiert vom <A HREF=\"http://www.globalmusicshop.de/sites/indexd.htm\" TARGET=_blank>WOMEX Shop</A>";
	} else {
		$src="../media/".$jahr."/gifs/".$image."_s.jpg";
		open(TEST,$src) or $src="../gifs/info.gif";
		close(TEST);
		$deeplink="";
	}
	if ($bild eq "on") {
		$cdimage="<IMG SRC=$src"." WIDTH=".$breite." HEIGHT=".$hoehe." BORDER=0>";
	} else {
		$cdimage="<IMG SRC=\"../gifs/info.gif\" WIDTH=60 HEIGHT=60 BORDER=0>";
	}
	if ($vertrieb eq "  ") {$vertrieb=""} # else{$vertrieb="(".$vertrieb.")"}
	if (length($label) != 0) {
		$lab=" Label/Vertrieb:".$label;
	}
	$kaufen="";
	if ($vertrieb && $preis) {
		$buy_text=$vertrieb.":".$nummer." - ".$titel." ".$interpret;
		$buy_geld=$preis;
		$kaufen="<A HREF=\"../cgi-bin/shop.cgi\" TARGET=\"SHOP\"\
			ONCLICK=\"buyItem('".$buy_text."','".$buy_geld."','1')\">\
			<IMG SRC=\"../gifs/order.gif\" WIDTH=\"70\" HEIGHT=\"15\"\
			BORDER=\"0\"></A>";
	}
	$csound="";
	if ($sound) {
		$csound="<A HREF=\'javascript:cd(\"$link\")\'><IMG SRC=\"../gifs/sound.gif\" WIDTH=\"70\" HEIGHT=\"15\" BORDER=\"0\"></A>";
	}
	print <<EOF;
$p_test
<CENTER><FORM><TABLE WIDTH=500><TR><TD WIDTH=100 ALIGN=CENTER>
<A HREF='javascript:cd("$link")'>
$cdimage</A></TD><TD WIDTH=400 VALIGN=TOP><B>$interpret - <I>$titel</I></B><BR>
$p_test
$style $lab $vertrieb Erschienen:$jahr $voe<BR>
$p_test
$kaufen $csound $deeplink
</TD>
EOF
	if ($z == 5) {
		$z=0;
		print <<EOF;
<TD ALIGN="RIGHT">
<A HREF="../media/main.htm" TARGET="MAIN">
<IMG SRC="../gifs/home.gif" ALT="Media Homepage" BORDER="0" WIDTH="15" HEIGHT="15">
</A><BR>
<A HREF="javascript: window.history.go(-1)">
<IMG SRC="../gifs/back.gif" ALT="Zurück zur Suche  / Back to Search" BORDER="0" WIDTH="15" HEIGHT="15">
</A><BR>
<A HREF="#0" TARGET="MAIN">
<IMG SRC="../gifs/top.gif" ALT="Seitenanfang / Start of page" BORDER="0" WIDTH="15" HEIGHT="15">
</A><BR>
<A HREF="#1" TARGET="MAIN">
<IMG SRC="../gifs/end.gif" ALT="Seitenende / End of page" BORDER="0" WIDTH="15" HEIGHT="15">
</A>
</TD>
EOF
	}
	print "</TR></TABLE></FORM></CENTER>".$p_test;

}


sub print_result_feeter {

	print <<EOF;
<A NAME="1">
<CENTER>
<TABLE WIDTH=95% BGCOLOR=#C0C0C0>
<TR><TD>Ende der Liste / End of List</TD></TR>
</TABLE>
<P><BR></P>
<TABLE><TR><TD ALIGN=CENTER>
<A HREF="../media/main.htm" TARGET="MAIN">
<IMG SRC="../gifs/home.gif" ALT="Media Homepage" BORDER="0" WIDTH="15" HEIGHT="15">
</A> 
<A HREF="javascript: window.history.go(-1)">
<IMG SRC="../gifs/back.gif" ALT="Zurück zur Suche / Back to Search" BORDER="0" WIDTH="15" HEIGHT="15">
</A> 
<A HREF="#0" TARGET="MAIN">
<IMG SRC="../gifs/top.gif" ALT="Seitenanfang / Start of Page" BORDER="0" WIDTH="15" HEIGHT="15">
</A> 
</TD></TR></TABLE>
</CENTER>

EOF
}


sub print_html_feeter {

	print "<P><BR>";
	if ($gefunden < 5) {
		print "<P><BR><BR><BR><BR><BR><BR><BR><BR></P>";
	}
	print "</P>";
	$htmlfile="../include/feeter2.inc";
	&read_file;
	print "</BODY></HTML>";

}

# Read the file and print it´s content - file $htmlfile must be given
#
sub read_file {

	open(IN,$htmlfile) or die "Cannot open $htmlfile for include";
	while(<IN>) { print $_ }
	close(IN);

}