#!/usr/local/bin/perl
# Berita Surgawi - modified for Sahabat Surgawi by Daniel V. Kaunang
######################################################################
# Online News Updater and Manager - Version 2.0b - 05/02/1999
# Copyright 1998 - AA Consulting - By Tony Awtrey
# tony@awtrey.com - http://www.awtrey.com/
#
# This application is licensed under the GNU Public License.
# For more information see: http://www.gnu.org/copyleft/gpl.html
#
#
# With generous contributions made by:
# Jeremy Janssens <tux@vendetta.org>
# Keith McDuffee <gudlyf@cns.bu.edu>
# Anita Foster <harbormistress@spruceharbor.com>
# 
# Changes made since version 1.0:
# 
# * Added Y2K fix. If you have been using the 1.0 version of this
#   script and wish to preserve your existing news file, grab a
#   copy of the convnews.pl script. This will change the file names
#   to the new date format. Old version news files will not be read
#   by this script. If you have never used this script or do not
#   care to preserve your old news, don't bother getting it.
# 
# * Added an optional "Front Page" news section. The news script
#   will update a static HTML page if you add the two tags:
#   <!--StartNews-->
#   <!--EndNews-->
#   The script puts the date as an HTML anchor and updates the most
#   current headlines on a static HTML page. Clicking the date will
#   take you to that days stories.
# 
# * News is now listed in latest story first order.
# 
# * You can now edit and delete news from the browser.
# 
# * Fixed the news archive bug.
# 
# * Various minor scripting and layout errors fixed.
#
# This script requires the use of .htpasswd and .htgroup files.
# These files are useful for restricting access to private
# sections of a website as well as providing a framework
# for easy site management. See the web page for complete
# instructions and the latest scripts.
#
# The only variable you might question is the $num_of_days
# which refers to the number of days that you actually posted news.
# You will not ever have a blank news page because of archiving.
######################################################################
#Program Vars
$webmaster = "Tri Purwito";
$webmastername = "webmaster";
$webmasterdomain = "sahabatsurgawi.net"; 

$basedir = "/home/sahabatsurgawi/html";
$baseurl = "http://www.sahabatsurgawi.net";
$cgidir = "http://www.sahabatsurgawi.net/cgi";

$newsdir = "$basedir/news";
$htaccess_dir = "$basedir/private";
$htpasswd_file = ".htpasswd";
$htgroup_file = ".htgroup";
$timezone = "WIB";
$num_of_days = "2";

$fpfile = "index.html"; #Leave blank if you don't want this feature.
if ($fpfile) { $fpnews = "$basedir/$fpfile"; }
if ($fpfile) { $fpurl = "$baseurl/$fpfile"; }

$cgifile = "beritasurgawi3.cgi";
$cgiurl = "$cgidir/$cgifile";
$lockfile = "lock.lok";
$backfile = "backup.news";

###################################
#HTML Vars

$title = "Berita Surgawi";
$stylesheet = "global.css";
$bgcolor = "#FFFFFF";
$background = "images/ss_back_2.gif";
$text = "#000000";
$link = "#000000";
$vlink = "#00008C";
$titlecolor = "#000000";
$titlepostingcolor = "#6699CC";
$fontsize = "1";
$fontname = "Verdana";

$ttl_bgcolor = "#FFFFFF";
$body_bgcolor= "#FFFFFF";

require "template3ss.cgi";

#DO NOT MODIFY ANYTHING BELOW HERE
###################################
###################################
#Start Main Prog

