#!/usr/bin/perl

$x_start = 7;
$y_start = 6;
$y_space = 6;
$width = 106;
$height = 34;

@images = (
    {
        label => "Startseite",
        link => "pages/start.html"
    },
    {
        label => "Trivia",
        link => "pages/trivia.html"
    },
    {
        label => "Exklusiv",
        link => "pages/exklusiv.html"
    },
    {
        label => "Dekomp",
        link => "pages/dekomp.html"
    },
    {
        label => "Lösung",
        link => "pages/loesung.html"
    },
    {
        label => "Über",
        link => "pages/about.html"
    }
);

print "content-type: text/plain\n\n";

foreach $im (@images) {
    print '<area shape="rect" target="main" coords="';
    print $x_start;
    print ',';
    print $y_start;
    print ',';
    print $x_start + $width;
    print ',';
    print $y_start + $height;
    print '" href="';
    print $im->{link};
    print '" alt="';
    print $im->{label};
    print '">';
    print "\n";

    $y_start += $height + $y_space;
}