ResetServer.pl

#!/usr/local/bin/perl


# Copyright SRA International
#
# Distributed under the OSI-approved BSD 3-Clause License.
# See http://ncip.github.com/pathway-interaction-database/LICENSE.txt for details.


use strict;
use FileHandle;
use Socket;
use CGI;

BEGIN {
  my @path_elems = split("/", $0);
  pop @path_elems;
  push @INC, join("/", @path_elems);
}

use Blocks;

######################################################################
sub CatchPipe {
  print STDERR "Caught PIPE signal\n";
}
$SIG{PIPE} = \&CatchPipe;

######################################################################

my $query = new CGI;

my $host  = $query->param("host");
my $port  = $query->param("port");

my $proto          = getprotobyname('tcp');
my $request = "ResetServer()";
my $fh = new FileHandle;

print "Content-type: text/plain\n\n";

if ($host eq "") {
  print "host missing\n";
  exit;
}
if ($port eq "") {
  print "port missing\n";
  exit;
}
if ($host !~ /\./) {
  $host .= ".nci.nih.gov";
}

print "Reseting host = $host, port = $port\n";

my $iaddr          = gethostbyname($host);
my $sin            = sockaddr_in($port, $iaddr);

if( !socket($fh, PF_INET, SOCK_STREAM, $proto) ) {
  print "Cannot open socket to $host:$port\n";
  exit;
}
if( !connect($fh, $sin) ) {
  print "Cannot connect to $host:$port, $!\n";
  exit;
}
if( !SendBlocks($fh, \$request) ) {
  print "SendBlocks failed for $host:$port\n";
  exit;
}
close($fh);

print "done\n";