From 5d4652e6bc0009b32bfe1b1a4fc9b7431cd8fe88 Mon Sep 17 00:00:00 2001
From: Jonas Kohl <git@jonaskohl.de>
Date: Wed, 4 Sep 2024 20:10:41 +0200
Subject: Initial commit

---
 cgi/.htaccess    |  2 ++
 cgi/imagemap.cgi | 55 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 cgi/printenv.pl  | 14 ++++++++++++++
 3 files changed, 71 insertions(+)
 create mode 100644 cgi/.htaccess
 create mode 100755 cgi/imagemap.cgi
 create mode 100755 cgi/printenv.pl

(limited to 'cgi')

diff --git a/cgi/.htaccess b/cgi/.htaccess
new file mode 100644
index 0000000..2597ddc
--- /dev/null
+++ b/cgi/.htaccess
@@ -0,0 +1,2 @@
+Options +ExecCGI
+AddHandler cgi-script .cgi .pl
diff --git a/cgi/imagemap.cgi b/cgi/imagemap.cgi
new file mode 100755
index 0000000..156836f
--- /dev/null
+++ b/cgi/imagemap.cgi
@@ -0,0 +1,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&ouml;sung",
+        link => "pages/loesung.html"
+    },
+    {
+        label => "&Uuml;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;
+}
diff --git a/cgi/printenv.pl b/cgi/printenv.pl
new file mode 100755
index 0000000..9686c88
--- /dev/null
+++ b/cgi/printenv.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+print "Status: 403\r\n";
+print "Content-Type: text/plain\r\n\r\n";
+
+# foreach my $var (sort(keys(%ENV))) {
+#     my $val = $ENV{$var};
+#     $val =~ s|\n|\\n|g;
+#     $val =~ s|"|\\"|g;
+#     print "${var}=\"${val}\"\n";
+# }
-- 
cgit v1.2.3