equal
deleted
inserted
replaced
22 |
22 |
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:db.sqlite3"; |
27 my $DSN = "DBI:SQLite:var/db.sqlite3"; |
28 my $SECRET = slurp "./secret"; chomp($SECRET); |
28 my $SECRET = slurp "./secret"; chomp($SECRET); |
29 my $EXPIRATION = 60; # the link is valid for XX minutes only |
29 my $EXPIRATION = 60; # the link is valid for XX minutes only |
30 my $SUBJECT = "Retter packen"; # ASCII only! *used for mail subject* |
30 my $SUBJECT = "Retter packen"; # ASCII only! *used for mail subject* |
31 my %FIELDS = ( |
31 my %FIELDS = ( |
32 MAN => [qw[givenname surname mail]], |
32 MAN => [qw[givenname surname mail]], |