Add “visual.txt” to menu; add dates to downloads (#37)

GUI/xephem/fallbacks.c

@@ -747,10 +747,12 @@ String fallbacks[] = {
     "XEphem*WebDB*URL1.value: http://celestrak.com/NORAD/elements/science.txt",
     "XEphem*WebDB*URL2.value: http://celestrak.com/NORAD/elements/tle-new.txt",
     "XEphem*WebDB*URL3.value: http://celestrak.com/NORAD/elements/amateur.txt",
-    "XEphem*WebDB*URL4.value: https://www.minorplanetcenter.org/iau/Ephemerides/Comets/Soft03Cmt.txt",
-    "XEphem*WebDB*URL5.value: https://www.minorplanetcenter.org/iau/Ephemerides/CritList/Soft03CritList.txt",
-    "XEphem*WebDB*URL6.value: https://www.minorplanetcenter.org/iau/Ephemerides/Distant/Soft03Distant.txt",
-    "XEphem*WebDB*URL7.value: https://www.minorplanetcenter.org/iau/Ephemerides/Unusual/Soft03Unusual.txt",
+    "XEphem*WebDB*URL4.value: http://celestrak.com/NORAD/elements/visual.txt",
+    "XEphem*WebDB*URL5.value: https://www.minorplanetcenter.net/iau/Ephemerides/Comets/Soft03Cmt.txt",
+    "XEphem*WebDB*URL6.value: https://www.minorplanetcenter.net/iau/Ephemerides/CritList/Soft03CritList.txt",
+    "XEphem*WebDB*URL7.value: https://www.minorplanetcenter.net/iau/Ephemerides/Distant/Soft03Distant.txt",
+    "XEphem*WebDB*URL8.value: https://www.minorplanetcenter.net/iau/Ephemerides/Unusual/Soft03Unusual.txt",
+    "XEphem*WebDB*URL9.value:",
     "XEphem*WebDB.x: 200",
     "XEphem*WebDB.y: 200",
     "XEphem*WeekStart.Monday.set: False",

GUI/xephem/help/xephem.html

@@ -6503,6 +6503,11 @@ single letter designation from the following set (case <span
             <td style="vertical-align: top;">fixed (or at most exhibits
 constant curvilinear proper motion)</td>
           </tr>
+          <tr>
+            <td style="vertical-align: top; font-weight: bold;"> B<br>
+            </td>
+            <td style="vertical-align: top;">true binary pair with known features</td>
+          </tr>
           <tr>
             <td style="vertical-align: top; font-weight: bold;"> e<br>
             </td>
@@ -7981,11 +7986,11 @@ used for Earth satellite. The file is saved in the <a
 format if it is not already.<br>
 <br>
 Several particularly useful sites as of this build are already entered.
-The first three are from Dr. TS Kelso's Earth satellite lists at <a
+The first five are from Dr. TS Kelso's Earth satellite lists at <a
  href="http://www.celestrak.com">celestrak.com</a>. The other four are
 the Minor Planet Center's lists of hot comets and unusual asteroids
 specially formatted for <a
- href="http://cfa-www.harvard.edu/iau/Ephemerides/Soft03.html">XEphem</a>.
+ href="https://www.minorplanetcenter.net/iau/Ephemerides/Soft03.html">XEphem</a>.
 Click <span style="font-weight: bold;">Get</span> beside the desired
 catalog to download the file to the Private directory and
 simultaneously load into XEphem memory.<br>
@@ -8003,7 +8008,7 @@ for convenience. One file will contain all asteroids which can ever
 become brighter than magnitude 13, and the other (with a "_dim" suffix)
 contains all the rest. All files are created in the user's Private
 XEphem directory. The real work is performed by two perl scripts,
-mpcorb.pl and astorb.pl, respectively. These may be run independently
+mpcorb2edb.pl and astorb2edb.pl, respectively. These may be run independently
 of XEphem if desired.<br clear="all">
 <br>
 <br>

GUI/xephem/webdbmenu.c

@@ -9,6 +9,7 @@
 #include <stdlib.h>
 #include <string.h>
 #include <unistd.h>
+#include <time.h>
 #include <sys/types.h>
 #include <sys/stat.h>
 
@@ -34,7 +35,7 @@ static void ast_icb (XtPointer client, int *fdp, XtInputId *idp);
 
 static Widget wdbshell_w;	/* the main shell */
 
-#define	WDBNFILES	8	/* number of web files in table */
+#define	WDBNFILES	10	/* number of web files in table */
 #define	WDBINDENT	20	/* table indent, pixels */
 #define	POLLINT		2000	/* ast download status polling interval, ms */
 
@@ -133,7 +134,7 @@ wdb_create()
 	n = 0;
 	XtSetArg (args[n], XmNalignment, XmALIGNMENT_BEGINNING); n++;
 	w = XmCreateLabel (rc_w, "WTL", args, n);
-	set_xmstring (w, XmNlabelString, 
+	set_xmstring (w, XmNlabelString,
 			    "Download a file containing .edb or TLE formats:");
 	XtManageChild (w);
 
@@ -418,6 +419,8 @@ char *url;
 	XE_SSL_FD ssl_fd;
 	int sockfd;
 	int nfound;
+	time_t nowtime;
+	struct tm *datetime;
 
 	memset(&ssl_fd, 0, sizeof(ssl_fd));
 
@@ -478,6 +481,20 @@ char *url;
 	    return;
 	}
 
+	/* An experiment from Dave Kaye: add a header to the data file.
+	   The file will no longer be pristine and match exactly what's
+	   on the site; but users can tell how old their download is.
+	   We'll see if users report problems with the fact that no two
+	   downloads ever yield exactly the same file any more. */
+	nowtime = time(NULL);
+	datetime = localtime(&nowtime);
+	fprintf (fp, "# URL: %s\n", url);
+	fprintf (fp, "# Date: %04d-%02d-%02d\n",
+		 datetime->tm_year + 1900,
+		 datetime->tm_mon + 1,
+		 datetime->tm_mday);
+	fprintf (fp, "#\n");
+
 	/* copy to file, insuring only .edb lines.
 	 */
 	nfound = 0;
@@ -518,4 +535,3 @@ char *url;
 	stopd_down();
 	watch_cursor(0);
 }
-