#!/usr/bin/perl
####################################
#         gnu-web-tarot            #
#         Michael Tracey           #
####################################
#
#  zoom.pl, gives card analysis
#

require "config.pl";
my($x,$line,@text);

my (%params);
my ($buffer)= $ENV{'QUERY_STRING'};
my (@pairs)= split(/&/, $buffer);
my ($name,$value);


foreach (@pairs){
        s/\+/ /g;
        ($name, $value) = split(/=/,$_);  
        ($name, $value) = split(/=/,$_);
        $name =~ s/%(..)/pack("c",hex($1))/ge;       
        $value =~ s/%(..)/pack("c",hex($1))/ge;
	$params{$name} = $value;
}



print "Content-Type: text/html\n\n";
print "<div align=center><font face=arial color=purple size=-1><h3>Print Your Reading</h3></font></div>";
	for ($x=1;$x <= 10; $x++){
		if ($params{"$x"}) {
			&print_card("$x");
		}
		else { &no_card("$x"); }
	}

sub print_card {
	my($x) = @_;
	print "<table width=540 border=0 align=center>\n";
	print "\t<tr>\n";
	open (GRABTEXT, "$data_path/t$params{$x}.txt") || die "Unable to open text file $data_path/t$params{$x}.txt, $!";
	@text = <GRABTEXT>;
	close GRABTEXT;
	print "\t<td valign=top width=100><font face=arial color=purple size=-1>\n";
	print "\t<img src=\"$img_url/c$params{$x}.gif\"><br>\n";
	print "\t<b>$x - ";
	print $meanings[($x-1)];
	print "</b>\n";
	print "\t</font></td>\n\t<td><font face=arial color=purple size=-1>";	
	$text[0] = "<b>$text[0]</b>"; # bold the first line
	foreach $line (@text){
		chomp $line;
		if ($line eq "") { $line = "<p>"; };
		print $line;
	}
	print "</font></td></tr>";
	print "<tr><td colspan=2><hr></td></tr></table>";
}

sub no_card {
    my($x) =@_; my($y);
    print "<table width=540 border=0 align=center>\n";
    print "\t<tr><td width=100><font face=arial color=purple size=-1>\n";
    print "\t<img src=\"$img_url/back.gif\"><br>\n";
    print "\t<b>$x -";
    print $meanings[($x -1)];
    print "</b>\n";
    print "\t</font></td>\n\t<td align=center><font face=arial color=black size=-1>";
    print "\t<form action=\"$script_url\" method=POST>";
    for ($y=1;$y <= 10; $y++){
       if ($params{"$y"}){
           print "\t<input type=hidden name=\"$y\" value=\"$params{$y}\">\n";
       }
    }
    print "No card chosen for this position<br>";
    print "<input type=\"submit\" name=\"Choose Card\" value=\"Choose Card\">";
    print "</form></td></tr>";
    print "<tr><td colspan=2><hr></font></td></tr></table>"; 

}