#!/usr/bin/perl -w
use strict;
print "content-type: text/html\n\n";
my %qs;
# Sätt QUERY_STRING till "" om den inte redan har ett värde
$ENV{ QUERY_STRING } ||= "" ;
foreach my $pair ( split /&/, $ENV{ QUERY_STRING } )
{
my( $name, $value ) = split( /=/, $pair );
$qs{ $name } = $value;
}
print "Färgresultat\n";
print "Färgresultat
\n\n";
#Lägg märke till citationstecknen!!!
# Sätt farg och text till defaultvärden om de inte redan har ett värde
$qs{'farg'} ||= 'black';
$qs{'text'} ||= 'Men skriv nått då!';
$qs{'storlek'} ||= 5;
$qs{'position'} ||= 'left';
$qs{'kursiv'} ||= 0;
$qs{'fet'} ||= 0;
my $text = $qs{'text'};
$text = "$text" if $qs{'kursiv'};
$text = "$text" if $qs{'fet'};
$text = "$text";
$text = "$text
";
print( $text, "\n" );
print "\n";