if ($ENV{'QUERY_STRING'} eq "archive") {
  &get_news_files;
  &archive;
} elsif ($ENV{'QUERY_STRING'} eq "admin") {
  &admin;
} elsif ($ENV{'QUERY_STRING'} =~ /^edit/) {
  &get_news_files;
  &edit;
} elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {
  &form_vars;
  if ($FORM{'formtype'} eq 'addnews') {
    &addnews;
  }
  if ($FORM{'formtype'} eq 'editnews') {
    &editnews;
  }
} elsif ($ENV{'QUERY_STRING'} =~ /\d{8}/) {
  if (length($ENV{'QUERY_STRING'}) < 9 ) {
     $thenewsday = $ENV{'QUERY_STRING'};
     &get_news_files;
     &newsbyday; 
  }
} else {
  &get_news_files;
  &print_html_header;
  print "<P ALIGN=RIGHT><A HREF=$cgiurl?admin>Add News</A><BR>\n";
  print "<A HREF=$cgiurl?edit>Edit News</A></P>\n";
  $thismany = 0;
  while ($thismany < $num_of_days) {
     &print_news(@newsfiles[$thismany]);
     $thismany++;
  }
  print "<HR SIZE=1>\n";
  #print "<FONT FACE=\"$fontname\" SIZE=-1><CENTER>If you are looking for our news archive, click</FONT>\n";
  print "<A HREF=\"$cgiurl?archive\">Berita Surgawi News Archives</A>.<BR>";
  print "<font size=\"-1\">Berita Surgawi maintained by <A HREF=mailto:$webmastername\@$webmasterdomain>Sahabat Surgawi</A></font></CENTER>\n";
  &print_html_footer;
}
exit;

#End Main Prog
###################################
###################################
#Form Subroutines

sub archive {
  $title = "News Archive";

  $current_year = "0";
  $current_month = "0";
  @months = ("Januari","Februari","Maret","April","Mei","Juni","Juli","Agustus","September","Oktober","November","Desember");
  
  &print_html_header;
  foreach $nfn (@newsfiles) {
    $year = substr($nfn, 0, 4);
    $month = substr($nfn, 4, 2);
    $day = substr($nfn, 6, 2);
    $mon = ($month-1);
    if ($year ne $current_year) {
      $current_year = $year;
      $current_month = $month;
      print "<H3><FONT FACE=\"$fontname\" COLOR=\"$titlecolor\">$current_year</font></H3>\n";
      print "<H5><FONT FACE=\"$fontname\" COLOR=\"$titlecolor\">$months[$mon]</font></H5>\n<P>\n";
      print " <A HREF=\"$cgiurl?$year$month$day\">$day</A>";
      next;
    } 
    if ($month ne $current_month) {
      $current_month = $month;
      print "</P>\n<H5><FONT FACE=\"$fontname\" COLOR=\"$titlecolor\">$months[$mon]</font></H5>\n<P>\n";
      print " <A HREF=\"$cgiurl?$year$month$day\">$day</A>";
      next;
    } else {
      print " <A HREF=\"$cgiurl?$year$month$day\">$day</A>";
    } 
  }
  print "<HR SIZE=1>\n";
  print "<P ALIGN=CENTER>\n";
  #print "<FONT FACE=\"$fontname\" SIZE=-1>If you are looking for our current news, click</FONT>\n";
  print "<A HREF=\"$cgiurl\">Current News</A>.\n";
  print "</P>\n";
  &print_html_footer;
}

sub edit {

  $editstr = $ENV{'QUERY_STRING'};
  if ($editstr =~ /=/) {
    ($name, $value) = split(/=/, $editstr);
    &newsedit($value);
    exit;
  }

  $title = "News Editor";

  $current_year = "0";
  $current_month = "0";
  @months = ("Januari","Februari","Maret","April","Mei","Juni","Juli","Agustus","September","Oktober","November","Desember");
  
  &print_html_header;
  foreach $nfn (@newsfiles) {
    $year = substr($nfn, 0, 4);
    $month = substr($nfn, 4, 2);
    $day = substr($nfn, 6, 2);
    $mon = ($month-1);
    if ($year ne $current_year) {
      $current_year = $year;
      $current_month = $month;
      print "<H3><FONT FACE=\"$fontname\" COLOR=\"$titlecolor\">$current_year</font></H3>\n";
      print "<H5><FONT FACE=\"$fontname\" COLOR=\"$titlecolor\">$months[$mon]</font></H5>\n<P>\n";
      print " <A HREF=\"$cgiurl?edit=$year$month$day\">$day</A>";
      next;
    } 
    if ($month ne $current_month) {
      $current_month = $month;
      print "</P>\n<H5><FONT FACE=\"$fontname\" COLOR=\"$titlecolor\">$months[$mon]</font></H5>\n<P>\n";
      print " <A HREF=\"$cgiurl?edit=$year$month$day\">$day</A>";
      next;
    } else {
      print " <A HREF=\"$cgiurl?edit=$year$month$day\">$day</A>";
    } 
  }
  &print_html_footer;
}


