svn commit: r248920 - user/des/tinderbox/www
Dag-Erling Smørgrav
des at FreeBSD.org
Fri Mar 29 22:01:17 UTC 2013
Author: des
Date: Fri Mar 29 22:01:17 2013
New Revision: 248920
URL: http://svnweb.freebsd.org/changeset/base/248920
Log:
Prettify config and branch names.
Modified:
user/des/tinderbox/www/index.cgi
Modified: user/des/tinderbox/www/index.cgi
==============================================================================
--- user/des/tinderbox/www/index.cgi Fri Mar 29 21:26:33 2013 (r248919)
+++ user/des/tinderbox/www/index.cgi Fri Mar 29 22:01:17 2013 (r248920)
@@ -1,6 +1,6 @@
#!/usr/bin/perl -Tw
#-
-# Copyright (c) 2003-2012 Dag-Erling Smørgrav
+# Copyright (c) 2003-2013 Dag-Erling Smørgrav
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
@@ -84,8 +84,10 @@ sub do_config($) {
my %branches = %{$CONFIGS{$config}};
+ my $prettyconfig = $config;
+ $prettyconfig =~ s/^(.*?)-build$/$1/;
print " <tr class='header'>
- <th>$config</th>
+ <th>$prettyconfig</th>
";
foreach my $arch (sort(keys(%ARCHES))) {
foreach my $machine (sort(keys(%{$ARCHES{$arch}}))) {
@@ -101,8 +103,12 @@ sub do_config($) {
my $now = time();
foreach my $branch (sort(inverse_branch_sort keys(%branches))) {
+ my $prettybranch = $branch;
+ $prettybranch =~ s@^HEAD$@/head@;
+ $prettybranch =~ s@^RELENG_(\d+)_(\d+)$@/releng/$1.$2@;
+ $prettybranch =~ s@^RELENG_(\d+)$@/stable/$1@;
print " <tr>
- <th>$branch</th>
+ <th>$prettybranch</th>
";
foreach my $arch (sort(keys(%ARCHES))) {
foreach my $machine (sort(keys(%{$ARCHES{$arch}}))) {
More information about the svn-src-user
mailing list