#!/usr/bin/perl
####################################################################
# Script:       | Whats New (News Viewing Script)                  #
# Version:      | 2.0                                              #
# By:           | Jason Berry (i2 Services, Inc. / CGI World)      #
# Contact:      | jason@cgi-world.com                              #
# WWWeb:        | http://www.cgi-world.com                         #
# Copyright:    | Jason Berry (CGI World / i2 Services, Inc.)      #
# Released      | July 3rd 1998                                    #
####################################################################
# By using this software, you have agreed to the license           #
# agreement packaged with this program.                            #
#                                                                  #
####################################################################
#
 #
  # Variables:

   $font = "Verdana";
   # Font to be used in HTML Files the script creates & displays.


   $side_marker = "<LI>";
   # This HTML Tag is posted next to news groups & headlines. If you would
   # like to use an image tag, insert the tag like this:
   # "<IMG SRC=\"http://url.to.image/image.gif\">"  <-- Placing \ backslashes
   # inside of extra quotes inside the quotes.


   # Text / Images for Links:
   #
   # To input a HTML tag or IMAGE in the below variables, place a \
   # (backslash) in front of any extra quotes (") you enter in.


   $more_news_text = "[View News Index]";
   # HTML/TEXT linked to the area listing a news groups
   # news entries.


   $view_archives_text = "[More Archives]";
   # HTML/TEXT linked to archive category listing all archived
   # news entries.


   $related_news_text = "[Related Link]";
   # HTML/TEXT linked to a URL entered in a news entry in
   # a news group.


   $previous_news_text = "[Read Previous]";
   # HTML/TEXT linked to read the previous news posted in
   # a news group.


   $next_news_text = "[Read Next]";
   # HTML/TEXT linked for reading the next news posted in
   # a news group.


   $weeks_news_text = "[View This Weeks News]";
   # HTML/TEXT for daily news linking to viewing all daily news listed under 
   # a news group.


   $split_by = "|";
   # What links under the news entry area are seperated by.


   $line_breaker = "<HR Size=5>";
   # Seperator between News Groups listed.


   $archive_header = "archive.header";
   # Default archive header file. Check the Whats New Install file
   # for more information on customizing Whats New Pages.



   $archive_footer = "archive.footer";
   # Default archive footer file. Check the Whats New Install file
   # for more information on customizing Whats New Pages.



   $on_error_redirect_to = "http://csesupport.com";
   #
   # When someone enters a string of commands onto this script
   # and they can not be associated w/ any command in the script,
   # it will redirect to the url you set in this variable.

   #
  #
 #
#
#  
#
#####################################################################
# Whats New v2.0 - Do Not edit under this line. Violation of        #
#                  Prouduct license agreement. We do not support    #
#                  errors in this product after modification below. #
#####################################################################
#

