#!/usr/bin/perl 
#($cgi_bin, $cgi_script) = ($0 =~ m:(.*)[/\\](.*):);
$mailprog = "/usr/sbin/sendmail"; #levélküldéshez

#---------------------------------------------------------
$fontface = "Verdana";		#Alap betűtípus
$rnum		  = 10; 		# Egyszerre látni kivánt sorok száma	
$hbgcolor	  = "#93A7B9"; 	#fej háttérszíne
$bgcolor	  = "#F1F1CF";
$textcolor    = "#000080";

$alinkcolor   = "#0000FF";
$vlinkcolor   = "#99CCFF";
$linkcolor    = "#000080";

$tbgcolor	  = "#93A7B9";  #táblázat háttérszine
$theadbgcolor = "#93A7B9";  #táblázat fejlécének háttérszíne
$toddbgcolor  = "#FFFFEF";  #táblázat páratlan sorainak háttérszíne 
$tevenbgcolor = "#FFFFFF";  #táblázat páros sorainak háttérszíne 
$endrow = 0;

$datadir      = "../"; #txt Szöveges adatállományok helye
%vars = ();
$progname = "-=bStore=-";
$ceg = "Bouchal Kft.";
$fromemail = "bouchal\@\inext.hu";
$subject   = "Megrendeles ";	
$myemail = 	"mailto:vtamas\@\swi.hu";

@months =("január","február","március","április","május","június","július","augusztus","szeptember","október","november","december");
@gbasket = ();
#---------------------------------------------------------

require "bstorelib.pl";

if (&ReadParse)
{
	&GetVariables;	
	for $nev (sort keys %vars)
	{
		if ($vars{$nev} gt "")
		{	
			push(@gbasket,$nev."\t".$vars{$nev});		
		}	
	} 
	foreach $brow (@gbasket)
	{			
		@sorbont = split('\t', $brow);
		if ((@sorbont[0] eq "basket") && (@sorbont[1] eq "Feladás")) 
		{
		   &Order(@gbasket);		   	
		   exit;
		}
		if (@sorbont[0] =~ "order_") 
		{
		   &Check_order(@gbasket);
		   exit;					    			
		}
     }	    
	 &Content(@gbasket);	#Itt kerül vissza a kosár aktuális tartalma, valamint a paraméterlista	
    
}
else
{
	push(@gbasket,"process"."\t"."Segitség");			
	&Content(@gbasket);
}