dav/finfo.c

/*
 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS HEADER.
 *
 * Copyright 2019 Olaf Wintermann. All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are met:
 *
 *   1. Redistributions of source code must retain the above copyright
 *      notice, this list of conditions and the following disclaimer.
 *
 *   2. Redistributions in binary form must reproduce the above copyright
 *      notice, this list of conditions and the following disclaimer in the
 *      documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGE.
 */

#include "finfo.h"

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <sys/stat.h>

#include <ucx/string.h>
#include <libidav/crypto.h>
#include <libidav/utils.h>

#include "libxattr.h"

uint32_t parse_finfo(const char *str) {
    scstr_t s = scstr(str);
    
    if(!sstrcmp(s, SC("*")) || !sstrcmp(s, SC("a")) || !sstrcmp(s, SC("all"))) {
        return FINFO_DATE|FINFO_OWNER|FINFO_MODE;
    }
    
    size_t count = 0;
    sstr_t *fs = sstrsplit(s, SC(","), &count);
    
    uint32_t finfo = 0;
    for(int i=0;i<count;i++) {
        sstr_t f = fs[i];
        if(!sstrcasecmp(f, SC("date"))) {
            finfo |= FINFO_DATE;
        } else if(!sstrcasecmp(f, SC("owner"))) {
            finfo |= FINFO_OWNER;
        } else if(!sstrcasecmp(f, SC("mode"))) {
            finfo |= FINFO_MODE;
        } else if(!sstrcasecmp(f, SC("xattr"))) {
            finfo |= FINFO_XATTR;
        }
        free(f.ptr);
    }
    
    free(fs);
    return finfo;
}

int resource_set_finfo(const char *path, DavResource *res, uint32_t finfo) {
    if(!path || finfo == 0) {
        return 0;
    }
    
    struct stat s;
    if(stat(path, &s)) {
        fprintf(stderr, "failed to stat: %s\n", path);
        return 1;
    }
    return resource_set_finfo_s(&s, res, finfo);
}

int resource_set_finfo_s(struct stat *s, DavResource *res, uint32_t finfo) {
    if(finfo == 0) {
        return 0;
    }
    
    DavXmlNode *content = NULL;
    DavXmlNode *last = NULL;
    
    if(finfo & FINFO_DATE == FINFO_DATE) {
        char str[32];
        struct tm *date = gmtime(&s->st_mtime);
        strftime(str, 32, "%a, %d %b %Y %H:%M:%S GMT", date);
        DavXmlNode *mtime = dav_xml_createnode_with_text(DAV_NS, "mtime", str);
        content = mtime;
        last = mtime;
    }
#ifndef _WIN32
    if(finfo & FINFO_OWNER == FINFO_OWNER) {
        // TODO
    }
    if(finfo & FINFO_MODE == FINFO_MODE) {
        mode_t mode = s->st_mode & 07777;
        char str[32];
        snprintf(str, 32, "%o", (int)mode);
        DavXmlNode *xmode = dav_xml_createnode_with_text(DAV_NS, "mode", str);
        if(last) {
            last->next = xmode;
        } else {
            content = xmode;
        }
        last = xmode;
    }
#endif
    
    
    dav_set_property(res, "idav:finfo", content);;
    
    return 0;
}

XAttributes* file_get_attributes(const char *path) {
    ssize_t nelm = 0;
    char **attributes = xattr_list(path, &nelm);
    if(nelm <= 0) {
        return NULL;
    }
    
    XAttributes *xattr = malloc(sizeof(XAttributes));
    xattr->nattr = 0;
    xattr->names = calloc(nelm, sizeof(char*));
    xattr->values = calloc(nelm, sizeof(sstr_t));
    
    DAV_SHA_CTX *sha256 = dav_hash_init();
    
    size_t nattr = 0;
    for(int i=0;i<nelm;i++) {
        ssize_t valuelen = 0;
        char *value = xattr_get(path, attributes[i], &valuelen);
        if(valuelen >= 0) {
            dav_hash_update(sha256, attributes[i], strlen(attributes[i]));
            dav_hash_update(sha256, value, valuelen);
            // add name and value
            xattr->names[nattr] = attributes[i];
            sstr_t v;
            v.ptr = value;
            v.length = valuelen;
            xattr->values[nattr] = v;
            nattr++;
        } else {
            // discard not readable attributes
            free(attributes[i]);
        }
    }
    
    xattr->nattr = nattr;
    
    unsigned char hash[DAV_SHA256_DIGEST_LENGTH];
    dav_hash_final(sha256, hash);
    xattr->hash = util_hexstr(hash, DAV_SHA256_DIGEST_LENGTH);
    
    free(attributes);
    
    return xattr;
}

int resource_set_xattr(DavResource *res, XAttributes *xattr) {
    if(!xattr || xattr->nattr == 0) {
        return 0;
    }
    
    DavXmlNode *content = dav_xml_createnode_with_text(DAV_NS, "hash", xattr->hash);
    DavXmlNode *last = content;
    
    for(int i=0;i<xattr->nattr;i++) {
        DavXmlNode *attr = dav_xml_createnode(DAV_NS, "xattr");
        dav_xml_add_attr(attr, "name", xattr->names[i]);
        last->next = attr;
        last = attr;
        
        sstr_t value = xattr->values[i];
        if(value.length > 0) {
            char *encval = util_base64encode(value.ptr, value.length);
            attr->children = dav_xml_createtextnode(encval);
            free(encval);
        }
    }
    
    dav_set_property(res, "idav:xattributes", content);
    
    return 0;
}

void xattributes_free(XAttributes *xattr) {
    
}