#!/usr/bin/perl

my($today) = qx(date --date '8 hours' +%j);

my($pwfile) = "pw.dat";
my($nrfile) = "number.dat";
my($ixfile) = "index.shtml";
my($berichttmpl) = "bericht.tmpl";
print "Content-type: text/html\n\n";

my(%form_data);


sub main
{
  &readfields;

  if ($form_data{'pw'} eq "" ) {
    &dontknowyou;
  }
  else
  {
    my($writer, $url) = &checkpw($form_data{'pw'});

    if (! $writer eq "") {
      &checkpost($writer, $url);
    }
    else
    {
       &dontknowyou;
    };

  };

};


sub dontknowyou
{
  print ('Password vergeten?');

};

sub fout
{
  print ("<b>error:</b> @_ <br>");
};


sub readfields
{
  # reading the input

  my ($my_data);
  if($ENV{'REQUEST_METHOD'} eq "GET"){
    $my_data = $ENV{'QUERY_STRING'};
  }
  else 
  {
    my($data_length) = $ENV{'CONTENT_LENGTH'};
    my($bytes_read) = read(STDIN, $my_data, $data_length);
  };

  my(@name_value_array) = split(/&/, $my_data);

  foreach $name_value_pair (@name_value_array) {
      my($name, $value) = split(/=/, $name_value_pair);

      $name =~ tr/+/ /;
      $value =~ tr/+/ /;

      # Next, we'll translate any hex values back into characters
      $name =~ s/%(..)/pack("C",hex($1))/eg;
      $value =~ s/%(..)/pack("C",hex($1))/eg;

      $value =~ s/\r//g;

      $form_data{$name} = $value;
  }

}

sub checkpw
{
  my($pw) = @_;
  my(%password);
  my($writer) = "";
  my($url) = "";

  # opening the passwordfile
  open(pwfile, $pwfile);
  my(@pwposter) = <pwfile>;
  close(pwfile);

  foreach $pwline (@pwposter) {
     chomp ($pwline);
     if ($pwline =~ m/^$pw (.+) (.+)/)
     {
       $writer = $1;
       $url = $2;
     }
  }

  return ($writer, $url);
};


sub checkpost
{
  my($writer, $url) = @_;

  my ($titel) = $form_data{'titel'};
  my ($unftekst) = $form_data{'tekst'};

  if ($titel eq "")
  {
    &fout('geen titel');
    $nrfout++;
  }
  if($unftekst eq "")
  {
    &fout('geen tekst');
    $nrfout++;
  }
  die if ($nrfout > 0);

  my ($tekst) = formattekst(\$unftekst);
        
  publish_bericht($titel, \$tekst, $writer, $url);
};

sub formattekst
{
  $tekst = shift;

  my ($formattedtekst);
 
  my (@lines) = split('\n', $$tekst);
  my $quote = 0;

  foreach my $line (@lines)
  {
    $line =~ s/\n/ /g;
    $line =~ s/\r//g;

    if ($quote)
    {
      if ($line =~ m/^:q\s*$/)
      {
        $quote = 0;
        $formattedtekst = $formattedtekst . '"</ul>';
      }
      else
      {
        $formattedtekst = $formattedtekst . $line;
      }
    }
    else
    {
      if ($line =~ m/^l:\s*(.+)\s*$/)
      {
        my $url = $1;

        my $brokenurl = breekurl($url, 45);

        $formattedtekst = $formattedtekst . '<p>' .
        '<a href="' . $url . '" target="_blank">' .
        $brokenurl . '</a>' ;
        
      }
      elsif ($line =~ m/^q:\s*$/)
      {
        $quote = 1;
        $formattedtekst = $formattedtekst . '<ul>"';
      }
      else
      {
        $formattedtekst = $formattedtekst .  $line;
      }
    }
  }

  return ($formattedtekst);
}

sub breekurl
{
  my ($unbroken) = shift;
  my ($max) = shift;
  my ($broken);

  if ($unbroken =~ m/^\s*http:\/\/(.*)$/)
  {
     $unbroken = $1;
  }
  
  $i = 0;
  while (($i + $max) <= length($unbroken))
  {
    $broken = $broken . substr($unbroken, $i, $max) . "<br>";
    $i = ($i + $max);
  }

  $broken = $broken . substr($unbroken, $i, $max);

  return ($broken);
}

sub expand
{
  $arrayref = shift;
  $placeholder = shift;
  $replacement = shift;

  foreach (@{$arrayref})
  {
     chomp;
     chomp (${$replacement});
     $_ =~ s/\@\@$placeholder\@\@/${$replacement}/g;
  }
}

