#-------------------------#
# Standard EDGAR Routines #
#-------------------------#
#
# Supply the go-home and back.gif link.
#
sub home{
local ($gif,$text) = @_;
# if nothing supplied, set default to back.gif and vanilla caption.
if ($#_ < 0) { # check out the funky $#_ !!
$gif = "back.gif";
$text = "Return to our Home Page";
}
print "
";
print "";
print "";
print "$text";
print "
";
}
#
# Supply English Descriptions for the chief filing types.
#
sub form_init {
%forms = (
'10-K', 'Annual Report',
'10-K/A', 'Ann. Rpt. Amendment',
'10-Q', 'Quarterly Report',
'10-Q/A', 'Qtr. Rpt. Amendment',
'8-K', 'Current Event',
'8-K/A', 'Curr. Event Amend.',
'SC 13D', '>= 5% Acquisition',
'SC13D', '>= 5% Acquisition',
'N-2', 'Closed-End Fund',
'N-1A','Open-End Fund',
'SC 13D/A', 'Acquis. Amendment',
'SC13D/A', 'Acquis. Amendment',
'NSAR-A', 'Semi-annual Fund Rpt.',
'NSAR-B', 'Semi-annual Fund Rpt.',
'13F-E', 'Mutual Fund Holding',
'485', 'Post-Eff. Fund Prospectus',
'424B2', 'Prospectus Supplement',
'424B1', 'Prospectus Supplement',
'424B5', 'Prospectus Supplement',
'485BPOS', 'Post-Eff. Fnd Pspcts.',
'485APOS', 'Post-Eff. Fnd Pspcts.',
'DEF 14A', 'Definitive Proxy',
'DEF14A', 'Definitive Proxy',
'S-3', 'Stock/Bond Regis.',
'S-3/A', 'Stock/Bond Reg. Amnd.',
'SC 13G', '>= 5% Acquisition',
'SC13G', '>= 5% Acquisition',
'SC 13G/A', 'Acquis. Amendment',
'SC13G/A', 'Acquis. Amendment',
'S-8', 'ESOP',
'11-K','ESOP Ann. Rpt.',
'497','Fund Prospectus',
'497J','Fund Prospectus',
'PRE 14A','Prelim. Proxy',
);
}
sub nyu_trailer{
# &home;
local($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime;
local(@days) = ('Sunday', 'Monday', 'Tuesday', 'Wednesday', 'Thursday',
'Friday', 'Saturday');
local(@months) = ('January', 'February', 'March', 'April', 'May', 'June',
'July', 'August', 'September', 'October', 'November', 'December');
print "";
print "
";
print "
";
print "\nGenerated by the NYU Stern School of Business Information Systems Department";
print " on ", sprintf("%02d:%02d:%02d on %s %d, %d", $hour, $min, $sec,$months[$mon], $mday, 1900+$year);
print " with CGI scripts - annotated code may be found in ";
print " this book .";
print "