inc.debug.php

Go to the documentation of this file.

<?php
/*
        +-----------------------------------------------------------------------------+
        | ILIAS open source                                                           |
        +-----------------------------------------------------------------------------+
        | Copyright (c) 1998-2001 ILIAS open source, University of Cologne            |
        |                                                                             |
        | This program is free software; you can redistribute it and/or               |
        | modify it under the terms of the GNU 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. |
        +-----------------------------------------------------------------------------+
*/
 
function vd()
{
        list($file, $func) = getPhpSourceCodePositionInfo(1);
        
        $numargs = func_num_args();
 
        if ($numargs == 0)
        {
                return false;
        }
        
        $arg_list = func_get_args();
        $num = 1;
 
        include_once 'Services/Authentication/classes/class.ilAuthFactory.php';
        if( ilAuthFactory::getContext() == ilAuthFactory::CONTEXT_CRON )
                        $cli = true;
        else    $cli = false;
        
        foreach ($arg_list as $arg)
        {
                if(!$cli)
                {
                        $printbefore = "<pre style=\"text-align:left;\">";
                        $printbefore .= "$file - $func - variable $num:<br/>";
                        $printafter = "</pre><br/>";
                }
                else
                {
                        $printbefore = "\n\n_________________________________________________".
                                                        "_________________________________________________\n";
                        $printbefore .= "$file - $func - variable $num:\n\n";
                        $printafter = "_________________________________________________".
                                                        "_________________________________________________\n\n";
                }
 
                echo $printbefore;
                var_dump($arg);
                echo $printafter;
                $num++;
        }
        
        // BH: php 5.3 seems to not flushing the output consequently so following redirects are still performed
        // and the output of vd() would be lost in nirvana if we not flush the output manualy
        flush(); ob_flush();
}
 
function pr($var,$name = '')
{
        if($name != '') $name .= ' = ';
        $print = $name.print_r($var,true);
        
        if( ilAuthFactory::getContext() == ilAuthFactory::CONTEXT_CRON )
        {
                $hr = "\n---------------------------------------------------------------\n";
                echo $hr.$print.$hr;
        }
        else
        {
                echo '<pre>'.$print.'</pre>';
        }
        
        // BH: php 5.3 seems to not flushing the output consequently so following redirects are still performed
        // and the output of vd() would be lost in nirvana if we not flush the output manualy
        flush(); ob_flush();
}
 
function cf($backjumps = 1)
{
        list($fileC, $funcC) = getPhpSourceCodePositionInfo( ($backjumps - 1) + 1 );
        list($fileF, $funcF) = getPhpSourceCodePositionInfo( ($backjumps) + 1 );
 
        echo "<pre style=\"text-align:left;\">$fileC - $funcC\nIS CALLED FROM: $fileF - $funcF</pre>";
 
        // BH: php 5.3 seems to not flushing the output consequently so following redirects are still performed
        // and the output of vd() would be lost in nirvana if we not flush the output manualy
        flush(); ob_flush();
}
 
function getPhpSourceCodePositionInfo($backjumps = 0)
{
        $i = $backjumps;
        $j = $backjumps + 1;
 
        $e = new Exception();
        $trace = $e->getTrace();
 
        $file = basename($trace[$i]['file']).':'.$trace[$i]['line'];
 
        $func = '';
 
        if( isset($trace[$j]['class']) && strlen($trace[$j]['class']) )
        {
                $func = $trace[$j]['class'];
 
                if( isset($trace[$j]['class']) && strlen($trace[$j]['class']) )
                                $func .= $trace[$j]['type'];
                else    $func .= '::';
        }
 
        $func .= $trace[$j]['function'].'()';
 
        return array($file, $func);
}