#!/usr/bin/perl
-# Git backend for IkiWiki.
-# Copyright 2006 Recai Oktaş <roktas@debian.org>
-#
-# Licensed under the same terms as IkiWiki.
use warnings;
use strict;
my %ci;
# Header line.
HEADER: while (my $line = shift @{ $dt_ref }) {
- return if $line !~ m/^diff-tree ($sha1_pattern)/;
+ return if $line !~ m/^(.+) ($sha1_pattern)/;
my $sha1 = $1;
$ci{'sha1'} = $sha1;
push @ci, $parsed;
}
+ warn "Cannot parse commit info for '$sha1' commit" if !@ci;
+
return wantarray ? @ci : $ci[0];
} #}}}
my $sha1 = 'HEAD'; # the commit which triggers this action
my $ci = git_commit_info($sha1);
- if (!defined $ci) {
- warn "Cannot parse info for '$sha1' commit";
- return;
- }
+ return if !defined $ci;
my @changed_pages = map { $_->{'file'} } @{ $ci->{'details'} };
}
$subject .= " by $user";
- my $template = HTML::Template->new(
- filename => "$config{templatedir}/notifymail.tmpl"
- );
+ my $template = template("notifymail.tmpl");
$template->param(
wikiname => $config{wikiname},
diff => $diff,