sub admin {
  $title = "Add News";
  &print_html_header;
  print "<CENTER><FONT FACE=\"$fontname\" COLOR=\"$titlecolor\">\n";
  print "<FORM METHOD=\"POST\" ACTION=\"$cgiurl\">\n";
  print "<INPUT TYPE=\"hidden\" NAME=\"formtype\" VALUE=\"addnews\">\n";
  print "<P>Username:\n";
  print "<INPUT TYPE=\"text\" NAME=\"user\" SIZE=\"40\" MAXLENGTH=\"32\">\n";
  print "<BR>\n";
  print "Password:\n";
  print "<INPUT TYPE=\"password\" NAME=\"passwd\" SIZE=\"40\" MAXLENGTH=\"32\">\n";
  print "<BR>\n";
  print "Headline:\n";
  print "<INPUT TYPE=\"text\" NAME=\"headline\" SIZE=\"40\" MAXLENGTH=\"256\">\n";
  print "</P>\n";
  print "<P>News:</P>\n";
  print "<TEXTAREA WRAP=\"virtual\" COLS=\"50\" ROWS=\"16\" name=\"news\"></TEXTAREA><BR>\n";
  print "<INPUT TYPE=\"submit\" VALUE=\"Submit News\"><INPUT TYPE=\"reset\" VALUE=\"Reset Form\">\n";
  print "</FORM>\n";
  print "</CENTER></FONT>\n";
  &print_html_footer;
} 

sub addnews {
  $testvar = 1;
  $title = "News Added";
  $username = "$FORM{'user'}";
  $password = "$FORM{'passwd'}";

  if ($FORM{'headline'}) {
    $headline = "$FORM{'headline'}";
  }
  else {
    &error_response(noheadline);
    return;
  }

  if ($FORM{'news'}) {
    $news = "$FORM{'news'}";
    $news =~ s/\cM//g;
    $news =~ s/\n\n/<p>/g;
    $news =~ s/\n/<br>/g;
    $news =~ s/&lt;/</g;
    $news =~ s/&gt;/>/g;
    $news =~ s/&quot;/"/g;
  }
   else {
   &error_response(nobody);
   return; 
   }

   &check_passwd;
   &get_date;
   $nfn = "$labr_date\.news";

   &print_html_header;

   print "<H5><FONT FACE=\"$fontname\" COLOR=\"$titlepostingcolor\">$headline - $short_time by $username</FONT></H5>\n";
   print "<P>\n";
   print "$news\n";
   print "</P>\n";

   if (-e "$newsdir/$nfn") {
       print "<P><FONT FACE=\"$fontname\" COLOR=\"$titlecolor\">Using Existing News File</FONT></P>\n";
       &check_lock;
       open(NFILE, "$newsdir/$nfn") || &error_response(badfile);
       open(BFILE, ">$newsdir/$backfile") || &error_response(badfile);
       while (<NFILE>) {
         print BFILE;
       }
       close(BFILE);
       close(NFILE);

       open(BFILE, "$newsdir/$backfile") || &error_response(badfile);
       open(NFILE, ">$newsdir/$nfn") || &error_response(badfile);
       print NFILE "$short_time\n";
       print NFILE "$headline\n";
       print NFILE "$username\n";
       print NFILE "$news\n";
       print NFILE "$short_time\n";
       while (<BFILE>) {
         print NFILE;
       }
       close(NFILE);
       close(BFILE);
       
       unlink("$newsdir/$backfile");
       unlink("$newsdir/$lockfile");
       print "Return to the <A HREF=$cgiurl>News Page</A>\n";
       if ($fpfile) { print "<BR>Return to the <A HREF=$fpurl>Front Page</A>\n"; }
   } else {
       print "<P><FONT FACE=\"$fontname\" COLOR=\"$titlecolor\">Creating New News File\: $nfn</FONT></P>\n";
       &check_lock;
       open(NFILE, ">$newsdir/$nfn") || &error_response(badfile);
       print NFILE "$short_time\n";
       print NFILE "$headline\n";
       print NFILE "$username\n";
       print NFILE "$news\n";
       print NFILE "$short_time\n";
       close(NFILE);
       print "Return to the <A HREF=$cgiurl>News Page</A>\n";
       if ($fpfile) { print "<BR>Return to the <A HREF=$fpurl>Front Page</A>\n"; }
       unlink("$newsdir/$lockfile");
   }
   if ($fpnews) {
     &dofpnews;
   }
   &print_html_footer;
}

