#!/usr/bin/perl -w
# smoosh
# a minimalist weblog program
# Copyright (c) 2001 Steve Cook
# This software is open source under the terms of the MIT License
# as described at <http://www.opensource.org/licenses/mit-license.html>
# It's free. Make something of your own with it.

# version 0.4 -- working, but with not templating.
# It's probably only useful for the specific application it was designed for.
# currently takes three form inputs: password, newtitle, entry
# To do: changing variables from some sort of flat file, seperation of
# content and presentation.
# 8 April 2001

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use strict;
use POSIX qw(strftime);

# some variables for the nonce; we'll eventually want to load these from a confi
g file of some sort.

my $password = "password";
my $topic = "this and that";
my $previous_archive = "previous_filename.html";
my $archive_path = "PATH/$archive_target";
my $index_path = "PATH/index.html";

my $q = new CGI;

# Let's figure out what action we should be handling

if ($q->param("password")) {
        my ($entry, $title, $password, $action) = parse_values($q);
        if ($action eq "editselect") {
                editselect_form();
                }
        elsif ($action eq "edit") {
                edit_form($entry);
                }
        elsif ($action eq "submitedit") {
                replace_entry($entry,$title);
                smoosh();
                }
        else {
                add_entry_to_content($title, $entry);
                smoosh();
                }
        }
else {
        entry_form();
        }

# add the entry to the content file.

sub add_entry_to_content {
        my($mytitle, $myentry) = @_;
        open (CONTENT, "smooshfiles/content.txt") || die "Sorry, I couldn't open the content file.\n";
        open (CONTENTOUT, "> smooshfiles/content.temp") || die "Sorry, I couldn't start a temporary content file.";
        my $mydate = strftime "%m.%d.%Y", localtime;
        print CONTENTOUT <<"END_PRINT";
                <!-- entry: $mydate -->
                <span class="datehead"><a class="yellow" name="$mydate">$mydate</a></span>
        <br />
        <span class="littlehead"><a href="$archive_target#$mydate" class="littlehead">$mytitle</a></span><br />
                $myentry
        <br />
        <br />
                <!-- /entry: $mydate -->
END_PRINT
        close(CONTENTOUT);
        open(CONTENTOUT, ">> smooshfiles/content.temp") || die "Something went awry with the content-appending process.\n";
        while (<CONTENT>)       {       # now, append the current content.txt to content.temp
        	print CONTENTOUT;
        }
        close(CONTENT);
        close(CONTENTOUT);
        rename("smooshfiles/content.temp","smooshfiles/content.txt") || die "Couldn't rename content.temp to content.txt";
}

sub replace_entry { 
        my($myentry,$mytitle) = @_;
        open (CONTENT, "smooshfiles/content.txt") || die "Sorry, I couldn't open the content file.\n";
        open (CONTENTOUT, "> smooshfiles/content.temp") || die "Sorry, I couldn't start a temporary content file.";
        my $check = 0;
        while(<CONTENT>) {
                if (/ entry: $mytitle/) {
                        print CONTENTOUT;
                        $check = 1;
                        print CONTENTOUT $myentry;
                        }
                if (/\/entry: $mytitle/) {$check = 0;}
                ($check == 0) && (print CONTENTOUT);
        }
        close(CONTENTOUT);
        close(CONTENT);
        rename("smooshfiles/content.temp","smooshfiles/content.txt") || die "Couldn't rename content.temp to content.txt";
}

# begin the smooshing
sub smoosh {
        open (HEADER, "smooshfiles/header.txt") || die "Sorry, I couldn't open the header file.\n";
        open (FOOTER, "smooshfiles/footer.txt") || die "Sorry, I couldn't open the footer file.\n";
        open(INDEXOUT, "> $index_path") || die "Something went wrong opening up the temporary index file to write to.\n";
        open(ARCHIVEOUT, "> $archive_path") || die "Couldn't open $archive_target";
        open(CONTENT, "smooshfiles/content.txt") || die "Something went wrong opening content the second time.\n";
        while (<HEADER>) {
                s/{PREVIOUS}/$previous_archive/g; # replace {PREVIOUS} on a line-by-line basis
                s/{TOPIC}/$topic/g; # replace {TOPIC} on a line-by-line basis
                print INDEXOUT;
                print ARCHIVEOUT;
                print;
                }
        while (<CONTENT>) {
                print INDEXOUT;
                print ARCHIVEOUT;
                print;
                }
        while (<FOOTER>) {
                print INDEXOUT;
                print ARCHIVEOUT;
                print;
               }
        close(FOOTER);
        close(CONTENT);
        close(HEADER);
        close(INDEXOUT);
        close(ARCHIVEOUT);
}

