X-Git-Url: https://git.exim.org/buildfarm-server.git/blobdiff_plain/9aab6bac9c2c174a5ef8869e9b947a3917e18087..b82a14979c08ae940b8c0b8df8583ae4e79ceea8:/cgi-bin/show_members.pl diff --git a/cgi-bin/show_members.pl b/cgi-bin/show_members.pl index d45acd6..f35c66a 100755 --- a/cgi-bin/show_members.pl +++ b/cgi-bin/show_members.pl @@ -15,8 +15,8 @@ use Template; use vars qw($dbhost $dbname $dbuser $dbpass $dbport $template_dir $sort_by); -require "$ENV{BFConfDir}/BuildFarmWeb.pl"; -#require "BuildFarmWeb.pl"; +use FindBin qw($RealBin); +require "$RealBin/../BuildFarmWeb.pl"; my $query = new CGI; my %sort_ok = ('name' => 'lower(name)' , @@ -41,13 +41,13 @@ my $statement = q{ select name, operating_system, os_version, compiler, compiler_version, owner_email, sys_notes_ts::date AS sys_notes_date, sys_notes, architecture as arch, ARRAY( - select branch || ':' || + select branch || E':' || extract(days from now() - l.snapshot) from latest_snapshot l where l.sysname = s.name order by branch <> 'HEAD', branch desc ) as branches, - ARRAY(select compiler_version || '\t' || os_version || '\t' || effective_date + ARRAY(select compiler_version || E'\t' || os_version || E'\t' || effective_date from personality p where p.name = s.name order by effective_date @@ -99,4 +99,3 @@ $template->process('members.tt', {statrows=>$statrows}); exit; -