$hash_parent $hash_base @extra_options $hash_parent_base $page
$searchtype $search_use_regexp $searchtext $search_regexp $git_dir
@snapshot_fmts
+
+ $c
);
sub main {
+ our $c = shift;
+
our $cgi = new CGI;
our $version = "1.6.3.3";
our $my_url = $cgi->url();
} else {
$content_type = 'text/html';
}
- print $cgi->header(-type=>$content_type, -charset => 'utf-8',
- -status=> $status, -expires => $expires);
+
my $mod_perl_version = $ENV{'MOD_PERL'} ? " $ENV{'MOD_PERL'}" : '';
- print <<EOF;
-<?xml version="1.0" encoding="utf-8"?>
-<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
-<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en-US" lang="en-US">
-<!-- git web interface version $version, (C) 2005-2006, Kay Sievers <kay.sievers\@vrfy.org>, Christian Gierke -->
-<!-- git core binaries version $git_version -->
-<head>
-<meta http-equiv="content-type" content="$content_type; charset=utf-8"/>
-<meta name="generator" content="gitweb/$version git/$git_version$mod_perl_version"/>
-<meta name="robots" content="index, nofollow"/>
-<title>$title</title>
-EOF
+
+ $c->stash->{version} = $version;
+ $c->stash->{git_version} = $git_version;
+ $c->stash->{content_type} = $content_type;
+ $c->stash->{mod_perl_version} = $mod_perl_version;
+ $c->stash->{title} = $title;
+
# the stylesheet, favicon etc urls won't work correctly with path_info
# unless we set the appropriate base URL
- if ($ENV{'PATH_INFO'}) {
- print "<base href=\"".esc_url($base_url)."\" />\n";
- }
+ $c->stash->{baseurl} = $ENV{PATH_INFO}
+ ? q[<base href="].esc_url($base_url).q[" />]
+ : '';
+
# print out each stylesheet that exist, providing backwards capability
# for those people who defined $stylesheet in a config file
- if (defined $stylesheet) {
- print '<link rel="stylesheet" type="text/css" href="'.$stylesheet.'"/>'."\n";
- } else {
- foreach my $stylesheet (@stylesheets) {
- next unless $stylesheet;
- print '<link rel="stylesheet" type="text/css" href="'.$stylesheet.'"/>'."\n";
- }
- }
+ my $ssfmt = q[<link rel="stylesheet" type="text/css" href="%s"/>];
+ $c->stash->{stylesheets} = [defined $stylesheet
+ ? sprintf($ssfmt, $stylesheet)
+ : map(sprintf($ssfmt, $_), grep $_, @stylesheets)
+ ];
+
if (defined $project) {
my %href_params = get_feed_info();
if (!exists $href_params{'-title'}) {
if (-f $site_footer) {
insert_file($site_footer);
}
-
- print "</body>\n" .
- "</html>";
}
# die_error(<http_status_code>, <error_message>)
projects / catagits/Gitalist.git / blobdiff