(savecore): New function.

(main): Call it before starting a new lyskomd.

src/server/updateLysKOM.c

 /*
- * $Id: updateLysKOM.c,v 1.4 1994/04/05 20:30:00 ceder Exp $
+ * $Id: updateLysKOM.c,v 1.5 1995/09/05 19:00:03 ceder Exp $
  * Copyright (C) 1994  Lysator Academic Computer Association.
  *
  * This file is part of the LysKOM server.
@@ -119,6 +119,18 @@ checkstatus(FILE *fp,
     }
 }
 	
+/* Ignore errors in this function. */
+static void
+savecore(void)
+{
+    struct stat statbuf;
+
+    if (stat(DEFAULT_PREFIX "cores/core", &statbuf) == 0
+	&& stat(DEFAULT_PREFIX "bin/savecore", &statbuf) == 0)
+    {
+	system(DEFAULT_PREFIX "bin/savecore");
+    }
+}
 
 int
 main (int    argc,
@@ -141,7 +153,7 @@ main (int    argc,
 	{
 	case 'V':
 	case 'v':
-	    fprintf(stderr, "updateLysKOM %d $Revision: 1.4 $\n",
+	    fprintf(stderr, "updateLysKOM %d $Revision: 1.5 $\n",
 #include "version.incl"
 		    );
 	    exit(0);
@@ -185,6 +197,9 @@ main (int    argc,
 		perror("");
 		exit(1);
 	    }
+
+	    savecore();
+
 	    execl(DEFAULT_PREFIX "/bin/lyskomd", "lyskomd", (char *)0);
 	    fprintf(stderr, "%s: execl() failed: ", argv[0]);
 	    perror("");