if ($0=~m#^(.*)(\\|/)#)	{ $cgidir = $1; }
else { $cgidir = `pwd`; chomp $cgidir; }

$base_dir = "$cgidir/whats_new";
$data_dir = "$base_dir/data";
$script_url = "$ENV{'SCRIPT_NAME'}";
$html_dir = "$base_dir/html";
$days_dir = "$base_dir/days";
$archive_dir = "$base_dir/archives";
$lockdir = "$forum_dir/filelock";
$today = int(time / 86400);
&parse_form;



# View All Categories     :
###########################

if(!$ENV{'QUERY_STRING'} || !$c && $v !~ /^archive$/i) {

   print "Content-Type: text/html\n\n";

   open(MAIN,"<$base_dir/index.html");
   while(<MAIN>) {
      print "$_";
   }
  close(MAIN);
 
  if(!-e "$base_dir/index.html") {
     print "The index file has yet to be created, use the publish button from the administration script";
  }

  exit; 

}


# View Category News      :
###########################


if($v eq "news" && $c && !$id) {

   print "Content-Type: text/html\n\n";

   open(NEWS,"<$base_dir/$c.html");
   while(<NEWS>) {
      print "$_";
   }
   close(NEWS);
   
   exit;

}

# View News from Category      :
###########################


if($v eq "news" && $c && $id) {

   &grab_info;
   $group_name =~ s/_/ /gi;


   $count = 1;

   open(NEWSENTRY,"<$data_dir/$c.dat");
   while(<NEWSENTRY>) {
      chop($_);
      ($added_on,$news_id,$date,$entry_title,$file2,$link_to) = split(/\|/,$_);

      if($more_news) { $more_news++ };

      if($next_id eq "$count") { $next_id = "$news_id" } ;

      if($id eq "$news_id") {
         $news_date = "$date";
         $news_title = "$entry_title";
         $news_body = "$file2";
         $news_outlink = "$link_to";
         $more_news = 1; 
         $found_at = $count;
         $next_id = $found_at + 1;
         $previous_id = "$prev_id";
      }
      $count++;
      $prev_id = "$news_id";

   }

   close(NEWSENTRY);


   @date_info = split(/\//,$news_date);
   if($date_info[0] eq "01") { $date_info[0] = "January" };
   if($date_info[0] eq "02") { $date_info[0] = "February" };
   if($date_info[0] eq "03") { $date_info[0] = "March" };
   if($date_info[0] eq "04") { $date_info[0] = "April" };
   if($date_info[0] eq "05") { $date_info[0] = "May" };
   if($date_info[0] eq "06") { $date_info[0] = "June" };
   if($date_info[0] eq "07") { $date_info[0] = "July" };
   if($date_info[0] eq "08") { $date_info[0] = "August" };
   if($date_info[0] eq "09") { $date_info[0] = "September" };
   if($date_info[0] eq "10") { $date_info[0] = "October" };
   if($date_info[0] eq "11") { $date_info[0] = "November" };
   if($date_info[0] eq "12") { $date_info[0] = "December" };


   $date = "$date_info[0] $date_info[1], $date_info[2]";   

   open(HEADER,"<$html_dir/$header_file");
   @header = <HEADER>;
   close(HEADER);

   open(FOOTER,"<$html_dir/$footer_file");
   @footer = <FOOTER>;
   close(FOOTER);

   print "Content-Type: text/html\n\n";
   print @header;

   print "<TABLE Width=95%>\n";
   print "<TR>\n   <TD><FONT FACE=\"$font\">\n";

   print "<DL>\n\n";

   print "<DT>$side_marker <B>$date</B> <P>\n";
   print "<DT>$side_marker  <U>$news_title</U> <P>\n";

   print "<DD><FONT Size=2>$news_body </FONT> <P>\n";
 
   print "<Font Size=2>";
   print "<A HREF=\"$script_url?v=news&c=$c\">$more_news_text</A> $split_by ";

   if($news_outlink) {
      print " <A HREF=\"$news_outlink\">$related_news_text</A> $split_by";
   }


   if($found_at ne "1") {
      print " <A HREF=\"$script_url?v=news&c=$c&id=$previous_id\">$previous_news_text</A> $split_by \n";
   }

   if($more_news > 1) {
      print " <A HREF=\"$script_url?v=news&c=$c&id=$next_id\">$next_news_text</A> ";
   }


   print "</Font>\n";


   print "</TD></TR>\n</TABLE>\n";
   print "</DL>\n\n";

   print @footer;
 
   exit;

}

# View Daily News from Category :
#################################


if($v eq "day" && $c && $day) {

   &grab_info;
   $group_name =~ s/_/ /gi;

   if(-e "$html_dir/$c.header.days") {

      open(HEADER,"<$html_dir/$c.header.days");
      @header = <HEADER>;
      close(HEADER);
 
      open(FOOTER,"<$html_dir/$c.footer.days");
      @footer = <FOOTER>;
      close(FOOTER);
 
      $found_html = 1;

   }

   elsif(-e "$html_dir/header.days" && !$found_html) {

      open(HEADER,"<$html_dir/header.days");
      @header = <HEADER>;
      close(HEADER);
 
      open(FOOTER,"<$html_dir/footer.days");
      @footer = <FOOTER>;
      close(FOOTER);

   }

   else {    
      open(HEADER,"<$html_dir/$header_file");
      @header = <HEADER>;
      close(HEADER);
 
      open(FOOTER,"<$html_dir/$footer_file");
      @footer = <FOOTER>;
      close(FOOTER);
   }


   open(DAYSNEWS,"<$days_dir/$c.$day");
   @days_news = <DAYSNEWS>;
   close(DAYSNEWS);

   $days_news = join('',@days_news);
   $days_news =~ s/\n/<BR>/gi;

   print "Content-Type: text/html\n\n";
   print @header;

   print "<TABLE Width=95%>\n";
   print "<TR>  <TD> <FONT FACE=\"$font\">\n\n";
   print "<DL>\n\n";

   print "<DT>$side_marker <B>News for $day:</B> <P>\n\n";

   print "<Font Size=2>\n<DD>";
   print "$days_news";
   print "</Font>\n\n";

   print "<P> <DD> <Font Size=2> <A HREF=\"$script_url?v=day&c=$c\">$weeks_news_text</A>\n";
   print "$split_by <A HREF=\"$script_url?v=news&c=$c\">$more_news_text</A> </Font> \n";

   print "</TD></TR></TABLE>\n\n";

   print "</DL>\n";
   print @footer;
   exit;

}

# View index of Daily News from Category :
##########################################


if($v eq "day" && $c && !$day) {

   &grab_info;
   $group_name =~ s/_/ /gi;

   if(-e "$html_dir/$c.header.days") {

      open(HEADER,"<$html_dir/$c.header.days");
      @header = <HEADER>;
      close(HEADER);
 
      open(FOOTER,"<$html_dir/$c.footer.days");
      @footer = <FOOTER>;
      close(FOOTER);
 
      $found_html = 1;

   }

   elsif(-e "$html_dir/header.days" && !$found_html) {

      open(HEADER,"<$html_dir/header.days");
      @header = <HEADER>;
      close(HEADER);
 
      open(FOOTER,"<$html_dir/footer.days");
      @footer = <FOOTER>;
      close(FOOTER);

   }

   else {    
      open(HEADER,"<$html_dir/$header_file");
      @header = <HEADER>;
      close(HEADER);
 
      open(FOOTER,"<$html_dir/$footer_file");
      @footer = <FOOTER>;
      close(FOOTER);
   }


   @days = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');


   print "Content-Type: text/html\n\n";
   print @header;
   print "<DL>\n\n";

   print "<TABLE Width=95%>\n";
   print "<TR>  <TD> <FONT FACE=\"$font\">\n\n";

   print "<DT>$side_marker <B>Daily News for $group_name:</B> <P>\n\n";

   foreach$day(@days) {
      if(-e "$days_dir/$c.$day") {
         print "<DD><LI> <A HREF=\"$script_url?v=day&c=$c&day=$day\">$day</A><BR>";
      }
   }



   print "<P> <DD> <Font Size=2> <A HREF=\"$script_url?v=news&c=$c\">$more_news_text</A> </Font>\n";
   print "</TD></TR></TABLE>\n\n";

   print "</DL>\n";
   print @footer;
   exit;

}



# View Archive Index          :
###############################


if($v eq "archive" && !$c) {

   open(HEADER,"<$html_dir/archive.header");
   @aheader = <HEADER>;
   close(HEADER);
 
   open(FOOTER,"<$html_dir/archive.footer");
   @afooter = <FOOTER>;
   close(FOOTER);

   opendir(ARCHIVES,"$archive_dir");
   @files = grep(!/^\./,readdir(ARCHIVES));
   closedir(ARCHIVES);

   print "Content-Type: text/html\n\n";
   print @aheader;

   print "<TABLE Width=95%>\n<TR><TD>\n";
   print "<FONT Face=\"$font\"> <Font Size=3>\n\n";
   print "<DL>\n\n";

   foreach$file(sort @files) {
      if($file =~ /.archive/) {
         $file =~ s/.archive//gi;

         $c = "$file";
         &grab_info;


         $arch_name = "$file";
         $arch_name =~ s/_/ /gi;
         print "<DT>$side_marker <B><Font Size=3><A HREF=\"$script_url?v=archive&c=$file\">$arch_name Archive</A></Font></B> <P>\n";
         print "<DD>$group_description\n";
         print "<P><DT>$line_breaker \n<P>\n\n";
      }
   }

   if(!@files) {
      print "<BR><CENTER>Sorry but there are no Archived Entries</CENTER><BR><BR>\n";
   }

   print "</DL>\n";
   print "</TD></TR>\n</TABLE>\n";

   print @afooter;

   exit;
  
}


# View Category Archives      :
###############################


if($v eq "archive" && $c && !$id) {

   &grab_info;
   $group_name =~ s/_/ /gi;

   if(-e "$html_dir/$c.archive.header") {

      open(HEADER,"<$html_dir/$c.archive.header");
      @header = <HEADER>;
      close(HEADER);
 
      open(FOOTER,"<$html_dir/$c.archive.footer");
      @footer = <FOOTER>;
      close(FOOTER);
 
      $found_html = 1;

   }

   elsif(-e "$html_dir/archive.header" && !$found_html) {

      open(HEADER,"<$html_dir/archive.header");
      @header = <HEADER>;
      close(HEADER);
 
      open(FOOTER,"<$html_dir/archive.footer");
      @footer = <FOOTER>;
      close(FOOTER);

   }

   else {    
      open(HEADER,"<$html_dir/$header_file");
      @header = <HEADER>;
      close(HEADER);
 
      open(FOOTER,"<$html_dir/$footer_file");
      @footer = <FOOTER>;
      close(FOOTER);
   }

   print "Content-Type: text/html\n\n";
   print @header;

   print "<TABLE Width=95%> <TR> <TD>\n\n"; 
   print "<FONT FACE=\"$font\" Size=3>\n";
   print "<DL>\n\n";

   print "<DT>$side_marker <B>$group_name Archives: <P>\n\n";

   open(ARCHGROUP,"<$archive_dir/$c.archive");
   @arch_news = <ARCHGROUP>;
   close(ARCHGROUP);

   print "<DD><TABLE>\n\n";

   foreach$archive(reverse @arch_news) {
      ($added_on,$id,$date,$title,$news_entry,$link_to) = split(/\|/,$archive); 


      chop($link_to);

      # Split Date Up:
      ############################

      @date_info = split(/\//,$date);
      if($date_info[0] eq "01") { $date_info[0] = "January" };
      if($date_info[0] eq "02") { $date_info[0] = "February" };
      if($date_info[0] eq "03") { $date_info[0] = "March" };
      if($date_info[0] eq "04") { $date_info[0] = "April" };
      if($date_info[0] eq "05") { $date_info[0] = "May" };
      if($date_info[0] eq "06") { $date_info[0] = "June" };
      if($date_info[0] eq "07") { $date_info[0] = "July" };
      if($date_info[0] eq "08") { $date_info[0] = "August" };
      if($date_info[0] eq "09") { $date_info[0] = "September" };
      if($date_info[0] eq "10") { $date_info[0] = "October" };
      if($date_info[0] eq "11") { $date_info[0] = "November" };
      if($date_info[0] eq "12") { $date_info[0] = "December" };
        
      $date = "$date_info[0] $date_info[1], $date_info[2]";   

      $link_msg = "Click...";

      if($link_to !~ /^http/i || $news_entry) {
         $link_msg = "More...";
         $link_to = "$script_url?v=archive&c=$c&id=$id"; 
      }

      print "<TR><TD Width=25% VALIGN=TOP><FONT FACE=\"$font\" Size=2><B>$date:</TD><TD><FONT FACE=\"$font\" Size=2>$title</FONT><FONT SIZE=1 FACE=\"$font\"> [<A HREF=\"$link_to\">$link_msg</A>]</TD></TR>\n";

   }
 
  print "</TD></TABLE>\n";
   print "</DL>\n";
   print "</TD></TR></TABLE>\n\n";

   print @footer;
   
   exit;

}




# View Archive from Category      :
###########################


if($v eq "archive" && $c && $id) {

   &grab_info;
   $group_name =~ s/_/ /gi;

   if(-e "$html_dir/$c.archive.header") {

      open(HEADER,"<$html_dir/$c.archive.header");
      @header = <HEADER>;
      close(HEADER);
 
      open(FOOTER,"<$html_dir/$c.archive.footer");
      @footer = <FOOTER>;
      close(FOOTER);
 
      $found_html = 1;

   }

   elsif(-e "$html_dir/archive.header" && !$found_html) {

      open(HEADER,"<$html_dir/archive.header");
      @header = <HEADER>;
      close(HEADER);
 
      open(FOOTER,"<$html_dir/archive.footer");
      @footer = <FOOTER>;
      close(FOOTER);

   }

   else {    
      open(HEADER,"<$html_dir/$header_file");
      @header = <HEADER>;
      close(HEADER);
 
      open(FOOTER,"<$html_dir/$footer_file");
      @footer = <FOOTER>;
      close(FOOTER);
   }



   $count = 1;

   open(NEWSENTRY,"<$archive_dir/$c.archive");
   while(<NEWSENTRY>) {
      chop($_);
      ($added_on,$news_id,$date,$entry_title,$file2,$link_to) = split(/\|/,$_);

      if($more_news) { $more_news++ };

      if($next_id eq "$count") { $next_id = "$news_id" } ;

      if($id eq "$news_id") {
         $news_date = "$date";
         $news_title = "$entry_title";
         $news_body = "$file2";
         $news_outlink = "$link_to";
         $more_news = 1; 
         $found_at = $count;
         $next_id = $found_at + 1;
         $previous_id = "$prev_id";
      }
      $count++;
      $prev_id = "$news_id";

   }

   close(NEWSENTRY);


   @date_info = split(/\//,$news_date);
   if($date_info[0] eq "01") { $date_info[0] = "January" };
   if($date_info[0] eq "02") { $date_info[0] = "February" };
   if($date_info[0] eq "03") { $date_info[0] = "March" };
   if($date_info[0] eq "04") { $date_info[0] = "April" };
   if($date_info[0] eq "05") { $date_info[0] = "May" };
   if($date_info[0] eq "06") { $date_info[0] = "June" };
   if($date_info[0] eq "07") { $date_info[0] = "July" };
   if($date_info[0] eq "08") { $date_info[0] = "August" };
   if($date_info[0] eq "09") { $date_info[0] = "September" };
   if($date_info[0] eq "10") { $date_info[0] = "October" };
   if($date_info[0] eq "11") { $date_info[0] = "November" };
   if($date_info[0] eq "12") { $date_info[0] = "December" };


   $date = "$date_info[0] $date_info[1], $date_info[2]";   

   print "Content-Type: text/html\n\n";
   print @header;

   print "<TABLE Width=95%>\n";
   print "<TR>\n   <TD><FONT FACE=\"$font\">\n";

   print "<DL>\n\n";

   print "<DT>$side_marker <B>$date</B> <P>\n";
   print "<DT>$side_marker  <U>$news_title</U> <P>\n";

   print "<DD><FONT Size=2>$news_body </FONT> <P>\n";
 
   print "<Font Size=2>";


   
   print "<A HREF=\"$script_url?v=archive&c=$c\">$view_archives_text</A> $split_by ";
   print "<A HREF=\"$script_url?v=news&c=$c\">$more_news_text</A> $split_by ";

   if($news_outlink) {
      print " <A HREF=\"$news_outlink\">$related_news_text</A> $split_by";
   }


   if($found_at ne "1") {
      print " <A HREF=\"$script_url?v=archive&c=$c&id=$previous_id\">$previous_news_text</A> $split_by \n";
   }

   if($more_news > 1) {
      print " <A HREF=\"$script_url?v=archive&c=$c&id=$next_id\">$next_news_text</A> ";
   }


   print "</Font>\n";


   print "</TD></TR>\n</TABLE>\n";
   print "</DL>\n\n";

   print @footer;
 
   exit;

}

else { print "Location: $on_error_redirect_to\n\n" };


####################################################################
# Grab Category Info:

sub grab_info {

   open(INFO,"<$data_dir/$c.info");
   while(<INFO>) {
      chop($_);
      ($name3,$value3) = split(/=/,$_);
      $$name3 = "$value3";
   }
   close(INFO);
}

####################################################################
# Parse Form

sub parse_form {
   # Get the input
    read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

   # Split the name-value pairs
   @pairs = split(/&/, $buffer);

   foreach $pair (@pairs) {
      ($name, $value) = split(/=/, $pair);

      # Un-Webify plus signs and %-encoding
      $value =~ tr/+/ /;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      $value =~ s/<!--(.|\n)*-->//g;

      $$name = $value;
   }

   @pairs2 = split(/&/,$ENV{'QUERY_STRING'});
   foreach$pair2(@pairs2) {
      ($name2,$value2) = split(/=/,$pair2);
      if($name2 =~ /c|v|id|day/i) {
         $$name2 = "$value2";
      }
   }
}