root/dev/common/admin/option_db.php @ 233

<?php
options::cat('Maintenance', 'Database', 'Table checks');
options::fadd('This checks automatically your database', 'none', 'custom', array('admin_db', 'checkDatabase'), array('admin_db', 'none'));
options::fadd('Current SQL cache size', 'none', 'custom', array('admin_db', 'checkCache'), array('admin_db', 'killCache'));

class admin_db
{
    function checkDatabase()
    {
        require_once('common/includes/autoupgrade.php');

        // todo: write functions to take care of this
        // based on a database description file
        check_cap_industrial();
        check_pilots();
        check_invdetail();
        check_contracts();
        check_index();
        check_tblstrct1();
        check_tblstrct2();
        check_tblstrct3();
        check_tblstrct4();
        check_tblstrct5();
        chk_kb3_items();
        chk_kb3_items2();
        check_tblstrct6();
                check_navigationtable();
        return 'Maintenance complete.<br/>';
    }

    function none()
    {
        // do nothing on submit
    }

    function checkCache()
    {
        $size = 0;
        $dir = opendir(KB_CACHEDIR);
        while ($line = readdir($dir))
        {
            if (strstr($line, 'qcache_qry') !== false)
            {
                $size += filesize(KB_CACHEDIR.'/'.$line);
            }
        }
                
        // GB
        if (($size / 1073741824) > 1){
                return round($size/1073741824, 4).' GB <input type="checkbox" name="option[sql_clearcache]">Clear cache ?';
        // MB   
        }elseif (($size / 1048576) > 1){
                return round($size/1048576, 4).' MB <input type="checkbox" name="option[sql_clearcache]">Clear cache ?';
                // KB
        }else{ 
                return round($size/1024, 2).' KB <input type="checkbox" name="option[sql_clearcache]">Clear cache ?';
        }
    }

    function killCache()
    {
        if ($_POST['option']['sql_clearcache'] != 'on')
        {
            return;
        }

        $dir = opendir(KB_CACHEDIR);
        while ($line = readdir($dir))
        {
            if (strstr($line, 'qcache_qry') !== false)
            {
                @unlink(KB_CACHEDIR.'/'.$line);
            }
            elseif (strstr($line, 'qcache_tbl') !== false)
            {
                @unlink(KB_CACHEDIR.'/'.$line);
            }
        }
    }
}
?>