Handle changing owner.

1 files changed, 12 insertions, 1 deletions

diff --git a/usr/src/libpiny/Piny/Repo.pm b/usr/src/libpiny/Piny/Repo.pm
index b10651f..5249b61 100644
--- a/usr/src/libpiny/Piny/Repo.pm
+++ b/usr/src/libpiny/Piny/Repo.pm
@@ -2,6 +2,8 @@ package Piny::Repo;
 
 use Moose;
 
+use File::Find qw( find );
+
 use Piny::User;
 
 # Attributes
@@ -36,8 +38,9 @@ has 'repostat' =>
   );
 
 has 'owner' =>
-  ( is          => 'ro'
+  ( is          => 'rw'
   , isa         => 'Piny::User'
+  , trigger     => \&_change_owner
   , lazy_build  => 1
   , init_arg    => undef
   );
@@ -81,6 +84,14 @@ sub _set_description {
   close( $fd ) or die "Error when closing " . $s->path( ) . "/description: $!";
 };
 
+sub _change_owner {
+  my ( $s, $new_owner, $old_owner ) = @_;
+
+  return unless defined $old_owner;
+
+  find( { wanted => sub { chown( $new_owner->uid( ), -1, $_ ) or die "Couldn't chown $_: $!"; }, no_chdir => 1 }, $s->path( ) );
+};
+
 # Builder methods
 
 # If constructed with just one argument, then treat it as a repo name.