static int save_attributes(struct ticket_config *tk, xmlDocPtr doc)
{
int rv = 0, rc;
xmlNodePtr n;
xmlAttrPtr attr;
xmlChar *v;
struct attr_tab *atp;
n = xmlDocGetRootElement(doc);
if (n == NULL) {
tk_log_error("crm_ticket xml output empty");
return -EINVAL;
}
if (xmlStrcmp(n->name, (const xmlChar *)"ticket_state")) {
tk_log_error("crm_ticket xml root element not ticket_state");
return -EINVAL;
}
for (attr = n->properties; attr; attr = attr->next) {
v = xmlGetProp(n, attr->name);
for (atp = attr_handlers; atp->name; atp++) {
if (!strcmp(atp->name, (const char *) attr->name)) {
rc = atp->handling_f(tk, (const char *) attr->name,
(const char *) v);
break;
}
}
if (!atp->name) {
rc = save_attr(tk, (const char *) attr->name,
(const char *) v);
}
if (rc) {
tk_log_error("error storing attribute %s", attr->name);
rv |= rc;
}
xmlFree(v);
}
return rv;
}
int svr_save(
struct server *ps,
int mode)
{
#ifndef SERVER_XML
static char *this_function_name = "svr_save";
int i;
int sdb;
int save_acl(attribute *, attribute_def *, char *, char *);
#endif /* ndef SERVER_XML */
/* save the server in xml only if configured */
#ifdef SERVER_XML
return(svr_save_xml(ps,mode));
#endif /* def SERVER_XML */
#ifndef SERVER_XML
if (mode == SVR_SAVE_QUICK)
{
sdb = open(path_svrdb, O_WRONLY | O_CREAT | O_Sync, 0600);
if (sdb < 0)
{
log_err(errno, this_function_name, msg_svdbopen);
return(-1);
}
while ((i = write(
sdb,
&ps->sv_qs,
sizeof(struct server_qs))) != sizeof(struct server_qs))
{
if ((i == -1) && (errno == EINTR))
continue;
log_err(errno, this_function_name, msg_svdbnosv);
return(-1);
}
close(sdb);
}
else
{
/* SVR_SAVE_FULL Save */
sdb = open(path_svrdb_new, O_WRONLY | O_CREAT | O_Sync, 0600);
if (sdb < 0)
{
log_err(errno, this_function_name, msg_svdbopen);
return(-1);
}
ps->sv_qs.sv_savetm = time_now;
save_setup(sdb);
if (save_struct((char *)&ps->sv_qs, sizeof(struct server_qs)) != 0)
{
snprintf(log_buffer, 1024, "cannot save data into server db, errno=%d (%s)",
errno,
pbs_strerror(errno));
log_err(errno, this_function_name, log_buffer);
close(sdb);
return(-1);
}
if (save_attr(svr_attr_def, ps->sv_attr, (int)SRV_ATR_LAST) != 0)
{
close(sdb);
return(-1);
}
if (save_flush() != 0)
{
close(sdb);
return(-1);
}
/* new db successfully created, remove original db */
close(sdb);
unlink(path_svrdb);
if (link(path_svrdb_new, path_svrdb) == -1)
{
snprintf(log_buffer, 1024, "cannot move new database to default database location, errno=%d (%s)",
errno,
pbs_strerror(errno));
log_err(errno, this_function_name, log_buffer);
}
else
{
unlink(path_svrdb_new);
}
/* save the server acls to their own files: */
/* priv/svracl/(attr name) */
for (i = 0;i < SRV_ATR_LAST;i++)
{
if (ps->sv_attr[i].at_type == ATR_TYPE_ACL)
save_acl(&ps->sv_attr[i], &svr_attr_def[i],
PBS_SVRACL, svr_attr_def[i].at_name);
}
} /* END else (mode == SVR_SAVE_QUICK) */
return(0);
#endif /* ndef SERVER_XML */
} /* END svr_save() */
int job_save(
job *pjob, /* pointer to job structure */
int updatetype) /* 0=quick, 1=full */
{
int fds;
int i;
char namebuf1[MAXPATHLEN];
char namebuf2[MAXPATHLEN];
int openflags;
int redo;
strcpy(namebuf1, path_jobs); /* job directory path */
strcat(namebuf1, pjob->ji_qs.ji_fileprefix);
strcpy(namebuf2, namebuf1); /* setup for later */
#ifdef PBS_MOM
strcat(namebuf1, JOB_FILE_SUFFIX);
#else
if (pjob->ji_isparent == TRUE)
{
strcat(namebuf1, JOB_FILE_TMP_SUFFIX);
}
else
{
strcat(namebuf1, JOB_FILE_SUFFIX);
}
#endif
/* if ji_modified is set, ie an attribute changed, then update mtime */
if (pjob->ji_modified)
{
pjob->ji_wattr[JOB_ATR_mtime].at_val.at_long = time_now;
}
if (updatetype == SAVEJOB_QUICK)
{
openflags = O_WRONLY | O_Sync;
/* NOTE: open, do not create */
fds = open(namebuf1, openflags, 0600);
if (fds < 0)
{
char tmpLine[1024];
snprintf(tmpLine, sizeof(tmpLine), "cannot open file '%s' for job %s in state %s (%s)",
namebuf1,
pjob->ji_qs.ji_jobid,
PJobSubState[MAX(0,pjob->ji_qs.ji_substate)],
(updatetype == 0) ? "quick" : "full");
log_err(errno, "job_save", tmpLine);
/* FAILURE */
return(-1);
}
/* just write the "critical" base structure to the file */
while ((i = write(fds, (char *) & pjob->ji_qs, quicksize)) != (ssize_t)quicksize)
{
if ((i < 0) && (errno == EINTR))
{
/* retry the write */
if (lseek(fds, (off_t)0, SEEK_SET) < 0)
{
log_err(errno, "job_save", "lseek");
fsync(fds);
close(fds);
return(-1);
}
continue;
}
else
{
log_err(errno, "job_save", "quickwrite");
fsync(fds);
close(fds);
/* FAILURE */
return(-1);
}
}
fsync(fds);
close(fds);
}
else /* SAVEJOB_FULL, SAVEJOB_NEW, SAVEJOB_ARY */
{
/*
* write the whole structure to the file.
* For a update, this is done to a new file to protect the
* old against crashs.
* The file is written in four parts:
* (1) the job structure,
* (2) the attribtes in "encoded" form,
* (3) the attributes in the "external" form, and last
* (4) the dependency list.
*/
strcat(namebuf2, JOB_FILE_COPY);
openflags = O_CREAT | O_WRONLY | O_Sync;
/* NOTE: create file if required */
if (updatetype == SAVEJOB_NEW)
fds = open(namebuf1, openflags, 0600);
else
fds = open(namebuf2, openflags, 0600);
if (fds < 0)
{
log_err(errno, "job_save", "open for full save");
return(-1);
}
for (i = 0;i < MAX_SAVE_TRIES;++i)
{
redo = 0; /* try to save twice */
save_setup(fds);
if (save_struct((char *)&pjob->ji_qs, (size_t)quicksize) != 0)
{
redo++;
}
else if (save_attr(job_attr_def, pjob->ji_wattr, (int)JOB_ATR_LAST) != 0)
{
redo++;
}
#ifdef PBS_MOM
else if (save_tmsock(pjob) != 0)
{
redo++;
}
else if (save_roottask(pjob) != 0)
{
redo++;
}
else if (save_jobflags(pjob) != 0)
{
redo++;
}
#endif /* PBS_MOM */
else if (save_flush() != 0)
{
redo++;
}
if (redo != 0)
{
if (lseek(fds, (off_t)0, SEEK_SET) < 0)
{
log_err(errno, "job_save", "full lseek");
}
}
else
{
break;
}
} /* END for (i) */
fsync(fds);
close(fds);
if (i >= MAX_SAVE_TRIES)
{
if (updatetype == SAVEJOB_FULL)
unlink(namebuf2);
return(-1);
}
if (updatetype == SAVEJOB_FULL)
{
unlink(namebuf1);
if (rename(namebuf2,namebuf1) != 0)
{
LOG_EVENT(
PBSEVENT_ERROR | PBSEVENT_SECURITY,
PBS_EVENTCLASS_JOB,
pjob->ji_qs.ji_jobid,
"Link in job_save failed");
}
}
pjob->ji_modified = 0;
} /* END (updatetype == SAVEJOB_QUICK) */
return(0);
} /* END job_save() */
int job_save(
job *pjob, /* pointer to job structure */
int updatetype, /* 0=quick, 1=full, 2=new */
int mom_port) /* if 0 ignore otherwise append to end of job name. this is for multi-mom mode */
{
int fds;
int i;
char namebuf1[MAXPATHLEN];
char namebuf2[MAXPATHLEN];
char save_buf[SAVEJOB_BUF_SIZE];
const char *tmp_ptr = NULL;
size_t buf_remaining = sizeof(save_buf);
int openflags;
int redo;
time_t time_now = time(NULL);
#ifdef PBS_MOM
tmp_ptr = JOB_FILE_SUFFIX;
#else
if (pjob->ji_is_array_template == TRUE)
tmp_ptr = (char *)JOB_FILE_TMP_SUFFIX;
else
tmp_ptr = (char *)JOB_FILE_SUFFIX;
#endif
if (mom_port)
{
snprintf(namebuf1, MAXPATHLEN, "%s%s%d%s",
path_jobs, pjob->ji_qs.ji_fileprefix, mom_port, tmp_ptr);
snprintf(namebuf2, MAXPATHLEN, "%s%s%d%s",
path_jobs, pjob->ji_qs.ji_fileprefix, mom_port, JOB_FILE_COPY);
}
else
{
snprintf(namebuf1, MAXPATHLEN, "%s%s%s",
path_jobs, pjob->ji_qs.ji_fileprefix, tmp_ptr);
snprintf(namebuf2, MAXPATHLEN, "%s%s%s",
path_jobs, pjob->ji_qs.ji_fileprefix, JOB_FILE_COPY);
}
/* if ji_modified is set, ie an pbs_attribute changed, then update mtime */
if (pjob->ji_modified)
{
pjob->ji_wattr[JOB_ATR_mtime].at_val.at_long = time_now;
}
if (updatetype == SAVEJOB_QUICK)
{
openflags = O_WRONLY | O_Sync;
/* NOTE: open, do not create */
fds = open(namebuf1, openflags, 0600);
if (fds < 0)
{
char tmpLine[1024];
snprintf(tmpLine, sizeof(tmpLine), "cannot open file '%s' for job %s in state %s (%s)",
namebuf1,
pjob->ji_qs.ji_jobid,
PJobSubState[MAX(0,pjob->ji_qs.ji_substate)],
(updatetype == 0) ? "quick" : "full");
log_err(errno, "job_save", tmpLine);
/* FAILURE */
return(-1);
}
/* just write the "critical" base structure to the file */
while ((i = write_ac_socket(fds, (char *)&pjob->ji_qs, sizeof(pjob->ji_qs))) != sizeof(pjob->ji_qs))
{
if ((i < 0) && (errno == EINTR))
{
/* retry the write */
if (lseek(fds, (off_t)0, SEEK_SET) < 0)
{
log_err(errno, "job_save", (char *)"lseek");
close(fds);
return(-1);
}
continue;
}
else
{
log_err(errno, "job_save", (char *)"quickwrite");
close(fds);
/* FAILURE */
return(-1);
}
}
close(fds);
}
else /* SAVEJOB_FULL, SAVEJOB_NEW, SAVEJOB_ARY */
{
/*
* write the whole structure to the file.
* For a update, this is done to a new file to protect the
* old against crashs.
* The file is written in four parts:
* (1) the job structure,
* (2) the attribtes in "encoded" form,
* (3) the attributes in the "external" form, and last
* (4) the dependency list.
*/
openflags = O_CREAT | O_WRONLY | O_Sync;
/* NOTE: create file if required */
if (updatetype == SAVEJOB_NEW)
fds = open(namebuf1, openflags, 0600);
else
fds = open(namebuf2, openflags, 0600);
if (fds < 0)
{
log_err(errno, "job_save", (char *)"open for full save");
return(-1);
}
for (i = 0; i < MAX_SAVE_TRIES; i++)
{
redo = 0; /* try to save twice */
#ifndef PBS_MOM
lock_ss();
#endif
if (save_struct((char *)&pjob->ji_qs, sizeof(pjob->ji_qs), fds, save_buf, &buf_remaining, sizeof(save_buf)) != PBSE_NONE)
{
redo++;
}
else if (save_attr(job_attr_def,
pjob->ji_wattr,
JOB_ATR_LAST,
fds,
save_buf,
&buf_remaining,
sizeof(save_buf)) != PBSE_NONE)
{
redo++;
}
#ifdef PBS_MOM
else if (save_tmsock(pjob, fds, save_buf, &buf_remaining, sizeof(save_buf)) != PBSE_NONE)
{
redo++;
}
#endif /* PBS_MOM */
else if (write_buffer(save_buf, sizeof(save_buf) - buf_remaining, fds) != PBSE_NONE)
{
redo++;
}
#ifndef PBS_MOM
unlock_ss();
#endif
if (redo != 0)
{
if (lseek(fds, (off_t)0, SEEK_SET) < 0)
{
log_err(errno, "job_save", (char *)"full lseek");
}
}
else
{
break;
}
} /* END for (i) */
close(fds);
if (i >= MAX_SAVE_TRIES)
{
if (updatetype == SAVEJOB_FULL)
unlink(namebuf2);
return(-1);
}
if (updatetype == SAVEJOB_FULL)
{
unlink(namebuf1);
if (link(namebuf2, namebuf1) == -1)
{
log_event(
PBSEVENT_ERROR | PBSEVENT_SECURITY,
PBS_EVENTCLASS_JOB,
pjob->ji_qs.ji_jobid,
(char *)"Link in job_save failed");
}
else
{
unlink(namebuf2);
}
}
pjob->ji_modified = 0;
} /* END (updatetype == SAVEJOB_QUICK) */
return(PBSE_NONE);
} /* END job_save() */
