#!/usr/athena/bin/perl
# cview.pl -- gateway to cview
#
# $Id: cview,v 1.4 2004/12/30 20:43:43 root Exp $
#
# Joseph Wang (joe@athena.mit.edu)
#

$query=$ENV{'QUERY_STRING'};

print("Content-Type: text/html\n\n");
$query =join(' ', @ARGV) if $ARGV[0];
print("\n");
&do_cview($query);

sub do_cview {
    local($args, $cmd) = @_;
    local($output, *CV) = ();

    open(CV, "-|") || (open(STDERR, ">&STDOUT"),
		       exec '/usr/athena/bin/cview', split(/[\+\s]+/,$args));
    while($_ = <CV>) {$output .= $_;}

    # &main'MIME_header('ok', 'text/html');   # HTTP/1.0 compliance
    print "<TITLE>Athena cluster information</TITLE>\n";
    print "<H1>Athena cluster information</H1>\n";
    print "<P>";
    print "<A NAME=\"map\" HREF=\"http://whereis.mit.edu\">Press here for MIT map</A><P>";
    print "<A NAME=\"cluster\" HREF=\"cview\">Press here for cluster availability</A><P>";
    print "<A NAME=\"printers\" HREF=\"cview?printers\">Press here for printer availability</A><P>";
    print "<A NAME=\"phones\" HREF=\"cview?phones\">Press here for cluster phone numbers</A><P>";
    print "<PRE>\n$output</PRE><ISINDEX>\n";
}

1;