sub editnews {
  $title = "News Updated";
  $username = "$FORM{'user'}";
  $password = "$FORM{'passwd'}";

  &check_passwd;
  &get_date;
  $nfn = $FORM{'newsfile'};

  &print_html_header;

  if ($FORM{'delday'} eq 'y') {

    print "<P><FONT FACE=\"$fontname\" COLOR=\"$titlecolor\">Deleting News File\: $nfn</FONT></P>\n";
    &check_lock;
    unlink("$newsdir/$nfn");
    unlink("$newsdir/$lockfile");

  } else {

    print "<P><FONT FACE=\"$fontname\" COLOR=\"$titlecolor\">Editing News File\: $nfn</FONT></P>\n";
    &check_lock;
    open(NFILE, ">$newsdir/$nfn") || &error_response(badfile);

    $howmany = $FORM{'numstory'};

    for ($snum=1; $snum<=$howmany; $snum++) {
      $delete = "delete" . $snum;
      $delete = "$FORM{$delete}";
      if ($delete eq 'y') { next; }
      $storytime = "storytime" . $snum;
      $headline = "headline" . $snum;
      $author = "author" . $snum;
      $news = "news" . $snum;
      $storytime = $FORM{$storytime};
      $headline = $FORM{$headline};
      $author = $FORM{$author};
      $news = $FORM{$news};
      $news =~ s/\cM//g;
      $news =~ s/\n\n/<p>/g;
      $news =~ s/\n/<br>/g;
      $news =~ s/&lt;/</g;
      $news =~ s/&gt;/>/g;
      $news =~ s/&quot;/"/g;
      print NFILE "$storytime\n";
      print NFILE "$headline\n";
      print NFILE "$author\n";
      print NFILE "$news\n";
      print NFILE "$storytime\n";
    } 
    close(NFILE);
  }

  print "\n\nReturn to the <A HREF=$cgiurl>News Page</A>\n";
  if ($fpfile) { print "<BR>Return to the <A HREF=$fpurl>Front Page</A>\n"; }
  unlink("$newsdir/$lockfile");

  if ($fpnews) {
    &dofpnews;
  }

  &print_html_footer;
}

