void sidebar()
{
std::cout << "<div class=\"sidebar\"> ";
std::cout << "<h2 id=\"first_header_sidebar\">" << __tr("sidebar_header_information") << "</h2>"
"<ul>"
"<li><a href=\"index.okz\">" << __tr("sidebar_index") << "</a></li>"
"<li><a href=\"list.okz\">" << __tr("sidebar_player_list") << "</a></li>"
"</ul>";
std::cout << "<h2>" << __tr("sidebar_header_account") << "</h2>"
"<ul>";
if (cgi_session_var_exists("login")) {
std::cout << "<li><a href=\"profil.okz\">" << __tr("sidebar_profil") << "</a></li>"
"<li><a href=\"army.okz\">" << __tr("sidebar_army") << "</a></li>"
"<li><a href=\"login.okz?c=0\">" << __tr("sidebar_logout") << "</a></li>";
} else {
std::cout << "<li><a href=\"register.okz\">" << __tr("sidebar_register") << "</a></li>"
"<li><a href=\"login.okz\">" << __tr("sidebar_login") << "</a></li>";
}
std::cout << "</ul>";
std::cout << "<h2>" << __tr("sidebar_header_game") << "</h2>"
"<ul>"
//"<li><a href=\"game.okz\">" << __tr("sidebar_game_info") << "</a></li>"
//"<li><a href=\"screenshot.okz\">" << __tr("sidebar_screenshot") << "</a></li>"
"<li><a href=\"download.okz\">" << __tr("sidebar_download") << "</a></li>"
"<li><a href=\"statistics.okz\">" << __tr("sidebar_statistics") << "</a></li>"
"</ul>";
//Empty header with specific id
std::cout << "<h2 id=\"last_header_sidebar\"></h2>";
std::cout << "</div>";
}
SCM scgi_session_var_exists (const SCM name)
{
/* todo: remove gh_scm2newstr when Guile 1.8 is released */
char *n;
int retval;
if (SCM_SYMBOLP(name))
{
n = gh_symbol2newstr (name, NULL);
}
else
{
n = gh_scm2newstr (name, NULL);
}
retval = cgi_session_var_exists (n);
free (n);
if (retval)
{
return SCM_BOOL_T;
}
else
{
return SCM_BOOL_F;
}
}
int main(void)
{
cgi_init();
cgi_session_start();
cgi_process_form();
// Is to destroy the session?
if (cgi_param("confirm") && !strcmp(cgi_param("confirm"), "yes")) {
cgi_session_destroy();
cgi_end();
cgi_redirect("session.cgi");
return 0;
}
cgi_init_headers();
puts(""
"<html>"
"<head><title>LibCGI session examples - Destroy session</title>"
"</head>"
"<body>"
"");
cgi_include("session_ex1_desc.html");
puts(""
"<table width='70%%' align='center'>"
"<tr>"
"<td>"
"");
if (!cgi_session_var_exists("logged")) {
puts("<font face='arial, verdana' size='2'>You are not logged yet</font>");
}
else {
puts(""
"<font face='arial, verdana' size='2'>If you are sure to unregister the session, "
"<a href='destroy.cgi?confirm=yes'>click here</a></font>"
"");
}
puts("</td></tr>");
cgi_include("topbar.htm");
puts(""
"</table>"
"</body>"
"</html>"
"");
cgi_end();
return 0;
}
int main(void)
{
cgi_init();
cgi_session_start();
cgi_init_headers();
puts("<html><body>");
cgi_include("session_ex1_desc.html");
puts(""
"<table width='70%%' align='center'>"
"<tr>"
"<td align='center'>"
"<font face='arial, verdana' size='4' color='orange'>Main page"
"");
// The user is logged?
if (cgi_session_var_exists("logged"))
puts(" - logged");
else
puts(" - not logged yet");
puts(""
"</font>"
"</td>"
"</tr>"
" "
"<tr>"
"<td><font face='arial, verdana' size='2' color='#0000ff'>"
"This is the main page of LibCGI session suport test. Please choose one of the options"
"in the navigation bar.</font>"
"</td>"
"</tr>"
"");
// include the navigation bar
cgi_include("topbar.htm");
puts(""
"</table>"
"</body>"
"</html>"
"");
cgi_end();
return 0;
}
