$out .= esc_html(substr($str, $pos, $begin - $pos), %opts)

                        if ($begin - $pos > 0);

 

                $pos = $end;

        }

        my @matches = matchpos_list($str, $regexp);

        return esc_html($str) unless @matches;

 

 }

 

 

                push @filtered, $m;

        }

 

 }

 

 ## ----------------------------------------------------------------------

                        $title =~ s/^/ /g;

                        $title =~ s/$/ /g;

                        if (defined $matched && $matched eq $ctag) {

                        }

                        $cloud->add($title, href(project=>undef, ctag=>$ctag),

                                    $ctags_lc{$ctag}->{count});

                foreach my $ctag (keys %ctags_lc) {

                        my $title = esc_html($ctags_lc{$ctag}->{topname}, -nbsp=>1);

                        if (defined $matched && $matched eq $ctag) {

                        }

                        $cloud->{$ctag}{count} = $ctags_lc{$ctag}->{count};

                        $cloud->{$ctag}{ctag} =

        } else {

                printf('<link rel="alternate" title="%s projects list" '.

                       'href="%s" type="text/plain; charset=utf-8" />'."\n",

                       esc_attr(href(project=>undef, action=>"project_index")));

                printf('<link rel="alternate" title="%s projects feeds" '.

                       'href="%s" type="text/x-opml" />'."\n",

                       esc_attr(href(project=>undef, action=>"opml")));

        }

 }

                print $cgi->a({-href => href(project => undef,

                                             project_filter => $dirprefix,

                                             action => "project_list")},

        }

 }

 

 sub print_nav_breadcrumbs {

        my %opts = @_;

 

        for my $crumb (@extra_breadcrumbs, [ $home_link_str => $home_link ]) {

        }

        if (defined $project) {

                my @dirname = split '/', $project;

                my $projectbasename = pop @dirname;

                print_nav_breadcrumbs_path(@dirname);

                print $cgi->a({-href => href(action=>"summary")}, esc_html($projectbasename));

                if (defined $action) {

                                $action_print = $cgi->a({-href => href(action=>$action)},

                                        $action);

                        }

                }

                if (defined $opts{-action_extra}) {

                }

                print "\n";

        } elsif (defined $project_filter) {

                print_nav_breadcrumbs_path(split '/', $project_filter);

        }

 }

 }

 

 sub git_footer_html {

 

        print "<footer class=\"page_footer\">\n";

        if (defined $project) {

        my ($difftree, $hash, @parents) = @_;

        my ($parent) = $parents[0];

        my $have_blame = gitweb_check_feature('blame');

        if ($#{$difftree} > 10) {

                print(($#{$difftree} + 1) . " files changed:\n");

        }

 

        print "<table class=\"" .

              (@parents > 1 ? "combined " : "") .

        $from = 0 unless defined $from;

        $to = $#{$commitlist} if (!defined $to || $#{$commitlist} < $to);

 

        for (my $i = 0; $i <= $to; $i++) {

                my %co = %{$commitlist->[$i]};

                next if !%co;

                my $commit = $co{'id'};

                my $ref = format_ref_marker($refs, $commit);

                git_print_header_div('commit',

                               "<time datetime=\"$co{'age_string_iso8601'}\" title=\"$co{'age_string_iso8601'}\" class=\"age\">$co{'age_string'}</time>" .

                               esc_html($co{'title'}) . $ref,

                print "<div class=\"log_body\">\n";

                git_print_log($co{'comment'});

                print "</div>\n";

        }

        if ($extra) {

                print "<div class=\"page_nav\">\n";

                print "$extra\n";

                        print $cgi->a({-href => href(action=>"blob", hash_base=>$co{'id'},

                                                     hash=>$set{'to_id'}, file_name=>$set{'to_file'}),

                                      -class => "list"},

                              "<br/>\n";

                }

        }

                        $ltext = untabify($ltext);

                        if ($ltext =~ m/^(.*)($search_regexp)(.*)$/i) {

                                $ltext = esc_html($1, -nbsp=>1);

                                $ltext .= esc_html($2, -nbsp=>1);

                                $ltext .= esc_html($3, -nbsp=>1);

                        } else {

                                $ltext = esc_html($ltext, -nbsp=>1);

                                $match = esc_html($match);

                                $trail = esc_html($trail);

 

                        }

                }

                print "</td>\n" .

 

        print "</table>\n";

 

        # If XSS prevention is on, we don't include README.html.

        # TODO: Allow a readme in some safe format.

        if (!$prevent_xss && -s "$projectroot/$project/README.html") {

                print "<div class=\"title\">readme</div>\n" .

                      "<div class=\"readme\">\n";

                insert_file("$projectroot/$project/README.html");

                print "\n</div>\n"; # class="readme"

        }

 

        # we need to request one more than 16 (0..15) to check if

        # those 16 are all

        my @commitlist = $head ? parse_commits($head, 17) : ();

        if (@commitlist) {

                git_print_header_div('shortlog');

                git_shortlog_body(\@commitlist, 0, 15, $refs,

                                  $#commitlist <=  15 ? undef :

                                  $cgi->a({-href => href(action=>"shortlog")}, "..."));

        }

 

        if (@taglist) {

                git_print_header_div('tags');

                git_tags_body(\@taglist, 0, 15,

                              $#taglist <=  15 ? undef :

                              $cgi->a({-href => href(action=>"tags")}, "..."));

        }

 

        if (@headlist) {

                git_print_header_div('heads');

                git_heads_body(\@headlist, $head, 0, 15,

                               $#headlist <= 15 ? undef :

                               $cgi->a({-href => href(action=>"heads")}, "..."));

        }

 

        if (%remotedata) {

                git_print_header_div('remotes');

                git_remotes_body(\%remotedata, 15, $head);

        }

 

        if (@forklist) {

                git_print_header_div('forks');

                git_project_list_body(\@forklist, 'age', 0, 15,

                                      $#forklist <= 15 ? undef :

                                      $cgi->a({-href => href(action=>"forks")}, "..."),

                                      'no_header');

        }

 

        git_footer_html();

 }

        return if ($cgi->request_method() eq 'HEAD');

 

        # header variables

        my $feed_type = 'log';

        if (defined $hash) {

                $title .= " - '$hash'";

                -charset => 'utf-8',

                -content_disposition => 'inline; filename="opml.xml"');

 

        my $filter = " within subdirectory ";

        if (defined $project_filter) {

                $filter .= esc_html($project_filter);