sub newsedit {
  $editnewsfile = $_[0];

  $year = substr($editnewsfile, 0, 4);
  $month = substr($editnewsfile, 4, 2);
  $day = substr($editnewsfile, 6, 2);
  $mon = ($month-1);
  @months = ("Januari","Februari","Maret","April","Mei","Juni","Juli","Agustus","September","Oktober","November","Desember");

  &print_html_header;

  print "<H5><FONT FACE=\"$fontname\" COLOR=\"$titlecolor\">Edit News for $months[$mon] $day, $year</font></H5>\n";

  print "<CENTER><FONT FACE=\"$fontname\" COLOR=\"$titlecolor\">\n";
  print "<FORM METHOD=\"POST\" ACTION=\"$cgiurl\">\n";
  print "<INPUT TYPE=\"hidden\" NAME=\"formtype\" VALUE=\"editnews\">\n";
  print "<P>Username:\n";
  print "<INPUT TYPE=\"text\" NAME=\"user\" SIZE=\"40\" MAXLENGTH=\"32\">\n";
  print "<BR>\n";
  print "Password:\n";
  print "<INPUT TYPE=\"password\" NAME=\"passwd\" SIZE=\"40\" MAXLENGTH=\"32\">\n";
  print "</P>\n";

  $filename = $editnewsfile . ".news";
  &check_lock;
  open(NFILE, "$newsdir/$filename") || &error_response(badfile);
  @newsdata =<NFILE>;
  close(NFILE);
  unlink("$newsdir/$lockfile");

  $nidx = "0";
  $ndt = "0";
  $snum = 0;

  foreach $newsline (@newsdata) {
    chop($newsline) if ($newsline =~ /\n/);
    if ($nidx == "0") {
      $storytime = $newsline;
      $ndt = "2";
      $nidx++;
      next;
    } elsif ($ndt == "1") {
      $snum++;
      $news = '';
      $author = $newsline;
      print "\n<HR>Headline:\n";
      print "<INPUT TYPE=\"text\" NAME=\"headline$snum\" SIZE=\"40\" VALUE=\"$headline\">\n";
      print "Delete: <INPUT TYPE=\"checkbox\" NAME=\"delete$snum\" SIZE=\"40\" VALUE=\"y\">\n";
      print "<INPUT TYPE=\"hidden\" NAME=\"storytime$snum\" VALUE=\"$storytime\">\n";
      print "<INPUT TYPE=\"hidden\" NAME=\"author$snum\" VALUE=\"$author\">\n";
      $ndt--;
      next;
    } elsif ($ndt == "2") {
      $headline = $newsline;
      $ndt--;
      next;
    } elsif ($ndt == "3") {
      $storytime = $newsline;
      $ndt--;
      next;
    } elsif ($storytime eq $newsline) {
      $ndt = "3";
      $news =~ s/<p>/\n\n/g;
      $news =~ s/<br>/\n/g;
      print "<TEXTAREA WRAP=\"virtual\" COLS=\"50\" ROWS=\"16\" name=\"news$snum\">$news</TEXTAREA><BR>\n";
      next;
    } else {
      $news =  $news.$newsline;
    } 
  }

  print "\n<INPUT TYPE=\"hidden\" NAME=\"numstory\" VALUE=\"$snum\">\n";
  print "<INPUT TYPE=\"hidden\" NAME=\"newsfile\" VALUE=\"$filename\">\n";
  print "Delete News Day: <INPUT TYPE=\"checkbox\" NAME=\"delday\" VALUE=\"y\"><INPUT TYPE=\"submit\" VALUE=\"Submit News\"><INPUT TYPE=\"reset\" VALUE=\"Reset Form\">\n";

  &print_html_footer;
}

sub newsbyday {
  $title = "News Day Archive";
  $newsfilename = "$thenewsday\.news";

  foreach $nfn (@newsfiles) {
    if ($newsfilename eq $nfn) {
      &print_html_header;
      &print_news($newsfilename);
      print "<HR SIZE=1>\n";
      print "<P ALIGN=CENTER>\n";
      print "<FONT FACE=\"$fontname\" SIZE=-1>\n";
      print "<A HREF=\"$baseurl/$fpfile\">Back to Main</a>.\n";
      #print "If you are looking for our current news, click\n";
      print "<A HREF=\"$cgiurl\">Current News</A>.\n";
      print "<BR>\n";
      #print "If you are looking for our news archive, click\n";
      print "<A HREF=\"$cgiurl?archive\">News Archive</A>.\n";
      print "<BR>\n";
      #print "If you want to edit this news day, click\n";
      print "<A HREF=\"$cgiurl?edit=$thenewsday\">Edit News Day</A>.\n";
      print "</FONT>\n";
      print "</P>\n";
      &print_html_footer;
      return;
    }
  }
  &error_response(noday);
  return;
}

