server/scireserver.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

#!/usr/bin/perl

use strict;
use warnings;

$| = 1;
my $jobdir = "/tmp/scirejobs";

while(<>) {
  my $line = $_;
  chomp $line;
  if($line =~ /^PING$/) {
    print "PONG\n";
  } elsif($line =~ /^QUIT$/) {
    print "Exiting!\n";
    exit;
  } else {
    print "Unknown command\n";
  }
}