#!/usr/local/bin/perl -w
use CGI;
my $query = new CGI ($ENV{'QUERY_STRING'});
my $Darpa = $query -> param ('Darpa');
my $NSF = $query -> param ('NSF');
my $Darpa2 = $query -> param ('Darpa2');
if ($Darpa eq "" && $NSF eq "" && $Darpa2 eq "") {
$statement="";
queryerr (\%ENV);
}
if ($Darpa ne "" && $NSF eq "") {
$statement="This research is funded in part by a Defense Advanced Research Projects Agency (DARPA) cooperative agreement $Darpa.";
}
if ($Darpa eq "" && $NSF ne "") {
$statement="This research is funded in part by an National Science Foundation CAREER grant $NSF.";
}
if ($Darpa ne "" && $NSF ne "") {
$statement="This research is funded in part by an National Science Foundation CAREER grant $NSF and by a DARPA cooperative agreement $Darpa.";
}
if ($Darpa2 ne "" && $NSF eq "") {
$statement="This research is funded in part by a Defense Advanced Research Projects Agency (DARPA) cooperative agreement $Darpa2.";
}
&generate_html;
sub generate_html {
print "Content-type: text/html\n\n";
print <
$statement