equal
deleted
inserted
replaced
18 # Eventuell in der Apache-Config sowas wie |
18 # Eventuell in der Apache-Config sowas wie |
19 # ScriptAlias /ud /home/ud/XXX/upload.pl |
19 # ScriptAlias /ud /home/ud/XXX/upload.pl |
20 # Alias /d /home/ud/XXX/d/ |
20 # Alias /d /home/ud/XXX/d/ |
21 # gesetzt werden. |
21 # gesetzt werden. |
22 |
22 |
|
23 # silence 'WARNING: HOME is not set, using root: /' from BaseDir.pm which is used by File::MimeInfo |
|
24 BEGIN { $ENV{HOME} //= '.'; } |
|
25 |
23 use 5.014; |
26 use 5.014; |
24 use strict; |
27 use strict; |
25 use warnings; |
28 use warnings; |
26 use CGI qw(:all *table); |
29 use CGI qw(:all *table); |
27 use CGI::Carp qw(fatalsToBrowser); |
30 use CGI::Carp qw(fatalsToBrowser); |