Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
openeuler
qemu
提交
c84a2b1a
Q
qemu
项目概览
openeuler
/
qemu
通知
10
Star
0
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
Q
qemu
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
c84a2b1a
编写于
12月 10, 2012
作者:
M
Michael S. Tsirkin
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
get_maintainer.pl: update from linix 3.8
Signed-off-by:
N
Michael S. Tsirkin
<
mst@redhat.com
>
上级
89e6d68e
变更
1
隐藏空白更改
内联
并排
Showing
1 changed file
with
16 addition
and
9 deletion
+16
-9
scripts/get_maintainer.pl
scripts/get_maintainer.pl
+16
-9
未找到文件。
scripts/get_maintainer.pl
浏览文件 @
c84a2b1a
...
...
@@ -83,6 +83,8 @@ push(@signature_tags, "Signed-off-by:");
push
(
@signature_tags
,
"
Reviewed-by:
");
push
(
@signature_tags
,
"
Acked-by:
");
my
$signature_pattern
=
"
\
(
"
.
join
("
|
",
@signature_tags
)
.
"
\
)
";
# rfc822 email address - preloaded methods go here.
my
$rfc822_lwsp
=
"
(?:(?:
\\
r
\\
n)?[
\\
t])
";
my
$rfc822_char
=
'
[
\\
000-
\\
377]
';
...
...
@@ -95,7 +97,7 @@ my %VCS_cmds_git = (
"
execute_cmd
"
=>
\
&git_execute_cmd
,
"
available
"
=>
'
(which("git") ne "") && (-d ".git")
',
"
find_signers_cmd
"
=>
"
git log --no-color --since=
\$
email_git_since
"
.
"
git log --no-color --
follow --
since=
\$
email_git_since
"
.
'
--format="GitCommit: %H%n
'
.
'
GitAuthor: %an <%ae>%n
'
.
'
GitDate: %aD%n
'
.
...
...
@@ -328,7 +330,8 @@ sub read_mailmap {
# name1 <mail1> <mail2>
# name1 <mail1> name2 <mail2>
# (see man git-shortlog)
if
(
/^(.+)<(.+)>$/
)
{
if
(
/^([^<]+)<([^>]+)>$/
)
{
my
$real_name
=
$
1
;
my
$address
=
$
2
;
...
...
@@ -336,13 +339,13 @@ sub read_mailmap {
(
$real_name
,
$address
)
=
parse_email
("
$real_name
<
$address
>
");
$mailmap
->
{
names
}
->
{
$address
}
=
$real_name
;
}
elsif
(
/^<([^
\s]+)>\s*<([^\s
]+)>$/
)
{
}
elsif
(
/^<([^
>]+)>\s*<([^>
]+)>$/
)
{
my
$real_address
=
$
1
;
my
$wrong_address
=
$
2
;
$mailmap
->
{
addresses
}
->
{
$wrong_address
}
=
$real_address
;
}
elsif
(
/^(.+)<([^
\s]+)>\s*<([^\s
]+)>$/
)
{
}
elsif
(
/^(.+)<([^
>]+)>\s*<([^>
]+)>$/
)
{
my
$real_name
=
$
1
;
my
$real_address
=
$
2
;
my
$wrong_address
=
$
3
;
...
...
@@ -353,7 +356,7 @@ sub read_mailmap {
$mailmap
->
{
names
}
->
{
$wrong_address
}
=
$real_name
;
$mailmap
->
{
addresses
}
->
{
$wrong_address
}
=
$real_address
;
}
elsif
(
/^(.+)<([^
\s]+)>\s*([^\s].*)<([^\s
]+)>$/
)
{
}
elsif
(
/^(.+)<([^
>]+)>\s*(.+)\s*<([^>
]+)>$/
)
{
my
$real_name
=
$
1
;
my
$real_address
=
$
2
;
my
$wrong_name
=
$
3
;
...
...
@@ -472,7 +475,6 @@ my @subsystem = ();
my
@status
=
();
my
%deduplicate_name_hash
=
();
my
%deduplicate_address_hash
=
();
my
$signature_pattern
;
my
@maintainers
=
get_maintainers
();
...
...
@@ -920,7 +922,7 @@ sub get_maintainer_role {
my
$start
=
find_starting_index
(
$index
);
my
$end
=
find_ending_index
(
$index
);
my
$role
;
my
$role
=
"
unknown
"
;
my
$subsystem
=
$typevalue
[
$start
];
if
(
length
(
$subsystem
)
>
20
)
{
$subsystem
=
substr
(
$subsystem
,
0
,
17
);
...
...
@@ -1016,8 +1018,13 @@ sub add_categories {
if
(
$email_list
)
{
if
(
!
$hash_list_to
{
lc
(
$list_address
)})
{
$hash_list_to
{
lc
(
$list_address
)}
=
1
;
push
(
@list_to
,
[
$list_address
,
"
open list
${list_role}
"]);
if
(
$list_additional
=~
m/moderated/
)
{
push
(
@list_to
,
[
$list_address
,
"
moderated list
${list_role}
"]);
}
else
{
push
(
@list_to
,
[
$list_address
,
"
open list
${list_role}
"]);
}
}
}
}
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录