'print_html_start', 'print_html_end',
'print_html_head_start', 'print_html_head_end',
'print_html_body_start', 'print_html_body_end',
- 'write_index'
+ 'write_index',
+ 'merge_settings'
);
###PERL_PATH_SEPARATOR: PATH_SEPARATOR = /
$method = $1;
}
else{
- exit fail_method($ENV{'REQUEST_METHOD'}, 'GET, POST, HEAD');
+ exit fail_method($ENV{'REQUEST_METHOD'}, ['GET', 'POST', 'HEAD']);
}
%http = read_header_env(\%ENV);
$password_ok = ($password eq $settings{'password'});
$password_query = url_query_encode({'p', $settings{'password'}});
-print "Content-type: text/html\n";
+print "Content-type: text/html; charset=UTF-8\n";
print "\n";
if($method eq 'HEAD') {
exit;
{'path' => $frame}
);
if ($password_ok) {
- $viewer_url = merge_url($viewer_url, {'query' => $password_query, 'append_query' => 1});
+ $viewer_url = merge_url($viewer_url, {'query' => $password_query, 'append_query' => 1, 'preserve_fragment' => 1});
}
my $_viewer_url = html_entity_encode_dec($viewer_url, 1);