#!/usr/bin/perl

# Jestapher's Feedback Code v .1 beta - Mar 24, 2001
# Copyright 2001 Ben Livingston <ben at oblivion dot net>
# Released under the GNU General Public License Version 2
# Viewable online at http://www.gnu.org/copyleft/gpl.html

$user = "jest";

require "/usr/local/apache/cgi-bin/cgi-lib.pl";

@fields = ('name', 'email', 'url', 'feedback', 'keyword', 'value', 'referer');
%pages = ('journal', 'journal/');

&ReadParse(*input);
print "Content-type: text/html\n\n";
open(HEADER,"./header.shtml");
print <HEADER>;
close(HEADER);

if ($input{'action'} =~ /submit/i) {
  &Process_Form;
  if (($name) && ($email) && ($feedback)) {
    &Mail_Form;
    if ($pages{$keyword}) { &Save_Form; }
  }
  else { print "<P>Everything but URL is required. Head on back the way you came.<\/P>"; }
  print "<P>Thanks for the feedback. You can go now.<\/P>";
}
else {
  &Print_Form;
}

open(FOOTER,"./footer.shtml");
print <FOOTER>;
close(FOOTER);

########################################

sub Process_Form {
  foreach $field (@fields){
    ${$field}  = $input{$field};
  }
}

sub Print_Form {
  @pairs = split(/&/, $ENV{'QUERY_STRING'});
  ($keyword, $value) = split(/=/, $pairs[0]);
  if ($keyword eq "fuq") { $type = "Question"; }
    else { $type = "Feedback"; }
  print <<HTML;
<FORM METHOD="post" ACTION="feedback.cgi">
<INPUT TYPE="hidden" NAME="keyword" VALUE="$keyword">
<INPUT TYPE="hidden" NAME="value" VALUE="$value">
<INPUT TYPE="hidden" NAME="referer" VALUE="$ENV{'HTTP_REFERER'}">
<TABLE CELLPADDING="0" CELLSPACING="0" BORDER="0">
<TR><TD VALIGN="top"><FONT FACE="Verdana, Arial">Name:</FONT></TD><TD><FONT FACE="Verdana, Arial"><INPUT TYPE="text" NAME="name"SIZE="30"></FONT></TD></TR>
<TR><TD VALIGN="top"><FONT FACE="Verdana, Arial">Email:</FONT></TD><TD><FONT FACE="Verdana, Arial"><INPUT TYPE="text" NAME="email" SIZE="30"></FONT></TD></TR>
<TR><TD VALIGN="top"><FONT FACE="Verdana, Arial">URL:</FONT></TD><TD><FONT FACE="Verdana, Arial"><INPUT TYPE="text" NAME="url" SIZE="30"></FONT></TD></TR>
<TR><TD VALIGN="top"><FONT FACE="Verdana, Arial">$type:</FONT></TD><TD><FONT FACE="Verdana, Arial"><TEXTAREA NAME="feedback" COLS="30" ROWS="15" WRAP>Two enters == new paragraph, punker.</TEXTAREA></FONT></TD></TR>
<TR><TD COLSPAN="2" ALIGN="center"><BR><FONT FACE="Verdana, Arial"><INPUT TYPE="submit" NAME="action" VALUE="Submit $type"></FONT></TD></TR>
</TABLE>
</FORM>
HTML
} 

sub Mail_Form {
  open(MAIL,"|/usr/sbin/sendmail -t");
  print MAIL <<"End_Of_Mail";
To: $user\@oblivion.net
From: $name <$email>
Subject: Feedback

URL: $url
REFERER: $referer
HOST: $ENV{'REMOTE_HOST'}

$feedback
End_Of_Mail
  close(MAIL);
}

sub Save_Form {
  $directory = $pages{$keyword};
  if ($keyword eq 'journal') {
    if (length($value) == 3) {
      $directory .= substr($value,0,1);
    }
    else {
      $directory .= 0;
    }
  }
  else {
    $directory .= $value;
  }
  opendir DATA, "/home/$user/public_html/$directory/";
  @responses = readdir(DATA);
  $new = 1;
  foreach (@responses) {
    if ($keyword eq 'journal') {
      if (/\Q$value\E-(\d+)/) {
        $_ = $1;
      }
      else {
        $_ = "x";
      }
    }
    if (/^\d+$/) {
      if ($_ > $new) {
        $new = $_ + 1;
      }
      elsif ($_ == $new) {
        $new++;
      }
    }
  }
  closedir(DATA);
  if ($keyword eq 'journal') {
    $newfile = "/home/$user/public_html/$directory/$value-$new";
  }
  else {
    $newfile = "/home/$user/public_html/$directory/$new";
  }
  open(FILE,">$newfile");
  print FILE "<P>From: $name\n (<A HREF=\"mailto:$email\">email<\/A>)\n";
  if ($url) { print FILE "(<A HREF=\"$url\">web<\/A>)<BR>\n\n"; }
  else { print FILE "<BR>\n\n"; }
  $feedback =~ s/\r//g;
  $feedback =~ s/^\s*/<P>/;
  $feedback =~ s/\n{2,}/<\/P>\n\n<P>/g;
  $feedback =~ s/<P>$//;
  if ($feedback !~ /<\/P>\n\n$/) { $feedback =~ s/$/<\/P>\n\n/; }
  print FILE "$feedback";
  close(FILE);
}