su - opensrf sh -c 'export PATH=/openils/bin:$PATH ; cd /home/opensrf/Evergreen/Open-ILS/src/perlmods/ ; make livecheck; echo Return Value = $?'
echo End of perl live tests =~-._
echo _.-~= Gathering system information
+ echo ''
uname -a
- echo 'select version();' | psql -At
+ echo 'select version();' | su - postgres -c 'psql -At'
echo ''
cat /proc/meminfo
echo ''
my $state = 'skipping';
my $error_count = 0;
my $subpage_count = 0;
+my $subpage = '';
my $opensrf_tip = '';
my $evergreen_tip = '';
$evergreen_tip = $1;
}
if ($line =~ /_\.-~= (.*)$/) {
+ $subpage = $1;
$state = 'outputting';
print_pass_or_fail();
$error_count = 0;
$subpage_count++;
- print MAIN_PAGE qq^\n<li><a href="test.$subpage_count.html">$1</a>^;
+ print MAIN_PAGE qq^\n<li><a href="test.$subpage_count.html">$subpage</a>^;
open SUB_PAGE, ">test.$subpage_count.html";
- print SUB_PAGE html_header($1);
- print SUB_PAGE "<h1>$1</h1>\n<pre>";
+ print SUB_PAGE html_header($subpage);
+ print SUB_PAGE "<h1>$subpage</h1>\n<pre>";
}
if ($state eq 'outputting') {
my $class = 'output ';
) {
$class .= 'comment ';
}
+ if ($subpage eq 'Gathering system information') {
+ $class = '';
+ }
chomp $line;
my $html_line = "<span class='$class'>$line</span>";
print SUB_PAGE "$html_line\n";