#!/usr/bin/perl
use warnings;
use strict;
use utf8;

my $hta = <<HTA;
Allow from all
<FilesMatch "\\.(log|html)\$">
	Deny from all
</FilesMatch>
<FilesMatch "^index\\.html\$">
	Allow from all
</FilesMatch>
<FilesMatch "^Nathan">
	Allow from all
</FilesMatch>
<FilesMatch "Nathan_">
	Allow from all
</FilesMatch>
<FilesMatch "^Vedexile">
	Allow from all
</FilesMatch>
HTA

my @pats = (
	'^#futureApertium_',
	'^#apertium_',
	'^##php_',
	'^#hfst_',
	'^#matxin_',
	'^##[cC]\+\+-general_',
	'^#desertbus_',
	'^#openttd_',
	'^#c\+\+_',
	'^#c#_',
	'^#c_',
	'^#[cC][gG]3_',
	'^#_u-dep_',
	);

my $now = time() + 86400;
for (my $i=0 ; $i<15 ; $i++) {
	my $date = $now - 86400*$i;
	$date = `date -u '--date=\@$date' '+%Y%m%d'`;
	chomp($date);
	foreach my $pat (@pats) {
		$hta .= <<HTA;
<FilesMatch "$pat$date">
	Allow from all
</FilesMatch>
HTA
	}
}

print "$hta\n";