show changes

diff --git a/lib/MojoFacets/Changes.pm b/lib/MojoFacets/Changes.pm
index f754060..ad8ce60 100644 (file)
--- a/lib/MojoFacets/Changes.pm
+++ b/lib/MojoFacets/Changes.pm
@@ -5,13 +5,15 @@ use warnings;
 
 use base 'Mojolicious::Controller';
 
+use Storable;
+
 sub index {
        my $self = shift;
 
        my $changes;
        foreach my $path ( glob '/tmp/changes/*' ) {
-               if ( $path =~ m{/(\d+\.\d+)\.(.+)$} ) {
-                       push @$changes, [ $1, split(/\./, $2) ];
+               if ( $path =~ m{/((\d+\.\d+)\.data\.(.+))$} ) {
+                       push @$changes, { uid => $1, t => $2, action => $3 };
                } else {
                        warn "ignore: $path\n";
                }
@@ -21,4 +23,11 @@ sub index {
        $self->render(message => 'Latest Changes', changes => $changes );
 }
 
+
+sub view {
+       my $self = shift;
+       my $uid = $self->param('uid');
+       $self->render( change => retrieve( "/tmp/changes/$uid" ) );
+}
+
 1;

diff --git a/templates/changes/index.html.ep b/templates/changes/index.html.ep
index 4e037df..d55f2c8 100644 (file)
--- a/templates/changes/index.html.ep
+++ b/templates/changes/index.html.ep
@@ -4,8 +4,7 @@
 <ul>
 % foreach my $change ( @$changes ) {
 <li>
-<a href="<%= url_for( controller => $change->[1], action => $change->[2] ) %>">
-<%= $change->[0] %> <%= $change->[2] %>
-</a>
+<%= $change->{t} %>
+<a href="<%= url_for( controller => 'changes', action => 'view' )->query( uid => $change->{uid} ) %>"><%= $change->{action} %></a>
 % }
 </ul>

diff --git a/templates/changes/view.html.ep b/templates/changes/view.html.ep
new file mode 100644 (file)
index 0000000..8076e6d
--- /dev/null
+++ b/templates/changes/view.html.ep
@@ -0,0 +1,2 @@
+%# layout 'default';
+<pre class=debug><%= dumper $change %></pre>