equal
deleted
inserted
replaced
17 # |
17 # |
18 # Matthias Förste <foerste@schlittermann.de> |
18 # Matthias Förste <foerste@schlittermann.de> |
19 |
19 |
20 use warnings; |
20 use warnings; |
21 |
21 |
22 use CGI::Fast; |
22 # Using CGI::Fast will result in an Internal Server Error because we are |
|
23 # restarting apache when everything else works |
|
24 # use CGI::Fast; |
|
25 use CGI; |
23 use Ius::Dav::Htpasswd qw(mkpasswd readconfig useradd); |
26 use Ius::Dav::Htpasswd qw(mkpasswd readconfig useradd); |
24 |
27 |
25 while (my $q = new CGI::Fast) { |
28 my $q = new CGI; |
26 |
29 |
27 print $q->header(-charset => 'UTF-8'); |
30 print $q->header(-charset => 'UTF-8'); |
28 print $q->start_html( |
31 print $q->start_html( |
29 -title => $0, |
32 -title => $0, |
30 -bgcolor => "white", |
33 -bgcolor => "white", |
58 } |
61 } |
59 |
62 |
60 } |
63 } |
61 |
64 |
62 print $q->end_html; |
65 print $q->end_html; |
63 |
|
64 } |
|