Fix some Y2K issues! Now, don't freak out. The only real bug was

that lists of checkins would have started displaying the year as "100"
in the year 2000.  I have changed to display 4-digit years throughout.

webtools/bonsai/cvsquery.cgi

@@ -326,7 +326,7 @@ sub print_ci {
     local($log);
 
     ($sec,$minute,$hour,$mday,$mon,$year) = localtime( $ci->[$CI_DATE] );
-    $t = sprintf("%02d/%02d/%02d %02d:%02d",$mon+1,$mday,$year,$hour,$minute);
+    $t = sprintf("%02d/%02d/%04d %02d:%02d",$mon+1,$mday,$year+1900,$hour,$minute);
 
     $log = &html_log($ci->[$CI_LOG]);
     $rev = $ci->[$CI_REV];
@@ -597,14 +597,14 @@ sub query_to_english {
         if( $::FORM{'mindate'} ne "" ){
             $dd = &parse_date($::FORM{'mindate'});
             ($sec,$minute,$hour,$mday,$mon,$year) = localtime( $dd );
-            $t = sprintf("%02d/%02d/%02d %02d:%02d",$mon+1,$mday,$year,$hour,$minute);
+            $t = sprintf("%02d/%02d/%04d %02d:%02d",$mon+1,$mday,$year+1900,$hour,$minute);
             $english .= "$w1 <i>$t</i> ";
         }
 
         if( $::FORM{'maxdate'} ne "" ){
             $dd = &parse_date($::FORM{'maxdate'});
             ($sec,$minute,$hour,$mday,$mon,$year) = localtime( $dd );
-            $t = sprintf("%02d/%02d/%02d&nbsp;%02d:%02d",$mon+1,$mday,$year,$hour,$minute);
+            $t = sprintf("%02d/%02d/%04d&nbsp;%02d:%02d",$mon+1,$mday,$year+1900,$hour,$minute);
             $english .= "$w2 <i>$t</i> ";
         }
     }

webtools/bonsai/cvsqueryform.cgi

@@ -223,7 +223,7 @@ print "
 <TD VALIGN=TOP ALIGN=RIGHT NOWRAP>
 Between <input type=text name=mindate value='$::FORM{mindate}' size=25></td>
 <td valign=top rowspan=2>You can use the form
-<B><TT><NOBR>mm/dd/yy hh:mm:ss</NOBR></TT></B> or a Unix <TT>time_t</TT>
+<B><TT><NOBR>mm/dd/yyyy hh:mm:ss</NOBR></TT></B> or a Unix <TT>time_t</TT>
 (seconds since the Epoch.)
 </td>
 </tr>

webtools/bonsai/showcheckins.cgi

@@ -204,7 +204,7 @@ foreach $checkin (@list) {
      print "<TR>\n";
      print "<TD><INPUT TYPE=CHECKBOX NAME=\"$checkin\"></TD>\n" if $tweak;
      print "<TD><a href=editcheckin.cgi?id=$checkin" . BatchIdPart(). ">\n";
-     print time2str("<font size=-1>%D %H:%M</font>" , $$info{date}) .
+     print time2str("<font size=-1>%m/%d/%Y %H:%M</font>" , $$info{date}) .
           "</a></TD>\n";
      print "<TD>" . (($$info{treeopen})? "open": "CLOSED") . "\n";
      print "<br>$$info{notes}\n" if $$info{notes};

webtools/bonsai/toplevel.cgi

@@ -78,7 +78,7 @@ if (Param('readonly')) {
 Be aware that you are looking at an old hook!</font></h2>\n";
 }
 
-print "<tt>" . time2str("%D %T %Z", time()) .
+print "<tt>" . time2str("%m/%d/%Y %T %Z", time()) .
       "</tt>: The tree is currently $openword<br>\n";
 unless ($::TreeOpen) {
     print "The tree has been closed since <tt>" .
@@ -86,7 +86,7 @@ unless ($::TreeOpen) {
 }
 
 print "The last known good tree had a timestamp of <tt>";
-print time2str("%D %T %Z", $::LastGoodTimeStamp) . "</tt>.<br>";
+print time2str("%m/%d/%Y %T %Z", $::LastGoodTimeStamp) . "</tt>.<br>";
 print "<hr><pre variable>$::MOTD</pre><hr>";
 print "<br clear=all>";