-print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "">'."\n";
-print '<html lang="en"><head>'."\n";
-print '<title>Coincidence • '.WEBSITE_NAME.'</title>'."\n";
-print '<meta http-equiv="Content-type" content="text/html; charset=UTF-8">'."\n";
-print '<link rel="icon" type="image/png" href="'.FAVICON_PATH.'">'."\n";
-print '<link rel="stylesheet" href="'.CGI_CSS_PATH.'">'."\n";
-print '</head><body>'."\n";
-print '<a href="/"><img id="botmlogo" src="'.CGI_LOGO_PATH.'" alt="'.WEBSITE.'"></a>'."\n";
-print '<div id="all">'."\n";
-
-print '<div id="inst" class="ins">'."\n";
-
-print '<div id="title">'."\n";
-print '<H1 id="titletext">Coincidence</H1>'."\n";
-print '</div>'."\n";
-
-print '<div id="storypuzzle">'."\n";
+if ($username eq '') {
+ $username = $coin{'name'};
+}
+
+my $base_url = CGI_PATH();
+my $coin_url = CGI_COIN_PATH();
+my $form_url = $coin_url;
+my $oldest_url = merge_url(
+ {'path' => $coin_url},
+ {'path' => 0}
+);
+my $older_url = merge_url(
+ {'path' => $coin_url},
+ {'path' => $chat_id -1}
+);
+my $newer_url = ($chat_id < ($last_id -1)) ?
+ merge_url(
+ {'path' => $coin_url},
+ {'path' => $chat_id +1}
+ ) : $coin_url;
+
+if ($password_ok) {
+ my $password_query = url_query_encode({'p', $settings{'password'}});
+ $coin_url = merge_url($coin_url , {'query' => $password_query, 'append_query' => 1});
+ $oldest_url = merge_url($oldest_url, {'query' => $password_query, 'append_query' => 1});
+ $older_url = merge_url($older_url , {'query' => $password_query, 'append_query' => 1});
+ $newer_url = merge_url($newer_url , {'query' => $password_query, 'append_query' => 1});
+}
+
+my $abbr = abbr_name($username);
+my $_website_name = html_entity_encode_dec(WEBSITE_NAME() , 1);
+my $_server = html_entity_encode_dec($coin {'server'} , 1);
+my $_key = html_entity_encode_dec($coin {'key'} , 1);
+my $_password = html_entity_encode_dec($settings{'password'}, 1);
+my $_cgi_username = html_entity_encode_dec($cgi {'username'}, 1);
+my $_username = html_entity_encode_dec($username , 1);
+my $_abbr = html_entity_encode_dec($abbr , 1);
+my $_message = html_entity_encode_dec($message , 1);
+my $_base_url = html_entity_encode_dec($base_url , 1);
+my $_coin_url = html_entity_encode_dec($coin_url , 1);
+my $_form_url = html_entity_encode_dec($form_url , 1);
+my $_oldest_url = html_entity_encode_dec($oldest_url, 1);
+my $_older_url = html_entity_encode_dec($older_url , 1);
+my $_newer_url = html_entity_encode_dec($newer_url , 1);
+
+print_html_start(\*STDOUT);
+print_html_head_start(\*STDOUT);
+
+print ' <title>Coincidence • '.$_website_name.'</title>'."\n";
+
+print_html_head_end(\*STDOUT);
+print_html_body_start(\*STDOUT);
+
+print ' <div id="inst" class="ins">'."\n";
+
+print ' <div id="title">'."\n";
+print ' <H1 id="titletext">Coincidence</H1>'."\n";
+print ' </div>'."\n";
+
+print ' <div id="storypuzzle">'."\n";