1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
#!/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;
}
|