Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
喜羊羊3508
Dak
提交
0873d630
D
Dak
项目概览
喜羊羊3508
/
Dak
11 个月 前同步成功
通知
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,发现更多精彩内容 >>
提交
0873d630
编写于
3月 28, 2012
作者:
U
Uli Martens
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
handle compressed files transparently
上级
f82ffb0f
变更
1
隐藏空白更改
内联
并排
Showing
1 changed file
with
16 addition
and
7 deletion
+16
-7
scripts/debian/update-ftpstats
scripts/debian/update-ftpstats
+16
-7
未找到文件。
scripts/debian/update-ftpstats
浏览文件 @
0873d630
#!/usr/bin/perl
use
strict
;
use
warnings
;
use
IO::Uncompress::
AnyUncompress
"
:all
";
my
%data
;
my
%data2
;
my
@archs
=
("
source
",
"
all
",
"
amd64
",
"
i386
",
"
alpha
",
"
arm
",
"
armel
",
"
armhf
",
"
hppa
",
"
hurd-i386
",
"
ia64
",
"
kfreebsd-amd64
",
"
kfreebsd-i386
",
"
mips
",
"
mipsel
",
"
powerpc
",
"
s390
",
"
s390x
",
"
sparc
");
while
(
<>
)
{
if
(
/^(\d{8})\d{6}\|(?:k(?:atie|elly)|process-(?:accepted|upload))(?:\|dak)?\|installed\|[^|]+\|[^|]+\|(\d+)\|([-\w]+)$/
)
{
if
(
not
defined
$data
{
$
1
})
{
foreach
$a
(
@archs
)
{
$data
{
$
1
}{
$a
}
=
0
;
for
my
$file
(
@ARGV
)
{
my
$FH
=
new
IO::Uncompress::
AnyUncompress
$file
,
Transparent
=>
1
or
die
"
Cannot open
$file
:
$AnyUncompressError
\n
";
while
(
<
$FH
>
)
{
if
(
/^(\d{8})\d{6}\|(?:k(?:atie|elly)|process-(?:accepted|upload))(?:\|dak)?\|installed\|[^|]+\|[^|]+\|(\d+)\|([-\w]+)$/
)
{
if
(
not
defined
$data
{
$
1
})
{
foreach
$a
(
@archs
)
{
$data
{
$
1
}{
$a
}
=
0
;
}
}
$data
{
$
1
}{
$
3
}
+=
$
2
;
$data2
{
$
1
}{
$
3
}
++
;
}
$data
{
$
1
}{
$
3
}
+=
$
2
;
$data2
{
$
1
}{
$
3
}
++
;
}
}
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录