/* format an immediate for PSL */
static char *IMM_PSL(int pc)
{
static char buff[32];
char *p = buff;
int v = readarg(pc);
if (v == 0xff) {
p += sprintf(p, "all");
} else {
switch (v & 0xc0)
{
case 0x40: p += sprintf(p, "p+"); break;
case 0x80: p += sprintf(p, "m+"); break;
case 0xc0: p += sprintf(p, "cc+"); break;
}
if (v & 0x20) /* inter digit carry */
p += sprintf(p, "idc+");
if (v & 0x10) /* register select */
p += sprintf(p, "rs+");
if (v & 0x08) /* with carry */
p += sprintf(p, "wc+");
if (v & 0x04) /* overflow */
p += sprintf(p, "ovf+");
if (v & 0x02) /* 2's complement comparisons */
p += sprintf(p, "com+");
if (v & 0x01) /* carry */
p += sprintf(p, "c+");
if (p > buff)
*--p = '\0';
}
return buff;
}
/* format an relative address (implicit page 0) */
static char *REL0(int pc)
{
static char buff[32];
int o = readarg(pc);
sprintf(buff, "%s%s", (o&0x80)?"*":"", SYM((rel[o]) & 0x1fff));
return buff;
}
/* format an immediate */
static char *IMM(int pc)
{
static char buff[32];
sprintf(buff, "$%02x", readarg(pc));
return buff;
}
/* format an immediate for PSU (processor status upper) */
static char *IMM_PSU(int pc)
{
static char buff[32];
char *p = buff;
int v = readarg(pc);
if (v == 0xff) {
p += sprintf(p, "all");
} else {
if (v & 0x80) /* sense input */
p += sprintf(p, "si+");
if (v & 0x40) /* flag output */
p += sprintf(p, "fo+");
if (v & 0x20) /* interrupt inhibit */
p += sprintf(p, "ii+");
if (v & 0x10) /* unused bit 4 */
p += sprintf(p, "4+");
if (v & 0x08) /* unused bit 3 */
p += sprintf(p, "3+");
if (v & 0x04) /* stack pointer bit 2 */
p += sprintf(p, "sp2+");
if (v & 0x02) /* stack pointer bit 1 */
p += sprintf(p, "sp1+");
if (v & 0x01) /* stack pointer bit 0 */
p += sprintf(p, "sp0+");
if (p > buff)
*--p = '\0';
}
return buff;
}
void argexec()
{
ARG argp;
while(is_loop && (argp = ctx->linearg ? linearg() : readarg(ctx->afd, ctx->arg_num))){
if(mtnexec(argp) == -1){
clrarg(argp);
break;
}
clrarg(argp);
}
}
/* format a destination register and an absolute address */
static char *ABS(int load, int r, int pc)
{
static char buff[32];
int h = readarg(pc);
int l = readarg((pc&0x6000)+((pc+1)&0x1fff));
int a = (pc & 0x6000) + ((h & 0x1f) << 8) + l;
#if HJB
if (load) {
switch (h >> 5) {
case 0: sprintf(buff, "r%d,(%s)", r, SYM(a)); break;
case 1: sprintf(buff, "r0,(%s,r%d++)", SYM(a), r); break;
case 2: sprintf(buff, "r0,(%s,r%d--)", SYM(a), r); break;
case 3: sprintf(buff, "r0,(%s,r%d)", SYM(a), r); break;
case 4: sprintf(buff, "r%d,*(%s)", r, SYM(a)); break;
case 5: sprintf(buff, "r0,*(%s,r%d++)", SYM(a), r); break;
case 6: sprintf(buff, "r0,*(%s,r%d--)", SYM(a), r); break;
case 7: sprintf(buff, "r0,*(%s,r%d)", SYM(a), r); break;
}
} else {
switch (h >> 5) {
int wizardmain(int argc, char **argv)
{
const char *outfile = NULL, *relpath = NULL;
for(int i = 1; i < argc; i++)
{
if(argv[i][0] == '-') continue;
if(!outfile) outfile = argv[i];
else if(!relpath) relpath = argv[i];
}
if(!outfile || !relpath)
{
printf("invalid arguments specified!\n");
printf("usage: ac_server <outfile> <relbinarypath>\n");
return EXIT_FAILURE;
}
printf("The AssaultCube Server Wizard\n\n");
printf("Before setting up a new server, please ensure you've read the rules at:\n"
"\thttp://masterserver.cubers.net/rules.html\n\n");
printf("You will also need to ensure that the UDP port you choose is open.\n"
"Whatever port you choose, you will need to forward that port, plus one port after that.\n"
"If you're having issues, use and forward the default ports 28763 and 28764\n"
"Use http://www.portforward.com for guidance.\n\n");
printf("Now to specify some optional settings for your server.\n"
"The default settings will be used if you leave the fields blank.\n"
"If you're unsure about what to specify for the settings, leave the field blank.\n\n"
"Read http://assault.cubers.net/docs/commandline.html for a description of these settings.\n\n");
vector<char> argstr;
readarg(argstr, "Server description", "-n");
readarg(argstr, "Message of the day", "-o");
readarg(argstr, "Maximum clients (No more than 20 allowed!)", "-c");
readarg(argstr, "Administrator password", "-x");
readarg(argstr, "Server port", "-f");
printf("\nPrivate server settings:\n"
"------------------------\n");
string ispub = "";
readarg("Public server (Yes/No)?", ispub, sizeof(ispub));
if(toupper(ispub[0]) == 'N') addarg(argstr, "-mlocalhost");
string cmds = "";
readarg(argstr, "Player password", "-p");
readarg("\nAdditional server switches", cmds, sizeof(cmds));
if(cmds[0]) addarg(argstr, cmds);
#ifdef WIN32
string wsname = "", wsdisplayname = "";
readarg("win service name", wsname, sizeof(wsname));
if(wsname[0])
readarg("win service display", wsdisplayname, sizeof(wsdisplayname));
#endif
printf("\nWriting your configuration to %s ... ", outfile); fflush(stdout);
argstr.add('\0');
FILE *script = fopen(outfile, "w");
if(!script)
{
printf("Failed!\n");
return EXIT_FAILURE;
}
#ifdef WIN32
fprintf(script, "%s%s\npause\n", relpath, argstr.getbuf());
#elif __GNUC__
fprintf(script, "#!/bin/sh\n%s%s\n", relpath, argstr.getbuf());
#endif
fclose(script);
printf("Done\n\n");
printf("Note: You can start %s directly the next time you want to use the same configuration to start the server.\n\n", outfile);
#ifdef WIN32
if(wsname[0])
{
if(!wsdisplayname[0]) copystring(wsdisplayname, wsname);
printf("Installing the AC Server as windows service ... "); fflush(stdout);
vector<char> path;
databuf<char> cwd = path.reserve(MAX_PATH);
if(!_getcwd(cwd.buf, MAX_PATH))
{
printf("Failed!\n");
printf("Could not get current working directory: %u\n", (uint)GetLastError());
return EXIT_FAILURE;
}
path.advance(strlen(cwd.buf));
path.add('\\');
path.put(relpath, strlen(relpath));
path.put(" -S", 3);
path.put(wsname, strlen(wsname));
path.add(' ');
path.put(argstr.getbuf(), argstr.length());
winserviceinstaller installer(wsname, wsdisplayname, path.getbuf());
int r;
if(!installer.OpenManger())
{
printf("Failed!\n");
printf("Could not open the Service Control Manager: %u\n", (uint)GetLastError());
installer.CloseManager();
return EXIT_FAILURE;
}
if((r = installer.IsInstalled()) != 0)
{
printf("Failed!\n");
if(r == -1) printf("Error accessing the Service Control Manager\n");
else if(r == 1) printf("A windows service with this name (%s) is already installed: %u\n", wsname, (uint)GetLastError());
return EXIT_FAILURE;
}
if((r = installer.Install()) != 1)
{
printf("Failed!\n");
if(r == -1) printf("Error accessing the Service Control Manager\n");
else if(r == 0) printf("Could not create the new windows service: %u\n", (uint)GetLastError());
return EXIT_FAILURE;
}
printf("Done\n\n");
printf("Note: You can now manage your AC server using services.msc and sc.exe\n\n");
}
#endif
printf("Please press ENTER now to start your server...\n");
fgetc(stdin);
printf("Starting the AC server ...\n");
argstr.insert(0, relpath, strlen(relpath));
system(argstr.getbuf());
return EXIT_SUCCESS;
}
static void readarg(vector<char> &argstr, const char *desc, const char *name)
{
string val = "";
readarg(desc, val, sizeof(val));
if(val[0]) addarg(argstr, name, val);
}
bool invoke_program(const char *command_line, DWORD &runcode, bool wait, const char *outfile, HANDLE *rethandle, bool throwException, bool newProcessGroup)
{
runcode = 0;
if (rethandle)
*rethandle = 0;
if(!command_line || !*command_line)
return false;
pid_t pid = fork();
if (pid == 0)
{
//Force the child process into its own process group, so we can terminate it and its children.
if (newProcessGroup)
setpgid(0,0);
if (outfile&&*outfile) {
int outh = open(outfile, O_CREAT|O_WRONLY|O_TRUNC, S_IRUSR|S_IWUSR);
if(outh >= 0)
{
dup2(outh, STDOUT_FILENO);
dup2(outh, STDERR_FILENO);
close(outh);
}
else {
ERRLOG("invoke_program: could not open %s",outfile);
return false;
}
}
int size = 10;
char **args;
char **argptr = args = (char **) malloc(sizeof(args) * size);
char **over = argptr+size;
char *cl = strdup(command_line);
char *curptr = cl;
*argptr = readarg(curptr);
while (*argptr != NULL)
{
argptr++;
if (argptr==over)
{
args = (char **) realloc(args, sizeof(args) * size * 2);
argptr = args+size;
size *= 2;
over = args+size;
}
*argptr = readarg(curptr);
}
// JCSMORE - do I not need to free args, if successful exec?
if (execvp(*args, args))
{
//print out why create process failed
int err = errno;
ERRLOG("invoke_program(%s) failed with error(%d): %s",command_line,err,strerror(err));
}
assertex(0); // don't expect to get here!
_exit(0);
}
else if (pid < 0)
{
StringBuffer s("fork of \"");
s.append(command_line).append("\" failed. fork() returned:");
if (errno == EAGAIN)
s.append("EAGAIN");
else if (errno == ENOMEM)
s.append("ENOMEM");
else
s.append(errno);
ERRLOG("%s",s.toCharArray());
if(throwException)
throw MakeStringExceptionDirect(-1, s.str());
return false;
}
if (rethandle)
*rethandle = (HANDLE)pid;
if (wait)
{
int retv;
if (waitpid(pid, &retv, 0) != pid) {
ERRLOG("invoke_program(%s): wait failed (%d)",command_line,(int)pid);
return false;
}
if (!WIFEXITED(retv)) //did not exit normally
{
int err = errno;
ERRLOG("invoke_program(%s): failed.",command_line);
ERRLOG("The process was killed by signal %d%s.",(int)WTERMSIG(retv),WCOREDUMP(retv)?" - core dumped":"");
ERRLOG("Last system error is %s",strerror(err));
}
runcode = WEXITSTATUS(retv);
}
return true; // it did run even if signalled
}
void
main(int argc, char *argv[])
{
int n;
int32_t chal;
char *err;
char ukey[DESKEYLEN], resp[32], buf[NETCHLEN];
Ndb *db2;
ARGBEGIN{
case 'd':
debug = 1;
break;
}ARGEND;
db = ndbopen("/lib/ndb/auth");
if(db == 0)
syslog(0, AUTHLOG, "no /lib/ndb/auth");
db2 = ndbopen(0);
if(db2 == 0)
syslog(0, AUTHLOG, "no /lib/ndb/local");
db = ndbcat(db, db2);
werrstr("");
strcpy(raddr, "unknown");
if(argc >= 1)
getraddr(argv[argc-1]);
argv0 = "guard";
srand((getpid()*1103515245)^time(0));
notify(catchalarm);
/*
* read the host and client and get their keys
*/
if(readarg(0, user, sizeof user) < 0)
fail(0);
/*
* challenge-response
*/
chal = lnrand(MAXNETCHAL);
snprint(buf, sizeof buf, "challenge: %lud\nresponse: ", chal);
n = strlen(buf) + 1;
if(write(1, buf, n) != n){
if(debug)
syslog(0, AUTHLOG, "g-fail %s@%s: %r sending chal",
user, raddr);
exits("replying to server");
}
alarm(3*60*1000);
werrstr("");
if(readarg(0, resp, sizeof resp) < 0){
if(debug)
syslog(0, AUTHLOG, "g-fail %s@%s: %r reading resp",
user, raddr);
fail(0);
}
alarm(0);
/* remove password login from guard.research.bell-labs.com, sucre, etc. */
// if(!findkey(KEYDB, user, ukey) || !netcheck(ukey, chal, resp))
if(!findkey(NETKEYDB, user, ukey) || !netcheck(ukey, chal, resp))
if((err = secureidcheck(user, resp)) != nil){
print("NO %s", err);
write(1, "NO", 2);
if(debug) {
char *r;
/*
* don't log the entire response, since the first
* Pinlen digits may be the user's secure-id pin.
*/
if (strlen(resp) < Pinlen)
r = strdup("<too short for pin>");
else if (strlen(resp) == Pinlen)
r = strdup("<pin only>");
else
r = smprint("%.*s%s", Pinlen,
"******************", resp + Pinlen);
syslog(0, AUTHLOG,
"g-fail %s@%s: %s: resp %s to chal %lud",
user, raddr, err, r, chal);
free(r);
}
fail(user);
}
write(1, "OK", 2);
if(debug)
syslog(0, AUTHLOG, "g-ok %s@%s", user, raddr);
succeed(user);
exits(0);
}
/*
* Read the proc filesystem.
* CWD must be /proc to avoid problems if / is affected by the killing (ie depend on fuse).
*/
int readproc(int do_stat)
{
DIR *dir;
FILE *fp;
PROC *p, *n;
struct dirent *d;
struct stat st;
char path[256];
char buf[256];
char *s, *q;
unsigned long startcode, endcode;
int pid, f;
/* Open the /proc directory. */
if (chdir("/proc") == -1) {
nsyslog(LOG_ERR, "chdir /proc failed");
return -1;
}
if ((dir = opendir(".")) == NULL) {
nsyslog(LOG_ERR, "cannot opendir(/proc)");
return -1;
}
/* Free the already existing process list. */
n = plist;
for (p = plist; n; p = n) {
n = p->next;
if (p->argv0) free(p->argv0);
if (p->argv1) free(p->argv1);
free(p);
}
plist = NULL;
/* Walk through the directory. */
while ((d = readdir(dir)) != NULL) {
/* See if this is a process */
if ((pid = atoi(d->d_name)) == 0) continue;
/* Get a PROC struct . */
p = (PROC *)xmalloc(sizeof(PROC));
memset(p, 0, sizeof(PROC));
/* Open the status file. */
snprintf(path, sizeof(path), "%s/stat", d->d_name);
/* Read SID & statname from it. */
if ((fp = fopen(path, "r")) != NULL) {
buf[0] = 0;
fgets(buf, sizeof(buf), fp);
/* See if name starts with '(' */
s = buf;
while (*s != ' ') s++;
s++;
if (*s == '(') {
/* Read program name. */
q = strrchr(buf, ')');
if (q == NULL) {
p->sid = 0;
nsyslog(LOG_ERR,
"can't get program name from /proc/%s\n",
path);
free(p);
continue;
}
s++;
} else {
q = s;
while (*q != ' ') q++;
}
*q++ = 0;
while (*q == ' ') q++;
p->statname = (char *)xmalloc(strlen(s)+1);
strcpy(p->statname, s);
/* Get session, startcode, endcode. */
startcode = endcode = 0;
if (sscanf(q, "%*c %*d %*d %d %*d %*d %*u %*u "
"%*u %*u %*u %*u %*u %*d %*d "
"%*d %*d %*d %*d %*u %*u %*d "
"%*u %lu %lu",
&p->sid, &startcode, &endcode) != 3) {
p->sid = 0;
nsyslog(LOG_ERR, "can't read sid from %s\n",
path);
free(p);
continue;
}
if (startcode == 0 && endcode == 0)
p->kernel = 1;
fclose(fp);
} else {
/* Process disappeared.. */
free(p);
continue;
}
snprintf(path, sizeof(path), "%s/cmdline", d->d_name);
if ((fp = fopen(path, "r")) != NULL) {
/* Now read argv[0] */
f = readarg(fp, buf, sizeof(buf));
if (buf[0]) {
/* Store the name into malloced memory. */
p->argv0 = (char *)xmalloc(f + 1);
strcpy(p->argv0, buf);
/* Get a pointer to the basename. */
p->argv0base = strrchr(p->argv0, '/');
if (p->argv0base != NULL)
p->argv0base++;
else
p->argv0base = p->argv0;
}
/* And read argv[1] */
while ((f = readarg(fp, buf, sizeof(buf))) != EOF)
if (buf[0] != '-') break;
if (buf[0]) {
/* Store the name into malloced memory. */
p->argv1 = (char *)xmalloc(f + 1);
strcpy(p->argv1, buf);
/* Get a pointer to the basename. */
p->argv1base = strrchr(p->argv1, '/');
if (p->argv1base != NULL)
p->argv1base++;
else
p->argv1base = p->argv1;
}
fclose(fp);
} else {
/* Process disappeared.. */
free(p);
continue;
}
/* Try to stat the executable. */
snprintf(path, sizeof(path), "/proc/%s/exe", d->d_name);
if (do_stat && stat(path, &st) == 0) {
p->dev = st.st_dev;
p->ino = st.st_ino;
}
/* Link it into the list. */
p->next = plist;
plist = p;
p->pid = pid;
}
closedir(dir);
/* Done. */
return 0;
}