Ok, I've worked this out.
Some Caveats First:
1. It is probably not the most elegant solution, I'm not a perl expert
2. I make no claims to whether this will screw anything up, I've tested it several times and it seems to work
3. this is for version 1.x. If I upgrade to 2.x I'll figure how to do it for that, but I don't want to upgrade till I know I can use my previous entries.
Ok, if you want a small announcement of you latest entry on the 'home' page of your site (assuming the journal is not), these are the steps:
(you will need to be able to use SSI on your site)
1.Find in openjournal.cgi the subroutine "sub new_file" after the lines:
close(NEWFILE);
chmod 0755, "$basedir/$mesgdir/$nfn\.$ext";
ADD:
open (UPDATE, ">../jim/lastupdate.txt");
print UPDATE "$etitle||$long_date||$ptime||$bodyone";
print UPDATE "\n";
close (UPDATE);
chmod 0777, "PATHTOFILE/lastupdate.txt";
(right before the "}"
This creates a text file "lastupdate.txt" with the long date of the last update, the time, title and blurb. Substitute the PATHTOFILE to the path to the directory you want to add the file in, I suggest this not be the cgi bin, but perhaps where your openjournal files are.
2. Then copy and paste the following into a new file and name it ojlast.cgi (or whatever you want), make the changes as shown in comments, upload the file and change permissions to 755:
#!/usr/bin/perl
##########################
#make sure the path above is correct for yours
#another common is !/usr/local/bin/perl
##########################
# Path to data files. (No ending slash.)
$data_location = "PATHTOWHERE lastupdate.txt is";
# File name of file containing data:
$file = "lastupdate.txt";
##########################
#reads data file lastupdate.txt and prints it off
#a bit overkill since I wrote it in case some day
#i want to report the last several updates
##########################
print "Content-type: text/html\n\n";
open (QUOTEFILE, "<$data_location/$file") || die print "Could not open links file";
@line=<QUOTEFILE>;
close (QUOTEFILE);
foreach $link (@line) {
@newlink = split (/\|\|/, $link);
print "The latest journal entry:";
print "(A HREF=\"URLOFOPENJOURNAL\"";
print ")$newlink[0](/a), $newlink[3]";
print "posted on $newlink[1] "
################################
#substitute the "( and )" with "< and >" here I forgot how to make this
# board not do html

##################################
}
exit;
##########################
#The above will print off something like:
#The latest journal entry:
#TITLE, Blurb
#posted on DATE
# you can add another print statement with
#newlink[2] to add the time
# my web site formatting is governed by a style sheet,
#so this has very little styling. If you know HTML, you
#can easily change this to look how you want it
##########################
3. Then on the page where you want the last update to show up (usually must have a .shtml extension)
(!--#exec cgi="Path to your ojlast.cgi script you just created"--)
Again, change the ( and ) to < and >