diff -r 17ddf9a1e376 -r 857a7dcea41c index.cgi
--- 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;