#!/usr/bin/perl -w BEGIN { use strict; use Date::Manip; } my $col_red = "#FFAAAA"; my $col_green = "#99FF99"; my $col_yellow = "#FFFF99"; my $home = shift || die "\n\tusage: $0 \n\n"; my $prev = shift || ""; my $next = shift || ""; -d "$home" || die "invalid demo home dir $home\n"; -f "$home/stdout" || die "Cannot find demo's stdout\n"; -f "$home/stderr" || die "Cannot find demo's stderr\n"; if ( $prev eq "-" ) { $prev = ""; } if ( $next eq "-" ) { $next = ""; } open OUT, (">$home/index.html") || die "Cannot open output file: $!\n"; { my @ep_logs = `ls $home/endpoint.*.txt 2>/dev/null`; my @client_logs = `ls $home/client.*.txt 2>/dev/null`; my $result_line = `cat $home/stdout | grep -e "^result : "`; my $start_line = `cat $home/stdout | grep -e "^start : "`; my $stop_line = `cat $home/stdout | grep -e "^stop : "`; $start_line =~ s/^\s*start\s*:\s*//; $stop_line =~ s/^\s*stop \s*:\s*//; my @dates = ($start_line, $stop_line); chomp (@dates); print OUT < EOT if ( 2 == scalar (@dates) ) { my $begin = ParseDate ($dates[0]); my $end = ParseDate ($dates[1]); my $delta = DateCalc ($begin, $end); my $min = Delta_Format ($delta, "%mv") || ""; my $sec = Delta_Format ($delta, "%sv") || ""; if ( $min =~ /^\d$/io ) { $min = "0$min"; } if ( $sec =~ /^\d$/io ) { $sec = "0$sec"; } print OUT " \n"; } else { print OUT " \n"; } my $outsize = (stat ("$home/stdout"))[7]; my $errsize = (stat ("$home/stderr"))[7]; print OUT <

navigation

home today last current EOT print OUT " prev\n" if $prev; print OUT " next\n" if $next; print OUT <

configuration

demo.ini

endpoints

EOT my $tot_jobreq = 0; my $tot_jobok = 0; my $tot_jobreg = 0; my $tot_itemreq = 0; my $tot_itemok = 0; foreach my $ep ( sort @ep_logs ) { if ( $ep =~ /(endpoint\.(.+)\.txt)$/o ) { my $fname = $1; my $epname = $2; my $url_line = `grep -e '^ url =' $ep`; my $status_line = `grep -e '^ status :' $ep`; my $jobreq_line = `grep -e '^ #jobreq :' $ep`; my $jobok_line = `grep -e '^ #jobok :' $ep`; my $jobreg_line = `grep -e '^ #jobreg :' $ep`; my $itemreq_line = `grep -e '^ #itemreq :' $ep`; my $itemok_line = `grep -e '^ #itemok :' $ep`; my $url = "-"; my $status = "-"; my $jobreq = 0; my $jobok = 0; my $jobreg = 0; my $itemreq = 0; my $itemok = 0; if ( $url_line =~ /^ url =\s*(\S+)\s*$/io ) { $url = $1; } if ( $status_line =~ /^ status :\s*(\S+)\s*$/io ) { $status = $1; } if ( $jobreq_line =~ /^ #jobreq :\s*(\S+)\s*$/io ) { $jobreq = $1; } if ( $jobok_line =~ /^ #jobok :\s*(\S+)\s*$/io ) { $jobok = $1; } if ( $jobreg_line =~ /^ #jobreg :\s*(\S+)\s*$/io ) { $jobreg = $1; } if ( $itemreq_line =~ /^ #itemreq :\s*(\S+)\s*$/io ) { $itemreq = $1; } if ( $itemok_line =~ /^ #itemok :\s*(\S+)\s*$/io ) { $itemok = $1; } my $col_name = $col_yellow; my $col_status = $col_yellow; my $col_jobreq = $col_yellow; my $col_jobok = $col_yellow; my $col_jobreg = $col_yellow; my $col_itemreq = $col_yellow; my $col_itemok = $col_yellow; my $col_url = $col_yellow; my $fail = 0; $col_name = $col_green; # assume ep is enabled if ( $status eq "ok" ) { $col_status = $col_green; $status = "up"; if ($jobreq > 0 ) { $col_jobreq = $col_green; if ( $jobreq == $jobok ) { $col_jobok = $col_green; if ( $jobok == $jobreg ) { $col_jobreg = $col_green; if ( $itemreq > 0 ) { $col_itemreq = $col_green; if ( $itemreq == $itemok ) { $col_itemok = $col_green; } else { $col_itemok = $col_red; $fail = 1; } } else { $col_itemreq = $col_red; $fail = 1; } } else { $col_jobreg = $col_red; $fail = 1; } } else { $col_jobok = $col_red; $fail = 1; } } else { $col_jobreq = $col_red; $fail = 1; } } else { $col_status = $col_red; $fail = 1; $status = "down"; } if ( $fail ) { $col_url = $col_red; } else { $col_url = $col_green; } $tot_jobreq += $jobreq ; $tot_jobok += $jobok ; $tot_jobreg += $jobreg ; $tot_itemreq += $itemreq; $tot_itemok += $itemok ; print OUT < EOT } } print OUT <

name (ini link)	status	jobs requested	jobs started	jobs registered	items requested	items completed	url
$epname	$status	$jobreq	$jobok	$jobreg	$itemreq	$itemok	$url
total	-	$tot_jobreq	$tot_jobok	$tot_jobreg	$tot_itemreq	$tot_itemok	-

start

$dates[0]

stop

$dates[1]

runtime

$min:$sec min

Unknown

stdio

stdout ($outsize bytes)
stderr ($errsize bytes)

result

EOT } close (OUT);