#ifdef _OSD_POSIX
#include "httpd.h"
#include "http_config.h"
#include "http_log.h"
#include <ctype.h>
#include <sys/utsname.h>
#define ACCT_LEN 8
#define USER_LEN 8
static const char *bs2000_account = NULL;
typedef enum
{
bs2_unknown,
bs2_noFORK,
bs2_FORK,
bs2_FORK_RINI,
bs2_RFORK_RINI,
bs2_UFORK
} bs2_ForkType;
static bs2_ForkType forktype = bs2_unknown;
static void ap_pad(char *dest, size_t size, char ch)
{
int i = strlen(dest);
while (i < size-1)
dest[i++] = ch;
dest[size-1] = '\0';
}
static void ap_str_toupper(char *str)
{
while (*str) {
*str = ap_toupper(*str);
++str;
}
}
static bs2_ForkType os_forktype(void)
{
struct utsname os_version;
if (forktype != bs2_unknown) {
return forktype;
}
if (getuid() != 0) {
return forktype = bs2_FORK;
}
if (uname(&os_version) < 0)
{
ap_log_error(APLOG_MARK, APLOG_ALERT, NULL,
"uname() failed - aborting.");
exit(APEXIT_CHILDFATAL);
}
if (strcmp(os_version.release, "01.0A") == 0 ||
strcmp(os_version.release, "02.0A") == 0 ||
strcmp(os_version.release, "02.1A") == 0)
{
ap_log_error(APLOG_MARK, APLOG_ERR|APLOG_NOERRNO, NULL,
"Error: unsupported OS version. "
"You may encounter problems.");
forktype = bs2_FORK;
}
else if (strcmp(os_version.release, "01.1A") == 0 ||
strcmp(os_version.release, "03.0A") == 0 ||
strcmp(os_version.release, "03.1A") == 0 ||
strcmp(os_version.release, "04.0A") == 0)
{
if (strcmp (os_version.version, "A18") >= 0)
forktype = bs2_UFORK;
else if (strcmp (os_version.version, "A17") < 0)
forktype = bs2_FORK_RINI;
else
forktype = bs2_RFORK_RINI;
}
else
forktype = bs2_UFORK;
return forktype;
}
const char *os_set_account(pool *p, const char *account)
{
char account_temp[ACCT_LEN+1];
ap_cpystrn(account_temp, account, sizeof account_temp);
ap_str_toupper(account_temp);
ap_pad(account_temp, sizeof account_temp, ' ');
bs2000_account = ap_pstrdup(p, account_temp);
return NULL;
}
int os_init_job_environment(server_rec *server, const char *user_name, int one_process)
{
_rini_struct inittask;
char username[USER_LEN+1];
bs2_ForkType type = os_forktype();
if (one_process) {
type = forktype = bs2_noFORK;
ap_log_error(APLOG_MARK, APLOG_ERR|APLOG_NOERRNO, server,
"The debug mode of Apache should only "
"be started by an unprivileged user!");
return 0;
}
if (type != bs2_RFORK_RINI && type != bs2_FORK_RINI)
return 0;
if (bs2000_account == NULL)
{
ap_log_error(APLOG_MARK, APLOG_ALERT|APLOG_NOERRNO, server,
"No BS2000Account configured - cannot switch to User %s",
user_name);
exit(APEXIT_CHILDFATAL);
}
ap_cpystrn(username, user_name, sizeof username);
ap_str_toupper(username);
ap_pad(username, sizeof username, ' ');
inittask.username = username;
inittask.account = bs2000_account;
inittask.processor_name = " ";
if (_rini(&inittask) != 0) {
ap_log_error(APLOG_MARK, APLOG_ALERT, server,
"_rini: BS2000 auth failed for user \"%s\" acct \"%s\"",
inittask.username, inittask.account);
exit(APEXIT_CHILDFATAL);
}
return 0;
}
pid_t os_fork(const char *user)
{
pid_t pid;
char username[USER_LEN+1];
switch (os_forktype()) {
case bs2_FORK:
case bs2_FORK_RINI:
pid = fork();
break;
case bs2_RFORK_RINI:
pid = _rfork();
break;
case bs2_UFORK:
ap_cpystrn(username, user, sizeof username);
ap_str_toupper(username);
pid = ufork(username);
if (pid == -1 && errno == EPERM) {
ap_log_error(APLOG_MARK, APLOG_EMERG,
NULL, "ufork: Possible mis-configuration "
"for user %s - Aborting.", user);
exit(1);
}
break;
default:
pid = 0;
break;
}
return pid;
}
#else
void bs2login_is_not_here()
{
}
#endif