#!/usr/local/bin/perl

use strict;

my $url = "http://example.com/blosxom/blosxom.cgi";
my $dir = "C:/Path/To/Blosxom/Root/Dir";
my @flavours = qw(rss rdf atom esf js);

use LWP::Simple;

foreach my $flavour (@flavours) {
	printf("Rebuilding index.%-5s...", $flavour);

	if (is_success(getstore("$url/index.$flavour", "$dir/index.$flavour"))) {
		print " Succeeded.\n";
	} else {
		print " Failed.\n";
	}
}

print "\n";

exit;