undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

v154

Browse Source
This commit is contained in:
Kay Sievers 2005-08-07 20:24:51 +02:00
parent fa378499c7
commit a4d26ef062
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gitweb.cgi
View File

@ -15,7 +15,7 @@ use CGI::Carp qw(fatalsToBrowser);
use Fcntl ':mode'; use Fcntl ':mode';
my $cgi = new CGI; my $cgi = new CGI;
my $version = "152"; my $version = "154";
my $my_url = $cgi->url(); my $my_url = $cgi->url();
my $my_uri = $cgi->url(-absolute => 1); my $my_uri = $cgi->url(-absolute => 1);
my $rss_link = ""; my $rss_link = "";
@ -359,7 +359,7 @@ sub git_read_commit {
$co{'parent'} = $parents[0]; $co{'parent'} = $parents[0];
my (@comment) = map { chomp; $_ } <$fd>; my (@comment) = map { chomp; $_ } <$fd>;
$co{'comment'} = \@comment; $co{'comment'} = \@comment;
$comment[0] =~ m/^(.{0,60}[^ ]*)/; $comment[0] =~ m/^(.{0,60}[^ \/]*)/;
$co{'title'} = $1; $co{'title'} = $1;
if ($comment[0] ne $co{'title'}) { if ($comment[0] ne $co{'title'}) {
$co{'title'} .= " ..."; $co{'title'} .= " ...";
@ -744,6 +744,10 @@ sub git_summary {
print "<td>$co{'age_string'}</td>\n" . print "<td>$co{'age_string'}</td>\n" .
"<td>$co{'author_name'}</td>\n" . "<td>$co{'author_name'}</td>\n" .
"<td>" . $cgi->a({-href => "$my_uri?p=$project;a=commit;h=$commit"}, escapeHTML($co{'title'})) . "</td>\n" . "<td>" . $cgi->a({-href => "$my_uri?p=$project;a=commit;h=$commit"}, escapeHTML($co{'title'})) . "</td>\n" .
"<td class=\"link\">" .
$cgi->a({-href => "$my_uri?p=$project;a=commit;h=$commit"}, "commit") .
" | " . $cgi->a({-href => "$my_uri?p=$project;a=commitdiff;h=$commit"}, "commitdiff") .
"</td>\n" .
"</tr>"; "</tr>";
} else { } else {
print "<td>" . $cgi->a({-href => "$my_uri?p=$project;a=log"}, "...") . "</td>\n" . print "<td>" . $cgi->a({-href => "$my_uri?p=$project;a=log"}, "...") . "</td>\n" .
@ -1334,10 +1338,11 @@ sub git_commitdiff {
my $empty = 0; my $empty = 0;
my $signed = 0; my $signed = 0;
my @log = @$comment; my @log = @$comment;
# remove first and empty lines after that
shift @log; shift @log;
#while ($log[0] eq "") { while (defined $log[0] && $log[0] eq "") {
# shift @log; shift @log;
#} }
foreach my $line (@log) { foreach my $line (@log) {
if ($line =~ m/^(signed[ \-]off[ \-]by[ :]|acked[ \-]by[ :]|cc[ :])/i) { if ($line =~ m/^(signed[ \-]off[ \-]by[ :]|acked[ \-]by[ :]|cc[ :])/i) {
next; next;