ClusterCockpit/cc-backend
1
0
Fork 0
mirror of https://github.com/ClusterCockpit/cc-backend synced 2024-12-26 13:29:05 +01:00
Code Issues Packages Releases Activity

Add walltime and node core hours.

Browse Source 
Improve error handling.
This commit is contained in:
Jan Eitzinger 2019-04-29 11:32:27 +02:00
parent c92ebc4149
commit f7927ed297
1 changed files with 23 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
acQuery.pl
View File

@ -152,12 +152,14 @@ sub buildCondition {
sub printJobStat { sub printJobStat {
my $conditionstring = shift; my $conditionstring = shift;
my $query = 'SELECT COUNT(id), SUM(duration)/3600 FROM job '.$conditionstring; my $query = 'SELECT COUNT(id), SUM(duration)/3600, SUM(duration*num_nodes)/3600 FROM job '.$conditionstring;
my ($count, $coreHours) = $dbh->selectrow_array($query); my ($count, $walltime, $nodeHours) = $dbh->selectrow_array($query);
if ( $count > 0 ) {
print "=================================\n"; print "=================================\n";
print "Job count: $count\n"; print "Job count: $count\n";
print "Core hours: $coreHours \n"; print "Total walltime [h]: $walltime \n";
print "Total node hours [h]: $nodeHours \n";
$query = 'SELECT num_nodes, COUNT(*) FROM job '.$conditionstring.' GROUP BY 1'; $query = 'SELECT num_nodes, COUNT(*) FROM job '.$conditionstring.' GROUP BY 1';
my @histo_num_nodes = $dbh->selectall_array($query); my @histo_num_nodes = $dbh->selectall_array($query);
@ -170,12 +172,15 @@ sub printJobStat {
$query = 'SELECT duration/3600, COUNT(*) FROM job '.$conditionstring.' GROUP BY 1'; $query = 'SELECT duration/3600, COUNT(*) FROM job '.$conditionstring.' GROUP BY 1';
my @histo_runtime = $dbh->selectall_array($query); my @histo_runtime = $dbh->selectall_array($query);
print "\nHistogram: Runtime\n"; print "\nHistogram: Walltime\n";
print "hours\tcount\n"; print "hours\tcount\n";
foreach my $bin ( @histo_runtime ) { foreach my $bin ( @histo_runtime ) {
print "$bin->[0]\t$bin->[1]\n"; print "$bin->[0]\t$bin->[1]\n";
} }
} else {
print "No jobs\n";
}
} }