sub publish_bericht
{
   my ($titel, $tekst, $writer, $url) = @_;

   my($date) = qx(date --date '9 hours' +%d-%m-%Y);
   my($time) = qx(date --date '9 hours' +%H:%M);

   open(template, "< $berichttmpl");
   my(@template) = <template>;
   close (template);

   expand(\@template, "TITEL", \$titel);
   expand(\@template, "ARTIKEL", $tekst);

   expand(\@template, "DATUM", \$date);
   expand(\@template, "TIJD", \$time);
   expand(\@template, "POSTER", \$writer);
   expand(\@template, "URL", \$url);

   $number = getnumber();
   expand(\@template, "NR", \$number);
   my $formatnumber = sprintf ("%04d", $number);

   expand(\@template, "NUMMER", \$formatnumber);

   if (exists $form_data{'zien'})
   {
     printpreview(\@template);
     newsubmit();
   }
   else
   {
     additem(\@template);
     open (nummerfile, "> commentaar/$formatnumber.txt");
     close (nummerfile);
     print "<META HTTP-EQUIV=\"refresh\" CONTENT=\"0; URL=index.shtml\">";
   }
}


sub printpreview
{
  $messageref = shift;

  print("<HTML><BODY>\n<TABLE width=\"500\"><TR><TD>\n");
  print('<table border=0 width=350 bgcolor="#000000" cellspacing=0 cellpadding=1><tr><td>'); 
  foreach $line (@{$messageref})
  {
    print("$line\n");
  } 
  print('</td></tr></table>'); 

  print("<hr>\n");

  print("</TD></TR></TABLE>\n</BODY></HTML>\n");
   
}

sub newsubmit
{
   print ('<FORM METHOD="POST" action="submit.cgi">');
   print ('<table cellpadding=7 cellspacing=0 border=0 bgcolor="#ffffff" width=100%> <TR> <TD bgcolor="#000000"><font face="arial, helvetica, sans-serif, verdana" size="3" color="#ffffff">Persoonlijk wachtwoord:&nbsp;&nbsp;</font><input name="pw" type="password" size="8" value="');

   print ($form_data{'pw'});
   print ('"</TD><TD align="right" bgcolor="#000000"><input type="checkbox" name="zien" '); 

   if (exists $form_data{'zien'})
   {
     print ('checked');

   }

   print ('><font face="arial, helvetica, sans-serif, verdana" size="3" color="#ffffff">&nbsp;preview&nbsp;</font><input type="submit" value="verstuur"></TD></TR></Table>');

   print ('<table cellpadding=7 cellspacing=0 border=0 bgcolor="#ffffff" width=100%><TR><TD valign="top" bgcolor="#ffffff" width="75">titel:</TD><TD bgcolor="#ffffff"><TEXTAREA cols="60" rows="1" name="titel">');
   print ($form_data{'titel'});
   print ('</TEXTAREA></TD></TR>');

   print ('<TR><TD valign="top" bgcolor="#ffffff" width="75">tekst:');

   print ('<TD bgcolor="#ffffff"><TEXTAREA cols="60" rows="30" name="tekst">');
   print ($form_data{'tekst'});
   print ('</TEXTAREA></TD></TR></TABLE></TD></TR></TABLE></CENTER></FORM></FONT></BODY></HTML>');
}

sub getnumber
{
  $number = 0;
  my (@numberline);
  if (open (numberfile, "< $nrfile"))
  {
    @numberline = <numberfile>;
    close (numberfile);
  }
  
  $number = $numberline[0];

  chomp($number);

  $number++;

  return $number;
}

sub addnumber
{
  my $number = getnumber();
  
  open (numberfile, "> $nrfile");
  print numberfile "$number";
  close (numberfile);
}

sub currentfile
{

#  my $number = 999;

#  my $four = sprintf("%04d", $number);

#  while (!(-e "$four.shtml"))
#  {
#    $number--;
#    $four = sprintf("%04d", $number);
#
#    if ($number < 1)
#    {
#      exit;
#    }
##  }
  return "index.shtml";
}

sub additem
{
  $itemref = shift;

  my (@oldfile);

  $ixfile = currentfile();
  open (file, "< $ixfile");
  @oldfile = <file>;
  close (file);

  open (newfile, "> $ixfile");
  foreach (@oldfile)
  {
     print newfile "$_";

     if ($_ =~ m/<!-+begin inhoud-+/)
     {
       foreach $line (@{$itemref})
       {
         chomp($line);
         print newfile "$line\n";
       }
     }
  }
  close (newfile);
  
  addnumber();
}


# call the program
&main;