Date: Fri, 29 Mar 2013 22:01:17 +0000 (UTC) From: Dag-Erling Smørgrav <des@FreeBSD.org> To: src-committers@freebsd.org, svn-src-user@freebsd.org Subject: svn commit: r248920 - user/des/tinderbox/www Message-ID: <201303292201.r2TM1HxV055415@svn.freebsd.org>
next in thread | raw e-mail | index | archive | help
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}}))) {
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201303292201.r2TM1HxV055415>