sub print_news { 
  $newsfilename = $_[0];

  $year = substr($newsfilename, 0, 4);
  $month = substr($newsfilename, 4, 2);
  $day = substr($newsfilename, 6, 2);
  $mon = ($month-1);

  if ($year == "") {
  $thismany = $num_of_days;
  }

  if ($thismany < $num_of_days) {   
    @months = ("Januari","Februari","Maret","April","Mei","Juni","Juli","Agustus","September","Oktober","November","Desember");
    print "<H3><FONT FACE=\"$fontname\" COLOR=\"$titlecolor\">$day $months[$mon], $year</font></H3>\n";

    &check_lock;
    open(NFILE, "$newsdir/$newsfilename") || &error_response(badfile);
    @newsdata =<NFILE>;
    close(NFILE);
    unlink("$newsdir/$lockfile");

    $nidx = "0";
    $ndt = "0";

    foreach $newsline (@newsdata) {
      chop($newsline) if ($newsline =~ /\n/);
      if ($nidx == "0") {
        $storytime = $newsline;
        $nidx++;
        $ndt = "2";
        next;
      } elsif ($ndt == "1") {
        $author = $newsline;
        print "<H5><FONT FACE=\"$fontname\" COLOR=\"$titlepostingcolor\">$headline - $storytime by $author</FONT></H5><P>\n";
        $ndt--;
        $nidx++;
        next;
      } elsif ($ndt == "2") {
        $headline = $newsline;
        $ndt--;
        $nidx++;
        next;
      } elsif ($ndt == "3") {
        $storytime = $newsline;
        $ndt--;
        $nidx++;
        next;
      } elsif ($storytime eq $newsline) {
        $ndt = "3";
        print "</P>\n";
        $nidx++;
        next;
      } else {
        print "$newsline\n";
        $nidx++;
      } 
    }    
    print "\n";
  }
}

sub dofpnews {

  print "<P><FONT FACE=\"$fontname\" COLOR=\"$titlecolor\">You are using news on the front page. Adding headlines.</FONT></P>\n";

  &get_news_files;

  if (!(-e "$basedir/news/wc")) {
    link ("$fpnews", "$basedir/news/wc") || &error_response(badfile); 
  }

  open(WC, "$basedir/news/wc") || &error_response(badfile);
  @index = <WC>;
  close(WC);

  foreach $inline (@index) {
    if ($place == 1) {
      if (!($inline =~ /<!--EndNews-->/)) {
        next;
      } else {
        $place=2;
        next;
      }
    } elsif ($place == 2) {
      $after = $after . $inline;
      next;
    } elsif ($inline =~ /<!--StartNews-->/) {
      $place = 1;
      next;
    } else {
     $before = $before . $inline;
    }
  }

  while ($before =~ /\n$/) {
    chop($before);
  }
  while ($after =~ /\n$/) {
    chop($after);
  }

  open(WC, ">$basedir/news/wc") || &error_reponse(badfile); 
  print WC "$before\n";
  print WC "<!--StartNews-->\n";
  $thismany = 0;
  while ($thismany < $num_of_days) {
    &print_fpnews(@newsfiles[$thismany]);
    $thismany++;
  }
  print WC "<BR><A HREF=\"$cgiurl\"><FONT FACE=\"$fontname\" SIZE=\"$fontsize\" COLOR=\"$link\">Berita Seluruhnya</font></A>\n";
  print WC "<!--EndNews-->\n";
  print WC "$after\n";
}

sub print_fpnews { 
  $newsfilename = $_[0];
  $ndurl = "$cgiurl?".substr($newsfilename,0,8);

  $year = substr($newsfilename, 0, 4);
  $month = substr($newsfilename, 4, 2);
  $day = substr($newsfilename, 6, 2);
  $mon = ($month-1);

  if ($year == "") {
  $thismany = $num_of_days;
  }

  if ($thismany < $num_of_days) {   
  @months = ("Januari","Februari","Maret","April","Mei","Juni","Juli","Agustus","September","Oktober","November","Desember");
  
  print WC "<A HREF=\"$ndurl\"><FONT FACE=\"$fontname\" SIZE=\"$fontsize\" COLOR=\"$link\">$day $months[$mon], $year</font></A><BR>\n";

  &check_lock;
  open(NFILE, "$newsdir/$newsfilename") || &error_response(badfile);
  @newsdata =<NFILE>;
  close(NFILE);
  unlink("$newsdir/$lockfile");

  $nidx = "0";
  $ndt = "0";

  foreach $newsline (@newsdata) {
    chop($newsline) if ($newsline =~ /\n/);
    if ($nidx == "0") {
      $storytime = $newsline;
      $nidx++;
      $ndt = "2";
      next;
    } elsif ($ndt == "1") {
      $author = $newsline;
      print WC "&nbsp;&nbsp;<FONT FACE=\"$fontname\" SIZE=\"$fontsize\" COLOR=\"$titlepostingcolor\">$headline</FONT><BR>\n";
      $ndt--;
      $nidx++;
      next;
    } elsif ($ndt == "2") {
      $headline = $newsline;
      $ndt--;
      $nidx++;
      next;
    } elsif ($ndt == "3") {
      $storytime = $newsline;
      $ndt--;
      $nidx++;
      next;
    } elsif ($storytime eq $newsline) {
      $ndt = "3";
      $nidx++;
      next;
    } else {
      $nidx++;
    } 
  }    
  print WC "\n";
}
}

