move the list of earlier events to a yaml file

data/earlier_events.yml

@@ -0,0 +1,35 @@
+---
+  - date: 2010.02.6-7
+    title: FOSDEM
+    address: Brussels, Belgium
+  - date: 2010.03.2-6
+    title: CeBIT
+    address: Hannover, Germany
+  - date: 2010.06.7-9
+    title: German Perl Workshop
+    address: Schorndorf (near Stuttgart), Germany
+  - date: 2010.06.9-12
+    title: LinuxTag
+    address: Berlin, Germany
+  - date: 2010.06.21-23
+    title: YAPC::NA
+    address: Columbus, Ohio, USA
+  - date: 2010.06.26
+    title: Belgian Perl Workshop
+    address: Brussels, Belgium
+  - date: 2010.08.4-6
+    title: YAPC::EU
+    address: Pisa, Italy
+  - date: 2010.08.21-22
+    title: FrOSCon
+    address: St Augustin, Germany
+  - date: 2010.09.17-18
+    title: FrOSCamp
+    address: Zurich, Switzerland
+  - date: 2010.10.20
+    title: The establishment of the Perl Ecosystem Group
+    address:
+  - date: 2010.11.6-7
+    title: T-Does
+    address: Eindhoven, The Netherlands
+

lib/PEG.pm

@@ -148,10 +148,12 @@ get '/rss' => sub {
 
 
 get '/earlier_events' => sub {
+    my $events = YAML::LoadFile(path config->{appdir}, 'data', 'earlier_events.yml');
     template 'earlier_events', { 
       title        => 'Earlier events',
       subtitle     => 'Earlier events',
       description  => 'A list of events we participated at. Even before the Perl Ecosystem Group was setup',
+      events       => $events,
     };
 };
 

views/earlier_events.tt

@@ -7,18 +7,9 @@ List of events where we have already participated even before the formation of t
 
 <div id="schedule">
 <ul>
-<li><ul><li>2010.02.6-7</li><li>FOSDEM, Brussels, Belgium</li></ul></li>
-<li><ul><li>2010.03.2-6</li><li>CeBIT, Hannover, Germany</li></ul></li>
-<li><ul><li>2010.06.7-9</li><li>German Perl Workshop, Schorndorf (near Stuttgart), Germany</li></ul></li>
-<li><ul><li>2010.06.9-12</li><li>LinuxTag, Berlin, Germany</li></ul></li>
-<li><ul><li>2010.06.21-23</li><li>YAPC::NA, Columbus, Ohio, USA</li></ul></li>
-<li><ul><li>2010.06.26</li><li>Belgian Perl Workshop, Brussels, Belgium</li></ul></li>
-<li><ul><li>2010.08.4-6</li><li>YAPC::EU, Pisa, Italy</li></ul></li>
-<li><ul><li>2010.08.21-22</li><li>FrOSCon, St Augustin, Germany</li></ul></li>
-<li><ul><li>2010.09.17-18</li><li>FrOSCamp, Zurich, Switzerland</li></ul></li>
-<!-- <li><ul><li>2010.11.6</li><li>7. Brandenburger Linux-Infotage, Potsdam, Germany</li></ul></li> -->
-<li>The establishment of the Perl Ecosystem Group</li>
-<li><ul><li>2010.11.6-7</li><li>T-Does, Eindhoven, The Netherlands</li></ul></li>
+<% FOR e IN events %>
+<li><ul><li><% e.date %></li><li><% e.title %>, <% e.address %></li></ul></li>
+<% END %>
 </ul>
 </div>