Re: pilotmgr y2k stuff

[Brian Servis <servis@xxxxxxxxxx>]

*- On  4 Jan, John Salmi wrote about "pilotmgr y2k stuff"
> I'm sure I missed something during my mass delete of email which
> accumulated over the holiday break.
> 
> Pilot manager is displaying a date of 01/04/100 during the sync to my
> solaris desktop.
> 
> Is there a quick-n-dirty patch?  I'm running version 1.107 w/perl 5.003.
> 

------ Forwarded message ------
    From: "Bharat Mediratta" <bharat@xxxxxxxxxx>
 Subject: RE: What needs patched to fix this ?
    Date: Sat, 1 Jan 2000 11:51:03 -0800
      To: "Michael Salmon" <Michael.Salmon@xxxxxxxxxxxxxxx>,    <pilotmgr@xxxxxxxxxxxxxxxxxxxx>

> Actually it is the value returned from the C library, not really a
> problem with perl. I agree with the sloppiness comment though.

It's not a bug in the libraries -- it's a bug in my code (I agree with
the sloppiness comment :-)

The fix is rather simple.  Attached is a patch for PilotMgr.pm.

-Bharat

*** PilotMgr.pm.orig    Sat Jan  1 11:39:34 2000
--- PilotMgr.pm Sat Jan  1 11:39:52 2000
***************
*** 2635,2641 ****
      $TZ .= ' ' unless $TZ eq '';

      $mon++;
!     return sprintf("%02d/%02d/%02d %2d:%02d:%02d",
                   $mon, $mday, $year, $hour, $min, $sec);
  }

--- 2635,2642 ----
      $TZ .= ' ' unless $TZ eq '';

      $mon++;
!     $year += 1900;
!     return sprintf("%02d/%02d/%04d %2d:%02d:%02d",
                   $mon, $mday, $year, $hour, $min, $sec);
  }


------------------------------------------------------------------------
***********************************************************
*             This is a public mailing list!              *
* Please do not publish Sun proprietary information here! *
*        -  -  -  -  -  -  -  -  -  -  -  -  -  -         *
*             http://www.moshpit.org/pilotmgr             *
***********************************************************