github-starred/ultimatepp
Watch
2
0
Fork
You've already forked ultimatepp
 0
mirror of https://github.com/ultimatepp/ultimatepp.git synced 2026-10-06 00:30:10 -06:00
Code Issues 33 Projects Packages Wiki Activity Actions

changed svn layout

Browse source 
git-svn-id: svn://ultimatepp.org/upp/trunk@281 f0d560ea-af0d-0410-9eb7-867de7ffcac7
This commit is contained in:
mdelfede 2008-06-07 22:31:27 +00:00
commit 263ff5f895
2665 changed files with 642923 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

77
examples/cmdsrv/cmdsrv.cpp Normal file
View file

@ -0,0 +1,77 @@
#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(1000);
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();
if(!request)
continue;
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 &copy; 2005 Tomas Rylek<p>\n"
"CMDSRV parameters: &lt;port number, default = 1536&gt;<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) << "&amp;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();
}
}