#!/usr/bin/perl
# Listen to Death Metal....it rips!
my ($next,$date,@when,$month,$day,$year,$mod_date,$file,$last_file,$la
+stfile,@lines,$last_date);
my ($full_month,%suff,$title_date);
# generic "next" or "not done yet" link
$next = 'index.html';
# get today's date and feed it into an array
$date = `date +%D`;
@when = split(/\//,$date);
# define m/d/y variables for today's date
$month = $when[0];
$day = $when[1];
$year = $when[2];
# define the name of the write file
$mod_date = join('',$month,$day,$year);
chomp ($mod_date);
$file = join('',$mod_date,'.html');
# file containing filename of last entry
$last_file = 'last.cfg';
# open last entry and change the "next" link to today's entry
# if no last entry exists, print a link to index.html
if (-e $last_file) {
$lastfile = &last();
chomp($lastfile);
open(PREV, "+<$lastfile") || die "no can open - $lastfile $!\n";
@lines = <PREV>;
foreach (@lines) {
s/$next/$file/;
}
seek(PREV,0,0);
print PREV @lines;
close(PREV) || die "no can close read file - $lastfile: $!\n";
}
else {
open(LAST, ">$last_file") || die "no can make - $last_file $!\n";
print LAST "index.html";
close(LAST) || die "no can close write - $last_file: $!\n";
}
open(FILE, ">$file") || die "no can make - $file $!\n";
# print out the header
print FILE <<WEBPAGE;
<html>
<head>
<meta name="robots" content="noarchive">
<title>$month.$day.$year</title>
</head>
<body bgcolor="#336699">
<center>
<table width="490" bgcolor="#FFFFFF" cellspacing="0" cellpadding="0" b
+order="0">
<tr>
<td valign="top">
<a href="$lastfile"><img src="img/staple.gif" width="30"
height="38" alt="[back]" border="0"></a><br>
<img src="img/clear.gif" width="60" height="1" alt=""></td>
<td valign="top">
<img src="img/clear.gif" width="380" height="1" alt=""></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td><font size="-1" face="arial,verdana">
WEBPAGE
;
# print out the title (month and day)
print FILE " <b>",&full_month," ",&suffixed,"</b><p>\n\n";
# slurp in content and place it in the body
while (<>) {
print FILE $_;
};
# print footer with "next" link
print FILE <<MOREWEBPAGE;
</font>
<p>
</td>
<td valign="bottom" align="right">
<a href="$next"><img src="img/curl.gif" width="50" height="40" a
+lt="[next]"
border="0"></a></td>
</tr>
</table>
</body>
</html>
MOREWEBPAGE
;
# change file in $last_file to today's entry
open(LAST, ">$last_file") || die "no can make - $last_file $!\n";
print LAST "$file";
close(LAST) || die "no can close write - $last_file: $!\n";
################
# Morbid Angel #
################
# get the filename of the previous entry
sub last {
open(LAST, "$last_file") || die "no can open - $last_file $!\n";
while (<LAST>){
$last_date = $_;
};
close(LAST) || die "no can close read file - $last_file: $!\n";
return $last_date;
}
# get the full name of the current month
sub full_month {
$full_month = `date +%B`;
chomp ($full_month);
return $full_month;
}
# get the correct suffix for today's numeric value (i.e. the "rd" in 3
+rd)
sub suffixed {
%suff = qw(
1 st
2 nd
3 rd
4 th
5 th
6 th
7 th
8 th
9 th
10 th
11 th
12 th
13 th
14 th
15 th
16 th
17 th
18 th
19 th
20 th
21 st
22 nd
23 rd
24 th
25 th
26 th
27 th
28 th
29 th
30 th
31 st);
if ($day < 10) {$day =~ s/0//;}
$title_date = join("",$day,$suff{$day});
return $title_date;
}
|