$! (very) simple procedure to step system though problematic date/times $! while checking WASD HTTPd interpretation of date/time using Y2K.SHTML $! 26-APR-1999 MGD initial $! $ VRFY = F$VERIFY(0) $ ON CONTROLY THEN GOTO REMINDER $ SAY = "WRITE SYS$OUTPUT" $ DEFSYS = "DEFINE/NOLOG/SYSTEM" $! $! NOTE: IF YOUR ARE WISHING TO USE THIS PROCEDURE LOCALLY and are behind $! GMT (e.g. -6:30) you will need to reverse the order of each of the $! local-time and GMT-time checks. WASD contains time sanity checking $! and will exit reporting an error if time changes in unexpected ways! $ GMTOFFSET = "+0 09:30" $! $ IF F$CVTIME() .LTS. "1999-09-09 09:08:00" $ THEN $! $ SAY "" $ SAY "09-SEP-1999 local-time ""9/9/99"" rollover check" $ DEFSYS WASD_Y2K "09-SEP-1999 local-time ""9/9/99 09:09"" rollover check (BEFORE)" $ SET TIME="09-SEP-1999 09:07:30" $ SAY "TIME: " + F$CVTIME() + " ... access check page now" $ WAIT 00:01:30 $ DEFSYS WASD_Y2K "09-SEP-1999 local-time ""9/9/99"" rollover check (AFTER)" $ SAY "TIME: " + F$CVTIME() + " ... access check page now" $ WAIT 00:01:30 $! $ SAY "" $ SAY "09-SEP-1999 GMT (''GMTOFFSET') ""9/9/99"" rollover check" $ DEFSYS WASD_Y2K "09-SEP-1999 GMT (''GMTOFFSET') ""9/9/99 09:09"" rollover check (BEFORE)" $ THISTIME= F$CVTIME("09-SEP-1999 09:07:30''GMTOFFSET'","ABSOLUTE") $ SET TIME="''THISTIME'" $ SAY "TIME: " + F$CVTIME() + " ... access check page now" $ WAIT 00:01:30 $ DEFSYS WASD_Y2K "09-SEP-1999 GMT (''GMTOFFSET') ""9/9/99"" rollover check (AFTER)" $ SAY "TIME: " + F$CVTIME() + " ... access check page now" $ WAIT 00:01:30 $! $ ENDIF $! $ IF F$CVTIME() .LTS. "1999-12-31 23:58:00" $ THEN $! $ SAY "" $ SAY "01-JAN-2000 local-time rollover check" $ DEFSYS WASD_Y2K "01-JAN-2000 local-time rollover check (BEFORE)" $ SET TIME="31-DEC-1999 23:58:30" $ SAY "TIME: " + F$CVTIME() + " ... access check page now" $ WAIT 00:01:30 $ DEFSYS WASD_Y2K "01-JAN-2000 local-time rollover check (AFTER)" $ SAY "TIME: " + F$CVTIME() + " ... access check page now" $ WAIT 00:01:30 $! $ SAY "" $ SAY "01-JAN-2000 GMT (''GMTOFFSET') rollover check" $ DEFSYS WASD_Y2K "01-JAN-2000 GMT (''GMTOFFSET') rollover check (BEFORE)" $ THISTIME= F$CVTIME("31-DEC-1999 23:58:30''GMTOFFSET'","ABSOLUTE") $ SET TIME="''THISTIME'" $ SAY "TIME: " + F$CVTIME() + " ... access check page now" $ WAIT 00:01:30 $ DEFSYS WASD_Y2K "01-JAN-2000 GMT (''GMTOFFSET') rollover check (AFTER)" $ SAY "TIME: " + F$CVTIME() + " ... access check page now" $ WAIT 00:01:30 $! $ ENDIF $! $ IF F$CVTIME() .LTS. "2000-02-28 23:58:00" $ THEN $! $ SAY "" $ SAY "28-FEB-2000 leap-year local-time rollover check" $ DEFSYS WASD_Y2K "28-FEB-2000 leap-year local-time rollover check (BEFORE)" $ SET TIME="28-FEB-2000 23:58:30" $ SAY "TIME: " + F$CVTIME() + " ... access check page now" $ WAIT 00:01:30 $ DEFSYS WASD_Y2K "28-FEB-2000 leap-year local-time rollover check (AFTER)" $ SAY "TIME: " + F$CVTIME() + " ... access check page now" $ WAIT 00:01:30 $! $ SAY "" $ SAY "28-FEB-2000 leap-year GMT (''GMTOFFSET') rollover check" $ DEFSYS WASD_Y2K "28-FEB-2000 leap-year GMT (''GMTOFFSET') rollover check (BEFORE)" $ THISTIME= F$CVTIME("28-FEB-2000 23:58:30''GMTOFFSET'","ABSOLUTE") $ SET TIME="''THISTIME'" $ SAY "TIME: " + F$CVTIME() + " ... access check page now" $ WAIT 00:01:30 $ DEFSYS WASD_Y2K "28-FEB-2000 leap-year GMT (''GMTOFFSET') rollover check (AFTER)" $ SAY "TIME: " + F$CVTIME() + " ... access check page now" $ WAIT 00:01:30 $! $ ENDIF $! $ IF F$CVTIME() .LTS. "2038-01-19 23:58:00" $ THEN $! $ SAY "" $ SAY "19-JAN-2038 local-time rollover check" $ DEFSYS WASD_Y2K "19-JAN-2038 local-time rollover check (BEFORE)" $ SET TIME="19-JAN-2038 23:58:30" $ SAY "TIME: " + F$CVTIME() + " ... access check page now" $ WAIT 00:01:30 $ DEFSYS WASD_Y2K "19-JAN-2038 local-time rollover check (AFTER)" $ SAY "TIME: " + F$CVTIME() + " ... access check page now" $ WAIT 00:01:30 $! $ SAY "" $ SAY "19-JAN-2038 GMT (''GMTOFFSET') rollover check" $ DEFSYS WASD_Y2K "19-JAN-2038 GMT (''GMTOFFSET') rollover check (BEFORE)" $ THISTIME= F$CVTIME("19-JAN-2038 23:58:30''GMTOFFSET'","ABSOLUTE") $ SET TIME="''THISTIME'" $ SAY "TIME: " + F$CVTIME() + " ... access check page now" $ WAIT 00:01:30 $ DEFSYS WASD_Y2K "19-JAN-2038 GMT (''GMTOFFSET') rollover check (AFTER)" $ SAY "TIME: " + F$CVTIME() + " ... access check page now" $ WAIT 00:01:30 $! $ ENDIF $! $ REMINDER: $ SAY "" $ SAY "Current SYSTEM time is set to: " + f$TIME() $ SAY "" $ SAY "*** DO NOT FORGET TO RESET TO CORRECT LOCAL TIME! ***" $ SAY "" $ DEASSIGN/SYS WASD_Y2K $ VRFY = F$VERIFY(VRFY)