sub entry_form {
        print STDOUT <<"END_PRINT";
Content-type: text/html\n\n
        <html>
        <head><title>smoosh entry</title></head>
        <body>

        <form action="smoosh.pl" method="POST">
        <h2>Smoosh!</h2>
        <p>(If editing, you need enter only your password; choose &quot;edit&quot; from the bottom pulldown menu.)</p>
        <p>Password: <input type="password" name="password" size="50"></p>
        <p>Title: <input type="text" name="newtitle" size="50"></p>
        <p>Entry:</p>
        <textarea name="entry" rows="10" cols="80">
        </textarea><br />
        <select name="action">
                <option value="newentry">New Entry</option>
                <option value="editselect">Edit Previous Entry</option>
        </select>
        <input type="submit">
        </form>
        </html>
END_PRINT
}

sub edit_form {
        my ($myentry) = @_; 
        print STDOUT <<"END_PRINT";
Content-type: text/html\n\n
        <html>
        <head><title>smoosh editor: $myentry</title></head>
        <body>

        <form action="smoosh.pl" method="POST">
        <h2>Smoosh! editor</h2>
        <input type="hidden" name="password" value="$password"> 
        <input type="hidden" name="action" value="submitedit">
                <input type="hidden" name="title" value="$myentry">
        <h3>$myentry</h3>
        <textarea name="editedentry" rows="10" cols="80">
END_PRINT
        open(CONTENT, "smooshfiles/content.txt") || die "Something went wrong opening content.txt.\n";
        my $check = 0;
        while(<CONTENT>) {
                if (/\/entry: $myentry/) {$check = 0}; 
                ($check) && (print);
                if (/ entry: $myentry/) {$check = 1};
        }
        close(CONTENT);
        print STDOUT <<"END_PRINT";
        </textarea><br />
        <input type="submit">
        </form>
        </html>
END_PRINT
}

sub editselect_form{
        print STDOUT <<"END_PRINT";
Content-type: text/html\n\n
        <html>
        <head><title>smoosh edit</title></head>
        <body>

        <form action="smoosh.pl" method="POST">
        <h2>Smoosh! edit selection</h2>
        <input type="hidden" name="password" value="$password">
        <input type="hidden" name="action" value="edit">
        <p>Choose an Entry:</p>
        <select name="entry">
END_PRINT
        open (CONTENT, "smooshfiles/content.txt") || die "Sorry, I couldn't open the content file.\n";
        while (<CONTENT>) {
                if (/<!-- entry: [0-9]{2}\.[0-9]{2}\.[0-9]{4}/) { 
                        s/<!-- entry: ([0-9.]+) -->/<option value=\"$1\">$1<\/option>/;
                        print;
                        }
                }
        print <<"END_PRINT";
        </select>
       <input type="submit">
        </form>
        </html>
END_PRINT
        close(CONTENT);
}

sub parse_values {
        ($q->param("password") eq $password) || die "Sorry, that's the wrong password.\n";
        if ($q->param("action") eq "submitedit") {
                return(param("editedentry"),param("title"),param("password"),"submitedit");
        }
        if ($q->param("action") eq "editselect") {
                return("", "", param("password"), "editselect");
        }
        if ($q->param("action") eq "edit") {
                ($q->param("entry")) || die "Something went wrong in the entry selection form.\n";
                return(param("entry"), "", param("password"), "edit");
        }
        if ($q->param("action") eq "newentry") {
        ($q->param("password") eq $password) || die "Sorry, that's the wrong password.\n";
        if ($q->param("action") eq "submitedit") {
                return(param("editedentry"),param("title"),param("password"),"submitedit");
        }
        if ($q->param("action") eq "editselect") {
                return("", "", param("password"), "editselect");
        }
        if ($q->param("action") eq "edit") {
                ($q->param("entry")) || die "Something went wrong in the entry selection form.\n";
                return(param("entry"), "", param("password"), "edit");
        }
        if ($q->param("action") eq "newentry") {
                ($q->param("entry")) || die "Please actually give me a new log entry to work with!\n";
                ($q->param("newtitle")) || die "Please actually give me a title for your new log entry!\n";
                return (param("entry"), param("newtitle"), param("password"), "newentry");
         }
}