From: kanschat Date: Thu, 23 Nov 2006 04:33:00 +0000 (+0000) Subject: add new headers to report X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4dc385812d060a3f334633ec8cf6e31894a2e834;p=dealii-svn.git add new headers to report git-svn-id: https://svn.dealii.org/trunk@14211 0785d39b-7218-0410-832d-ea1e28bc413d --- diff --git a/tests/Makefile.rules b/tests/Makefile.rules index 0d7a80996d..94201ca5f2 100644 --- a/tests/Makefile.rules +++ b/tests/Makefile.rules @@ -18,6 +18,9 @@ verbose = off PLATFORM = $(TARGET)+$(GXX-VERSION:intel_%=%) PLATFORM-HIERARCHY = $(shell $(PERL) ../hierarchy.pl $(PLATFORM)) +ID = "deal" +ID +="@"`hostname` + ############################################################ # First how to create executables, including all necessary # flags: @@ -141,6 +144,9 @@ endif ############################################################ report: @-$(MAKE) -k run-tests + @svn info $D | grep '^Revision' + @echo 'Date: ' `date -u +"%Y %j %F %U-%w"` + @echo 'Id: ' $(ID) @for test in $(sort $(tests)) ; do \ echo `date -u +"%Y-%m-%d %H:%M"` "`perl $D/common/scripts/status_to_report.pl $$test/status`" "$(WORKDIR)/$$test" ; \ done diff --git a/tests/scripts/report_to_db.pl b/tests/scripts/report_to_db.pl new file mode 100644 index 0000000000..7fa7957412 --- /dev/null +++ b/tests/scripts/report_to_db.pl @@ -0,0 +1,26 @@ +#!/bin/perl + +use strict; + +my $path = '.'; +my $revision; +my $id; +my $date; + +while(<>) +{ + if (m/^Date:\s*(\d+)\s+(\d+)/) + { + my $name = sprintf("%s/%04d-%03d", $path, $1, $2); +# print $name; + } + $revision = $1 if (m/^Revision:\s*(\d+)/); + $id = $1 . $2 if (m/^Id:\s*(\S+)\s+(\S+)?\n/); + if (m/^\d\d\d\d-\d\d-\d\d \d\d:\d\d/) + { + chop; + s/\s+/ /g; + s/ \+ / 4 /; + print "$revision $_ $id\n" + } +}