X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/512bdfe419cf75c6254ae48ad4c8356dc5967591..d1489df29cba94ddf3a9f6dc6a1f310033a90924:/SL/Git.pm

diff --git a/SL/Git.pm b/SL/Git.pm
new file mode 100644
index 000000000..a292a78ef
--- /dev/null
+++ b/SL/Git.pm
@@ -0,0 +1,69 @@
+package SL::Git;
+
+use strict;
+use warnings;
+
+use parent qw(Rose::Object);
+
+use Carp;
+use List::Util qw(first);
+
+sub is_git_installation {
+  my ($self) = @_;
+
+  return $self->git_exe && -d ".git" && -f ".git/config" ? 1 : 0;
+}
+
+sub git_exe {
+  my ($self) = @_;
+
+  return $self->{git_exe} if $self->{_git_exe_search};
+
+  $self->{_git_exe_search} = 1;
+  $self->{git_exe}         = first { -x } map { "${_}/git" } split m/:/, $ENV{PATH};
+
+  return $self->{git_exe};
+}
+
+sub get_log {
+  my ($self, %params) = @_;
+
+  croak "No git executable found" if !$self->git_exe;
+
+  my $since_until = join '..', $params{since}, $params{until};
+  my $in          = IO::File->new($self->git_exe . qq! log --format='tformat:\%H|\%an|\%ae|\%ai|\%s' ${since_until} |!);
+
+  if (!$in) {
+    $::lxdebug->message(LXDebug::WARN(), "Error spawning git: $!");
+    return ();
+  }
+
+  my @log = grep { $_ } map { $self->_parse_log_line($_) } <$in>;
+  $in->close;
+
+  return @log;
+}
+
+sub _parse_log_line {
+  my ($self, $line) = @_;
+
+  chomp $line;
+
+  my @fields = split m/\|/, $line, 5;
+  return undef unless scalar(@fields) == 5;
+
+  my %commit     = (
+    hash         => $fields[0],
+    author_name  => $fields[1],
+    author_email => $fields[2],
+    subject      => $fields[4],
+  );
+
+  if ($fields[3] =~ m/^(\d+)-(\d+)-(\d+)\s+(\d+):(\d+):(\d+)\s+?([\+\-]?\d+)?$/) {
+    $commit{author_date} = DateTime->new(year => $1, month => $2, day => $3, hour => $4, minute => $5, second => $6, time_zone => $7);
+  }
+
+  return \%commit;
+}
+
+1;