#End Form Subroutines
###################################
###################################
#Real Subroutines

sub print_html_header {
  print "Content-type: text/html\n\n";
  print $prehead;
  print $prenews;
  require 'sidenavss.cgi';
  print $prenews2;
  print $title
  print $prenews3;
}

sub print_html_footer {
  print $postnews;
  print "</BODY>\n";
  print "</HTML>\n";
}

sub form_vars {
  read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  @pairs = (split(/&/, $buffer));
  foreach $pair (@pairs) {
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA_F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $value =~ s/<!--(.|\n)*-->//g;
    #$value =~ s/<([^>]|\n)*>//g;
    $FORM{$name} = $value;
  }
}

sub getaddr {
  $hostname = $ENV{'REMOTE_HOST'};
  if ($ENV{'REMOTE_HOST'} && ($ENV{'REMOTE_HOST'} !~ /^[0-9]+\.[0-9]+\.[0-9]+\.[0-9]+$/)) {
    $hostname = $ENV{'REMOTE_HOST'};
  }
  else {
    &address_to_name ($ENV{'REMOTE_ADDR'});
  }
}

#after close() be sure to add: unlink("$newsdir/$lockfile");

sub check_lock {
   $count=0;
   while (-e "$newsdir/$lockfile") {
    sleep(3);
    $count++;
    if ($count > 8){
     last;
    }
   }

   if (-e "$newsdir/$lockfile") {
    &error_response(busy);
   }

   open (LOCK,">$newsdir/$lockfile");
   close LOCK;
}

sub get_date {

   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

   if ($sec < 10) {
    $sec = "0$sec";
   }
   if ($min < 10) {
    $min = "0$min";
   }
   if ($hour < 10) {
    $hour = "0$hour";
   }
   if ($hour > 11){
    $ampm="pm $timezone";
    if($hour > 12){
     $hour=$hour-12;
    }
   }
   else{
    $ampm="am $timezone";
   }
   $month = ($mon + 1);
   if ($month < 10) {
    $month = "0$month";
   }
   if ($mon < 10) {
    $mon = "0$mon";
   }
   if ($mday < 10) {
    $mday = "0$mday";
   }

   @months = ("Januari","Februari","Maret","April","Mei","Juni","Juli","Agustus","September","Oktober","November","Desember");

   $abr_date = "$year$month$mday";
   $long_year = 1900 + $year;
   $labr_date = "$long_year$month$mday";
   $long_date = "$mday $months[$mon], $long_year at $hour\:$min $ampm";
   $short_date = "$mday $months[$mon], $long_year";
   $short_time = "$hour\:$min $ampm";
}    

