undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

v148

Browse Source
This commit is contained in:
Kay Sievers 2005-08-07 20:23:49 +02:00
parent e925f38c2d
commit 7403d50bd2
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gitweb.cgi
View File

@ -10,11 +10,12 @@
use strict; use strict;
use warnings; use warnings;
use CGI qw(:standard :escapeHTML); use CGI qw(:standard :escapeHTML);
use CGI::Util qw(unescape);
use CGI::Carp qw(fatalsToBrowser); use CGI::Carp qw(fatalsToBrowser);
use Fcntl ':mode'; use Fcntl ':mode';
my $cgi = new CGI; my $cgi = new CGI;
my $version = "145"; my $version = "148";
my $my_url = $cgi->url(); my $my_url = $cgi->url();
my $my_uri = $cgi->url(-absolute => 1); my $my_uri = $cgi->url(-absolute => 1);
my $rss_link = ""; my $rss_link = "";
@ -36,7 +37,7 @@ my $home_text = "indextext.html";
# source of projects list # source of projects list
#my $projects_list = $projectroot; #my $projects_list = $projectroot;
my $projects_list = "index/index.txt"; my $projects_list = "index/index.aux";
# input validation and dispatch # input validation and dispatch
my $action = $cgi->param('a'); my $action = $cgi->param('a');
@ -563,7 +564,9 @@ sub git_project_list {
open my $fd , $projects_list || return undef; open my $fd , $projects_list || return undef;
while (my $line = <$fd>) { while (my $line = <$fd>) {
chomp $line; chomp $line;
my ($path, $owner) = split ':', $line; my ($path, $owner) = split ' ', $line;
$path = unescape($path);
$owner = unescape($owner);
if (!defined $path) { if (!defined $path) {
next; next;
} }
@ -691,7 +694,9 @@ sub git_summary {
open (my $fd , $projects_list); open (my $fd , $projects_list);
while (my $line = <$fd>) { while (my $line = <$fd>) {
chomp $line; chomp $line;
my ($pr, $ow) = split ':', $line; my ($pr, $ow) = split ' ', $line;
$pr = unescape($pr);
$ow = unescape($ow);
if ($pr eq $project) { if ($pr eq $project) {
$owner = $ow; $owner = $ow;
last; last;