#!/usr/bin/perl
####################################
# gnu-web-tarot #
# Michael Tracey #
####################################
##
# OK, let's load some modules here.
# IF your system doesn't have these,
# something is Very wrong.
##
use CGI qw(:standard);
require "config.pl";
&get_form_data;
##
# Global Variables anyone?
##
my ($base_url) = 'https://www.sacredsax.com/cgi-bin/tarot';
my ($script_url) = $base_url .'/index.cgi';
my ($zoom_url) = $base_url .'/zoom.pl';
my ($print_url) = $base_url .'/print.pl';
my ($base_path) = '/sacredsax.com/cgi-bin/tarot';
my ($img_url) = "https://sacredsax.com/tarot" . '/tdeck-small';
my ($side_url) = "https://sacredsax.com/tarot" . '/tdeck-small-side';
my ($data_path) = "/home/f14i8aslhgk2/public_html/sacredsax.com/cgi-bin/tarot" . '/cards';
my ($sitename) = "Free Online Celtic Tarot Reading";
my ($bgcolor) = "#000000";
my ($bgimage) = ""; # Leave blank for none.
my (@meanings) = ('Question / Situation','Obstacles','Recent Past','Distant Past','Goal','Near Future','You','Influences','Hopes/Fears','Outcome');
##
# OK, lets figure out what they are asking for
##
my ($current_card);
my (%placements);
srand();
&process;
exit;
sub header {
my ($title) = @_;
print "Content-type: text/html\n\n";
print "
$sitename - $title";
print "";
}
sub footer {
print "";
print "";
}
sub process {
my ($x);
&header("$sitename - Continuing");
print qq~
~;
my($key);
my($card_number);
my($chosen_card);
my($temp_card);
print qq~
~;
for $key (keys %params){
if ($key =~ m/[0-9]\.x/g) { ($chosen_card) = split(/\./, $key); }
#print "Card: $chosen_card \n"; #Debug Printing
}
print "