equal
deleted
inserted
replaced
23 |
23 |
24 delete @ENV{grep /PATH$/ => keys %ENV}; |
24 delete @ENV{grep /PATH$/ => keys %ENV}; |
25 $ENV{PATH} = "/usr/bin:/usr/sbin:/bin:/sbin"; |
25 $ENV{PATH} = "/usr/bin:/usr/sbin:/bin:/sbin"; |
26 |
26 |
27 my $DSN = "DBI:SQLite:var/db.sqlite3"; |
27 my $DSN = "DBI:SQLite:var/db.sqlite3"; |
28 my $SECRET = slurp "conf/secret"; chomp($SECRET); |
28 my $SECRET = slurp "conf/secret"; chomp($SECRET); |
29 my $SELF = slurp "conf/self"; chomp($SELF); |
29 my $SELF = slurp "conf/self"; chomp($SELF); |
|
30 my $SUBJECT = slurp "conf/subject"; chomp($SUBJECT); |
30 my $EXPIRATION = 60; # the link is valid for XX minutes only |
31 my $EXPIRATION = 60; # the link is valid for XX minutes only |
31 my $SUBJECT = "Retter packen"; # ASCII only! *used for mail subject* |
|
32 my %FIELDS = ( |
32 my %FIELDS = ( |
33 MAN => [qw[givenname surname mail]], |
33 MAN => [qw[givenname surname mail]], |
34 OPT => [qw[tel]] |
34 OPT => [qw[tel]] |
35 ); |
35 ); |
36 |
36 |
76 |
76 |
77 # send mail |
77 # send mail |
78 sendmail(To => scalar(param("mail")), |
78 sendmail(To => scalar(param("mail")), |
79 From => "hs+retter\@schlittermann.de", |
79 From => "hs+retter\@schlittermann.de", |
80 Sender => "hs\@schlittermann.de", |
80 Sender => "hs\@schlittermann.de", |
81 Subject => "[$SUBJECT] Link zur Online-Anmeldung", |
81 Subject => "$SUBJECT Link zur Online-Anmeldung", |
82 Message => "Bitte benutze den folgenden Link, um zum Anmeldeformular zu gelangen:\n" |
82 Message => "Bitte benutze den folgenden Link, um zum Anmeldeformular zu gelangen:\n" |
83 . "$SELF/$xxx.tmp\n" |
83 . "$SELF/$xxx.tmp\n" |
84 . "\n-- \nHeiko Schlittermann\n"); |
84 . "\n-- \nHeiko Schlittermann\n"); |
85 |
85 |
86 $sent = param("mail"); |
86 $sent = param("mail"); |
172 if (!%warn) { |
172 if (!%warn) { |
173 my %r = insert(%value); |
173 my %r = insert(%value); |
174 sendmail(To => $value{mail}, |
174 sendmail(To => $value{mail}, |
175 From => "hs\@schlittermann.de", |
175 From => "hs\@schlittermann.de", |
176 "Content-Type" => "text/plain; charset=\"UTF-8\"", |
176 "Content-Type" => "text/plain; charset=\"UTF-8\"", |
177 Subject => "[$SUBJECT] Bitte die Anmeldung bestaetigen.", |
177 Subject => "$SUBJECT Bitte die Anmeldung bestaetigen.", |
178 Message => <<_EOF); |
178 Message => <<_EOF); |
179 |
179 |
180 Bitte bestaetige Deine Anmeldung. Dazu mußt Du folgenden Link in Deinem |
180 Bitte bestaetige Deine Anmeldung. Dazu mußt Du folgenden Link in Deinem |
181 Browser oeffnen: |
181 Browser oeffnen: |
182 |
182 |
267 |
267 |
268 if ($confirmed) { |
268 if ($confirmed) { |
269 sendmail( |
269 sendmail( |
270 To => $data{mail}, |
270 To => $data{mail}, |
271 From => "hs+retter\@schlittermann.de", |
271 From => "hs+retter\@schlittermann.de", |
272 Subject => "[$SUBJECT] Bestaetigung der Anmeldung", |
272 Subject => "$SUBJECT Bestaetigung der Anmeldung", |
273 Message => <<_EOF); |
273 Message => <<_EOF); |
274 Du bist erfolgreich angemeldet. Für weitere Fragen kontaktiere bitte |
274 Du bist erfolgreich angemeldet. Fuer weitere Fragen kontaktiere bitte |
275 hs+retter\@schlittermann.de. |
275 hs+retter\@schlittermann.de. |
276 _EOF |
276 _EOF |
277 } |
277 } |
278 else { |
278 else { |
279 sendmail( |
279 sendmail( |
280 To => $data{mail}, |
280 To => $data{mail}, |
281 From => "hs+retter\@schlittermann.de", |
281 From => "hs+retter\@schlittermann.de", |
282 Subject => "[$SUBJECT] Bestaetigung der NICHT-Anmeldung", |
282 Subject => "$SUBJECT Bestaetigung der NICHT-Anmeldung", |
283 Message => <<_EOF); |
283 Message => <<_EOF); |
284 Wir vergessen Deine Anmeldung. Fuer weitere Fragen kontaktiere bitte |
284 Wir vergessen Deine Anmeldung. Fuer weitere Fragen kontaktiere bitte |
285 hs+retter\@schlittermann.de. |
285 hs+retter\@schlittermann.de. |
286 _EOF |
286 _EOF |
287 } |
287 } |
290 } |
290 } |
291 |
291 |
292 sub slurp($) { |
292 sub slurp($) { |
293 open(my $_, $_[0]) or die "Can't open $_[0]: $!\n"; |
293 open(my $_, $_[0]) or die "Can't open $_[0]: $!\n"; |
294 local $/ = undef; |
294 local $/ = undef; |
|
295 s/^#.*//mg; |
295 return <$_>; |
296 return <$_>; |
296 } |
297 } |