#!/usr/bin/perl

require($bin = qw( /usr/home/tukey/bin/common2.pl ));
$ENV{PATH} = "$bin:$ENV{PATH}" unless($ENV{PATH} =~ m($bin));
($C) = ($0 =~ m|([^/]*)$|);
use subs ("DE"."BUG", qw(Usage Die Warn Print));
 &ContentType;
 ChDir("/usr/www/users/tukey/acs/marmacs.org/private");
 &RunMeAsWebOwner;
 %FORM = &cgiVals;
 $rtn = `(../confex/getall) 2>&1 || true`;
 $rtn =~ s/grep: writing output: Broken pipe//gis;
 $rtn = ($rtn =~ /[a-z]/is)? " (rtn: $rtn)" : "";
 $extra = GREEN("OK. $rtn")."\n<hr>\n";
 $_ =  ReadFile("index.html");
 s/<hr>/$&\n$extra/s;
 print;
1;
