Using inlined code as Git::Wrapper fails tests on pristine install

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

package Oyster::Deploy::Git;
use strict;
use warnings;

#use Git::Wrapper;    # sorry fails tests!

our $post_receive = q{
#!/bin/sh
cd ..
env -i git reset --hard HEAD
dzil listdeps | xargs cpanm --local-lib=~/perl5
};

our $post_update = q{
#!/bin/sh
# This rather relies on being an account with permission to do this.
# Who does the script run as?  Presumably the owner of the repo as git will
# use ssh-keys to get onto the server.
#
# Realistically that user needs to be put in /etc/sudoers
#
# user ALL=NOPASSWD: /etc/init.d/lighttpd
#
# Restart server
sudo /etc/init.d/lighttpd restart
};

sub create {
  my $self = shift;
  my $location = shift;

  if( -f $location || -d $location ) {
    die("$location already exists");
  }

  mkdir($location);
  #my $git = Git::Wrapper->new($location);
  #$git->init();
  qx{cd $location ; git init};

  open my $fh_post_receive, '>', "$location/.git/hooks/post-receive"
    or die "Cannot write to " .  "$location/.git/hooks/post-receive: $!";
  print $fh_post_receive $post_receive;
  close $fh_post_receive
    or die "Cannot close " . "$location/.git/hooks/post-receive: $!";

  open my $fh_post_update, '>', "$location/.git/hooks/post-update"
    or die "Cannot write to " . "$location/.git/hooks/post-update: $!";
  print $fh_post_update $post_update;
  close $fh_post_update
    or die "Cannot close " . "$location/.git/hooks/post-update: $!";

  chmod(0x755, ("$location/.git/hooks/post-receive", "$location/.git/hooks/post-update"));

  return 1;
}


1;