#!/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 "
\n";
print "\t \n"; print "\t$x - "; print $meanings[($x-1)]; print "\n"; print "\t | \n\t";
$text[0] = "$text[0]"; # bold the first line
foreach $line (@text){
chomp $line;
if ($line eq "") { $line = " "; }; print $line; } print " |
\n";
print "\t \n"; print "\t$x -"; print $meanings[($x -1)]; print "\n"; print "\t | \n\t"; print "\t |