sub error_response {
  $error = $_[0];

  if ($error eq 'noday') {
    $title = "No News On That Day!";
    &print_html_header;
    print "<P ALIGN=CENTER>Please try a different day<BR>.\n";      
    print "Return to the <A HREF=$cgiurl>News Page</A></P>\n";
    if ($fpfile) { print "<BR>Return to the <A HREF=$fpurl>Front Page</A>\n"; }
    &print_html_footer;
    exit;
  } elsif ($error eq 'noheadline') {
    $title = "You Forgot to give a topic !";
    &print_html_header;
    print "<P ALIGN=CENTER>Please don't forget to enter your topic<BR>.\n";
    print "Return to the <A HREF=$cgiurl>News Page</A></P>\n";
    if ($fpfile) { print "<BR>Return to the <A HREF=$fpurl>Front Page</A>\n"; }
    &print_html_footer;
    exit;
  } elsif ($error eq 'invalid_day') {
    $title = "Not a valid newsday format!!";
    &print_html_header;
    print "<P ALIGN=CENTER>This is not a valid date?<BR>\n";
    print "Return to the <A HREF=$cgiurl>News Page</A></P>\n";
    if ($fpfile) { print "<BR>Return to the <A HREF=$fpurl>Front Page</A>\n"; }
    &print_html_footer;
    exit;
  } elsif ($error eq 'nobody') {
    $title = "You forgot your text !";
    &print_html_header;
    print "<P ALIGN=CENTER>The Body of this message was empty.<BR>\n";
    print "Return to the <A HREF=$cgiurl>News Page</A></P>\n";
    if ($fpfile) { print "<BR>Return to the <A HREF=$fpurl>Front Page</A>\n"; }
    &print_html_footer;
    exit;
  } elsif ($error eq 'badfile') {
    $title = "File Error!!";
    &print_html_header;
    print "<!--\ntestvar = $testvar\n-->\n\n";
    print "<P ALIGN=CENTER>There was an unexpected file error. <br>Please contact <A HREF=mailto:$webmastername\@$webmasterdomain>webmaster</A>.<BR>\n";
    print "Return to the <A HREF=$cgiurl>News Page</A></P>\n";
    if ($fpfile) { print "<BR>Return to the <A HREF=$fpurl>Front Page</A>\n"; }
    &print_html_footer;
    exit;
  } elsif ($error eq 'badcombo') {
    $title = "Bad Username/Password!!";
    &print_html_header;
    print "<P ALIGN=CENTER>Bad Username/Password!<BR>\n";
    print "Return to the <A HREF=$cgiurl>News Page</A></P>\n";
    if ($fpfile) { print "<BR>Return to the <A HREF=$fpurl>Front Page</A>\n"; }
    &print_html_footer;
    exit;
  } elsif ($error eq 'notnews') {
    $title = "Unauthorized Data Entry!!";
    &print_html_header;
    print "<P ALIGN=CENTER>$title</BR>\n";
    print "Return to the <A HREF=$cgiurl>News Page</A></P>\n";
    if ($fpfile) { print "<BR>Return to the <A HREF=$fpurl>Front Page</A>\n"; }
    &print_html_footer;
    exit;
  } else {
    $title = "Unspecified News Error!";
    &print_html_header;
    print "<P>Oops.</P>\n";
    &print_html_footer;
    exit;
  }
}

sub get_news_files {
  opendir(NEWS, $newsdir);
  @newsfiles = reverse(sort(grep(/.\.news/, readdir(NEWS))));
  closedir(NEWS);
}

sub check_passwd {
  &is_news;

  $sent_user = $FORM{'user'};
  $sent_pw = $FORM{'passwd'};

  open(HTPASSWD, "$htaccess_dir/$htpasswd_file") || &error_response(badfile);
  @htpasswd = <HTPASSWD>;
  close(HTPASSWD);

  foreach $passwd_line (@htpasswd) {
    chop($passwd_line) if ($passwd_line =~ /\n/);
    ($real_user,$real_pw) = split(/:/,$passwd_line);
    if (!($real_user eq $sent_user)) { next; }
    if ($real_pw =~ /^\$1\$/) {
      $enc_pw = crypt($sent_pw,substr($real_pw, 3, 2));
    } else {
      $enc_pw = crypt($sent_pw,substr($real_pw, 0, 2));
    }
    if (!($enc_pw eq $real_pw)) { &error_response(badcombo); }
    else { return; }
  }
  &error_response(badcombo);
}

sub is_news {
  $sent_user = $FORM{'user'};
  $sent_pw = $FORM{'passwd'};
  
  open(HTGROUP, "$htaccess_dir/$htgroup_file") || &error_response(badfile);
  @htgroup = <HTGROUP>;
  close(HTGROUP);

  foreach $group_line (@htgroup) {
    chop($group_line) if ($group_line =~ /\n/);
    ($group,$members) = split(/: /,$group_line);
    if (!($group eq "News")) { next; }
    @admins = split(/ /,$members);
  }

  foreach $member (@admins) {
    chop($member) if ($member =~ /\n/);
    if (!($sent_user eq $member)) { next; }
    return;
  }
  &error_response(notnews);
}