cvs
064ec37e9a
- 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
1312 lines
44 KiB
C
Executable File
1312 lines
44 KiB
C
Executable File
#define IDENT "1A01"
|
|
/*---------------------------------------------------------------------------*/
|
|
#ifdef __DECC
|
|
#pragma module SINQHM_BOOTUTIL_CLIENT IDENT
|
|
#endif
|
|
/*
|
|
** Link_options - Here is the Linker Option File
|
|
**! sinqhm_bootutil_client
|
|
**! tas_src:[lib]sinq_dbg/lib
|
|
**! sys$share:decw$xlibshr/share
|
|
**!!
|
|
**!! To build SINQHM_BOOTUTIL_CLIENT on LNSA09
|
|
**!!
|
|
**!! $ import tasmad
|
|
**!! $ define/job deltat_c_tlb sinq_c_tlb
|
|
**!! $ sss := tas_src:[sinqhm]
|
|
**!! $ bui 'sss'sinqhm_bootutil_client debug
|
|
** Link_options_end
|
|
**
|
|
** +--------------------------------------------------------------+
|
|
** | Paul Scherrer Institute |
|
|
** | Computing Section |
|
|
** | |
|
|
** | This software may be used freely by non-profit organizations.|
|
|
** | It may be copied provided that the name of P.S.I. and of the |
|
|
** | author is included. Neither P.S.I. nor the author assume any |
|
|
** | responsibility for the use of this software outside of P.S.I.|
|
|
** +--------------------------------------------------------------+
|
|
**
|
|
** Module Name . . . . . . . . : [...SINQHM]SINQHM_BOOTUTIL_CLIENT.C
|
|
**
|
|
** Author . . . . . . . . . . : D. Maden
|
|
** Date of creation . . . . . . : Aug 1999
|
|
**
|
|
** SINQHM_BOOTUTIL_CLIENT is the main program of an Internet Client which
|
|
** communicates with SINQHM_BOOTUTIL running on a SINQ Histogram Memory.
|
|
** It allows the user to inspect and modify the boot parameters of the
|
|
** histogram memory.
|
|
**
|
|
** Updates:
|
|
** 27-Aug-1999 1A01 DM. Initial version.
|
|
**
|
|
** The following logical name definitions are used ...
|
|
**
|
|
** SINQHM_FRONTEND -
|
|
** "<hostname>, - The host where SINQHM_BOOTUTIL is running.
|
|
** <port>" TCP/IP port number of SINQHM_BOOTUTIL (dflt = 2300).
|
|
**====================================================================
|
|
*/
|
|
|
|
#include <errno.h>
|
|
#include <netdb.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <signal.h>
|
|
#include <time.h>
|
|
|
|
#include <netinet/in.h>
|
|
|
|
#include <sys/types.h>
|
|
#include <ctype.h>
|
|
#include <arpa/inet.h>
|
|
#include <math.h>
|
|
#include <sys/socket.h>
|
|
#include <string.h>
|
|
#include <X11/Intrinsic.h>
|
|
|
|
#ifdef __VMS
|
|
#include <ucx$inetdef.h>
|
|
#include <sys/unixio.h>
|
|
#include <descrip>
|
|
#else
|
|
#include <unistd.h>
|
|
#endif
|
|
|
|
#ifdef __VMS
|
|
#include <sys/ssdef.h>
|
|
#include <sys/starlet.h>
|
|
#else
|
|
#define SS$_NORMAL EXIT_SUCCESS
|
|
#define SS$_BADPARAM EXIT_FAILURE
|
|
#define SS$_IVBUFLEN EXIT_FAILURE
|
|
#define NO_MEMORY 4
|
|
#endif
|
|
/*
|
|
**==================== Global Definitions =====================================
|
|
*/
|
|
#include <sinq_prototypes.h>
|
|
|
|
#define DFLT_PORT 2300
|
|
#define NIL '\0'
|
|
#define NL '\n'
|
|
#define MAXARR 8192
|
|
#define MAXREC 512
|
|
/*------------------------------------------------------------*/
|
|
/*
|
|
** Define the Data Structures we need
|
|
*/
|
|
/*
|
|
**==================== Global Variables ======================================
|
|
*/
|
|
int My_errno, My_vaxc_errno;
|
|
|
|
int Verbose;
|
|
int Rmt_port;
|
|
char Rmt_host[32];
|
|
static int Cnct_skt = 0; /* Connect socket */
|
|
static int Ctrl_C_has_happened;
|
|
|
|
static XrmOptionDescRec OpTable_0[] = {
|
|
{"-name", ".name", XrmoptionSepArg, (XPointer) NULL},
|
|
{"-h", ".butilHelp", XrmoptionNoArg, (XPointer) "1"},
|
|
{"-he", ".butilHelp", XrmoptionNoArg, (XPointer) "1"},
|
|
{"-hel", ".butilHelp", XrmoptionNoArg, (XPointer) "1"},
|
|
{"-help", ".butilHelp", XrmoptionNoArg, (XPointer) "1"},
|
|
{"-ho", ".butilHost", XrmoptionSepArg, (XPointer) NULL},
|
|
{"-hos", ".butilHost", XrmoptionSepArg, (XPointer) NULL},
|
|
{"-host", ".butilHost", XrmoptionSepArg, (XPointer) NULL},
|
|
{"-port", ".butilPort", XrmoptionSepArg, (XPointer) NULL},
|
|
{"-v", ".butilVerbose", XrmoptionNoArg, (XPointer) "1"},
|
|
{"-?", ".butilHelpItem", XrmoptionSepArg, (XPointer) NULL},
|
|
};
|
|
/*
|
|
**=============================================================================
|
|
** Local routines.
|
|
**
|
|
** CtrlC_Handler : Catch a Ctrl-C interrupt.
|
|
** do_config : Handle the CONFIG command
|
|
** do_reboot : Handle the REBOOT command
|
|
** do_rundown : Handle the RUNDOWN command
|
|
** exit_handler : Exit handler in case a forced exit is made.
|
|
** get_SINQHM_FRONTEND : Extract info from SINQHM_FRONTEND environment variable
|
|
** openConnection : Open connection to server.
|
|
** show_help : Display the help text.
|
|
**----------------------------------------------------------------------------
|
|
** Prototypes
|
|
*/
|
|
void CtrlC_Handler (int sigint);
|
|
int do_config (char *bootline);
|
|
int do_reboot ();
|
|
int do_rundown ();
|
|
void exit_handler ();
|
|
int get_check_resources (XrmDatabase *db,
|
|
char *appName,
|
|
int verbose);
|
|
void get_SINQHM_FRONTEND (char *host, int host_l, char *host_dflt,
|
|
int *port, int port_dflt,
|
|
int *pktlen, int pktlen_dflt);
|
|
int openConnection (char *host, int port);
|
|
int read_boot_line (int skt, char *recd, int s_recd);
|
|
int send_a_close (int skt);
|
|
int setup_xrm_database (XrmDatabase *db,
|
|
char *name[],
|
|
int *argc,
|
|
char *argv[],
|
|
int verbose);
|
|
int show_boot_line (char *bootline);
|
|
void show_help (char *token);
|
|
/*
|
|
**--------------------------------------------------------------------------
|
|
** CtrlC_Handler: Signal handler to detect <Ctrl-C> on keyboard.
|
|
*/
|
|
void CtrlC_Handler (int sigint) {
|
|
/* =============
|
|
*/
|
|
Ctrl_C_has_happened = 1;
|
|
}
|
|
/*
|
|
**--------------------------------------------------------------------------*/
|
|
int do_config (
|
|
/* =========
|
|
** Interact with user to get modified config data.
|
|
** Then send CONFIG command to the target.
|
|
*/
|
|
char *bootline) { /* The current boot-line */
|
|
|
|
#define MAXP 32
|
|
|
|
char my_bootline[1024], old_bootline[1024];
|
|
char buff[132], *tok, *nxttok, *body;
|
|
char prefix[MAXP][64];
|
|
char prompt[MAXP][64];
|
|
char bodies[MAXP][128];
|
|
int is_numeric[MAXP], is_hex[MAXP];
|
|
int i, j, k, status, n_toks, toklen, bootlen;
|
|
|
|
StrJoin (my_bootline, sizeof (my_bootline), bootline, "");
|
|
for (i = 0; i < MAXP; i++) is_numeric[i] = is_hex[i] = False;
|
|
/*
|
|
** Scan through the boot-line setting up a table of prompts
|
|
*/
|
|
n_toks = 0;
|
|
tok = strtok (my_bootline, ":\n");
|
|
while ((tok != NULL) && (n_toks < MAXP)) {
|
|
StrJoin (prefix[n_toks], sizeof (prefix[0]), tok, ":");
|
|
toklen = strlen (tok);
|
|
if (tok[toklen+1] == '\n') { /* Watch out for tokens with no body */
|
|
body = "";
|
|
bodies[n_toks][0] = NIL;
|
|
nxttok = strtok (NULL, ":\n"); /* Skip an empty body */
|
|
}else {
|
|
body = strtok (NULL, "\n");
|
|
if (body == NULL) body = "";
|
|
StrJoin (bodies[n_toks], sizeof (bodies[0]), body, "");
|
|
nxttok = strtok (NULL, ":");
|
|
}
|
|
if ((strcmp (tok, "bootDev") == 0) && (body != NULL)) {
|
|
strcpy (prompt[n_toks], "boot device : ");
|
|
}else if ((strcmp (tok, "procNum") == 0) && (body != NULL)) {
|
|
strcpy (prompt[n_toks], "processor number : ");
|
|
is_numeric[n_toks] = True;
|
|
status = sscanf (body, "%i%n", &i, &j);
|
|
if ((status != 1) || (j != strlen (body))) {
|
|
printf ("do_config: Bad value found for procNum: \"%s\"\n", body);
|
|
return False;
|
|
}
|
|
}else if ((strcmp (tok, "hostName") == 0) && (body != NULL)) {
|
|
strcpy (prompt[n_toks], "host name : ");
|
|
}else if ((strcmp (tok, "bootFile") == 0) && (body != NULL)) {
|
|
strcpy (prompt[n_toks], "file name : ");
|
|
}else if ((strcmp (tok, "ead") == 0) && (body != NULL)) {
|
|
strcpy (prompt[n_toks], "inet on ethernet (e) : ");
|
|
}else if ((strcmp (tok, "bad") == 0) && (body != NULL)) {
|
|
strcpy (prompt[n_toks], "inet on backplane (b): ");
|
|
}else if ((strcmp (tok, "had") == 0) && (body != NULL)) {
|
|
strcpy (prompt[n_toks], "host inet (h) : ");
|
|
}else if ((strcmp (tok, "gad") == 0) && (body != NULL)) {
|
|
strcpy (prompt[n_toks], "gateway inet (g) : ");
|
|
}else if ((strcmp (tok, "usr") == 0) && (body != NULL)) {
|
|
strcpy (prompt[n_toks], "user (u) : ");
|
|
}else if ((strcmp (tok, "passwd") == 0) && (body != NULL)) {
|
|
strcpy (prompt[n_toks], "ftp password (pw) : ");
|
|
}else if ((strcmp (tok, "flags") == 0) && (body != NULL)) {
|
|
strcpy (prompt[n_toks], "flags (f) : ");
|
|
is_numeric[n_toks] = True;
|
|
is_hex[n_toks] = True;
|
|
status = sscanf (body, "%i%n", &i, &j);
|
|
if ((status != 1) || (j != strlen (body))) {
|
|
printf ("do_config: Bad value found for flags: \"%s\"\n", body);
|
|
return False;
|
|
}
|
|
}else if ((strcmp (tok, "targetName") == 0) && (body != NULL)) {
|
|
strcpy (prompt[n_toks], "target name (tn) : ");
|
|
}else if ((strcmp (tok, "startupScript") == 0) && (body != NULL)) {
|
|
strcpy (prompt[n_toks], "startup script (s) : ");
|
|
}else if ((strcmp (tok, "other") == 0) && (body != NULL)) {
|
|
strcpy (prompt[n_toks], "other (o) : ");
|
|
}else {
|
|
printf ("do_config: Bad token found in boot-line: "
|
|
"\"%s\" \"%s\"\n", tok, body);
|
|
return False;
|
|
}
|
|
n_toks++;
|
|
tok = nxttok;
|
|
}
|
|
if (tok != NULL) {
|
|
printf ("\007Too many tokens in the boot-line!\n");
|
|
return False;
|
|
}
|
|
if (n_toks <= 0) {
|
|
printf ("\007No tokens in the boot-line!\n");
|
|
return False;
|
|
}
|
|
re_edit:
|
|
/*=======
|
|
*/ printf ("\n'.' = clear field; '-' = go to previous field; ");
|
|
#ifdef __VMS
|
|
printf ("^Z = quit\n\n");
|
|
#else
|
|
printf ("^D = quit\n\n");
|
|
#endif
|
|
i = 0;
|
|
while (i < n_toks) {
|
|
printf ("%s%s ", prompt[i], bodies[i]);
|
|
if (fgets (buff, sizeof (buff), stdin) == NULL) break;
|
|
if (strlen (buff) == (sizeof (buff) - 1)) {
|
|
printf ("\n\007Input buffer overflow, try again!\n");
|
|
i--;
|
|
return False;
|
|
}
|
|
j = sizeof (buff); StrEdit (buff, buff, "trim compress", &j);
|
|
if (j == 0) {
|
|
/* Empty input -- leave the field unchanged */
|
|
}else if (StrMatch (buff, ".", 1)) {
|
|
bodies[i][0] = NIL; /* "." -- clear the field */
|
|
}else if (StrMatch (buff, "-", 1)) {
|
|
i -= 2; /* "-" -- go to previous field */
|
|
if (i < 0) i = -1;
|
|
}else if (j >= sizeof (bodies[0])) {
|
|
printf ("\007Input too long, try again!\n");
|
|
i--;
|
|
}else {
|
|
if (is_numeric[i]) {
|
|
status = sscanf (buff, "%i%n", &k, &j);
|
|
if ((status != 1) || (j != strlen (buff))) {
|
|
printf ("\007Value must be an integer, \"%s\" is invalid. "
|
|
"Try again!\n", buff);
|
|
i--;
|
|
}else {
|
|
if (is_hex[i]) {
|
|
sprintf (bodies[i], "0x%x", k);
|
|
}else {
|
|
sprintf (bodies[i], "%d", k);
|
|
}
|
|
}
|
|
}else {
|
|
StrJoin (bodies[i], sizeof (bodies[0]), buff, "");
|
|
}
|
|
}
|
|
i++;
|
|
}
|
|
|
|
i = printf ("\n\nNew boot-line for %s is:\n", Rmt_host);
|
|
for (j = 3; j < i; j++) printf ("="); printf ("\n");
|
|
my_bootline[0] = NIL;
|
|
for (i = 0; i < n_toks; i++) {
|
|
if (bodies[i][0] != NIL) printf ("%s%s\n", prompt[i], bodies[i]);
|
|
StrJoin (my_bootline, sizeof (my_bootline), my_bootline, prefix[i]);
|
|
StrJoin (my_bootline, sizeof (my_bootline), my_bootline, bodies[i]);
|
|
StrJoin (my_bootline, sizeof (my_bootline), my_bootline, "\n");
|
|
}
|
|
|
|
printf ("\nType \"Yes\" to configure, ");
|
|
#ifdef __VMS
|
|
printf ("^Z");
|
|
#else
|
|
printf ("^D");
|
|
#endif
|
|
printf (" to abandon and anything else to re-edit: ");
|
|
|
|
if (fgets (buff, sizeof (buff), stdin) == NULL) return False;
|
|
if (strlen (buff) == (sizeof (buff) - 1)) {
|
|
printf ("\n\007Input buffer overflow, no config performed!\n");
|
|
return False;
|
|
}
|
|
i = sizeof (buff); StrEdit (buff, buff, "trim compress lowercase", &i);
|
|
if (!StrMatch (buff, "yes", 3)) goto re_edit;
|
|
|
|
Cnct_skt = openConnection (Rmt_host, Rmt_port);
|
|
read_boot_line (Cnct_skt, old_bootline, sizeof (old_bootline));
|
|
|
|
strcpy (buff, "CONFIG");
|
|
bootlen = strlen (my_bootline) + 1; /* Get string length */
|
|
bootlen = (bootlen + 3) & (~3); /* Round up to a multiple of 4 */
|
|
i = sprintf (&buff[8], "%04.4d", bootlen); /* Convert to ASCII */
|
|
if (i != 4) {
|
|
printf ("\007The new boot line is too long! CONFIG has not "
|
|
"been performed.\n");
|
|
return False;
|
|
}
|
|
status = send (Cnct_skt, buff, 12, 0);
|
|
if (status != 12) FailInet ("do_config - bad send");
|
|
status = send (Cnct_skt, my_bootline, bootlen, 0);
|
|
if (status != bootlen) FailInet ("do_config - bad send");
|
|
status = recv (Cnct_skt, buff, 4, 0); /* Await the response */
|
|
close (Cnct_skt);
|
|
Cnct_skt = 0;
|
|
if (status != 4) {
|
|
FailInet ("do_config - bad recv");
|
|
return False;
|
|
}
|
|
if (!StrMatch (buff, "OK", 2)) {
|
|
printf ("\007Config command rejected by target!\n");
|
|
return False;
|
|
}
|
|
printf ("The boot-line of %s has been re-configured successfully.\n",
|
|
Rmt_host);
|
|
return True;
|
|
}
|
|
/*
|
|
**--------------------------------------------------------------------------*/
|
|
int do_reboot (
|
|
/* =========
|
|
** Send REBOOT command to the target.
|
|
*/
|
|
) {
|
|
|
|
char ist_bootline[1024], buff[128];
|
|
int i, status;
|
|
|
|
printf ("Type \"Yes\" to re-boot %s: ", Rmt_host);
|
|
if (fgets (buff, sizeof (buff), stdin) == NULL) exit (EXIT_FAILURE);
|
|
if (strlen (buff) == (sizeof (buff) - 1)) {
|
|
printf ("\n\007Input buffer overflow, no re-boot performed!\n");
|
|
exit (EXIT_FAILURE);
|
|
}
|
|
i = sizeof (buff); StrEdit (buff, buff, "trim compress lowercase", &i);
|
|
if (!StrMatch (buff, "yes", 3)) {
|
|
printf ("No re-boot performed!\n");
|
|
exit (EXIT_FAILURE);
|
|
}
|
|
|
|
Cnct_skt = openConnection (Rmt_host, Rmt_port);
|
|
read_boot_line (Cnct_skt, ist_bootline, sizeof (ist_bootline));
|
|
|
|
strcpy (buff, "REBOOT");
|
|
status = send (Cnct_skt, buff, 8, 0);
|
|
if (status != 8) FailInet ("do_reboot - bad send");
|
|
|
|
status = recv (Cnct_skt, buff, 4, 0); /* Await the response */
|
|
close (Cnct_skt);
|
|
Cnct_skt = 0;
|
|
if (status != 4) {
|
|
FailInet ("do_reboot - bad recv");
|
|
return False;
|
|
}
|
|
if (!StrMatch (buff, "OK", 2)) {
|
|
printf ("\007Reboot command rejected by target!\n");
|
|
return False;
|
|
}
|
|
printf ("%s is rebooting.\n", Rmt_host);
|
|
return True;
|
|
}
|
|
/*
|
|
**--------------------------------------------------------------------------*/
|
|
int do_rundown (
|
|
/* ==========
|
|
** Send RUNDOWN command to the target.
|
|
*/
|
|
) {
|
|
|
|
char ist_bootline[1024], buff[128];
|
|
int i, status;
|
|
|
|
printf ("Type \"Yes\" to rundown bootUtil on %s: ", Rmt_host);
|
|
if (fgets (buff, sizeof (buff), stdin) == NULL) exit (EXIT_FAILURE);
|
|
if (strlen (buff) == (sizeof (buff) - 1)) {
|
|
printf ("\n\007Input buffer overflow, no rundown performed!\n");
|
|
exit (EXIT_FAILURE);
|
|
}
|
|
i = sizeof (buff); StrEdit (buff, buff, "trim compress lowercase", &i);
|
|
if (!StrMatch (buff, "yes", 3)) {
|
|
printf ("No rundown performed!\n");
|
|
exit (EXIT_FAILURE);
|
|
}
|
|
|
|
Cnct_skt = openConnection (Rmt_host, Rmt_port);
|
|
read_boot_line (Cnct_skt, ist_bootline, sizeof (ist_bootline));
|
|
|
|
strcpy (buff, "RUNDOWN");
|
|
status = send (Cnct_skt, buff, 8, 0);
|
|
if (status != 8) FailInet ("do_rundown - bad send");
|
|
|
|
status = recv (Cnct_skt, buff, 4, 0); /* Await the response */
|
|
close (Cnct_skt);
|
|
Cnct_skt = 0;
|
|
if (status != 4) {
|
|
FailInet ("do_rundown - bad recv");
|
|
return False;
|
|
}
|
|
if (!StrMatch (buff, "OK", 2)) {
|
|
printf ("\007Rundown command rejected by target!\n");
|
|
return False;
|
|
}
|
|
printf ("The bootUtil server on %s is running down.\n", Rmt_host);
|
|
return True;
|
|
}
|
|
/*
|
|
**---------------------------------------------------------------------------*/
|
|
void exit_handler () {
|
|
/* ============
|
|
** We must exit. Tidy up first.
|
|
** Close TCP/IP link to front-end.
|
|
*/
|
|
int status;
|
|
char buff[16];
|
|
/*
|
|
** Tell server we're quitting.
|
|
*/
|
|
if (Cnct_skt != 0) {
|
|
printf ("Closing connection to %s ...\n", Rmt_host);
|
|
status = send (Cnct_skt, "-001", 4, 0);
|
|
status = close (Cnct_skt);
|
|
Cnct_skt = 0;
|
|
if (status != 0) FailInet ("EXIT_HANDLER -- R/W-Socket close error\n");
|
|
}
|
|
}
|
|
/*
|
|
**--------------------------------------------------------------------------*/
|
|
void flushNet (
|
|
/* ========
|
|
** Flush bytes from the server.
|
|
**
|
|
*/ int nbytes) { /* Number of bytes to flush */
|
|
|
|
char buff[256];
|
|
int i, status, bytes_to_come, bytes_to_get;
|
|
|
|
bytes_to_come = nbytes;
|
|
|
|
while (bytes_to_come > 0) {
|
|
bytes_to_get = (bytes_to_come > sizeof (buff)) ?
|
|
sizeof (buff) : bytes_to_get;
|
|
status = recv (Cnct_skt, buff, bytes_to_get, 0);
|
|
if (status <= 0) break;
|
|
bytes_to_come -= status;
|
|
}
|
|
if (bytes_to_come != 0) {
|
|
if (status < 0) {
|
|
FailInet ("R/W-Socket recv error in flushNet");
|
|
}else if (status == 0) {
|
|
FailInet ("R/W-Socket recv error in flushNet -- return code = 0");
|
|
}
|
|
exit (EXIT_FAILURE);
|
|
}
|
|
}
|
|
/*
|
|
**---------------------------------------------------------------------------
|
|
** get_check_resources - get and check our resources
|
|
*/
|
|
int get_check_resources (
|
|
/* ===================
|
|
*/ XrmDatabase *db,
|
|
char *appName,
|
|
int verbose) {
|
|
|
|
int status, len, do_help;
|
|
char buff[80];
|
|
char *type;
|
|
XrmValue value;
|
|
time_t time_now;
|
|
float tmp_secs;
|
|
/*---------------------------------------------------------- -help */
|
|
status = XrmGetResource (*db,
|
|
StrJoin (buff, sizeof (buff),
|
|
appName, ".butilHelp"),
|
|
"ProgramName.Values",
|
|
&type, &value);
|
|
do_help = (status) ? True : False;
|
|
if (do_help) {
|
|
show_help (NULL);
|
|
exit (EXIT_SUCCESS);
|
|
}
|
|
/*---------------------------------------------------------- -? */
|
|
status = XrmGetResource (*db,
|
|
StrJoin (buff, sizeof (buff),
|
|
appName, ".butilHelpItem"),
|
|
"ProgramName.Values",
|
|
&type, &value);
|
|
do_help = (status) ? True : False;
|
|
if (do_help) {
|
|
len = sizeof (buff);
|
|
StrEdit (buff, value.addr, "trim lowercase", &len);
|
|
show_help (buff);
|
|
exit (EXIT_SUCCESS);
|
|
}
|
|
/*---------------------------------------------------------- -verbose */
|
|
status = XrmGetResource (*db,
|
|
StrJoin (buff, sizeof (buff),
|
|
appName, ".butilVerbose"),
|
|
"ProgramName.Values",
|
|
&type, &value);
|
|
Verbose = verbose = (status) ? True : False;
|
|
/*---------------------------------------------------------- -host */
|
|
status = XrmGetResource (*db,
|
|
StrJoin (buff, sizeof (buff),
|
|
appName, ".butilHost"),
|
|
"ProgramName.Values",
|
|
&type, &value);
|
|
if (!status) {
|
|
Rmt_host[0] = NIL;
|
|
}else {
|
|
StrJoin (Rmt_host, sizeof (Rmt_host), value.addr, "");
|
|
if (verbose) printf ("Target processor is \"%s\".\n", Rmt_host);
|
|
}
|
|
/*---------------------------------------------------------- -port */
|
|
status = XrmGetResource (*db,
|
|
StrJoin (buff, sizeof (buff),
|
|
appName, ".butilPort"),
|
|
"ProgramName.Values",
|
|
&type, &value);
|
|
if (!status || (sscanf (value.addr, "%d", &Rmt_port) != 1)) {
|
|
Rmt_port = DFLT_PORT;
|
|
if (verbose) printf ("Using the default TCP/IP port number of ");
|
|
}else {
|
|
if (verbose) printf ("TCP/IP port number = ");
|
|
}
|
|
if (verbose) printf ("%d\n", Rmt_port);
|
|
/*----------------------------------------------------------*/
|
|
return True;
|
|
}
|
|
/*
|
|
**--------------------------------------------------------------------------*/
|
|
void get_SINQHM_FRONTEND (
|
|
/* ===================
|
|
** Extract info from the SINQHM_FRONTEND
|
|
** environment variable.
|
|
*/
|
|
char *host, int host_l, char *host_dflt,
|
|
int *port, int port_dflt,
|
|
int *pktlen, int pktlen_dflt) {
|
|
|
|
int env_len;
|
|
char *p_env, *token;
|
|
char my_env[100];
|
|
|
|
p_env = getenv ("SINQHM_FRONTEND"); /* Get pointer to env var */
|
|
if (p_env == NULL) {
|
|
/* Env. var. not found, prompt the user ... */
|
|
printf ("\n"
|
|
" The name of the Histogram Memory is defined neither as part of "
|
|
"the command,\n"
|
|
" nor via the environment variable SINQHM_FRONTEND nor in the "
|
|
"resource data\n"
|
|
" base. You must therefore specify the details of the Hist Mem "
|
|
"interactively.\n"
|
|
"\n"
|
|
" Please specify the following on a single line:\n");
|
|
if ((host_dflt == NULL) || (host_dflt[0] == NIL)) {
|
|
printf ("\n"
|
|
" Name of Histogram Memory (no default)\n"
|
|
" TCP/IP port number of HM server (default = %d)\n"
|
|
" Max send/rcve packet size (default = %d)\n",
|
|
port_dflt, pktlen_dflt);
|
|
}else {
|
|
printf ("\n"
|
|
" Name of Histogram Memory (default = \"%s\")\n"
|
|
" TCP/IP port number of HM server (default = %d)\n"
|
|
" Max send/rcve packet size (default = %d)\n",
|
|
host_dflt, port_dflt, pktlen_dflt);
|
|
}
|
|
printf ("\n"
|
|
"Specify Hist Mem information> ");
|
|
if (fgets (my_env, sizeof (my_env), stdin) == NULL) exit (EXIT_SUCCESS);
|
|
env_len = strlen (my_env);
|
|
if (my_env[env_len-1] != '\n') {
|
|
printf ("Name is too long!\n");
|
|
exit (EXIT_FAILURE);
|
|
}
|
|
env_len = sizeof (my_env);
|
|
StrEdit (my_env, my_env, "uncomment compress trim", &env_len);
|
|
}else { /* Make a local copy of it in case the original is in ..
|
|
** .. read-protected memory (strtok needs to be able to ..
|
|
** .. modify it */
|
|
env_len = sizeof (my_env);
|
|
StrEdit (my_env, p_env, "uncomment compress trim", &env_len);
|
|
}
|
|
token = (env_len == 0) ? NULL : strtok (my_env, " \t\n,"); /* Get host token */
|
|
if ((token == NULL) || (token[0] == ' ')) {
|
|
/* Host token not found, return defaults */
|
|
StrJoin (host, host_l, host_dflt, "");
|
|
*port = port_dflt;
|
|
*pktlen = pktlen_dflt;
|
|
}else {
|
|
StrJoin (host, host_l, token, "");
|
|
token = strtok (NULL, " \t\n,"); /* Get port token */
|
|
if (token == NULL) {
|
|
*port = port_dflt; /* Port token not found, return defaults */
|
|
*pktlen = pktlen_dflt;
|
|
}else {
|
|
if (sscanf (token, "%d", port) != 1) {
|
|
*port = port_dflt; /* Port token illegal, return defaults */
|
|
*pktlen = pktlen_dflt;
|
|
}else {
|
|
token = strtok (NULL, " \t,"); /* Get packet-size token */
|
|
if (token == NULL) {
|
|
*pktlen = pktlen_dflt; /* Packet-size token not found, use dflt */
|
|
}else {
|
|
if (sscanf (token, "%d", pktlen) != 1) {
|
|
*pktlen = pktlen_dflt; /* Packet-size token illegal, use dflt */
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
/*
|
|
**--------------------------------------------------------------------------*/
|
|
int openConnection (
|
|
/* ==============
|
|
** Open connection to histogram memory front-end.
|
|
*/
|
|
char *host,
|
|
int port) {
|
|
|
|
int i, status, my_skt;
|
|
struct sockaddr_in lcl_sockname;
|
|
struct sockaddr_in rmt_sockname;
|
|
int rmt_inet_addr;
|
|
struct in_addr *rmt_inet_addr_pntr;
|
|
struct hostent *rmt_hostent;
|
|
int rmt_sockname_len;
|
|
unsigned int oto_len, oto_status;
|
|
char old_time_out[4];
|
|
union {
|
|
char chars[4];
|
|
int val;
|
|
} time_out;
|
|
/*
|
|
** Get Internet address of the front-end.
|
|
*/
|
|
for (i=0; i < strlen (host); i++) host[i] = tolower (host[i]);
|
|
rmt_hostent = gethostbyname (host);
|
|
if (rmt_hostent == NULL) {
|
|
/*
|
|
** The following code is to handle hosts which are not yet
|
|
** in the BIND data base.
|
|
*/
|
|
if (strcmp (host, "sqfe01") == 0) {
|
|
rmt_inet_addr_pntr = (struct in_addr *) &rmt_inet_addr;
|
|
rmt_inet_addr = inet_addr ("129.129.56.181");
|
|
}else {
|
|
printf ("Target processor is %s.\n", host);
|
|
FailInet ("\nGethostbyname error.");
|
|
}
|
|
}else {
|
|
rmt_inet_addr_pntr = (struct in_addr *) rmt_hostent->h_addr_list[0];
|
|
}
|
|
printf (" Target processor is %s ", host);
|
|
printf ("(%s)\n", inet_ntoa (*rmt_inet_addr_pntr));
|
|
printf (" Server Port %d\n", port);
|
|
/*
|
|
** Create a TCP/IP socket for prelim. connect to server and bind it.
|
|
*/
|
|
my_skt = socket (AF_INET, SOCK_STREAM, 0);
|
|
if (my_skt == -1) FailInet ("Socket error.\n");
|
|
|
|
lcl_sockname.sin_family = AF_INET;
|
|
lcl_sockname.sin_port = htons (0);
|
|
lcl_sockname.sin_addr.s_addr = 0;
|
|
status = bind (my_skt, (struct sockaddr *) &lcl_sockname,
|
|
sizeof (lcl_sockname));
|
|
if (status == -1) FailInet ("Bind error.\n");
|
|
/*---------------------------
|
|
** Set short time-out (VMS systems only)
|
|
*/
|
|
#ifdef __VMS
|
|
oto_len = sizeof (old_time_out); /* Save current time-out first */
|
|
oto_status = getsockopt (my_skt, IPPROTO_TCP, UCX$C_TCP_PROBE_IDLE,
|
|
old_time_out, &oto_len);
|
|
if (oto_status == 0) {
|
|
time_out.val = 5; /* Set new time-out */
|
|
status = setsockopt (my_skt, IPPROTO_TCP, UCX$C_TCP_PROBE_IDLE,
|
|
time_out.chars, sizeof (time_out));
|
|
}
|
|
#endif
|
|
/*
|
|
**========================================= Now connect to the server.
|
|
*/
|
|
rmt_sockname_len = sizeof (rmt_sockname);
|
|
rmt_sockname.sin_family = AF_INET;
|
|
rmt_sockname.sin_port = htons (port);
|
|
rmt_sockname.sin_addr.s_addr = rmt_inet_addr_pntr->s_addr;
|
|
status = connect (my_skt, (struct sockaddr *) &rmt_sockname,
|
|
sizeof (rmt_sockname));
|
|
if (status == -1) {
|
|
GetErrno (&My_errno, &My_vaxc_errno);
|
|
FailInet ("Connect error\n");
|
|
}
|
|
/*---------------------------
|
|
** Restore time-out (VMS only)
|
|
*/
|
|
#ifdef __VMS
|
|
if (oto_status == 0) {
|
|
setsockopt (my_skt, IPPROTO_TCP, UCX$C_TCP_PROBE_IDLE,
|
|
old_time_out, oto_len);
|
|
}
|
|
#endif
|
|
return my_skt;
|
|
}
|
|
/*
|
|
**--------------------------------------------------------------------------*/
|
|
int read_boot_line (
|
|
/* ==============
|
|
** Get the boot line from the server.
|
|
*/
|
|
int skt, /* The socket to read from */
|
|
char *recd, /* Buffer to receive the boot line */
|
|
int s_recd) { /* Size of buffer */
|
|
|
|
char hdr_buff[8], *p_addr;
|
|
int i, j, len, status, bytes_to_come;
|
|
/*----------------------------------------
|
|
** Get first 4 bytes which gives the length to follow
|
|
*/
|
|
status = recv (skt, hdr_buff, 4, 0);
|
|
if (status != 4) FailInet ("recv error on bootline header.\n");
|
|
|
|
i = sscanf (hdr_buff, "%4d%n", &len, &j); /* Convert to binary */
|
|
if ((i != 1) || (j != 4)) {
|
|
printf ("Header bytes are not ASCII coded decimal: 0x%x 0x%x 0x%x 0x%x\n",
|
|
hdr_buff[0], hdr_buff[1], hdr_buff[2], hdr_buff[3]);
|
|
exit (EXIT_FAILURE);
|
|
}
|
|
|
|
if (len >= s_recd) {
|
|
printf (" Boot-line length is %d\n", len);
|
|
printf ("Too long for buffer. Buffer length = %d\n", s_recd);
|
|
flushNet (len);
|
|
exit (EXIT_FAILURE);
|
|
}
|
|
|
|
bytes_to_come = len;
|
|
p_addr = recd;
|
|
|
|
while (bytes_to_come > 0) {
|
|
status = recv (skt, p_addr, bytes_to_come, 0);
|
|
if (status <= 0) break;
|
|
bytes_to_come -= status;
|
|
p_addr += status;
|
|
}
|
|
if (bytes_to_come != 0) {
|
|
if (status < 0) {
|
|
FailInet ("R/W-Socket recv error");
|
|
}else if (status == 0) {
|
|
FailInet ("R/W-Socket recv error -- return code = 0");
|
|
}
|
|
exit (EXIT_FAILURE);
|
|
}
|
|
i = strlen (recd);
|
|
if (i > len) {
|
|
printf (" Length of boot-line buffer read from target = %d.\n", len);
|
|
printf (" String length of boot-line = %d.\n", i);
|
|
printf (" It appears as though the boot-line is not null terminated!");
|
|
exit (EXIT_FAILURE);
|
|
}
|
|
return True;
|
|
}
|
|
/*
|
|
**--------------------------------------------------------------------------*/
|
|
int send_a_close (
|
|
/* ============
|
|
** Send a "CLOSE" message to the target host.
|
|
*/
|
|
int skt) { /* The socket to send to. */
|
|
|
|
char cmnd_buff[32], buff[32];
|
|
int status, i, bootlen;
|
|
|
|
strcpy (cmnd_buff, "CLOSE");
|
|
status = send (skt, cmnd_buff, 8, 0);
|
|
if (status != 8) FailInet ("send_a_close - bad send");
|
|
|
|
status = recv (skt, buff, 4, 0); /* Await the response */
|
|
/* But do not check it */
|
|
return True;
|
|
}
|
|
/*
|
|
**---------------------------------------------------------------------------*/
|
|
int setup_xrm_database (
|
|
/* ==================
|
|
** Setup Resource Manager Database
|
|
*/
|
|
XrmDatabase *db,
|
|
char *name[],
|
|
int *argc,
|
|
char *argv[],
|
|
int verbose) {
|
|
|
|
static char our_name[80] = "Unknown"; /* This holds the program name */
|
|
static char lkup_name[80] = "Unknown"; /* Name for looking in database */
|
|
|
|
int status, i, first = True;
|
|
char text[80];
|
|
char full_nm0[80];
|
|
char full_nm1[80];
|
|
char *p_fil[] = {0,0,0,0,0,0,0,0,0,0};
|
|
char *my_name;
|
|
char *my_name_last;
|
|
|
|
char *name_type;
|
|
XrmValue name_value;
|
|
|
|
XrmDatabase cmnd_line_db = NULL;
|
|
XrmDatabase lcl_db = NULL;
|
|
/*-----------------------------------------------------
|
|
** This routine merges some resource databases with options specified on
|
|
** the command line. Resources can then be looked up using XrmGetResource.
|
|
** This is a bit like the X-toolkit routine XtAppInitialize does for the
|
|
** extraction of resources by XtGetApplicationResources.
|
|
**
|
|
** I can't help but think that there's a simpler way of doing this but I
|
|
** can't find it in the X manuals. Basically, the problem arises with wanting
|
|
** to avoid the calling program being associated with an X-display, i.e. it
|
|
** is intended for use by "command-line oriented" programs. All the nice,
|
|
** easy-to-use resource/command-line setup routines in Xlib or Xtlib seem to
|
|
** assume one is going to use a display -- not surprising, I suppose,
|
|
** since the concept of Xlib is for writing window based applications!
|
|
**
|
|
** Anyway, the point is that the following way turns out to be lacking
|
|
** when it gets tested in anger.
|
|
*/
|
|
status = True; /* Assume success */
|
|
|
|
our_name[0] = NIL;
|
|
/*
|
|
** Make a list of the databases to be merged, highest priority first.
|
|
*/
|
|
#ifdef __VMS
|
|
p_fil[0] = "decw$user_defaults:SinQ_rc.dat";
|
|
p_fil[1] = "decw$group_defaults:SinQ_rc.dat";
|
|
p_fil[2] = "decw$system_defaults:SinQ_rc.dat";
|
|
p_fil[3] = "decw$user_defaults:decw$xdefaults.dat";
|
|
p_fil[4] = "decw$group_defaults:decw$xdefaults.dat";
|
|
p_fil[5] = "decw$system_defaults:decw$xdefaults.dat";
|
|
p_fil[6] = NULL;
|
|
if (*argc > 0) { /* Find out what we are called - parse file nm */
|
|
my_name = strstr (argv[0], "]"); /* Find end of directory, i.e. "]" */
|
|
my_name++; /* Skip over "]" */
|
|
if (my_name[0] == '[') { /* Handle possible concealed device */
|
|
my_name = strstr (my_name, "]");
|
|
my_name++;
|
|
}
|
|
i = sizeof (our_name);
|
|
StrEdit (our_name, my_name, "lowercase", &i); /* Copy the rest */
|
|
strtok (our_name, "."); /* Close it off at "." */
|
|
}
|
|
#else
|
|
p_fil[0] = StrJoin (full_nm0, sizeof (full_nm0),
|
|
getenv ("HOME"), "/SinQ_rc");
|
|
p_fil[1] = "/usr/lib/X11/app-defaults/SinQ_rc";
|
|
p_fil[2] = StrJoin (full_nm1, sizeof (full_nm1),
|
|
getenv ("HOME"), "/.Xdefaults");
|
|
p_fil[3] = "/usr/lib/X11/app-defaults/Xdefaults";
|
|
p_fil[4] = NULL;
|
|
if (*argc > 0) { /* Find out what we are called - parse file nm */
|
|
/* Find end of directories */
|
|
my_name = argv[0] - 1;
|
|
while (my_name != NULL) {
|
|
my_name_last = my_name;
|
|
my_name_last++;
|
|
my_name = strstr (my_name_last, "/");
|
|
}
|
|
StrJoin (our_name, sizeof (our_name), my_name_last, "");
|
|
}
|
|
#endif
|
|
if (verbose) printf ("My name is \"%s\"\n", our_name);
|
|
/*
|
|
** Initialise and combine all databases
|
|
*/
|
|
XrmInitialize ();
|
|
for (i = 0; i < XtNumber (p_fil); i++) {
|
|
if (p_fil[i] == NULL) break;
|
|
status = XrmCombineFileDatabase (p_fil[i], &lcl_db, False);
|
|
if ((status != 0) && verbose) {
|
|
if (first)
|
|
printf ("Resource database created from file %s.\n", p_fil[i]);
|
|
if (!first)
|
|
printf ("File %s merged into resource database.\n", p_fil[i]);
|
|
first = False;
|
|
}
|
|
}
|
|
/*----------------------------------------------------------------
|
|
** See if there's anything specified on cmnd line, incl "name".
|
|
*/
|
|
XrmParseCommand (&cmnd_line_db,
|
|
OpTable_0, XtNumber(OpTable_0), our_name, argc, argv);
|
|
if (cmnd_line_db != NULL) {
|
|
/*
|
|
** There was at least 1 item on cmnd line. Process the line.
|
|
** If -name was specified, adopt it.
|
|
*/
|
|
status = XrmGetResource (cmnd_line_db, /* See if a name was specified */
|
|
StrJoin (text, sizeof (text), our_name, ".name"),
|
|
"ProgramName.Values",
|
|
&name_type, &name_value);
|
|
if (status) {
|
|
i = sizeof (lkup_name);
|
|
StrEdit (lkup_name, name_value.addr, "lowercase", &i);
|
|
printf ("Option list name is \"%s\"\n", lkup_name);
|
|
}else {
|
|
strcpy (lkup_name, our_name);
|
|
}
|
|
/*
|
|
** Loop over all items in OpTable_0 and merge them into database,
|
|
** taking care of any possible name changes.
|
|
*/
|
|
for (i = 0; i < XtNumber (OpTable_0); i++) {
|
|
if (strcmp (OpTable_0[i].option, "-name") == 0) continue;
|
|
status = XrmGetResource (cmnd_line_db,
|
|
StrJoin (text, sizeof (text),
|
|
our_name, OpTable_0[i].specifier),
|
|
"ProgramName.Values",
|
|
&name_type, &name_value);
|
|
if (status) {
|
|
StrJoin (text, sizeof (text), lkup_name, OpTable_0[i].specifier);
|
|
XrmPutResource (&lcl_db, text, "String", &name_value);
|
|
}
|
|
}
|
|
}
|
|
/*----------------------------------------------------------------
|
|
*/
|
|
*name = lkup_name;
|
|
*db = lcl_db;
|
|
if ((lcl_db == NULL) && verbose)
|
|
printf ("\007Warning -- no resource database found.\n");
|
|
|
|
XrmDestroyDatabase (cmnd_line_db);
|
|
/*
|
|
** XrmPutFileDatabase (lcl_db, "sinqhm_client.db");
|
|
*/
|
|
return status;
|
|
}
|
|
/*
|
|
**--------------------------------------------------------------------------*/
|
|
int show_boot_line (
|
|
/* ==============
|
|
** Display the boot line.
|
|
**
|
|
*/ char *recd) { /* The boot-line as received from serever */
|
|
|
|
char *tok, *body;
|
|
int i, j, status, toklen, empty;
|
|
|
|
/*
|
|
** Scan through the boot-line printing non-null items.
|
|
*/
|
|
empty = True;
|
|
tok = strtok (recd, ":\n");
|
|
while (tok != NULL) {
|
|
toklen = strlen (tok);
|
|
if (tok[toklen+1] == '\n') { /* Watch out for tokens with no body */
|
|
tok = strtok (NULL, ":\n"); /* Skip an empty body */
|
|
}else {
|
|
body = strtok (NULL, "\n");
|
|
if ((strcmp (tok, "bootDev") == 0) && (body != NULL)) {
|
|
empty = False;
|
|
printf (" boot device : %s\n", body);
|
|
}else if ((strcmp (tok, "procNum") == 0) && (body != NULL)) {
|
|
status = sscanf (body, "%i%n", &i, &j);
|
|
if ((status != 1) || (j != strlen (body))) {
|
|
printf ("show_boot_line: Bad value found for procNum: \"%s\"\n", body);
|
|
}else {
|
|
empty = False;
|
|
printf (" processor number : %s\n", body);
|
|
}
|
|
}else if ((strcmp (tok, "hostName") == 0) && (body != NULL)) {
|
|
empty = False;
|
|
printf (" host name : %s\n", body);
|
|
}else if ((strcmp (tok, "bootFile") == 0) && (body != NULL)) {
|
|
empty = False;
|
|
printf (" file name : %s\n", body);
|
|
}else if ((strcmp (tok, "ead") == 0) && (body != NULL)) {
|
|
empty = False;
|
|
printf (" inet on ethernet (e) : %s\n", body);
|
|
}else if ((strcmp (tok, "bad") == 0) && (body != NULL)) {
|
|
empty = False;
|
|
printf (" inet on backplane (b): %s\n", body);
|
|
}else if ((strcmp (tok, "had") == 0) && (body != NULL)) {
|
|
empty = False;
|
|
printf (" host inet (h) : %s\n", body);
|
|
}else if ((strcmp (tok, "gad") == 0) && (body != NULL)) {
|
|
empty = False;
|
|
printf (" gateway inet (g) : %s\n", body);
|
|
}else if ((strcmp (tok, "usr") == 0) && (body != NULL)) {
|
|
empty = False;
|
|
printf (" user (u) : %s\n", body);
|
|
}else if ((strcmp (tok, "passwd") == 0) && (body != NULL)) {
|
|
empty = False;
|
|
printf (" ftp password (pw) : %s\n", body);
|
|
}else if ((strcmp (tok, "flags") == 0) && (body != NULL)) {
|
|
status = sscanf (body, "%i%n", &i, &j);
|
|
if ((status != 1) || (j != strlen (body))) {
|
|
printf ("show_boot_line: Bad value found for flags: \"%s\"\n", body);
|
|
}else {
|
|
empty = False;
|
|
printf (" flags (f) : %s\n", body);
|
|
}
|
|
}else if ((strcmp (tok, "targetName") == 0) && (body != NULL)) {
|
|
empty = False;
|
|
printf (" target name (tn) : %s\n", body);
|
|
}else if ((strcmp (tok, "startupScript") == 0) && (body != NULL)) {
|
|
empty = False;
|
|
printf (" startup script (s) : %s\n", body);
|
|
}else if ((strcmp (tok, "other") == 0) && (body != NULL)) {
|
|
empty = False;
|
|
printf (" other (o) : %s\n", body);
|
|
}else {
|
|
if (body != NULL) {
|
|
printf ("show_boot_line: Bad token found in boot-line: "
|
|
"\"%s\" \"%s\"\n", tok, body);
|
|
}else {
|
|
printf ("show_boot_line: Token found with NULL body in boot-line: "
|
|
"\"%s\"\n", tok);
|
|
}
|
|
}
|
|
tok = strtok (NULL, ":");
|
|
}
|
|
}
|
|
if (empty) printf (" The boot-line was empty!\n");
|
|
return EXIT_SUCCESS;
|
|
}
|
|
/*
|
|
**--------------------------------------------------------------------------*/
|
|
void show_help (char *token) {
|
|
/* =========
|
|
** Display help text
|
|
*/
|
|
int len;
|
|
|
|
if ((token == NULL) || (token[0] == NIL)) {
|
|
printf ("\n"
|
|
" The following commands are recognised by SINQHM_BOOTUTIL_CLIENT:\n"
|
|
"\n"
|
|
" help or ? - generate this help text.\n"
|
|
" config - interactive configuration of target boot-line.\n"
|
|
" reboot - reboot the target.\n"
|
|
" rundown - cause the bootUtil server on the target to exit.\n"
|
|
" show - display the boot-line of the target.\n"
|
|
"\n"
|
|
" To get more detailed help on a specific command, specify:\n"
|
|
"\n"
|
|
" HELP <cmnd>\n"
|
|
"\n"
|
|
" on the command line. For information on the environment setup "
|
|
"for the\n"
|
|
" program, specify:\n"
|
|
"\n"
|
|
" HELP SETUP\n"
|
|
"\n"
|
|
" on the command line.\n"
|
|
"\n");
|
|
} else if (StrMatch ("CONFIG", token, 1) == 0) {
|
|
printf ("\n"
|
|
" Config:\n"
|
|
" The current boot-line information will be displayed. The "
|
|
"user will then\n"
|
|
" be prompted for new settings for each field of the boot-"
|
|
"line. The modified\n"
|
|
" boot-line will then be displayed and the user asked whether "
|
|
"it should be\n"
|
|
" written to the non-volatile memory of the target or not.\n"
|
|
"\n");
|
|
}else if (StrMatch ("REBOOT", token, 2) == 0) {
|
|
printf ("\n"
|
|
" Reboot\n"
|
|
" The target processor will be rebooted.\n"
|
|
"\n");
|
|
}else if (StrMatch ("RUNDOWN", token, 2) == 0) {
|
|
printf ("\n"
|
|
" Rundown\n"
|
|
" The bootUtil server on the target processor will be "
|
|
"requested to exit.\n"
|
|
" Manual intervention on the target will then be necessary "
|
|
"before this program\n"
|
|
" can be used again.\n"
|
|
"\n");
|
|
}else if (StrMatch ("SHOW", token, 1) == 0) {
|
|
printf ("\n"
|
|
" Show:\n"
|
|
" The current boot-line information of the target will be "
|
|
"displayed.\n"
|
|
"\n");
|
|
}else if (StrMatch ("SETUP", token, 2) == 0) {
|
|
printf ("\n"
|
|
" Setup:\n"
|
|
" The target host with which SinqHM_bootUtil_Client is to "
|
|
"communicate\n"
|
|
" can most easily be specified via options of the form:\n"
|
|
"\n"
|
|
" -host <target-name> -port <port>\n"
|
|
"\n"
|
|
" on the command line. There is no default for <target-name> "
|
|
"whereas\n"
|
|
" <port>, which specifies the TCP/IP port number at which "
|
|
"the SinqHM_bootUtil\n"
|
|
" server is accepting connections on the target, defaults "
|
|
"to 2300.\n"
|
|
"\n"
|
|
" Alternatively, the environment variable SINQHM_FRONTEND "
|
|
"may be defined.\n"
|
|
" On Unix systems this is done thus:\n"
|
|
"\n"
|
|
" setenv SINQHM_FRONTEND \"<target-name> <port>\"\n"
|
|
"\n"
|
|
" On VMS systems, logical names are used instead, e.g.\n"
|
|
"\n"
|
|
" define/job sinqhm_frontend \"<target-name> <port>\"\n"
|
|
"\n"
|
|
" It is also possible to specify <target-name> and <port> in "
|
|
"an X-resources\n"
|
|
" data base. The resource names are \"butilHost\" and "
|
|
"\"butilPort\".\n"
|
|
"\n");
|
|
}else {
|
|
printf ("Sorry, no help available for \"%s\"!\n", token);
|
|
}
|
|
}
|
|
/*
|
|
**==========================================================================
|
|
**
|
|
** Main line program
|
|
** ------------------
|
|
**==========================================================================*/
|
|
int main (int argc, char *argv[]) {
|
|
/* ====
|
|
*/
|
|
int i, j, k, status, is, dummy, cmnd_len;
|
|
|
|
char cmnd[16], ist_bootline[1024], new_bootline[1024], buff[1024];
|
|
int boot_line_changed;
|
|
|
|
char recd[256], recd1[256];
|
|
char last_recd[256] = {NIL};
|
|
char *verb;
|
|
int l_recd;
|
|
XrmDatabase my_db;
|
|
char *appName;
|
|
/*============================================================================
|
|
*/
|
|
printf ("SinqHM_bootUtil_Client Ident \"%s\" started.\n", IDENT);
|
|
/*============================================================================
|
|
** Declare an exit handler to tidy up if we get forced to exit.
|
|
*/
|
|
is = atexit (exit_handler);
|
|
if (is != 0) {
|
|
printf ("SINQHM_BOOTUTIL_CLIENT -- error setting up exit handler.");
|
|
return EXIT_FAILURE;
|
|
}
|
|
/*-------------------------------------------------------------
|
|
** Setup the resource database and look up the resources.
|
|
*/
|
|
Verbose = False;
|
|
for (i = 1; i < argc; i++) if (strcmp ("-v", argv[i]) == 0) Verbose = True;
|
|
|
|
setup_xrm_database (&my_db, &appName, &argc, argv, Verbose);
|
|
status = get_check_resources (&my_db, appName, Verbose);
|
|
if (!status) return False;
|
|
/*============================================================================
|
|
** Analyse the arguments to see what has to be done.
|
|
*/
|
|
if (argc > 1) { /* There should just be at least one argument remaining.
|
|
*/
|
|
StrJoin (cmnd, sizeof (cmnd), argv[1], "");
|
|
cmnd_len = sizeof (cmnd);
|
|
StrEdit (cmnd, argv[1], "upcase", &cmnd_len); /* Cvt to upper case */
|
|
if (cmnd[0] == '-') /* Ignore a leading "-" */
|
|
StrJoin (cmnd, sizeof (cmnd), &cmnd[1], "");
|
|
}else {
|
|
printf ("\n No command was specified on the command line, "
|
|
"default is \"SHOW\".\n"
|
|
" Specify \"HELP\" for help.\n\n");
|
|
strcpy (cmnd, "SHOW");
|
|
}
|
|
if (StrMatch (cmnd, "HELP", 1) || StrMatch (cmnd, "?", 1)) {
|
|
if (argc > 2) show_help (argv[2]); else show_help (NULL);
|
|
return EXIT_SUCCESS;
|
|
}
|
|
|
|
if (!StrMatch (cmnd, "CONFIG", 1) &&
|
|
!StrMatch (cmnd, "REBOOT", 6) &&
|
|
!StrMatch (cmnd, "RUNDOWN", 7) &&
|
|
!StrMatch (cmnd, "SHOW", 1)) {
|
|
printf ("\n\"%s\" is not a recognised command.\n\n", cmnd);
|
|
show_help (NULL);
|
|
return EXIT_FAILURE;
|
|
}
|
|
/*============================================================================
|
|
** Find out the location of the bootUtil Server and make
|
|
** a connection to it. Any errors during this phase cause the program
|
|
** to exit with an error status.
|
|
*/
|
|
if (Rmt_host[0] == NIL) {
|
|
get_SINQHM_FRONTEND (Rmt_host, sizeof (Rmt_host), "",
|
|
&Rmt_port, DFLT_PORT,
|
|
&dummy, 0);
|
|
if (Rmt_host[0] == NIL) {
|
|
printf ("\n"
|
|
" No target processor has been specified!\n"
|
|
"\n");
|
|
show_help ("setup");
|
|
return EXIT_FAILURE;
|
|
}
|
|
}
|
|
/*============================================================================*/
|
|
Cnct_skt = openConnection (Rmt_host, Rmt_port);
|
|
status = read_boot_line (Cnct_skt, ist_bootline, sizeof (ist_bootline));
|
|
status = send_a_close (Cnct_skt);
|
|
close (Cnct_skt);
|
|
Cnct_skt = 0;
|
|
|
|
strcpy (new_bootline, ist_bootline);
|
|
boot_line_changed = False;
|
|
|
|
i = printf ("\nCurrent boot-line of %s is:\n", Rmt_host);
|
|
for (j = 3; j < i; j++) printf ("="); printf ("\n");
|
|
status = show_boot_line (ist_bootline);
|
|
/*
|
|
**=========================================== Carry out the command =========
|
|
*/
|
|
if (StrMatch (cmnd, "CONFIG", 1)) { /* Modify the configuration? */
|
|
status = do_config (new_bootline);
|
|
if (status) {
|
|
Cnct_skt = openConnection (Rmt_host, Rmt_port);
|
|
status = read_boot_line (Cnct_skt, ist_bootline, sizeof (ist_bootline));
|
|
status = send_a_close (Cnct_skt);
|
|
close (Cnct_skt);
|
|
Cnct_skt = 0;
|
|
if (status) {
|
|
i = printf ("\nNew boot-line of %s is:\n", Rmt_host);
|
|
for (j = 3; j < i; j++) printf ("="); printf ("\n");
|
|
status = show_boot_line (ist_bootline);
|
|
printf ("\n");
|
|
}else {
|
|
printf ("\007Error getting new boot-line information!\n");
|
|
}
|
|
}
|
|
}else if (StrMatch (cmnd, "REBOOT", 2)) { /* Reboot? */
|
|
status = do_reboot ();
|
|
}else if (StrMatch (cmnd, "RUNDOWN", 2)) { /* Rundown? */
|
|
status = do_rundown ();
|
|
}else if (StrMatch (cmnd, "SHOW", 1)) { /* Show? */
|
|
/* Already done! */
|
|
}else {
|
|
printf ("\n Illegal command - try \"HELP\".\n");
|
|
status = EXIT_FAILURE;
|
|
}
|
|
|
|
return status;
|
|
}
|
|
/*==================================== End of SINQHM_BOOTUTIL_CLIENT.C ======*/
|