#!/usr/bin/perl -w
use strict;
my $output = "course.html";
die "File '$output' exists!" if -e $output;
open OUT, "> $output" or die "Cannot open '$output': $!\n";
defined(my $dir = (getpwnam "donald")[7]) or die "No such user!";
$dir .= "/.www/comp3710/diary/";
undef $/;
open STYLE, "$dir/styles.css" or die "Cannot find style file: $!";
my $style =
END
$dir .= "2004/";
die "No such directory '$dir'" if ! -d $dir;
chdir $dir or die "Cannot change to '$dir': $!\n";
for (glob "*/*/index.php") {
if (! -r) {
print "File $_ is not readable.";
last;
} elsif (! -s) {
print "File $_ is empty.";
next;
}
my $url = "http://www.cs.mun.ca/~donald/comp3710/diary/2004/$_";
print "Getting $url...\n";
my $result = `/usr/bin/wget -O- $url 2>/dev/null`;
die "Not able to retrieve web page!" unless $result;
my ($html) = ($result =~ m{(.*)}s);
print OUT $html;
print OUT "
\n"
}
print OUT "\n