use File::Basename; # turn off potentially CPU-intensive features $feature{'search'}{'default'} = [undef]; $feature{'blame'}{'default'} = [undef]; $feature{'pickaxe'}{'default'} = [undef]; $feature{'grep'}{'default'} = [undef]; $GIT = "git"; $projectroot = $ENV{PROJECT_ROOT} || "/home/pl/git/"; #$projectroot = "/home/pl/git/"; $gitwebdir = dirname($ENV{SCRIPT_FILENAME}); $site_header = $gitwebdir . "/header.html"; $site_footer = $gitwebdir . "/footer.html"; $project_maxdepth = 1; @stylesheets = ("/git/static/gitweb.css"); $javascript = "/git/static/gitweb.js"; $logo = "/git/static/git-logo.png"; $favicon = "/git/static/git-favicon.png"; # nicer-looking URLs $feature{'pathinfo'}{'default'} = [1]; $site_name = "SWI-Prolog GIT browser"; $site_uri = "http://" . $ENV{'SERVER_NAME'}; $port = $ENV{SERVER_PORT} || "80"; if ( $port != "80" ) { $site_uri = $site_uri . ":" . $port; } $my_uri = $site_uri . "/git/"; $home_link = $site_uri . "/git/";