equal
deleted
inserted
replaced
36 padding-bottom: 1em; |
36 padding-bottom: 1em; |
37 } |
37 } |
38 EOC |
38 EOC |
39 |
39 |
40 my $q = new CGI; |
40 my $q = new CGI; |
|
41 my $title = 'Befristete WebDAV Zugänge einrichten'; |
41 |
42 |
42 print $q->header( -charset => 'UTF-8' ); |
43 print $q->header( -charset => 'UTF-8' ); |
43 print $q->start_html( |
44 print $q->start_html( |
44 -title => $0, |
45 -title => $title, |
45 -style => { -code => $css }, |
46 -style => { -code => $css }, |
46 -onload => q{document.forms['passwd'].elements['user'].focus();} |
47 -onload => q{document.forms['passwd'].elements['user'].focus();} |
47 ), |
48 ), |
48 $q->h3( { -id => 'header' }, 'Befristete WebDAV Zugänge einrichten' ), |
49 $q->h3( { -id => 'header' }, $title ), |
49 $q->hr; |
50 $q->hr; |
50 |
51 |
51 my $p; |
52 my $p; |
52 $p->{$_} = $q->param($_) for qw(user expiry add del); |
53 $p->{$_} = $q->param($_) for qw(user expiry add del); |
53 |
54 |