#!/usr/local/bin/perl
#
# Want the script display free machines, allocated machines and booked machines
# separately.
require 'cgi-lib.pl';
$labname = $ENV{'QUERY_STRING'};
$refreshtime='60';
&ReadParse;
print &PrintHeader;
print "Bookings in $labname lab";
@head = `/home/www/lib/scripts/header`; # Get the good parts of the header
foreach (@head){
s|Content-type: text/html| |;
}
print @head;
print "Bookings in $labname lab
";
print "" , "\n";
print `/usr/local/bin/lab $labname | grep UnAllocated`, "\n";
print "
" , "\n";
print "", "\n";
print "" , "\n";
print `/usr/local/bin/lab $labname | grep '[^n]Allocated'`, "\n";
print "
" , "\n";
print '' ,"\n";
print "" , "\n";
print `/usr/local/bin/lab $labname | grep Broken`, "\n";
print "
" , "\n";
print "", "\n";
print '' ,"\n";
print "" , "\n";
print `/usr/local/bin/lab $labname | grep NotBookable`, "\n";
print "
" , "\n";
print "", "\n";
@foot = `./footer`; # Get the good parts of the footer
foreach (@foot){
s|Content-type: text/html| |;
}
print @foot;
print "