update static page after comment

[ott/bsta] / goto.1.pl

diff --git a/goto.1.pl b/goto.1.pl
index 4cf3f1b23a28587dc6eaa51f90b1986abc5c06b9..a126160bf2a82e5595144fe241008a047184924a 100644 (file)
--- a/goto.1.pl
+++ b/goto.1.pl
@@ -41,7 +41,8 @@ use bsta_lib (
        '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     = /
@@ -86,7 +87,7 @@ if ($ENV{'REQUEST_METHOD'} =~ /^(HEAD|GET|POST)$/) {
        $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);
@@ -115,7 +116,7 @@ $ong_state  = int($state{'state'});
 $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;
@@ -178,7 +179,7 @@ for ($frame = 0; ; $frame += 1) {
                        '%02d.%02d.%02d %02d:%02d',
                        $time_tab[3],
                        $time_tab[4]+1,
-                       $time_tab[5]-100,
+                       $time_tab[5]-100, # TODO: %100 ?
                        $time_tab[2],
                        $time_tab[1]
                );
@@ -201,7 +202,7 @@ for ($frame = 0; ; $frame += 1) {
                {'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);