Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
喜羊羊3508
Dak
提交
573d74e0
D
Dak
项目概览
喜羊羊3508
/
Dak
12 个月 前同步成功
通知
1
Star
0
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
D
Dak
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
573d74e0
编写于
12月 06, 2012
作者:
A
Ansgar Burchardt
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
debianqueued: use stricter filename pattern
The new pattern is taken from daklib/regexes.py.
上级
10e1a17a
变更
1
隐藏空白更改
内联
并排
Showing
1 changed file
with
6 addition
and
4 deletion
+6
-4
tools/debianqueued-0.9/debianqueued
tools/debianqueued-0.9/debianqueued
+6
-4
未找到文件。
tools/debianqueued-0.9/debianqueued
浏览文件 @
573d74e0
...
...
@@ -69,6 +69,8 @@ package main;
($
main
::
hostname
,
undef
,
undef
,
undef
,
undef
)
=
gethostbyname
(
hostname
());
my
%
packages
=
();
my
$
re_file_safe_prefix
=
qr
/\
A
([
a
-
zA
-
Z0
-
9
][
a
-
zA
-
Z0
-
9
_
.:~+-]*)/
s
;
my
$
re_file_safe
=
qr
/$
re_file_safe_prefix
\
z
/
s
;
#
extract
-
r
and
-
k
args
$
main
::
arg
=
""
;
...
...
@@ -680,7 +682,7 @@ outer_loop: while (<CHANGES>) {
# forbid shell meta chars in the name, we pass it to a
# subshell several times...
$field[5] =~ /
^([a-zA-Z0-9.+_:@=%-][~a-zA-Z0-9.+_:@=%-]*)
/;
$field[5] =~ /
$re_file_safe
/;
if ( $1 ne $field[5] ) {
msg( "log", "found suspicious filename $field[5]\n" );
next;
...
...
@@ -747,7 +749,7 @@ outer_loop: while (<CHANGES>) {
# forbid shell meta chars in the name, we pass it to a
# subshell several times...
$field[5] =~ /
^([a-zA-Z0-9.+_:@=%-][~a-zA-Z0-9.+_:@=%-]*)
/;
$field[5] =~ /
$re_file_safe
/;
if ( $1 ne $field[5] ) {
msg( "log", "found suspicious filename $field[5]\n" );
msg(
...
...
@@ -1407,7 +1409,7 @@ outer_loop: while (<COMMANDS>) {
}
elsif
(
$
conf
::
upload_method
ne
"copy"
)
{
msg
(
"mail,log"
,
"cancel not available
\n
"
);
}
elsif
(
$
word
[
1
]
!~ m,
^[a-zA-Z0-9.+_:@=%-][~a-zA-Z0-9.+_:@=%-]*\.changes$
, )
$
word
[
1
]
!~ m,
$re_file_safe_prefix.changes\z
, )
{
msg
(
"mail,log"
,
"argument to cancel must be one .changes filename without path
\n
"
);
...
...
@@ -1708,7 +1710,7 @@ sub pgp_check($) {
my $stat;
local (*PIPE);
if ($file =~ /
^([-\w.+~]+)$
/) {
if ($file =~ /
$re_file_safe
/) {
$file = $1;
} else {
msg( "log", "Tainted filename, skipping: $file\n" );
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录