void cgibin_reg_general(WEBBLK *webblk)
{
int i;
REGS *regs;
regs = sysblk.regs[sysblk.pcpu];
if (!regs) regs = &sysblk.dummyregs;
html_header(webblk);
hprintf(webblk->sock, "<H2>General Registers</H2>\n");
hprintf(webblk->sock, "<PRE>\n");
if(regs->arch_mode != ARCH_900)
for (i = 0; i < 16; i++)
hprintf(webblk->sock, "GR%2.2d=%8.8X%s", i, regs->GR_L(i),
((i & 0x03) == 0x03) ? "\n" : "\t");
else
for (i = 0; i < 16; i++)
hprintf(webblk->sock, "GR%1.1X=%16.16" I64_FMT "X%s", i,
(U64)regs->GR_G(i), ((i & 0x03) == 0x03) ? "\n" : " ");
hprintf(webblk->sock, "</PRE>\n");
html_footer(webblk);
}
void createIndex(STS sts, char *outpath)
{
char *filename = new char[strlen(outpath)+12];
sprintf(filename, "%s/index.html", outpath);
HTML html = html_create(filename);
if (html == NULL) {
log("createIndex", "Khong the tao file 'index.html' duoc!");
return;
}
html_header(html, "HCMUS Students");
html_body_navigation(html);
html_body_content(html, 1);
html_body_content_header(html, "", "", 1);
html_idxlist_begin(html);
for (int i = 0; sts[i] != NULL; i++) {
char year[5];
itoa(sts[i]->Nam, year, 10);
html_idxlist_element(html, sts[i]->MSSV, sts[i]->HoTen, year);
}
html_idxlist_end(html);
html_footer(html, "HungryBirds");
html_close(html);
delete filename;
}
int main_html_player_list(int argc, char **argv)
{
const struct order *order;
unsigned pnum, offset;
struct player p;
struct sqlite3_stmt *res;
unsigned nrow;
char query[512], *queryfmt =
"SELECT" ALL_PLAYER_COLUMNS
" FROM players"
" WHERE" IS_PLAYER_RANKED
" ORDER BY %s"
" LIMIT 100 OFFSET %u";
if (argc != 3) {
fprintf(stderr, "usage: %s <page_number> by-rank|by-lastseen\n", argv[0]);
return EXIT_FAILURE;
}
if (!parse_pnum(argv[1], &pnum))
return EXIT_FAILURE;
if (strcmp(argv[2], "by-rank") == 0) {
order = &BY_RANK;
} else if (strcmp(argv[2], "by-lastseen") == 0) {
order = &BY_LASTSEEN;
} else {
fprintf(stderr, "%s: Should be either \"by-rank\" or \"by-lastseen\"\n", argv[2]);
return EXIT_FAILURE;
}
html_header(&CTF_TAB, "CTF", "/players", NULL);
print_section_tabs(PLAYERS_TAB, NULL, NULL);
if (order == &BY_RANK)
html_start_player_list(1, 0, pnum);
else
html_start_player_list(0, 1, pnum);
offset = (pnum - 1) * 100;
snprintf(query, sizeof(query), queryfmt, order->sortby, offset);
foreach_player(query, &p)
html_player_list_entry(&p, NULL, 0);
if (!res)
return EXIT_FAILURE;
if (!nrow && pnum > 1)
return EXIT_NOT_FOUND;
html_end_player_list();
print_page_nav(order->urlprefix, pnum, count_ranked_players() / 100 + 1);
html_footer("player-list", relurl("/players/%s.json?p=%u", argv[2], pnum));
return EXIT_SUCCESS;
}
void cgibin_debug_storage(WEBBLK *webblk)
{
int i, j;
char *value;
U32 addr = 0;
/* INCOMPLETE
* no storage alter
* no storage type (abs/real/prim virt/sec virt/access reg virt)
* no cpu selection for storage other then abs
*/
if((value = cgi_variable(webblk,"alter_a0")))
sscanf(value,"%x",&addr);
addr &= ~0x0F;
html_header(webblk);
hprintf(webblk->sock,"<form method=post>\n"
"<table>\n");
if(addr > sysblk.mainsize || (addr + 128) > sysblk.mainsize)
addr = sysblk.mainsize - 128;
for(i = 0; i < 128;)
{
if(i == 0)
hprintf(webblk->sock,"<tr>\n"
"<td><input type=text name=alter_a0 size=8 value=%8.8X>"
"<input type=hidden name=alter_a1 value=%8.8X></td>\n"
"<td><input type=submit name=refresh value=\"Refresh\"></td>\n",
i + addr, i + addr);
else
hprintf(webblk->sock,"<tr>\n"
"<td align=center>%8.8X</td>\n"
"<td></td>\n",
i + addr);
for(j = 0; j < 4; i += 4, j++)
{
U32 m;
FETCH_FW(m,sysblk.mainstor + i + addr);
hprintf(webblk->sock,"<td><input type=text name=alter_m%d size=8 value=%8.8X></td>\n",i,m);
}
hprintf(webblk->sock,"</tr>\n");
}
hprintf(webblk->sock,"</table>\n"
"</form>\n");
html_footer(webblk);
}
int user_result (HTTP_INFO *info, int result)
{
html_header (info);
html_body (info, "Result");
if (result == 0)
{
printf ("Successful<BR>\n");
}
else
printf ("Fail<BR>\n");
printf ("<A HREF=\"javaScript:history.back();\">Back</A>\n");
html_footer (info);
return 0;
}
int main_html_clan_list(int argc, char **argv)
{
unsigned pnum, offset, nrow;
sqlite3_stmt *res;
struct clan clan;
const char *query =
"SELECT" ALL_CLAN_COLUMNS
" FROM players"
" WHERE" IS_VALID_CLAN
" GROUP BY clan"
" ORDER BY nmembers DESC, clan"
" LIMIT 100 OFFSET ?";
if (argc != 3) {
fprintf(stderr, "usage: %s <page_number> by-nmembers\n", argv[0]);
return EXIT_FAILURE;
}
if (!parse_pnum(argv[1], &pnum))
return EXIT_FAILURE;
if (strcmp(argv[2], "by-nmembers") != 0) {
fprintf(stderr, "%s: Should be \"by-nmembers\"\n", argv[1]);
return EXIT_FAILURE;
}
html_header(&CTF_TAB, "CTF", "/clans", NULL);
print_section_tabs(CLANS_TAB, NULL, NULL);
html_start_clan_list();
offset = (pnum - 1) * 100;
foreach_clan(query, &clan, "u", offset)
html_clan_list_entry(++offset, clan.name, clan.nmembers);
if (!res)
return EXIT_FAILURE;
if (!nrow && pnum > 1)
return EXIT_NOT_FOUND;
html_end_clan_list();
print_page_nav("/clans", pnum, count_clans() / 100 + 1);
html_footer("clan-list", relurl("/clans/%s.json?p=%u", argv[2], pnum));
return EXIT_SUCCESS;
}
int page_about_main(int argc, char **argv)
{
html_header(&ABOUT_TAB, "About", NULL);
html("<h1>About</h1>");
html("<p>Teerank is an <em>unofficial</em> ranking system for <a href=\"https://www.teeworlds.com/\">Teeworlds</a>. It aims to be simple and fast to use. You can find the <a href=\"https://github.com/needs/teerank\">source code on github</a>. Teerank is a free software under <a href=\"http://www.gnu.org/licenses/gpl-3.0.txt\">GNU GPL 3.0</a>.</p>");
html("<p>Report any bugs or ideas on <a href=\"https://github.com/needs/teerank/issues\">github issue tracker</a> or send them by e-mail at <a href=\"mailto:[email protected]\">[email protected]</a>.</p>");
html("");
html("<h1>Under the hood</h1>");
html("<p>Teerank works by polling CTF servers every 5 minutes. Based on the score difference between two polls, it compute your score using a custom <a href=\"https://en.wikipedia.org/wiki/Elo_rating_system\">ELO rating system</a>.</p>");
html("<p>The system as it is cannot know the team you are playing on, it also do not handle any sort of player authentification, thus faking is easy. That's why Teerank should not be taken too seriously, because it is built on a very naïve aproach.</p>");
html_footer();
return EXIT_SUCCESS;
}
int main(int argc, char **argv)
{
struct list list = LIST_ZERO;
size_t length;
load_config();
if (argc != 2) {
fprintf(stderr, "usage: %s <query>\n", argv[0]);
return EXIT_FAILURE;
}
/* No need to search when the query is too long or empty */
length = strlen(argv[1]);
if (length > 0 && length < NAME_LENGTH)
search(argv[1], &list);
CUSTOM_TAB.name = "Search results";
CUSTOM_TAB.href = "";
html_header(&CUSTOM_TAB, "Search results", argv[1]);
if (list.length == 0) {
printf("No players found");
} else {
struct result *result;
printf("<table><thead><tr><th></th><th>Name</th><th>Clan</th><th>Score</th></tr></thead><tbody>\n");
for (result = list.first; result; result = result->next) {
if (!result->is_loaded)
read_player(&result->player, result->name);
html_print_player(&result->player, 1);
}
printf("</tbody></table>\n");
}
html_footer();
return EXIT_SUCCESS;
}
void createSVS(STS sts, char *outpath)
{
char *filename;
HTML html;
for (int i = 0; sts[i] != NULL; i++)
{
filename = new char[strlen(outpath)+14];
sprintf(filename, "%s/%s.html", outpath, sts[i]->MSSV);
html = html_create(filename);
if (html == NULL) {
printf("%s -> Khong the tao file '%s.html' duoc!\n", "createSV", sts[i]->MSSV);
continue;
}
createSVPage(html, sts, i);
html_footer(html, "HungryBirds");
html_close(html);
delete filename;
}
}
void cgibin_ipl(WEBBLK *webblk)
{
int i;
char *value;
DEVBLK *dev;
U16 ipldev;
int iplcpu;
U32 doipl;
html_header(webblk);
hprintf(webblk->sock,"<h1>Perform Initial Program Load</h1>\n");
if(cgi_variable(webblk,"doipl"))
doipl = 1;
else
doipl = 0;
if((value = cgi_variable(webblk,"device")))
sscanf(value,"%hx",&ipldev);
else
ipldev = sysblk.ipldev;
if((value = cgi_variable(webblk,"cpu")))
sscanf(value,"%x",&iplcpu);
else
iplcpu = sysblk.iplcpu;
if((value = cgi_variable(webblk,"loadparm")))
set_loadparm(value);
/* Validate CPU number */
if(iplcpu >= MAX_CPU)
doipl = 0;
if(!doipl)
{
/* Present IPL parameters */
hprintf(webblk->sock,"<form method=post>\n"
"<select type=submit name=cpu>\n");
for(i = 0; i < MAX_CPU; i++)
if(IS_CPU_ONLINE(i))
hprintf(webblk->sock,"<option value=%4.4X%s>CPU%4.4X</option>\n",
i, ((sysblk.regs[i]->cpuad == iplcpu) ? " selected" : ""), i);
hprintf(webblk->sock,"</select>\n"
"<select type=submit name=device>\n");
for(dev = sysblk.firstdev; dev; dev = dev->nextdev)
if(dev->pmcw.flag5 & PMCW5_V)
hprintf(webblk->sock,"<option value=%4.4X%s>DEV%4.4X</option>\n",
dev->devnum, ((dev->devnum == ipldev) ? " selected" : ""), dev->devnum);
hprintf(webblk->sock,"</select>\n");
hprintf(webblk->sock,"Loadparm:<input type=text name=loadparm size=8 value=\"%s\">\n", str_loadparm());
hprintf(webblk->sock,"<input type=submit name=doipl value=\"IPL\">\n"
"</form>\n");
}
else
{
OBTAIN_INTLOCK(NULL);
/* Perform IPL function */
if( load_ipl(0, ipldev, iplcpu,0) )
{
hprintf(webblk->sock,"<h3>IPL failed, see the "
"<a href=\"syslog#bottom\">system log</a> "
"for details</h3>\n");
}
else
{
hprintf(webblk->sock,"<h3>IPL completed</h3>\n");
}
RELEASE_INTLOCK(NULL);
}
html_footer(webblk);
}
void cgibin_debug_registers(WEBBLK *webblk)
{
int i, cpu = 0;
int select_gr, select_cr, select_ar;
char *value;
REGS *regs;
if((value = cgi_variable(webblk,"cpu")))
cpu = atoi(value);
if((value = cgi_variable(webblk,"select_gr")) && *value == 'S')
select_gr = 1;
else
select_gr = 0;
if((value = cgi_variable(webblk,"select_cr")) && *value == 'S')
select_cr = 1;
else
select_cr = 0;
if((value = cgi_variable(webblk,"select_ar")) && *value == 'S')
select_ar = 1;
else
select_ar = 0;
/* Validate cpu number */
if (cpu < 0 || cpu >= MAX_CPU || !IS_CPU_ONLINE(cpu))
for (cpu = 0; cpu < MAX_CPU; cpu++)
if(IS_CPU_ONLINE(cpu))
break;
if(cpu < MAX_CPU)
regs = sysblk.regs[cpu];
else
regs = sysblk.regs[sysblk.pcpu];
if (!regs) regs = &sysblk.dummyregs;
if((value = cgi_variable(webblk,"alter_gr")) && *value == 'A')
{
for(i = 0; i < 16; i++)
{
char regname[16];
sprintf(regname,"alter_gr%d",i);
if((value = cgi_variable(webblk,regname)))
{
if(regs->arch_mode != ARCH_900)
sscanf(value,"%"I32_FMT"x",&(regs->GR_L(i)));
else
sscanf(value,"%"I64_FMT"x",&(regs->GR_G(i)));
}
}
}
if((value = cgi_variable(webblk,"alter_cr")) && *value == 'A')
{
for(i = 0; i < 16; i++)
{
char regname[16];
sprintf(regname,"alter_cr%d",i);
if((value = cgi_variable(webblk,regname)))
{
if(regs->arch_mode != ARCH_900)
sscanf(value,"%"I32_FMT"x",&(regs->CR_L(i)));
else
sscanf(value,"%"I64_FMT"x",&(regs->CR_G(i)));
}
}
}
if((value = cgi_variable(webblk,"alter_ar")) && *value == 'A')
{
for(i = 0; i < 16; i++)
{
char regname[16];
sprintf(regname,"alter_ar%d",i);
if((value = cgi_variable(webblk,regname)))
sscanf(value,"%x",&(regs->AR(i)));
}
}
html_header(webblk);
hprintf(webblk->sock,"<form method=post>\n"
"<select type=submit name=cpu>\n");
for(i = 0; i < MAX_CPU; i++)
if(IS_CPU_ONLINE(i))
hprintf(webblk->sock,"<option value=%d%s>CPU%4.4X</option>\n",
i,i==cpu?" selected":"",i);
hprintf(webblk->sock,"</select>\n"
"<input type=submit name=selcpu value=\"Select\">\n"
"<input type=hidden name=cpu value=%d>\n"
"<input type=hidden name=select_gr value=%c>\n"
"<input type=hidden name=select_cr value=%c>\n"
"<input type=hidden name=select_ar value=%c>\n",
cpu, select_gr?'S':'H',select_cr?'S':'H',select_ar?'S':'H');
hprintf(webblk->sock,"Mode: %s\n",get_arch_mode_string(regs));
hprintf(webblk->sock,"</form>\n");
if(!select_gr)
{
hprintf(webblk->sock,"<form method=post>\n"
"<input type=submit name=select_gr "
"value=\"Select General Registers\">\n"
"<input type=hidden name=cpu value=%d>\n"
"<input type=hidden name=select_cr value=%c>\n"
"<input type=hidden name=select_ar value=%c>\n"
"</form>\n",cpu,select_cr?'S':'H',select_ar?'S':'H');
}
else
{
hprintf(webblk->sock,"<form method=post>\n"
"<input type=submit name=select_gr "
"value=\"Hide General Registers\">\n"
"<input type=hidden name=cpu value=%d>\n"
"<input type=hidden name=select_cr value=%c>\n"
"<input type=hidden name=select_ar value=%c>\n"
"</form>\n",cpu,select_cr?'S':'H',select_ar?'S':'H');
hprintf(webblk->sock,"<form method=post>\n"
"<table>\n");
for(i = 0; i < 16; i++)
{
if(regs->arch_mode != ARCH_900)
hprintf(webblk->sock,"%s<td>GR%d</td><td><input type=text name=alter_gr%d size=8 "
"value=%8.8X></td>\n%s",
(i&3)==0?"<tr>\n":"",i,i,regs->GR_L(i),((i&3)==3)?"</tr>\n":"");
else
hprintf(webblk->sock,"%s<td>GR%d</td><td><input type=text name=alter_gr%d size=16 "
"value=%16.16" I64_FMT "X></td>\n%s",
(i&3)==0?"<tr>\n":"",i,i,(U64)regs->GR_G(i),((i&3)==3)?"</tr>\n":"");
}
hprintf(webblk->sock,"</table>\n"
"<input type=submit name=refresh value=\"Refresh\">\n"
"<input type=submit name=alter_gr value=\"Alter\">\n"
"<input type=hidden name=cpu value=%d>\n"
"<input type=hidden name=select_gr value=S>\n"
"<input type=hidden name=select_cr value=%c>\n"
"<input type=hidden name=select_ar value=%c>\n"
"</form>\n",cpu,select_cr?'S':'H',select_ar?'S':'H');
}
if(!select_cr)
{
hprintf(webblk->sock,"<form method=post>\n"
"<input type=submit name=select_cr "
"value=\"Select Control Registers\">\n"
"<input type=hidden name=cpu value=%d>\n"
"<input type=hidden name=select_gr value=%c>\n"
"<input type=hidden name=select_ar value=%c>\n"
"</form>\n",cpu,select_gr?'S':'H',select_ar?'S':'H');
}
else
{
hprintf(webblk->sock,"<form method=post>\n"
"<input type=submit name=select_cr "
"value=\"Hide Control Registers\">\n"
"<input type=hidden name=cpu value=%d>\n"
"<input type=hidden name=select_gr value=%c>\n"
"<input type=hidden name=select_ar value=%c>\n"
"</form>\n",cpu,select_gr?'S':'H',select_ar?'S':'H');
hprintf(webblk->sock,"<form method=post>\n"
"<table>\n");
for(i = 0; i < 16; i++)
{
if(regs->arch_mode != ARCH_900)
hprintf(webblk->sock,"%s<td>CR%d</td><td><input type=text name=alter_cr%d size=8 "
"value=%8.8X></td>\n%s",
(i&3)==0?"<tr>\n":"",i,i,regs->CR_L(i),((i&3)==3)?"</tr>\n":"");
else
hprintf(webblk->sock,"%s<td>CR%d</td><td><input type=text name=alter_cr%d size=16 "
"value=%16.16" I64_FMT "X></td>\n%s",
(i&3)==0?"<tr>\n":"",i,i,(U64)regs->CR_G(i),((i&3)==3)?"</tr>\n":"");
}
hprintf(webblk->sock,"</table>\n"
"<input type=submit name=refresh value=\"Refresh\">\n"
"<input type=submit name=alter_cr value=\"Alter\">\n"
"<input type=hidden name=cpu value=%d>\n"
"<input type=hidden name=select_cr value=S>\n"
"<input type=hidden name=select_gr value=%c>\n"
"<input type=hidden name=select_ar value=%c>\n"
"</form>\n",cpu,select_gr?'S':'H',select_ar?'S':'H');
}
if(regs->arch_mode != ARCH_370)
{
if(!select_ar)
{
hprintf(webblk->sock,"<form method=post>\n"
"<input type=submit name=select_ar "
"value=\"Select Access Registers\">\n"
"<input type=hidden name=cpu value=%d>\n"
"<input type=hidden name=select_gr value=%c>\n"
"<input type=hidden name=select_cr value=%c>\n"
"</form>\n",cpu,select_gr?'S':'H',select_cr?'S':'H');
}
else
{
hprintf(webblk->sock,"<form method=post>\n"
"<input type=submit name=select_ar "
"value=\"Hide Access Registers\">\n"
"<input type=hidden name=cpu value=%d>\n"
"<input type=hidden name=select_gr value=%c>\n"
"<input type=hidden name=select_cr value=%c>\n"
"</form>\n",cpu,select_gr?'S':'H',select_cr?'S':'H');
hprintf(webblk->sock,"<form method=post>\n"
"<table>\n");
for(i = 0; i < 16; i++)
{
hprintf(webblk->sock,"%s<td>AR%d</td><td><input type=text name=alter_ar%d size=8 "
"value=%8.8X></td>\n%s",
(i&3)==0?"<tr>\n":"",i,i,regs->AR(i),((i&3)==3)?"</tr>\n":"");
}
hprintf(webblk->sock,"</table>\n"
"<input type=submit name=refresh value=\"Refresh\">\n"
"<input type=submit name=alter_ar value=\"Alter\">\n"
"<input type=hidden name=cpu value=%d>\n"
"<input type=hidden name=select_gr value=%c>\n"
"<input type=hidden name=select_cr value=%c>\n"
"<input type=hidden name=select_ar value=S>\n"
"</form>\n",cpu,select_gr?'S':'H',select_cr?'S':'H');
}
}
html_footer(webblk);
}
void cgibin_syslog(WEBBLK *webblk)
{
int num_bytes;
int logbuf_idx;
char *logbuf_ptr;
char *command;
char *value;
int autorefresh = 0;
int refresh_interval = 5;
int msgcount = 22;
if ((command = cgi_variable(webblk,"command")))
{
panel_command(command);
// Wait a bit before proceeding in case
// the command issues a lot of messages
usleep(50000);
}
if((value = cgi_variable(webblk,"msgcount")))
msgcount = atoi(value);
else
if((value = cgi_cookie(webblk,"msgcount")))
msgcount = atoi(value);
if ((value = cgi_variable(webblk,"refresh_interval")))
refresh_interval = atoi(value);
if (cgi_variable(webblk,"autorefresh"))
autorefresh = 1;
else if (cgi_variable(webblk,"norefresh"))
autorefresh = 0;
else if (cgi_variable(webblk,"refresh"))
autorefresh = 1;
html_header(webblk);
hprintf(webblk->sock,"<script language=\"JavaScript\">\n"
"<!--\n"
"document.cookie = \"msgcount=%d\";\n"
"//-->\n"
"</script>\n",
msgcount);
hprintf(webblk->sock, "<H2>Hercules System Log</H2>\n");
hprintf(webblk->sock, "<PRE>\n");
// Get the index to our desired starting message...
logbuf_idx = msgcount ? log_line( msgcount ) : -1;
// Now read the logfile starting at that index. The return
// value is the total #of bytes of messages data there is.
if ( (num_bytes = log_read( &logbuf_ptr, &logbuf_idx, LOG_NOBLOCK )) > 0 )
{
// Copy the message data to a work buffer for processing.
// This is to allow for the possibility, however remote,
// that the logfile buffer actually wraps around and over-
// lays the message data we were going to display (which
// could happen if there's a sudden flood of messages)
int sav_bytes = num_bytes;
char *wrk_bufptr = malloc( num_bytes );
if ( wrk_bufptr ) strncpy( wrk_bufptr, logbuf_ptr, num_bytes );
else wrk_bufptr = logbuf_ptr;
// We need to convert certain characters that might
// possibly be erroneously interpretted as HTML code
#define AMP_LT "<" // (HTML code for '<')
#define AMP_GT ">" // (HTML code for '>')
#define AMP_AMP "&" // (HTML code for '&')
while ( num_bytes-- )
{
switch ( *wrk_bufptr )
{
case '<':
hwrite( webblk->sock, AMP_LT , sizeof(AMP_LT) );
break;
case '>':
hwrite( webblk->sock, AMP_GT , sizeof(AMP_GT) );
break;
case '&':
hwrite( webblk->sock, AMP_AMP , sizeof(AMP_AMP));
break;
default:
hwrite( webblk->sock, wrk_bufptr , 1 );
break;
}
wrk_bufptr++;
}
// (free our work buffer if it's really ours)
if ( ( wrk_bufptr -= sav_bytes ) != logbuf_ptr )
free( wrk_bufptr );
}
hprintf(webblk->sock, "</PRE>\n");
hprintf(webblk->sock, "<FORM method=post>Command:\n");
hprintf(webblk->sock, "<INPUT type=text name=command size=80>\n");
hprintf(webblk->sock, "<INPUT type=submit name=send value=\"Send\">\n");
hprintf(webblk->sock, "<INPUT type=hidden name=%srefresh value=1>\n",autorefresh ? "auto" : "no");
hprintf(webblk->sock, "<INPUT type=hidden name=refresh_interval value=%d>\n",refresh_interval);
hprintf(webblk->sock, "<INPUT type=hidden name=msgcount value=%d>\n",msgcount);
hprintf(webblk->sock, "</FORM>\n<BR>\n");
hprintf(webblk->sock, "<A name=bottom>\n");
hprintf(webblk->sock, "<FORM method=post>\n");
if(!autorefresh)
{
hprintf(webblk->sock, "<INPUT type=submit value=\"Auto Refresh\" name=autorefresh>\n");
hprintf(webblk->sock, "Refresh Interval: ");
hprintf(webblk->sock, "<INPUT type=text name=\"refresh_interval\" size=2 value=%d>\n",
refresh_interval);
}
else
{
hprintf(webblk->sock, "<INPUT type=submit name=norefresh value=\"Stop Refreshing\">\n");
hprintf(webblk->sock, "<INPUT type=hidden name=refresh_interval value=%d>\n",refresh_interval);
hprintf(webblk->sock, " Refresh Interval: %2d \n", refresh_interval);
}
hprintf(webblk->sock, "<INPUT type=hidden name=msgcount value=%d>\n",msgcount);
hprintf(webblk->sock, "</FORM>\n");
hprintf(webblk->sock, "<FORM method=post>\n");
hprintf(webblk->sock, "Only show last ");
hprintf(webblk->sock, "<INPUT type=text name=msgcount size=3 value=%d>",msgcount);
hprintf(webblk->sock, " lines (zero for all loglines)\n");
hprintf(webblk->sock, "<INPUT type=hidden name=%srefresh value=1>\n",autorefresh ? "auto" : "no");
hprintf(webblk->sock, "<INPUT type=hidden name=refresh_interval value=%d>\n",refresh_interval);
hprintf(webblk->sock, "</FORM>\n");
if (autorefresh)
{
/* JavaScript to cause automatic page refresh */
hprintf(webblk->sock, "<script language=\"JavaScript\">\n");
hprintf(webblk->sock, "<!--\nsetTimeout('window.location.replace(\"%s"
"?refresh_interval=%d"
"&refresh=1"
"&msgcount=%d"
"\")', %d)\n",
cgi_baseurl(webblk),
refresh_interval,
msgcount,
refresh_interval*1000);
hprintf(webblk->sock, "//-->\n</script>\n");
}
html_footer(webblk);
}
void cgibin_psw(WEBBLK *webblk)
{
REGS *regs;
QWORD qword; /* quadword work area */
char *value;
int autorefresh=0;
int refresh_interval=5;
regs = sysblk.regs[sysblk.pcpu];
if (!regs) regs = &sysblk.dummyregs;
html_header(webblk);
if (cgi_variable(webblk,"autorefresh"))
autorefresh = 1;
else if (cgi_variable(webblk,"norefresh"))
autorefresh = 0;
else if (cgi_variable(webblk,"refresh"))
autorefresh = 1;
if ((value = cgi_variable(webblk,"refresh_interval")))
refresh_interval = atoi(value);
hprintf(webblk->sock, "<H2>Program Status Word</H2>\n");
hprintf(webblk->sock, "<FORM method=post>\n");
if (!autorefresh)
{
hprintf(webblk->sock, "<INPUT type=submit value=\"Auto Refresh\" name=autorefresh>\n");
hprintf(webblk->sock, "Refresh Interval: ");
hprintf(webblk->sock, "<INPUT type=text size=2 name=\"refresh_interval\" value=%d>\n",
refresh_interval);
}
else
{
hprintf(webblk->sock, "<INPUT type=submit value=\"Stop Refreshing\" name=norefresh>\n");
hprintf(webblk->sock, "Refresh Interval: %d\n", refresh_interval);
hprintf(webblk->sock, "<INPUT type=hidden name=\"refresh_interval\" value=%d>\n",refresh_interval);
}
hprintf(webblk->sock, "</FORM>\n");
hprintf(webblk->sock, "<P>\n");
if( regs->arch_mode != ARCH_900 )
{
copy_psw (regs, qword);
hprintf(webblk->sock, "PSW=%2.2X%2.2X%2.2X%2.2X %2.2X%2.2X%2.2X%2.2X\n",
qword[0], qword[1], qword[2], qword[3],
qword[4], qword[5], qword[6], qword[7]);
}
else
{
copy_psw (regs, qword);
hprintf(webblk->sock, "PSW=%2.2X%2.2X%2.2X%2.2X %2.2X%2.2X%2.2X%2.2X "
"%2.2X%2.2X%2.2X%2.2X%2.2X%2.2X%2.2X%2.2X\n",
qword[0], qword[1], qword[2], qword[3],
qword[4], qword[5], qword[6], qword[7],
qword[8], qword[9], qword[10], qword[11],
qword[12], qword[13], qword[14], qword[15]);
}
if (autorefresh)
{
/* JavaScript to cause automatic page refresh */
hprintf(webblk->sock, "<script language=\"JavaScript\">\n");
hprintf(webblk->sock, "<!--\nsetTimeout('window.location.replace(\"%s?refresh_interval=%d&refresh=1\")', %d)\n",
cgi_baseurl(webblk),
refresh_interval,
refresh_interval*1000);
hprintf(webblk->sock, "//-->\n</script>\n");
}
html_footer(webblk);
}
int main_html_server(int argc, char **argv)
{
struct server server;
unsigned i, playing = 0, spectating = 0;
char *ip, *port;
const char *addr;
sqlite3_stmt *res;
unsigned nrow;
const char *query =
"SELECT" ALL_EXTENDED_SERVER_COLUMNS
" FROM servers"
" WHERE ip = ? AND port = ?";
if (argc != 2) {
fprintf(stderr, "usage: %s <server_addr>\n", argv[0]);
return EXIT_FAILURE;
}
if (!parse_addr(argv[1], &ip, &port))
return EXIT_NOT_FOUND;
foreach_extended_server(query, &server, "ss", ip, port);
if (!res)
return EXIT_FAILURE;
if (!nrow)
return EXIT_NOT_FOUND;
if (!read_server_clients(&server))
return EXIT_FAILURE;
for (i = 0; i < server.num_clients; i++)
server.clients[i].ingame ? playing++ : spectating++;
/* Eventually, print them */
CUSTOM_TAB.name = escape(server.name);
CUSTOM_TAB.href = "";
html_header(&CUSTOM_TAB, server.name, "/servers", NULL);
html("<header id=\"server_header\">");
html("<section id=\"serverinfo\">");
html("<h2>%s</h2>", escape(server.name));
html("<ul>");
html("<li>%s</li><li>%s</li>", server.gametype, server.map);
html("<li>%u / %u clients</li>", server.num_clients, server.max_clients);
html("<li>");
html("%u players", playing);
if (spectating)
html(" + %u spectators", spectating);
html("</li>");
html("</ul>");
html("</section>");
html("<section id=\"serveraddr\">");
html("<label for=\"serveraddr_input\">Server address</label>");
addr = build_addr(server.ip, server.port);
html("<input type=\"text\" value=\"%s\" size=\"%u\" id=\"serveraddr_input\" readonly/>",
addr, strlen(addr));
html("</section>");
html("</header>");
show_client_list(&server);
html_footer("server", relurl("/servers/%s.json", addr));
return EXIT_SUCCESS;
}
