*** xdsc.c	Tue Jul 13 14:29:03 1993
--- /source/athena/athena.bin/xdsc/xdsc.c	Sun Nov  8 23:12:05 1992
***************
*** 170,176 ****
--- 170,192 ----
          { "replybutton", "newbutton", NULL },
          { "writebutton", "mailbutton", NULL }};
  
+ typedef struct{
+ 	Boolean logging_on;
+ 	String	log_file;
+ } defaults;
  
+ static defaults	defs;
+ 
+ static XtResource app_resources[] = {
+ 	{ "loggingOn", "LoggingOn",
+ 		XtRBoolean, sizeof (Boolean), XtOffset (defaults *, logging_on),
+ 		XtRString, "true" },
+ 	{ "logfile", "Logfile",
+ 		XtRString, sizeof (String), XtOffset (defaults *, log_file),
+ 		XtRString, "/afs/athena.mit.edu/user/s/sao/scores/xdsc.log"},
+ };
+ 
+ 
  EntryRec        toplevelbuttons[2][MAX_BUTTONS];
  
  void
***************
*** 276,281 ****
--- 292,310 ----
  
  
  	myfree (newpath);
+ 
+ 	XtGetApplicationResources(	topW, (XtPointer) &defs,
+ 					app_resources, XtNumber (app_resources),
+ 					NULL, 0);
+ 
+ 	if (defs.logging_on) {
+ 		sprintf (commandline, "machtype >> %s", defs.log_file);
+ 		system (commandline);
+ 
+ 		sprintf (commandline, "date >> %s", defs.log_file);
+ 		system (commandline);
+ 	}
+ 
  
  	BuildUserInterface();
  	XtRealizeWidget(topW);