#
#  file: edgar-date.pl
#  auth: Brad Burdick
#  desc: EDGAR date manipulation routines
#
##########################################################################
#  Copyright (c) 1994, 1995 Internet Multicasting Service
#
#  The SEC EDGAR Level 1 Dissemination processing software ("software")
#  was developed by the Internet Multicasting Service and may 
#  be used for academic, research, government, and internal business
#  purposes without charge.  You may not resell this code or include it
#  in a product that you are selling without prior permission of the
#  Internet Multicasting Service.
#
#  This software is provided ``as is'', without express or implied
#  warranty, and with no support nor obligation to assist in its
#  use, correction, modification or enhancement.  We assume no liability
#  with respect to the infringement of copyrights, trade secrets, or any
#  patents, and are not responsible for consequential damages.  Proper
#  use of the software is entirely the responsibility of the user.
##########################################################################


# date manipulation info
@Months = ('', 'January', 'February', 'March', 'April', 'May', 'June',
           'July', 'August', 'September', 'October', 'November', 'December');
 
@days_in_month = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
 
#
# get date of EDGAR data file -- previous business day
#
sub edgar_date {
	local(@today) = localtime;

	if ($today[6] == 1) {    # 1 == Monday, so roll back to Friday
		$today[3] -= 3;
	} else {
		$today[3]--;
	}
 
	if ($today[3] <= 0) {
		if (--$today[4] < 0) {
			$today[4] = 11;    # 11 == December
		}
		# $today[3] is <= 0...
		$today[3] = $days_in_month[$today[4]] + $today[3];
	}

	# return modified date info
	@today;
}

# keep require happy
1;