This blog was written by Rob during his attempt to climb Everest in spring 2005. Alongside his thoughts and feelings, it records the comments of the many around the world who followed his progress with interest - and who were saddened by his tragic death.
Blog powered by Perl Blog under the GPL. Thanks.
EOF
&printFooter;
}
############################ THE ARCHIVES ################################
sub displayArchives {
open (MONTHS,"$forumdir/months.txt");
@monthlines = ;
close (MONTHS);
&printHeader("");
print <<"EOF";
EOF
foreach $headerfile (@monthlines) {
if ($headerfile ne '') {
$year = substr ($headerfile,0,4);
$month = substr ($headerfile,4,6);
$month = sprintf("%5.0f", $month);
$monthname = $months[$month-1];
print <<"EOF";
| $monthname $year |
EOF
}
}
print <<"EOF";
EOF
# original line from above:
# |
| $monthname | $year |
&printFooter;
}
######################### SPECIFIC MONTH UNDER ARCHIVES ######################
sub displayMonth {
my($headerfile) = @_;
$year = substr ($headerfile,0,4);
$month = substr ($headerfile,4,6);
$month = sprintf("%5.0f", $month);
$monthname = $months[$month-1];
&printHeader("");
print <<"EOF";
EOF
&printMonthLines ($headerfile);
print <<"EOF";
EOF
&printFooter;
}
###################### SHOWS YOUR ENTRIES (GENERAL SETTINGS) #####################
sub printMonthLines {
my($filename) = @_;
if (open(DATA,"$forumdir/$filename.txt")) {
@msglines = ;
close(DATA);
foreach $msgline (@msglines) {
if ($msgline ne '') {
# this should tally with postThread:
@info = split (/_/, $msgline);
$num = $info[0];
$subject = $info[1];
$name = $info[2];
$date = $info[3];
$body = $info[4];
$responses = ($info[5]);
#$date = $info[1];
#$body = $info[2];
#$subject = $info[3];
#$postm = $info[4];
#$sub = $info[5];
#$responses = ($info[6]);
my $commentstr = "comments";
if($responses == 1) {$commentstr = "comment";}
$year = substr ($headerfile,0,4);
$month = substr ($headerfile,4,6);
$month = sprintf("%5.0f", $month);
$monthname = $months[$month-1];
print <<"EOF";
EOF
}
}
}
}
########################### COMMENT BOX/REPLY PAGE SETTINGS ##########################
sub parseMessageData {
my($filename) = @_;
my($msgstart, $msgend, @msglines);
open(DATA,"$forumdir/messages/$filename.txt");
@msglines = ;
close(DATA);
for ($i=0; $i<@msglines; $i++) {
if ($msglines[$i] =~ //) {push (@msgstart, $i);}
elsif ($msglines[$i] =~ /<\/msg>/) {push (@msgend, $i);}
}
for ($i=0; $i<@msgstart; $i++) {
for ($j=$msgstart[$i]; $j<$msgend[$i]; $j++) {
if ($msglines[$j] =~ /(.*)<\/subject>/) {
$subject = $1;
if ($subject) {print "Subject: $subject ";}
}
elsif ($msglines[$j] =~ /(.*)<\/name>/) {
$name = $1;
if ($i != 0) {
print "
Author: $name\n";
}
else {print "Posted by $name ";}
print "";
}
elsif ($msglines[$j] =~ /(.*)<\/email>/) {
$email = $1;
if ($email) {print " ($email) ";}
}
elsif ($msglines[$j] =~ /(.*)<\/website>/) {
$website = $1;
if ($website) {print " (#$website) ";}
}
elsif ($msglines[$j] =~ /(.*)<\/date>/) {
$date = $1;
print "on $date\n";
}
elsif ($msglines[$j] =~ / /) {
print "
\n";
for ($k=$j+1; $k<@msglines; $k++) {
if ($msglines[$k] =~ /<\/body>/) {
print "
|
";
last;
}
else {print "$msglines[$k]";}
$j++;
}
}
}
}
}
################################## YOUR JOURNAL ENTRY PAGE ####################
sub displaySubmit {
&printHeader("");
print <<"EOF";
| | |