- Rearranged directory structure for forking out ANSTO

- Refactored site specific stuff into a site module
- PSI specific stuff is now in the PSI directory.
- The old version has been tagged with pre-ansto

tecs/rstart.c

@@ -0,0 +1,52 @@
+#include <sys/socket.h>
+#include <sys/time.h>
+#include <string.h>
+#include <unistd.h>
+#include <stdio.h>
+#include <netdb.h>
+#include "myc_str.h"
+#include "instr_hosts.h"
+
+int rexec(char **host, int port, char *user, char *passwd, char *command, int *err_file_desc);
+
+int main(int argc, char *argv[]) {
+  int port, i, j, l, fd;
+  char inst[32], cmd[256], host[256], user[64], pcod[64];
+  char *hostp;
+  struct tm tim;
+  time_t t;
+  
+  struct servent s;
+  
+  s=*getservbyname("exec", "tcp");
+  i=0;
+  if (argc < 3) {
+    printf("not enough arguments\n");
+    return 0;
+  }
+  i=InstrHost(argv[1], inst, host, user, pcod, sizeof(inst), sizeof(host), sizeof(user), sizeof(pcod));
+  if (i==0) {
+    printf("unknown host/instrument\n");
+    return -1;
+  }
+  str_copy(cmd, "");
+  for (i=2; i<argc; i++) {
+    if (0==strcmp(argv[i], "sics")) {
+      str_append(cmd, "bin/startsics\n");
+    } else if (0==strcmp(argv[i], "tecs")) {
+      if (i<argc) i++; /* skip argument */
+      str_append(cmd, "bin/startecs\n");
+    } else {
+      printf("unknown server %s\n", argv[i]);
+      return 0;
+    }
+  }
+  printf("login to %s\n", host);
+  hostp=host;
+  fd=rexec(&hostp, s.s_port, user, pcod, cmd, &i);
+  if (fd<0) {
+    perror("rexec"); return -1;
+  }
+  close(fd);
+  return 0;
+}