summaryrefslogtreecommitdiff
path: root/cgi
diff options
context:
space:
mode:
Diffstat (limited to 'cgi')
-rwxr-xr-xcgi/imagemap.cgi55
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;
-}