src/midgard_core_object_class.c

/* 
 * Copyright (C) 2006 Piotr Pokora <piotrek.pokora@gmail.com>
 *
 * This program is free software; you can redistribute it and/or modify it
 * under the terms of the GNU Lesser General Public License as published
 * by the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 * 
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */

#include "midgard_core_object_class.h"
#include "midgard/midgard_error.h"
#include <sys/types.h>
#include <sys/stat.h>
#include "midgard/midgard_reflection_property.h"

#define get_varchar_size(str) \
                if(str == NULL) \
                size++; \
        else \
                size = strlen((const gchar *)str) + 1 + size; \
        g_free(str);

#define get_datetime_size(str) \
                size = 8 + size; \
        g_free(str);


gboolean _midgard_core_object_is_valid(MgdObject *object)
{
        guint propn, i, size = 0;
        GType prop_type;
        gchar *prop_str;
        const gchar *blobdir;
        gchar *blobpath, *location;
        struct stat statbuf; /* GLib 2.6 is not available everywhere, g_stat not used */
        const gchar *typename = G_OBJECT_TYPE_NAME(object);
        GParamSpec **props = g_object_class_list_properties(
                        G_OBJECT_GET_CLASS(G_OBJECT(object)), &propn);
        if(!props){
                midgard_set_error(object->mgd->_mgd,
                                MGD_GENERIC_ERROR,
                                MGD_ERR_INVALID_OBJECT,
                                "Object %s has no properties",
                                G_OBJECT_TYPE_NAME(object));
                g_warning("%s", object->mgd->_mgd->err->message);
                g_clear_error(&object->mgd->_mgd->err);
                g_free(props);
                return FALSE; 
        }
        
        MidgardObjectClass *klass = MIDGARD_OBJECT_GET_CLASS(object);

        /* Attachment, we need to get file size */
        if(g_str_equal(typename, "midgard_attachment")){
                
                /* FIXME , remove legacy blobdir get */
                blobdir = mgd_get_blobdir(object->mgd);
                
                if (!blobdir || (*blobdir != '/')
                                || (stat(blobdir, &statbuf) != 0)
                                || !S_ISDIR(statbuf.st_mode)) {
                        g_free(props);
                        g_error("Invalid blobdir or blobdir is not set");
                }
                g_object_get(G_OBJECT(object), "location", &location, NULL);

                /* FIXME, get blobdir location from MidgardConfig */
                if(strlen(location) > 1) {
                        blobpath = g_strconcat(
                                        blobdir,
                                        "/",
                                        location,
                                        NULL);
                        
                        if((stat(blobpath, &statbuf) == 0) || (!S_ISDIR(statbuf.st_mode)))
                                size = statbuf.st_size;
                        g_free(blobpath);
                        g_free(location);
                }
        }

        MidgardReflectionProperty *mrp = 
                midgard_reflection_property_new(klass);
        
        for(i = 0; i < propn; i++){
                prop_type = 
                        midgard_reflection_property_get_midgard_type(
                                        mrp,
                                        props[i]->name);
                                
                if(prop_type == MGD_TYPE_GUID) {
                        /* I think empty string should be set if prop_str is NULL.
                         * assertion failed should be triggered , but we should 
                         * consider language bindings ( especially PHP ) */
                        g_object_get(G_OBJECT(object), props[i]->name,
                                        &prop_str, NULL);
                        if(prop_str == NULL) prop_str = g_strdup("");
                        if(!midgard_is_guid(prop_str)){
                                midgard_set_error(object->mgd->_mgd,
                                                MGD_GENERIC_ERROR,
                                                MGD_ERR_INVALID_PROPERTY_VALUE,
                                                "'%s' property's value is not a guid. ",
                                                props[i]->name);
                                g_warning("%s", object->mgd->_mgd->err->message);
                                g_clear_error(&object->mgd->_mgd->err);
                                g_free(props);
                                g_free(prop_str);
                                return FALSE;
                        }
                        get_varchar_size(prop_str);
                
                } else if(prop_type == MGD_TYPE_LONGTEXT){
                        g_object_get(G_OBJECT(object), props[i]->name,
                                        &prop_str, NULL);                       
                        if(prop_str == NULL) prop_str = g_strdup("");
                        size = (strlen(prop_str)) + 4 + size;
                        g_free(prop_str);
                
                } else if(prop_type == MGD_TYPE_TIMESTAMP) {
                        g_object_get(G_OBJECT(object), props[i]->name,
                                        &prop_str, NULL);
                        /* TODO, Check if timestamp value is valid */
                        size =  8 + size;
                        g_free(prop_str);
                
                } else if(prop_type == MGD_TYPE_STRING) {
                        g_object_get(G_OBJECT(object), props[i]->name,
                                        &prop_str, NULL);
                        get_varchar_size(prop_str);

                } else if(prop_type == MGD_TYPE_UINT 
                                && prop_type == MGD_TYPE_INT
                                && prop_type == MGD_TYPE_FLOAT
                                && prop_type == MGD_TYPE_BOOLEAN){
                        size = size + 4;
                
                } else {
                        /* Do nothing now */
                }
        }
        g_free(props);

        /* Object metadata */
        /* creator */
        g_object_get(G_OBJECT(object->metadata), "creator", &prop_str, NULL);
        get_varchar_size(prop_str);
        /* created */
        g_object_get(G_OBJECT(object->metadata), "created", &prop_str, NULL);
        get_datetime_size(prop_str);
        /* revisor */
        g_object_get(G_OBJECT(object->metadata), "revisor", &prop_str, NULL);
        get_varchar_size(prop_str);
        /* revised */
        g_object_get(G_OBJECT(object->metadata), "revised", &prop_str, NULL);
        get_datetime_size(prop_str);
        /* locker */
        g_object_get(G_OBJECT(object->metadata), "locker", &prop_str, NULL);
        get_varchar_size(prop_str);
        /* locked */
        g_object_get(G_OBJECT(object->metadata), "locked", &prop_str, NULL);
        get_datetime_size(prop_str);
        /* approver */
        g_object_get(G_OBJECT(object->metadata), "approved", &prop_str, NULL);
        get_varchar_size(prop_str);
        /* approved */
        g_object_get(G_OBJECT(object->metadata), "approved", &prop_str, NULL);
        get_datetime_size(prop_str);
        /* published */
        g_object_get(G_OBJECT(object->metadata), "published", &prop_str, NULL);
        get_datetime_size(prop_str);
        /* authors */
        g_object_get(G_OBJECT(object->metadata), "authors", &prop_str, NULL);
        if(prop_str == NULL)
                prop_str = g_strdup("");
        size = strlen(prop_str) + 4 + size;
        g_free(prop_str);
        
        /* owner */
        g_object_get(G_OBJECT(object->metadata), "owner", &prop_str, NULL);
        get_varchar_size(prop_str);
        /* schedule-start */
        g_object_get(G_OBJECT(object->metadata), "schedulestart", &prop_str, NULL);
        get_datetime_size(prop_str);
        /* schedule-end */
        g_object_get(G_OBJECT(object->metadata), "scheduleend", &prop_str, NULL);
        get_datetime_size(prop_str);
        /* hidden, nav-noentry , revision ( 3 x 4 ) */
        size = size + 12;
        
        g_object_set(G_OBJECT(object->metadata), "size", size, NULL);

        return TRUE;
}

---