#!/usr/gnu/bin/perl5 -- -*- Perl -*-
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
# news.cgi
#
# Displays news items.
#
# Author: Reid Rivenburgh (reid@lanl.gov)
#
# Created: 5/24/95
#
#------------------------------------------------------------------------------

# Set up the require path.
if ($0 =~ /\//) 
{
  $0 =~ /^(.*)\/[^\/]*$/;
  $programPath = $1;
} 
else 
{
  $programPath = ".";
}
push(@INC, $programPath."/lib");
require "news-lib.pl";
require "news-date.pl";

#------------------------------------------------------------------------------
# Pump STDERR into output stream so we know what happens
#------------------------------------------------------------------------------
open(STDERR,">&STDOUT") || die "Can't dup stdout: $!\n";
select(STDERR); $| = 1; # Make unbuffered.
select(STDOUT); $| = 1; # Make unbuffered.

#------------------------------------------------------------------------------
# Get the passed variable use routine from cgi-lib.pl
#------------------------------------------------------------------------------
&ReadParse;

#------------------------------------------------------------------------------
# Setup today
#------------------------------------------------------------------------------
($sec,$min,$hour,$thisday,$thismon,$thisyear,$wday,$yday,$isdst) = localtime(time);
$thismon++;                 # 0 based
$thisyear += 1900;
$today = $weekday[$wday].", ".$monthname[$thismon-1]." ".$thisday.", ".$thisyear;

$currentdate=sprintf("%4.4d-%2.2d-%2.2d",$cyear,$cmon,$cday);

#------------------------------------------------------------------------------
# Print the header.
#------------------------------------------------------------------------------
&printHeader("$organization News and Events");

print <<EOF;

<p>The following are the news items for today, $today.  See the "Help"
page for instructions on how to use this service (including how to add
your own news items), and the "About" page for general
information.</p>

<p>You can also view the <a
href="/calendar/calendar.cgi">$organization calendar</a>.</p>

EOF

opendir(NEWSDIR, "$newsDir");
# Get all of the news files in the news directory, minus '.' and '..'.
@newsFiles = grep(!/^(\.\.?)|(CVS)$/, readdir(NEWSDIR));
closedir(NEWSDIR);
# Sort the files by reverse date.
@newsFiles = sort(SortReverseDate @newsFiles);

# Print the headlines.
print "<a name=\"headlines\"><hr width=100%><center><b>Headlines</b></a></center><hr width=50%>\n";
$itemCount = 1;
foreach $file (@newsFiles)
{
    (print "<ol>\n") if ($itemCount == 1);
    $_ = $file;
    ($date) = /(.*)_/;
    $date =~ s/(\d+)-(\d+)-(\d+)/$2\/$3\/$1/;
    open (NEWS, "$newsDir/$_");
    $/ = "\n---\n";
    while (<NEWS>)
    {
	($newsTitle) = /Title: (.*)/;
	print "  <li>$date - <a href=\"#article$itemCount\">$newsTitle</a>\n";
	$itemCount++;
    }
    close(NEWS);
}
if ($itemCount == 1)
{
    print <<EOF;
<ul>
    <li>There is no news.  Group members can add news items with the
      "Add" link at the top of the page.
</ul>
EOF
}
else
{
    print "</ol>\n";
}


$i = 1;
print "<ol>\n";
for (@newsFiles)
{
    open (NEWS, "$newsDir/$_");
    $/ = "\n---\n";
    while (<NEWS>)
    {
	$news = $_;
#	$news =~ s/Title:(.*)/\<a name="article$i">Title:$1\<\/a\>/;
	$news = &MarkupNews($news);
	print "<a name=\"article$i\"><hr><li>$news</a>\n";
	print "<center><i><a href=\"#headlines\">Return to headlines...</a></i></center>\n";
	$i++;
    }
    close(NEWS);
}
print "</ol>\n";

#------------------------------------------------------------------------------
# Print the footer.
#------------------------------------------------------------------------------
&printFooter();