From c2cf679386969f09d025bea854bdc767e10c0c34 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Sun, 5 Apr 2009 17:34:12 +0200
Subject: permalink to old clouds

---
 lib/intentioncloud/Controller/Cloud.pm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/lib/intentioncloud/Controller/Cloud.pm b/lib/intentioncloud/Controller/Cloud.pm
index 2d96e47..7445441 100644
--- a/lib/intentioncloud/Controller/Cloud.pm
+++ b/lib/intentioncloud/Controller/Cloud.pm
@@ -4,11 +4,23 @@ use strict;
 use warnings;
 use parent 'Catalyst::Controller';
 
+sub old_cloud : Regex('^(\d{4})/(\d{2})/(\d{2})/(\w+)/(.*$)') {
+    my ( $self, $c ) = @_;
+    $c->stash->{ template } = 'cloud/old_cloud.tt';
+
+    my $cloud
+        = $c->model( 'DB::Search' )->find( { permalink => $c->req->path } );
+    if ( $cloud ) {
+        $c->stash( cloud => $cloud );
+    } else {
+    }
+}
+
 sub search : Local {
     my ( $self, $c ) = @_;
     $c->stash->{ template } = 'cloud/cloud.tt';
 
-    $c->model( 'Search' )->search($c);
+    $c->model( 'Search' )->search( $c );
 }
 
 sub random : Local {
-- 
cgit 1.4.1