#!/usr/bin/perl -w
# $Id: send_query.pl,v 1.1 1996/02/14 20:52:56 hoagland Exp $
# send_query.pl, by Jim Hoagland (hoagland@cs) 2/96
# this program sends a request to some agent on a given host
# Input is CGI, fields in a form
# outputs text to STDOUT
require 5.000;
require '/pkg/www/arpa/secret/cgi-bin/gui-helper.pl';
require '/pkg/www/arpa/secret/cgi-bin/network-help.pl';
require '/pkg/arpa/demo.0/require.pl';
umask 000;
require CGI;
$input= new CGI;
foreach (@ARGV) { # simulate field input
$input->param(split('=',$_,2));
}
# send the request to the component and return the TCP port to listen on for
# a responce
sub send_component_request {
my ($dest_host,%rec)= @_;
$rec{'time'}= time unless $rec{'time'};
my $hostname= $myhostname; # from require.pl
#print "scr: sending ",join(' ',%rec)," to $dest_host with respond=<$hostname,$port>";
&send_scl_message($dest_host, %rec);
return $port;
}
#-------------
&start_multipart_output;
$dest_host= $input->param('dest_host');
$input->delete('dest_host');
$agent= $input->param('agent_text');
$input->delete('agent_text');
print "Content-type: text/plain\n\n";
%rec= map(($_ => $input->param($_)),$input->param);
if (($host=$rec{'hostname'}) || ($host=$rec{'host'})) {
my $state= State->new(&get_statefile);
$state->{'last_host'}= $host;
$state->store;
}
# validate numeric fields
foreach ('pid','timestamp') {
unless (!$rec{$_} || $rec{$_} =~ /^\d+$/) {
&show_text_part("The entry in the $_ field must be numeric.");
exit;
}
}
$port= &send_component_request($dest_host,%rec);
#print "going to accept\n";
#print "\ngot accepted\n";
#sleep 10;
&end_part;
print <<">>";
Content-type: text/html
$agent on $dest_host was sent the request
$agent on $dest_host was sent the request
Return to main page
Return to component request page
>>
&close_tcp_connection;
1;