source: branches/0.4/web/addons/job_monarch/host_view.php @ 736

<?php
/*
 *
 * This file is part of Jobmonarch
 *
 * Copyright (C) 2006-2013  Ramon Bastiaans
 *
 * Jobmonarch 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.
 *
 * Jobmonarch 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., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 *
 * SVN $Id: host_view.php 736 2013-03-24 17:44:13Z ramonb $
 */

include_once "./libtoga.php";

function datetimeToEpoch( $datetime ) 
{

        $datetime_fields = explode( ' ', $datetime );

        $date = $datetime_fields[0];
        $time = $datetime_fields[1];

        $date_fields = explode( '-', $date );

        $days = $date_fields[0];
        $months = $date_fields[1];
        $years = $date_fields[2];

        //printf( "days = %s months = %s years = %s\n", $days, $months, $years );

        $time_fields = explode( ':', $time );

        $hours = $time_fields[0];
        $minutes = $time_fields[1];
        $seconds = $time_fields[2];

        $timestamp = mktime( $hours, $minutes, $seconds, $months, $days, $years );

        return $timestamp;
}

function makeHostView() 
{

    global $tpl, $metrics, $clustername, $hostname;
    global $cluster_ul, $hosts_up, $get_metric_string;
    global $cluster, $period_start, $period_stop;
    global $job_start, $job_stop, $view, $conf;

    $rrdirs = array();

    if( $view == "overview-host" )
    {
        $rrdirs[] = $conf['rrds'] . '/' . $clustername .'/'. $hostname;
    }
    else
    {
        $trd    = new TarchRrdGraph( $clustername, $hostname );
        $rrdirs = $trd->getRrdDirs( $period_start, $period_stop );
    }

    $longtitle    = "Batch Archive Node Report :: Powered by Job Monarch!";
    $title        = "Batch Archive Node Report";

    makeHeader( 'host_view', $title, $longtitle );

    #print_r( $rrdirs);

    $metrics = $metrics[$hostname];
    $mymetrics = array();

    foreach( $rrdirs as $rrdir ) 
    {
        #printf("rrd dir %s\n", $rrdir );
        if( $view == "overview-host" )
        {
            $mymetrics = $metrics;
            #print_r( $mymetrics );
        }
        else
        {
            #printf("archive mode\n");
            $ml    = $trd->dirList( $rrdir );

            foreach( $ml as $lmetr )
            {
                $metrn_fields = explode( '.', $lmetr );

                $metrn        = $metrn_fields[0];

                if( !in_array( $metrn, $mymetrics ) )
                {
                    $mymetrics[$metrn]    = $metrics[$metrn];
                }
            }
        }
    }

    $hosts_up = $hosts_up[$hostname];

    $tpl->assign("cluster", $clustername);
    $tpl->assign("host", $hostname);
    $tpl->assign("node_image", "../../".node_image($metrics));
    $tpl->assign("sort",$sort);
    $tpl->assign("range",$range);

    if( !is_numeric( $period_start ) ) 
    {
        $period_start = datetimeToEpoch( $period_start );
    }
    if( !is_numeric( $period_stop ) ) 
    {
        $period_stop = datetimeToEpoch( $period_stop );
    }

    if($hosts_up)
          $tpl->assign("node_msg", "This host is up and running."); 
    else
          $tpl->assign("node_msg", "This host is down."); 

    $cluster_url=rawurlencode($clustername);
    $tpl->assign("cluster_url", $cluster_url);
    $tpl->assign("graphargs", "h=$hostname&job_start=$job_start&job_stop=$job_stop&period_start=$period_start&period_stop=$period_stop");

    # For the node view link.
    $tpl->assign("node_view","./?p=2&c=$cluster_url&h=$hostname");

    $tpl->assign("ip", $hosts_up[IP]);

    #print_r( $mymetrics );

    foreach ($mymetrics as $name => $v)
    {
        if ($v[TYPE] == "string" or $v[TYPE]=="timestamp" or $always_timestamp[$name])
        {
            # Long gmetric name/values will disrupt the display here.
            if ($v[SOURCE] == "gmond") $s_metrics[$name] = $v;
        }
        else if ($v[SLOPE] == "zero" or $always_constant[$name])
        {
            $c_metrics[$name] = $v;
        }
        else if ($reports[$metric])
        {
            continue;
        }
        else
        {
            $graphargs = "c=$cluster_url&h=$hostname&m=$name"
               ."&z=overview-medium&job_start=$job_start&job_stop=$job_stop&period_start=$period_start&period_stop=$period_stop";
            # Adding units to graph 2003 by Jason Smith <smithj4@bnl.gov>.
            if ($v[UNITS]) 
            {
                $encodeUnits = rawurlencode($v[UNITS]);
                $graphargs .= "&vl=$encodeUnits";
            }
            $g_metrics[$name][graph] = $graphargs;
        }
    }
    # Add the uptime metric for this host. Cannot be done in ganglia.php,
    # since it requires a fully-parsed XML tree. The classic contructor problem.
    $s_metrics[uptime][TYPE] = "string";
    $s_metrics[uptime][VAL] = uptime($cluster[LOCALTIME] - $metrics[boottime][VAL]);

    # Add the gmond started timestamps & last reported time (in uptime format) from
    # the HOST tag:
    $s_metrics[gmond_started][TYPE] = "timestamp";
    $s_metrics[gmond_started][VAL] = $hosts_up[GMOND_STARTED];
    $s_metrics[last_reported][TYPE] = "string";
    $s_metrics[last_reported][VAL] = uptime($cluster[LOCALTIME] - $hosts_up[REPORTED]);

    # Show string metrics
    if (is_array($s_metrics))
    {
        ksort($s_metrics);
        foreach ($s_metrics as $name => $v )
        {
            $tpl->newBlock("string_metric_info");
            $tpl->assign("name", $name);
            if( $v[TYPE]=="timestamp" or $always_timestamp[$name])
            {
                $tpl->assign("value", date("r", $v[VAL]));
            }
            else
            {
                $tpl->assign("value", "$v[VAL] $v[UNITS]");
            }
        }
    }

    # Show constant metrics.
    if (is_array($c_metrics))
    {
        ksort($c_metrics);
        foreach ($c_metrics as $name => $v )
        {
            $tpl->newBlock("const_metric_info");
            $tpl->assign("name", $name);
            $tpl->assign("value", "$v[VAL] $v[UNITS]");
        }
    }

    # Show graphs.
    if (is_array($g_metrics))
    {
        ksort($g_metrics);

        $i = 0;
        foreach ( $g_metrics as $name => $v )
        {
            $tpl->newBlock("vol_metric_info");
            $tpl->assign("graphargs", $v[graph]);
            $tpl->assign("alt", "$hostname $name");
            if($i++ %2)
            {
                $tpl->assign("br", "<BR>");
            }
         }
    }
}

?>