--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/conf/.htaccess	Mon Jul 04 16:08:10 2011 +0200
@@ -0,0 +1,2 @@
+Order allow,deny
+Deny from all

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/conf/secret	Mon Jul 04 16:08:10 2011 +0200
@@ -0,0 +1,1 @@
+shiedeiz

--- a/index.cgi	Sun Jul 03 23:29:29 2011 +0200
+++ b/index.cgi	Mon Jul 04 16:08:10 2011 +0200
@@ -25,7 +25,8 @@
 $ENV{PATH} = "/usr/bin:/usr/sbin:/bin:/sbin";
 
 my $DSN = "DBI:SQLite:var/db.sqlite3";
-my $SECRET = slurp "./secret"; chomp($SECRET);
+my $SECRET = slurp "conf/secret"; chomp($SECRET);
+my $SELF = slurp "conf/self";     chomp($SELF);
 my $EXPIRATION = 60;		    # the link is valid for XX minutes only
 my $SUBJECT = "Retter packen";	    # ASCII only! *used for mail subject*
 my %FIELDS = (
@@ -79,7 +80,7 @@
 			 Sender => "hs\@schlittermann.de",
 			 Subject => "[$SUBJECT] Link zur Online-Anmeldung",
 			 Message => "Bitte benutze den folgenden Link, um zum Anmeldeformular zu gelangen:\n"
-			    . url(-query => 0) . "/$xxx.tmp\n"
+			    . "$SELF/$xxx.tmp\n"
 			    . "\n-- \nHeiko Schlittermann\n");
 		    
 		$sent = param("mail");
@@ -109,7 +110,7 @@
 	};
 	if ($@) {
 	    $tt->process("denied.tpl", {
-		url => url(-path => 0),
+		url => $SELF,
 	    }) or die $tt->error();
 	    exit 0;
 	}
@@ -176,19 +177,19 @@
 		     Subject => "[$SUBJECT] Bitte die Anmeldung bestaetigen.",
 		     Message => <<_EOF);
 
-Bitte bestätige Deine Anmeldung. Dazu mußt Du folgenden Link in Deinem
-Browser öffnen:
+Bitte bestaetige Deine Anmeldung. Dazu mußt Du folgenden Link in Deinem
+Browser oeffnen:
 
-@{[url(-path_info => 0, -query => 0)]}/$r{uuid}.user?confirm=yes
+$SELF/$r{uuid}.user?confirm=yes
 
 Wenn alles nur ein Irrtum war, dann kannst Du Deine Daten wieder
 AUSTRAGEN und wir vergessen Deine Anmeldung. Hier ist der Link zum
 AUSTRAGEN:
 
-@{[url(-path_info => 0, -query => 0)]}/$r{uuid}.user?confirm=no
+$SELF/$r{uuid}.user?confirm=no
 
 _EOF
-	    $tt->process("ack.tpl", {
+	    $tt->process("form.ack.tpl", {
 		value => \%value,
 		timestamp => $r{timestamp},
 		uuid => $r{uuid},
@@ -213,7 +214,7 @@
 sub insert(\%) {
     my %value = %{$_[0]};
     my $uuid = sha1_hex($SECRET . 
-	join "\0" => @value{@FIELDS{MAN}});
+	join "\0" => @value{@{$FIELDS{MAN}}});
 
     $DBH->begin_work;
 	my $sth;

--- a/templates/ack.tpl	Sun Jul 03 23:29:29 2011 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,35 +0,0 @@
-[%INCLUDE "head"%]
-[%USE date%]
-
-[%IF timestamp %]
-
-    Deine Daten stehen bereits in unserer Datenbank. Wir haben Dir den 
-    Link zur Bestätigung noch einmal an die hinterlegte
-    Mailadresse (<u>[%value.mail%]</u>) geschickt.
-
-    (Zeitstempel der Eintragung: [%date.format(timestamp, locale = "de_DE")%])
-
-[%ELSE%]
-
-    <p>
-    Vielen Dank für Deine Anmeldung, [%value.givenname%]. 
-    Folgende Daten haben wir jetzt gespeichert:
-
-    <table>
-    <tr><td>Vorname:</td><td>[%value.givenname%]</td></tr>
-    <tr><td>Name:</td>	 <td>[%value.surname%]</td></tr>
-    <tr><td>Mail:</td>	 <td>[%value.mail%]</td></tr>
-    [%IF value.tel %]
-    <tr><td>Telefon:</td><td>[%value.tel%]</td></tr>
-    [%END%]
-    </table>
-
-
-    <p>
-    Du erhälst jetzt per Mail an [%value.mail%] einen
-    Link, mit dem Du bitte die Anmeldung bestätigst. Bevor Du damit die
-    Anmeldung nicht bestätigst, wird sie nicht weiter bearbeitet.
-
-[%END%]
-
-[%INCLUDE "foot"%]

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/templates/form.ack.tpl	Mon Jul 04 16:08:10 2011 +0200
@@ -0,0 +1,34 @@
+[%INCLUDE "head"%]
+[%USE date%]
+
+[%IF timestamp %]
+
+    Deine Daten stehen bereits in unserer Datenbank. Wir haben Dir den 
+    Link zur Bestätigung noch einmal an die hinterlegte
+    Mailadresse (<u>[%value.mail%]</u>) geschickt.
+
+    (Zeitstempel der Eintragung: [%date.format(timestamp, locale = "de_DE")%])
+
+[%ELSE%]
+
+    <p>
+    Vielen Dank für Deine Anmeldung.
+    Du erhälst jetzt per Mail an [%value.mail%] einen
+    Link, mit dem Du bitte die Anmeldung bestätigst. Bevor Du damit die
+    Anmeldung nicht bestätigst, wird sie nicht weiter bearbeitet.
+
+    <p>
+    Folgende Daten haben wir jetzt gespeichert:
+
+    <table>
+    <tr><td>Vorname:</td><td>[%value.givenname%]</td></tr>
+    <tr><td>Name:</td>	 <td>[%value.surname%]</td></tr>
+    <tr><td>Mail:</td>	 <td>[%value.mail%]</td></tr>
+    [%IF value.tel %]
+    <tr><td>Telefon:</td><td>[%value.tel%]</td></tr>
+    [%END%]
+    </table>
+
+[%END%]
+
+[%INCLUDE "foot"%]