[Date Prev][Date Next][Thread Prev][Thread Next] [Date Index] [Thread Index]

Subject: Y2K-Bug in Matt's Script Archive
From: Magnum
Date: 17 Dec 1999 18:14:56 -0000


Cool, ich hab hier einen richtig klassischen Y2K-Bug gefunden ;-)

Die Auswirkungen sind allerdings nicht dramatisch: Es wird nur das
falsche Datum angezeigt.

Man beachte auch, dass das Skript 1995 geschieben und 1997 zuletzt
modifiziert wurde.

Ich habe mir das Skript erst vor ein paar Tagen runtergeladen.

---------8<--------------BEGIN-------------------8<-------------------8<-----------

#!/usr/bin/perl
##############################################################################
# FormMail                        Version
1.6                                #
# Copyright 1995-1997 Matt Wright
mattw@worldwidemart.com                    #
# Created 06/09/95                Last Modified
05/02/97                     #
# Matt's Script Archive, Inc.:   
http://www.worldwidemart.com/scripts/      #
##############################################################################
# COPYRIGHT
NOTICE                                                           #
# Copyright 1995-1997 Matthew M. Wright  All Rights
Reserved.                #
#                                                                           
#

---------8<----------------8<-------------------8<--------------------8<-----------

sub get_date {

    # Define arrays for the day of the week and month of the
year.           #
    @days   = ('Sunday','Monday','Tuesday','Wednesday',
               'Thursday','Friday','Saturday');
    @months = ('January','February','March','April','May','June','July',
	         'August','September','October','November','December');

    # Get the current time and format the hour, minutes and seconds. 
Add    #
    # 1900 to the year to get the full 4 digit
year.                         #
    ($sec,$min,$hour,$mday,$mon,$year,$wday) =
(localtime(time))[0,1,2,3,4,5,6];
    $time = sprintf("%02d:%02d:%02d",$hour,$min,$sec);
    $year += 1900;

    # Format the
date.                                                       #
    $date = "$days[$wday], $months[$mon] $mday, $year at $time";

}

---------8<----------------END--------------------8<--------------------8<---------


Gutes neues Jahr wuensche ich allen ;-)

Magnum

-- 
http://www.informatik.uni-muenchen.de/~_rosenbau
http://www.deadmenwalking.de
Internet is nothing more than the biggest time waster since heroin