Lots of progress

build

@@ -32,6 +32,7 @@ my $releases = get_rel();
 
 $t->process('index.tt', {
   releases => $releases,
+  headlines => get_headlines(),
   years => $years,
   get_x_offset => $x_offset,
   get_y_offset => $y_offset,
@@ -53,3 +54,19 @@ sub get_rel {
 
   return $rel;
 }
+
+sub get_headlines {
+  my $hl = {};
+
+  if (-f 'headlines.txt') {
+    open my $fh, '<', 'headlines.txt' or die $!;
+    while (<$fh>) {
+      next unless /\S/;
+      chomp;
+      my ($year, $headline) = split /\s+/, $_, 2;
+      $hl->{$year} = $headline;
+    }
+  }
+
+  return $hl;
+}

community.txt

@@ -0,0 +1,10 @@
+1989 comp.lang.perl
+1995 perl.com
+
+1997 The Perl Conference
+1997 New York Perl Mongers
+1998 London Perl Mongers
+1999 First YAPC::NA
+2000 First YAPC::EU
+2001 use.perl.org launched
+

get_books

@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use 5.010;
+
+use Net::Amazon;
+use Data::Dumper;
+
+my $amz = Net::Amazon->new(
+  associate_tag => $ENV{AMAZON_ASSTAG},
+  token         => $ENV{AMAZON_KEY},
+  secret_key    => $ENV{AMAZON_SECRET},
+) or die;
+
+my $resp = $amz->search(
+  mode => 'books',
+  title => 'Programming Perl',
+  year => 1991,
+);
+
+for ($resp->properties) {
+  say $_->Asin, ' ',
+      $_->title, ' ',
+      $_->year, ' ',
+      join ', ', $_->authors;
+}

headlines.txt

@@ -0,0 +1,25 @@
+1988 Perl 1.0 (and 2.0) Released!
+1989 Perl 3.0 Released
+1990 
+1991 Pink Camel published
+1992 
+1993 Pink Llama published
+1994 Perl 5 Released
+1995 CPAN launched
+1996 The Perl Journal
+1997 The Perl Conference / Perl Mongers
+1998 London Perl Mongers
+1999 First YAPC
+2000 Perl 6 announced
+2001 Damian Conway works for us
+2002 
+2003
+2004 Catalyst
+2005 DBIx::Class
+2006 Moose
+2007
+2008
+2009 PSGI
+2010
+2011
+2012