#!/usr/bin/perl -w

# $Id: tw_request.pl,v 1.1 1996/01/17 04:54:08 hoagland Exp $

# tw_request.pl, by Jim Hoagland (hoagland@cs) 1/96

# this program generates the tripwire request page for the ARPA IDS demo GUI
# Input is CGI, a field in a form
# outputs HTML to STDOUT
#print "Content-type:  text/plain\n\n";


require 5.000;

require '/pkg/www/arpa/secret/cgi-bin/gui-helper.pl';
require '/pkg/www/arpa/secret/cgi-bin/draw_tw_request.pl';

umask 000;

require CGI;

$input= new CGI;

foreach (@ARGV) {  # simulate field input
  $input->param(split('=',$_,2));
}

$state= State->new(&get_statefile);

#-------------

&draw_tw_request($state,$input->param('host'));

1;