#!/usr/local/bin/perl

exit;

use CGI::Wrap;

#$ENV{DEBUG}=1;

$base = '/usr/local/home/jonas/para/meeting/guestbook';
$mainbase = '/usr/local/home/jonas/para';

print `cat $base/heading.html`;

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

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

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

    # Un-Webify plus signs and %-encoding
    $value =~ tr/+/ /;



    $value =~ s/%0D%0A%0D%0A/\n\n<p>/g;
    $value =~ s/%0D%0A/<br>\n/g;
    $value =~ s/%([a-fA-F0-9]{2})/pack("C", hex($1))/eg;

    # Stop people from using subshells to execute commands
    # Not a big deal when using sendmail, but very important
    # when using UCB mail (aka mailx).
    # $value =~ s/~!/ ~!/g; 


    if ($FORM{$name} ne '') {$FORM{$name}.=", $value"} else {$FORM{$name}=$value};

    # Uncomment for debugging purposes
    # print "<br>Setting $name to $FORM{$name}\n";

}

# If the comments are blank, then give a "blank form" response
&blank_response unless $FORM{'name'};

$LOG = "$base/log.html";

# Now send update log

# Byt slutet mot en punkt, sedan sista kommat mot ett "och".
# $value = $FORM{'intrest'};
# $value =~ s/<BR>/\n/g;

system("/bin/cp $LOG $LOG.old") and die; 

if (!open FILE,">$LOG")
{
    print "<p>Kunde inte skriva till $LOG: $!";
    exit;
}
print FILE "<p><B>Fr&aring;n:</B> $FORM{'name'}";
print FILE ($FORM{'title'} ne '' ? ", <i>$FORM{'title'}</i>" :"");

if (($_ = $FORM{'belief'}) ne 'har ingen kommentar')
{
    print FILE "<IMG align=right SRC=/images/";
    $_ eq "vet att de finns" && print FILE "sheep3 alt=SUPERFÅR>";
    $_ eq "är säker på att de finns" && print FILE "sheep2 alt=jättefår>";
    $_ eq "tror att de finns" && print FILE "sheep1 alt=får>";
    $_ eq "är osäker" && print FILE "skeptic alt=skeptisk>";
    $_ eq "tror inte att de finns" && print FILE "goat1 alt=get>";
    $_ eq "är säker på att de inte finns" && print FILE "goat2 alt=jätteget>";
    $_ eq "vet att de inte finns" && print FILE "goat3 alt=SUPERGET>";
    $_ eq "kan för lite om det" && print FILE "seeker alt=sökare>";
};
print FILE "<br>\n";

$FORM{'prenumerate'} eq 'ja' && print FILE "<IMG align=middle SRC=/images/prenumerate alt=prenumerant>";

$FORM{'email'} eq '' || print FILE "<B>Email: </B> <A HREF=\"mailto:$FORM{'email'}\">$FORM{'email'}</A><br>\n";

print FILE "<B>Datum:</B> ";
close FILE;
system("/bin/date '+%y%m%d kl %H:%M' >>$LOG");
open (FILE,">>$LOG");
print FILE "<BR>\n";

$FORM{'hometitle'} eq '' || print FILE "<b>Hemsida:</b> <A HREF=\"$FORM{'homepage'}\">$FORM{'hometitle'}</A><br>\n";

print FILE "<b>Hittade hit</b> $FORM{'reference'}<br>\n";

$FORM{'intrest'} eq '' || print FILE"<b>Intresserad av</b> $FORM{'intrest'}<br>\n";

$FORM{'comments'} eq '' || print FILE "<p>$FORM{'comments'}";

print FILE "<br clear=right></p>
<hr>\n\n";
close FILE;
system("\\cat $LOG.old >>$LOG");


open (MAIL,"|/usr/lib/sendmail jonas\@cultcom.se");
print MAIL "Nytt i gästboken från $ENV{REMOTE_HOST}...\n\n";
print MAIL "Namn: $FORM{'name'} - $FORM{'title'} - $FORM{'belief'}\n";
print MAIL "Email: $FORM{'email'}\n";
print MAIL "Hemsida: $FORM{'homepage'}\n";
print MAIL "Hittade hit $FORM{'reference'}\n";
print MAIL "Intresserad av $FORM{'intrest'}\n\n";

$value = <<"__slut__";
Gästboken
"""""""""
$FORM{comments}

Bra
"""
$FORM{good}

Dåligt
""""""
$FORM{bad}

Förslag
"""""""
$FORM{suggested}

Sökte: $FORM{seeked}
""""""""""""""""""""""""
$FORM{found}


__slut__

$value =~ s/<p>|<br>//g;
print MAIL $value;


close MAIL;

print `cat $base/log.html`;
print `cat $base/foot.html`;

#print `cat $mainbase/psi/footer.html`;
print "</body></html>\n";

# ------------------------------------------------------------
# subroutine blank_response
sub blank_response
{
    print `cat $base/log.html`;
#    while (($name, $value) = each %ENV)
#    { 
#	print "<br>$name => $value\n";
#    };
#   print "<p>CL: $ENV{'CONTENT_LENGTH'}\n";
    print `cat $base/foot.html`;
#    print `cat $mainbase/psi/footer.html`;
    print "</body></html>\n";
    exit;
}