Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
李少辉-开发者
git
提交
a4d26ef0
G
git
项目概览
李少辉-开发者
/
git
与 Fork 源项目一致
从无法访问的项目Fork
通知
2
Star
1
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
G
git
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
a4d26ef0
编写于
8月 07, 2005
作者:
K
Kay Sievers
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
v154
上级
fa378499
变更
1
隐藏空白更改
内联
并排
Showing
1 changed file
with
10 addition
and
5 deletion
+10
-5
gitweb.cgi
gitweb.cgi
+10
-5
未找到文件。
gitweb.cgi
浏览文件 @
a4d26ef0
...
...
@@ -15,7 +15,7 @@ use CGI::Carp qw(fatalsToBrowser);
use Fcntl ':mode';
my $cgi = new CGI;
my $version = "15
2
";
my $version = "15
4
";
my $my_url = $cgi->url();
my $my_uri = $cgi->url(-absolute => 1);
my $rss_link = "";
...
...
@@ -359,7 +359,7 @@ sub git_read_commit {
$
co
{'
parent
'}
=
$
parents
[0];
my
(@
comment) =
map
{
chomp
;
$
_
}
<$
fd
>
;
$co{'comment'} = \@comment;
$comment[0] =~ m/^(.{0,60}[^ ]*)/;
$comment[0] =~ m/^(.{0,60}[^
\/
]*)/;
$co{'title'} = $1;
if ($comment[0] ne $co{'title'}) {
$co{'title'} .= " ...";
...
...
@@ -744,6 +744,10 @@ sub git_summary {
print "
<td>
$co{'age_string'}
</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
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>
";
} else {
print "
<td>
" . $cgi->a({-href => "$my_uri?p=$project;a=log"}, "...") . "
</td>
\n" .
...
...
@@ -1334,10 +1338,11 @@ sub git_commitdiff {
my $empty = 0;
my $signed = 0;
my @log = @$comment;
# remove first and empty lines after that
shift @log;
#while (
$log[0] eq "") {
#
shift @log;
#
}
while (defined $log[0]
&&
$log[0] eq "") {
shift @log;
}
foreach my $line (@log) {
if ($line =~ m/^(signed[ \-]off[ \-]by[ :]|acked[ \-]by[ :]|cc[ :])/i) {
next;
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录