Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
李少辉-开发者
git
提交
7403d50b
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,发现更多精彩内容 >>
提交
7403d50b
编写于
8月 07, 2005
作者:
K
Kay Sievers
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
v148
上级
e925f38c
变更
1
隐藏空白更改
内联
并排
Showing
1 changed file
with
9 addition
and
4 deletion
+9
-4
gitweb.cgi
gitweb.cgi
+9
-4
未找到文件。
gitweb.cgi
浏览文件 @
7403d50b
...
...
@@ -10,11 +10,12 @@
use strict;
use warnings;
use CGI qw(:standard :escapeHTML);
use CGI::Util qw(unescape);
use CGI::Carp qw(fatalsToBrowser);
use Fcntl ':mode';
my $cgi = new CGI;
my $version = "14
5
";
my $version = "14
8
";
my $my_url = $cgi->url();
my $my_uri = $cgi->url(-absolute => 1);
my $rss_link = "";
...
...
@@ -36,7 +37,7 @@ my $home_text = "indextext.html";
# source of projects list
#my $projects_list = $projectroot;
my $projects_list = "index/index.
txt
";
my $projects_list = "index/index.
aux
";
# input validation and dispatch
my $action = $cgi->param('a');
...
...
@@ -563,7 +564,9 @@ sub git_project_list {
open my $fd , $projects_list || return undef;
while (my $line =
<
$
fd
>
) {
chomp $line;
my ($path, $owner) = split ':', $line;
my ($path, $owner) = split ' ', $line;
$path = unescape($path);
$owner = unescape($owner);
if (!defined $path) {
next;
}
...
...
@@ -691,7 +694,9 @@ sub git_summary {
open (my $fd , $projects_list);
while (my $line =
<
$
fd
>
) {
chomp $line;
my ($pr, $ow) = split ':', $line;
my ($pr, $ow) = split ' ', $line;
$pr = unescape($pr);
$ow = unescape($ow);
if ($pr eq $project) {
$owner = $ow;
last;
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录