fixed shared directories

[p5sagit/Oyster.git] / .build / spEUsgyear / lib / Oyster / Deploy / Git.pm

diff --git a/.build/spEUsgyear/lib/Oyster/Deploy/Git.pm b/.build/spEUsgyear/lib/Oyster/Deploy/Git.pm
new file mode 100644 (file)
index 0000000..f64cb82
--- /dev/null
+++ b/.build/spEUsgyear/lib/Oyster/Deploy/Git.pm
@@ -0,0 +1,34 @@
+package Oyster::Deploy::Git;
+
+use Moose;
+use Git::Wrapper;
+use Error::Simple;
+
+use Data::Dumper;
+use File::Copy;
+use File::ShareDir ':ALL';
+
+sub create {
+  my $self = shift;
+  my $location = shift;
+  
+  if( -f $location || -d $location ) {
+    Error::Simple->throw("$location already exists");
+  }
+  
+  mkdir($location);
+  my $git = Git::Wrapper->new($location);
+  
+  
+  copy(dist_file( 'Oyster', './share/deploy/git/post-receive'), ($git->dir . '.git/hooks/')) 
+    or Error::Simple->throw('Creating post commit hooks failed.');
+  copy(dist_file( 'Oyster', './share/deploy/git/post-update'), ($git->dir . '.git/hooks/')) 
+    or Error::Simple->throw('Creating post commit hooks failed.');
+  
+  chmod(0x755, ('./bin/git/hooks/post-receive', './bin/git/hooks/post-update'));
+  
+  return 1;
+}
+
+
+1;