<& adminheader, title => "MOP Administration" &>
Database
Past Nights Ready For Processing
<& /htmlfooter &> <%args> $history => 5 $nn => undef $instance => undef <%init> my $db; my ($day, $month, $year); # Get list of available databases. my @databases = grep /psmops/, `echo 'show databases' | /usr/bin/mysql -umops -pmops -h mops01`; # Convert $nn to a calendar date if it is specified as an argument. if ($nn) { ($day, $month, $year) = mjd2cal($nn + 1); }