/blogbox.pl

## blogbox.pl
use v6;

# my @files = dir 'input';

class Entry {
    has $.filename;
    has $.title;
    has $.date;
    has $.text;

    method gen {
	my $template = slurp('./templates/index');
	$template ~~ s/<title>/<h1>$!title<\/h1>/;
	$template ~~ s/<text>/$!text/;
	my $fh = open('./output/$!filename.html/');
	$fh.print($template);
	$fh.close;
	say "Generated $!filename.html.";
    }
}

my $firstpost = Entry.new(
    filename => 'newfile',
    title    => 'writing a website in perl6',
    date     => '2011-08-01',
    text     => '<p>woo, go perl6!</p>'
    );

$firstpost.gen;

## index
<html>
<body>
<title>
<br/>
<text>
</body>
</html>
	use v6;

	# my @files = dir 'input';

	class Entry {
	has $.filename;
	has $.title;
	has $.date;
	has $.text;

	method gen {
	my $template = slurp('./templates/index');
	$template ~~ s/<title>/<h1>$!title<\/h1>/;
	$template ~~ s/<text>/$!text/;
	my $fh = open('./output/$!filename.html/');
	$fh.print($template);
	$fh.close;
	say "Generated $!filename.html.";
	}
	}

	my $firstpost = Entry.new(
	filename => 'newfile',
	title => 'writing a website in perl6',
	date => '2011-08-01',
	text => '<p>woo, go perl6!</p>'
	);

	$firstpost.gen;