static
rc_t TarNode_Open(const TarNode* cself, const char* subpath, const SAccessor** accessor)
{
rc_t rc = 0;
if( subpath != NULL ) {
rc = RC(rcExe, rcFile, rcOpening, rcDirEntry, rcNotFound);
} else {
const KFile* kf = NULL;
if( (rc = TarFile_Open(&kf, cself->files)) == 0 ) {
if( (rc = KFileAccessor_Make(accessor, cself->node.name, kf)) != 0 ) {
ReleaseComplain(KFileRelease, kf);
}
}
}
if( rc != 0 ) {
SAccessor_Release(*accessor);
*accessor = NULL;
}
return rc;
}
rc_t Initialize(unsigned int sra_sync, const char* xml_path, const char* cache_dir, const char* heart_beat_url, unsigned int xml_sync, const char* xml_root, uint32_t block_size)
{
rc_t rc = 0;
KDirectory* dir = NULL;
if( (rc = KDirectoryNativeDir(&dir)) == 0 ) {
char buf[4096];
if( (rc = KDirectoryResolvePath(dir, true, buf, 4096, xml_root)) == 0 ) {
/* replace /. at the end to just / */
if( strcmp(&buf[strlen(buf) - 2], "/.") == 0 ) {
buf[strlen(buf) - 1] = '\0';
}
/* add / to the end if missing */
if( buf[strlen(buf) - 1] != '/' ) {
buf[strlen(buf) + 1] = '\0';
buf[strlen(buf)] = '/';
}
if( (rc = StrDup(buf, &g_work_dir)) == 0 ) {
DEBUG_MSG(8, ("Current directory set to '%s'\n", g_work_dir));
}
}
if ( rc == 0 ) {
rc = RemoteCacheInitialize ( cache_dir );
if ( rc == 0 ) {
RemoteCacheSetHttpBlockSize ( block_size );
if ( IsLocalPath ( xml_path ) ) {
KDirectoryResolvePath(dir, true, buf, 4096, xml_path);
rc = XML_Make(dir, g_work_dir, buf, heart_beat_url, xml_sync);
}
else {
rc = XML_Make(dir, g_work_dir, xml_path, heart_beat_url, xml_sync);
}
}
}
ReleaseComplain(KDirectoryRelease, dir);
}
return rc;
}
static
rc_t TarNode_MakeFileList(const KXMLNode* xml_node, const TarFileList** files, char* errmsg, const char* rel_path, const char* name)
{
rc_t rc = 0;
time_t now = time(NULL);
uint32_t count = 0;
*files = NULL;
if( (rc = KXMLNodeCountChildNodes(xml_node, &count)) == 0 ) {
if( count == 0 ) {
rc = RC(rcExe, rcDoc, rcValidating, rcData, rcEmpty);
} else if( (rc = TarFileList_Make(files, count, name)) == 0 ) {
uint32_t i = 0;
while(rc == 0 && i < count) {
const KXMLNode* n = NULL;
const char* n_name;
if( (rc = KXMLNodeGetNodeRead(xml_node, &n, i++)) == 0 && (rc = KXMLNodeElementName(n, &n_name)) == 0 ) {
if( strcmp(n_name, "Item") != 0 ) {
rc = RC(rcExe, rcDoc, rcValidating, rcNode, rcUnexpected);
strcpy(errmsg, n_name);
} else {
size_t sz_read;
char path[4096], name[4096];
KTime_t ts = now;
uint64_t fsz = 0;
bool exec = false;
if( (rc = KXMLNodeReadAttrCString(n, "path", name, sizeof(name), &sz_read)) == 0 ) {
if( name[0] == '\0' ) {
rc = RC(rcExe, rcDoc, rcValidating, rcAttr, rcEmpty);
} else if( name[0] == '/' ) {
memmove(path, name, sz_read + 1);
} else {
KDirectory* dir = NULL;
if( (rc = KDirectoryNativeDir(&dir)) == 0 &&
(rc = KDirectoryResolvePath(dir, true, path, sizeof(path), "%s/%s", rel_path, name)) == 0 ) {
DEBUG_LINE(8, "%s/%s resolved to %s", rel_path, name, path);
}
KDirectoryRelease(dir);
}
if( rc != 0 ) {
strcpy(errmsg, "TAR/Item/@path");
}
}
if( rc == 0 && (rc = XML_ParseTimestamp(n, "timestamp", &ts, true)) != 0 ) {
strcpy(errmsg, "TAR/Item/@timestamp");
}
if( rc == 0 && (rc = XML_ParseBool(n, "executable", &exec, true)) != 0 ) {
strcpy(errmsg, "TAR/Item/@executable");
}
if( rc == 0 && (rc = KXMLNodeReadAttrAsU64(n, "size", &fsz)) != 0 ) {
strcpy(errmsg, "TAR/Item/@size");
}
if( rc == 0 ) {
name[0] = '\0';
rc = KXMLNodeReadAttrCString(n, "name", name, sizeof(name), &sz_read);
if( (GetRCObject(rc) == (enum RCObject)rcAttr && GetRCState(rc) == rcNotFound) || name[0] == '\0' ) {
char* x = strrchr(path, '/');
strcpy(name, x ? x + 1 : path);
rc = 0;
} else if( rc == 0 && name[0] == '/' ) {
strcat(errmsg, "Item/@name cannot be absolute");
rc = RC(rcExe, rcDoc, rcValidating, rcName, rcInvalid);
} else if( rc != 0 ) {
strcpy(errmsg, "Item/@name");
}
}
if( rc == 0 ) {
const KNamelist* attr = NULL;
if( (rc = KXMLNodeListAttr(n, &attr)) == 0 ) {
uint32_t j = 0, count = 0;
if( (rc = KNamelistCount(attr, &count)) == 0 && count > 0 ) {
while( rc == 0 && j < count ) {
const char *attr_nm = NULL;
if( (rc = KNamelistGet(attr, j++, &attr_nm)) != 0 ) {
break;
}
if( strcmp("path", attr_nm) == 0 || strcmp("name", attr_nm) == 0 ||
strcmp("timestamp", attr_nm) == 0 || strcmp("size", attr_nm) == 0 ||
strcmp("executable", attr_nm) == 0 ) {
continue;
}
rc = RC(rcExe, rcDoc, rcValidating, rcDirEntry, rcInvalid);
strcpy(errmsg, "unknown attribute TAR/Item/@");
strcat(errmsg, attr_nm);
}
}
ReleaseComplain(KNamelistRelease, attr);
}
}
if( rc == 0 && (rc = TarFileList_Add(*files, path, name, fsz, ts, exec)) != 0 ) {
strcpy(errmsg, "adding to TAR");
}
}
ReleaseComplain(KXMLNodeRelease, n);
}
}
if( rc != 0 ) {
TarFileList_Release(*files);
*files = NULL;
}
}
}
return rc;
}
static
void XMLUnlock(void)
{
DEBUG_MSG(10, ("Unlocked XML tree\n"));
ReleaseComplain(KRWLockUnlock, g_lock);
}
static
rc_t XML_ValidateNode(FSNode* parent, const KXMLNode* n, SRAConfigFlags flags, char* errmsg)
{
rc_t rc = 0;
const char* name = NULL;
FSNode* fsn = NULL;
bool children_allowed = false, should_have_children = false, ignore_children = false;
if( (rc = KXMLNodeElementName(n, &name)) != 0 ) {
return rc;
}
DEBUG_MSG(8, ("Node: %s\n", name));
if( name == NULL ) {
return RC(rcExe, rcDoc, rcValidating, rcDirEntry, rcNull);
}
if( strcmp(name, "Directory") == 0 ) {
rc = DirectoryNode_Make(n, &fsn, errmsg, g_start_dir, g_xml_mtime, g_xml_validate);
children_allowed = true;
} else if( strcmp(name, "File") == 0 ) {
rc = FileNode_Make(n, &fsn, errmsg, g_start_dir, g_xml_validate);
} else if( strcmp(name, "SRA") == 0 ) {
if( (rc = SRAListNode_Make(n, parent, flags, errmsg, g_start_dir, g_xml_validate)) == 0 ) {
fsn = parent;
}
} else if( strcmp(name, "TAR") == 0 ) {
/* tar nodes do not validate on creation */
rc = TarNode_MakeXML(n, &fsn, errmsg, g_start_dir);
children_allowed = true;
ignore_children = true;
} else if( strcmp(name, "SRAConfig") == 0 ) {
if( (rc = SRAConfigParse(n, &flags, errmsg)) == 0 ) {
fsn = parent;
children_allowed = true;
should_have_children = true;
}
} else {
strcpy(errmsg, name);
rc = RC(rcExe, rcDoc, rcValidating, rcTag, rcUnknown);
}
if( rc == 0 ) {
strcpy(errmsg, name);
if( fsn == parent || (rc = FSNode_AddChild(parent, fsn)) == 0 ) {
uint32_t count = 0;
if( (rc = KXMLNodeCountChildNodes(n, &count)) == 0 && count > 0 ) {
if( !children_allowed ) {
if( fsn != NULL ) {
FSNode_GetName(fsn, &name);
}
rc = RC(rcExe, rcDoc, rcValidating, rcDirEntry, rcInvalid);
strcpy(errmsg, name);
} else if( !ignore_children ) {
uint32_t i = 0;
const KXMLNode* ch = NULL;
while( rc == 0 && i < count ) {
if( (rc = KXMLNodeGetNodeRead(n, &ch, i++)) == 0 ) {
rc = XML_ValidateNode(fsn, ch, flags, errmsg);
ReleaseComplain(KXMLNodeRelease, ch);
}
}
}
} else if( count == 0 && should_have_children ) {
PLOGMSG(klogWarn, (klogWarn, "$(n) may have children", PLOG_S(n), name));
}
}
}
return rc;
}
