diff options
author | 2005-08-07 20:23:49 +0200 | |
---|---|---|
committer | 2005-08-07 20:23:49 +0200 | |
commit | 7403d50bd2c6a9e72dd5e3db61d68befa8dc34fb (patch) | |
tree | 02d9dfa5b8df2308dead10f0d1f315bd8407659c /gitweb.cgi | |
parent | v145 (diff) | |
download | tgif-7403d50bd2c6a9e72dd5e3db61d68befa8dc34fb.tar.xz |
v148
Diffstat (limited to 'gitweb.cgi')
-rwxr-xr-x | gitweb.cgi | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/gitweb.cgi b/gitweb.cgi index a2b2e27fed..e738ea2ba4 100755 --- a/gitweb.cgi +++ b/gitweb.cgi @@ -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 = "145"; +my $version = "148"; 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; |