mirror of
https://github.com/ultimatepp/ultimatepp.git
synced 2026-05-16 06:05:58 -06:00
79 lines
2.5 KiB
C++
79 lines
2.5 KiB
C++
#include <Web/Web.h>
|
|
|
|
using namespace Upp;
|
|
|
|
#define APP_VERSION "1.0.r1"
|
|
#define APP_DATE Date(2005, 2, 22)
|
|
|
|
CONSOLE_APP_MAIN
|
|
{
|
|
HttpServer server;
|
|
int next_id = 0;
|
|
server.Logging();
|
|
|
|
Vector<String> cmd;
|
|
cmd <<= CommandLine();
|
|
int port = 1536;
|
|
if(cmd.GetCount() >= 1)
|
|
port = Nvl(ScanInt(cmd[0]), port);
|
|
|
|
if(!server.Open(port)) {
|
|
puts(Socket::GetErrorText());
|
|
return;
|
|
}
|
|
|
|
for(;;) {
|
|
server.Wait(10000);
|
|
if(server.IsError()) {
|
|
puts("Server error: " + Socket::GetErrorText());
|
|
puts("Reopening socket...");
|
|
fflush(stdout);
|
|
if(!server.Reopen())
|
|
{
|
|
puts("Reopen on server socket failed: " + Socket::GetErrorText());
|
|
return;
|
|
}
|
|
}
|
|
fputs(NFormat("\rserver(%d) running at %`", port, GetSysTime()), stdout);
|
|
fflush(stdout);
|
|
One<HttpRequest> request = server.GetRequest();
|
|
puts("GetRequest\n");
|
|
if(!request)
|
|
continue;
|
|
puts("GotRequest\n");
|
|
HttpQuery query = request->GetQuery();
|
|
String header, body;
|
|
int items = query.GetInt("ITEMS", 0, 100000, 10);
|
|
String svr = query.GetString("SVR");
|
|
Htmls image_page;
|
|
int i;
|
|
image_page <<
|
|
"CMDSRV, version " << APP_VERSION << ", release date: " << Format(APP_DATE) << "<br>\n"
|
|
"Copyright © 2005 Tomas Rylek<p>\n"
|
|
"CMDSRV parameters: <port number, default = 1536><p>\n"
|
|
"Current parameters: <b>cmdsrv " << port << "</b><p>\n"
|
|
"<b>items</b> (<b>" << FormatInt(items) << "</b>) = number of output lines to generate (default = 10)<br>\n"
|
|
"<b>svr</b> (" << (IsNull(svr) ? "<i>empty</i>" : "<b>" + svr + "</b>")
|
|
<< ") = identifier for generated output lines (default = test)<br>\n"
|
|
"Example: <b>http://localhost";
|
|
String wisapi = GetFileName(query.GetString("$$WISAPI"));
|
|
String sample_query;
|
|
sample_query << "items=" << minmax(2 * items, 10, 100000) << "&svr=A";
|
|
if(!IsNull(wisapi))
|
|
image_page << "/dir/<a href=\"" << wisapi << "?" << sample_query << "\">" << wisapi << "?";
|
|
else
|
|
image_page << ':' << port << "/<a href=\"any?" << sample_query << "\">" << "any?";
|
|
image_page << sample_query << "</a><p>\n";
|
|
for(i = 0; i < items; i++)
|
|
image_page << "Line #" << (i + 1) << ", svr=" << UrlEncode(svr) << "<br>\n";
|
|
image_page << "<p>\n"
|
|
"Current request:<br>\n";
|
|
for(i = 0; i < query.GetCount(); i++)
|
|
image_page << ToHtml(query.GetKey(i)) << "=<b>" << ToHtml(query.GetValue(i)) << "</b><br>\n";
|
|
|
|
header = HttpContentType(HttpTextHtml(CHARSET_WIN1252));
|
|
body = HtmlTitlePage("Simple text HTTP server", image_page);
|
|
request->Write(header, body);
|
|
request.Clear();
|
|
}
|
|
}
|