'Greenlit' program code 5 for (U95) and 1 for (X07), with kind permis…

…sion of Filipp Romanov, along with a link for his name in pseudo-MPECs. Revised code slightly to allow for GREENLIT lines up to 9 (not needed yet, but looks as if we will eventually).

environ.def

@@ -72,8 +72,9 @@ OBSERVATION_DATE_RANGE=1100,2300
    example,  means that NEOCP observations from (J13) with program code '#'
    will be shown unredacted.
 GREENLIT=033 291 568 595 670 671 691 703 718 970 C95 G58 G96 H01 H41 H43
-GREENLIT2=H45 I41 I52 I81 I93 J69 J95 K80 T05* T08* U52 V00 V03 V06 V11 Y00
-GREENLIT3=Z37 Z48 Z80 851:0 H06:q I22:2 I89:; J13:# U69:| Q62:d
+GREENLIT2=H45 I41 I52 I81 I93 J69 J95 K80 T05* T08*
+GREENLIT3=U52 U94:5 V00 V03 V06 V11 X07:1 Y00
+GREENLIT4=Z37 Z48 Z80 851:0 H06:q I22:2 I89:; J13:# U69:| Q62:d
 
    We default to assuming that no object will have an observed arc greater
    than 200 years,  and that if it _is_ longer than that,  it's a mistake.

ephem0.cpp

@@ -4826,13 +4826,13 @@ void remove_trailing_cr_lf( char *buff)
 /* MPC frowns upon redistribution of NEOCP astrometry.  So if an input
 line is from NEOCP,  it's blacked out,  _unless_ it's from a station
 that has given permission for republication.  Those stations are listed
-in the GREENLIT and GREENLIT2 lines in 'environ.dat';  you can add your
-own if desired.
+in the GREENLIT, GREENLIT2, ...GREENLITn lines in 'environ.dat';  you
+can add your own if desired.
 
 In some cases,  only heliocentric observations have gotten the green light.
-Those codes are followed by an asterisk in the GREENLIT/GREENLIT2 lines.
+Those codes are followed by an asterisk in the GREENLIT* lines.
 
-For private use,  you can turn NEOCP redaction off... just be sure that
+For private use,  you can turn NEOCP redaction off.  Just be sure that
 if you do that,  you don't redistribute anything.        */
 
 bool neocp_redaction_turned_on = true;
@@ -4866,12 +4866,25 @@ static bool line_must_be_redacted( const char *mpc_line,
 {
    if( is_neocp_line( mpc_line) && neocp_redaction_turned_on)
       {
-      const char *to_check[4] = { "GREENLIT", "GREENLIT2", "GREENLIT3", "GREENLIT4" };
       size_t i;
 
-      for( i = 0; i < 4; i++)
-         if( _is_greenlit( get_environment_ptr( to_check[i]), mpc_line, is_heliocentric))
+      for( i = 0; i < 10; i++)
+         {
+         char env_buff[10];
+         const char *env_ptr;
+
+         strlcpy_error( env_buff, "GREENLIT");
+         if( i)
+            {
+            env_buff[8] = (char)( '1' + i);
+            env_buff[9] = '\0';
+            }
+         env_ptr = get_environment_ptr( env_buff);
+         if( _is_greenlit( env_ptr,  mpc_line, is_heliocentric))
             return( false);
+         if( !*env_ptr)
+            break;
+         }
       return( true);
       }
    else

miscell.cpp

@@ -643,6 +643,6 @@ const char *write_bit_string( char *ibuff, const uint64_t bits)
 const char *find_orb_version_jd( double *jd)
 {
     if( jd)
-      *jd = 2460026.5;
-    return( "2023 Mar 23");
+      *jd = 2460030.5;
+    return( "2023 Mar 27");
 }

observer.txt

@@ -138,6 +138,7 @@
  Rinner                                    <a href="https://ssd.jpl.nasa.gov/tools/sbdb_lookup.html#/?sstr=23999&amp;view=OPD">Rinner</a>
  Ritchey-Chretien                          Ritchey-Chr&eacute;tien
  J. E. Rogers                              <a href="https://minorplanetcenter.net/db_search/show_object?object_id=5517">J. E. Rogers</a>
+ Romanov                                   <a href='https://twitter.com/romanov_filipp'>Romanov</a>
  W. H. Ryan                                <a href="http://infohost.nmt.edu/~bryan/">W. H. Ryan</a>
  Sarneczky                                 <a href="http://en.wikipedia.org/wiki/Kriszti%C3%A1n_S%C3%A1rneczky">S&aacute;rneczky</a>
  S\'arneczky                               <a href="http://en.wikipedia.org/wiki/Kriszti%C3%A1n_S%C3%A1rneczky">S&aacute;rneczky</a>