[0001]
[0002]
[0003]
[0004]
[0005]
[0006]
[0007]
[0008]
[0009]
[0010]
[0011]
[0012]
[0013]
[0014]
[0015]
[0016]
[0017]
[0018]
[0019]
[0020]
[0021]
[0022]
[0023]
[0024]
[0025]
[0026]
[0027]
[0028]
[0029]
[0030]
[0031]
[0032]
[0033]
[0034]
[0035]
[0036]
[0037]
[0038]
[0039]
[0040]
[0041]
[0042]
[0043]
[0044]
[0045]
[0046]
[0047]
[0048]
[0049]
[0050]
[0051]
[0052]
[0053]
[0054]
[0055]
[0056]
[0057]
[0058]
[0059]
[0060]
[0061]
[0062]
[0063]
[0064]
[0065]
[0066]
[0067]
[0068]
[0069]
[0070]
[0071]
[0072]
[0073]
[0074]
[0075]
[0076]
[0077]
[0078]
[0079]
[0080]
[0081]
[0082]
[0083]
[0084]
[0085]
[0086]
[0087]
[0088]
[0089]
[0090]
[0091]
[0092]
[0093]
[0094]
[0095]
[0096]
[0097]
[0098]
[0099]
[0100]
[0101]
[0102]
[0103]
[0104]
[0105]
[0106]
[0107]
[0108]
[0109]
[0110]
[0111]
[0112]
[0113]
[0114]
[0115]
[0116]
[0117]
[0118]
[0119]
[0120]
[0121]
[0122]
[0123]
[0124]
[0125]
[0126]
[0127]

$! (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)