]> https://gitweb.dealii.org/ - dealii-svn.git/commitdiff
add new headers to report
authorkanschat <kanschat@0785d39b-7218-0410-832d-ea1e28bc413d>
Thu, 23 Nov 2006 04:33:00 +0000 (04:33 +0000)
committerkanschat <kanschat@0785d39b-7218-0410-832d-ea1e28bc413d>
Thu, 23 Nov 2006 04:33:00 +0000 (04:33 +0000)
git-svn-id: https://svn.dealii.org/trunk@14211 0785d39b-7218-0410-832d-ea1e28bc413d

tests/Makefile.rules
tests/scripts/report_to_db.pl [new file with mode: 0644]

index 0d7a80996da1e084cd17f4f6b10d3bc6c5b8c1d6..94201ca5f201bd2fa65a9a9e753c9e2a154be464 100644 (file)
@@ -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 (file)
index 0000000..7fa7957
--- /dev/null
@@ -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"
+    }
+}

In the beginning the Universe was created. This has made a lot of people very angry and has been widely regarded as a bad move.

Douglas Adams


Typeset in Trocchi and Trocchi Bold Sans Serif.