#!/usr/bin/perl -w

use strict;
use Image::Magick;
use CGI;

my $name = CGI::url_param('name');
my $day =  CGI::url_param('day');
my $month =  CGI::url_param('month');
my $year =  CGI::url_param('year');

my $txt1 = "$name vil uden";
my $txt2 = "forbehold gerne undskylde";
my $txt3 = "for sin opførsel på aftenen:";
my $date = "$day $month $year";
my $angle = int(rand(20) - 10);

my $img = new Image::Magick();
$img->Read('kort.png');

render($img,$txt1,100);
render($img,$txt2,140);
render($img,$txt3,180);

$img->Annotate(text => $date,
	       font => 'Arial',
	       weight => 800,
	       antialias => 'true',
	       align => 'center',
	       pointsize => 24,
	       fill => '#00008b',
	       rotate => $angle,
	       x => 300, y => 250);

print STDOUT "Content-type: image/png\n\n";
binmode STDOUT;
$img->Write('png:-');

sub render {
    my ($img,$txt,$off) = @_;
    $img->Annotate(text => $txt,
	       font => 'Times',
	       antialias => 'true',
	       align => 'center',
	       pointsize => 32,
	       fill => 'black',
	       x => 300, y => $off);
}