diff options
Diffstat (limited to 'cgi')
-rwxr-xr-x | cgi/imagemap.cgi | 55 |
1 files changed, 0 insertions, 55 deletions
diff --git a/cgi/imagemap.cgi b/cgi/imagemap.cgi deleted file mode 100755 index 156836f..0000000 --- a/cgi/imagemap.cgi +++ /dev/null @@ -1,55 +0,0 @@ -#!/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; -} |