From 2422a081a5be0d5ac5afb122361bc283da67341f Mon Sep 17 00:00:00 2001 From: Pavel Raiskup Date: Wed, 22 Oct 2014 08:54:05 +0200 Subject: big reorg: prepare for generalization Try to split into three separate components -> controller, tester, and 'tasks' (postgresql-tasks in our case). The controller component is the main part which is able to run the task remotely. Tester is more-like library for 'tasks' component (should be reusable on the raw git level). * controller: Almost separated component. * postgresql-tasks: Likewise. * tester: Likewise. --- runner/result_stats | 74 --------------------------------------- runner/result_templates/html.tmpl | 42 ---------------------- 2 files changed, 116 deletions(-) delete mode 100755 runner/result_stats delete mode 100644 runner/result_templates/html.tmpl (limited to 'runner') diff --git a/runner/result_stats b/runner/result_stats deleted file mode 100755 index a92d6d6..0000000 --- a/runner/result_stats +++ /dev/null @@ -1,74 +0,0 @@ -#!/bin/perl - -use strict; -use warnings; -use utf8; - -use Data::Dumper; -use File::Basename; -use Cwd; -use Encode 'encode_utf8'; - -# teplates -use Text::Xslate; - -# yaml (quick) parser -use YAML::Syck; - -our $srcdir = dirname(__FILE__); - -sub html_printer -{ - my $results = $_[0]; - my $task_ids = $_[1]; - - my $xslate = Text::Xslate->new(path => ["$srcdir/result_templates"]); - - my $content = $xslate->render("html.tmpl", { - results => $results, - task_ids => $task_ids, - }); - print encode_utf8($content); -} - -my $workdir = $ARGV[0]; - -my $data = []; - -my $task_ids = {}; - -# go through *each* result directory -my $olddir = getcwd; -for (`find "$workdir" -maxdepth 1 -type d -name 'result_*'`) { - chomp; - chdir $_; - - my $run_results = {}; - $run_results->{dirname} = basename($_); - $run_results->{tasks} = {}; - $run_results->{exit_status} = 0; - - # go through each task - for (`find -maxdepth 1 -type f -name '*.result'`) { - chomp; - - (my $task_id = $_) =~ s/\.result$//; - $task_id =~ s/.*\///; - $task_ids->{$task_id} = 1; - - my $yaml_file = $_; - open my $fd, '<', $yaml_file - or die "can't open yaml file '$yaml_file'"; - - my $config = YAML::Syck::LoadFile($fd); - if ($config->{exit_status} != 0) { - $run_results->{exit_status} = 1; - } - $run_results->{tasks}->{$task_id} = $config; - } - - push @{$data}, $run_results; -} -chdir $olddir; - -html_printer $data, $task_ids; diff --git a/runner/result_templates/html.tmpl b/runner/result_templates/html.tmpl deleted file mode 100644 index 8a09ad7..0000000 --- a/runner/result_templates/html.tmpl +++ /dev/null @@ -1,42 +0,0 @@ - - - - - -Results - - - -
- - - - -: for $task_ids.keys() -> $task_id { - -: } - - -: for $results -> $result { - : if ($result.exit_status) { - - : } else { - - : } - - : for $task_ids.keys() -> $task_id { - : if (not defined($result.tasks[$task_id].exit_status)) { - - : } elsif ($result.tasks[$task_id].exit_status == 0) { - - : } else { - - : } - : } - -:} - -
Run time<: $task_id :>
<: $result.dirname :>NOT AVAILABLEOKFAIL
-
- - -- cgit