From c8dd1aa1c70b356f4d0d44eb6d17e643e4d56d70 Mon Sep 17 00:00:00 2001
From: Stricted <Stricted@nexus-irc.de>
Date: Sat, 8 Dec 2012 22:33:28 +0100
Subject: [PATCH] remove bugtrack functions

---
 git_bugtrack.php | 12 ------------
 index.cgi        | 37 ++-----------------------------------
 2 files changed, 2 insertions(+), 47 deletions(-)
 delete mode 100644 git_bugtrack.php

diff --git a/git_bugtrack.php b/git_bugtrack.php
deleted file mode 100644
index 9cd226a..0000000
--- a/git_bugtrack.php
+++ /dev/null
@@ -1,12 +0,0 @@
-<p><?php
-if($_GET["p"]){
-	$hash = shell_exec("git --git-dir=/home/git/".$_GET["p"]." rev-list -n 1 --pretty='format:%h' --header master | grep '^[0-9a-f]*$'");
-	if(!$hash){
-		echo "<b>unknown project or no bugtracker for this project</b>";
-	}else{
-		echo "<b>under construction</b>";
-	}
-}else{
-	echo "<b>unknown project or no bugtracker for this project</b";
-}
-?></p>
\ No newline at end of file
diff --git a/index.cgi b/index.cgi
index e16fcbe..8d49935 100644
--- a/index.cgi
+++ b/index.cgi
@@ -695,7 +695,6 @@ our %actions = (
 	"project_index" => \&git_project_index,
 	"project_index2" => \&git_project_index2,
 	"download" => \&git_download,
-	"bugtracker" => \&git_project_bugtracker,
 );
 
 # finally, we have the hash of allowed extra_options for the commands that
@@ -3345,7 +3344,7 @@ sub guess_file_syntax {
 		'h' => 'c',
 		map { $_ => 'cpp' } qw(cxx c++ cc),
 		map { $_ => 'php' } qw(php3 php4),
-		map { $_ => 'pl'  } qw(perl pm), # perhaps also 'cgi'
+		map { $_ => 'pl'  } qw(perl pm cgi), # perhaps also 'cgi'
 		'mak' => 'make',
 		map { $_ => 'xml' } qw(xhtml html htm),
 	);
@@ -3683,7 +3682,7 @@ sub git_print_page_nav {
 	my ($current, $suppress, $head, $treehead, $treebase, $extra) = @_;
 	$extra = '' if !defined $extra; # pager or formats
 
-	my @navs = qw(summary bugtracker shortlog log commit commitdiff tree);
+	my @navs = qw(summary shortlog log commit commitdiff tree);
 	if ($suppress) {
 		@navs = grep { $_ ne $suppress } @navs;
 	}
@@ -5168,38 +5167,6 @@ sub git_download {
 	git_footer_html();
 }
 
-sub git_project_bugtracker {
-	my $descr = git_get_project_description($project) || "none";
-	my $bugtrack = get("http://git.nexus-irc.de/git_bugtrack.php?p=".$project);
-	my %co = parse_commit("HEAD");
-	my %cd = %co ? parse_date($co{'committer_epoch'}, $co{'committer_tz'}) : ();
-	my $head = $co{'id'};
-	my $owner = git_get_project_owner($project);	
-	my $version = get("http://git.nexus-irc.de/git_version.php?git=".$project);
-	git_header_html();
-	git_print_page_nav('bugtracker','', $head);
-	print "<div class=\"title\">&nbsp;</div>\n";
-	print "<table class=\"projects_list\">\n" .
-	      "<tr id=\"metadata_desc\"><td>description</td><td>" . esc_html($descr) . "</td></tr>\n" .
-	      "<tr id=\"metadata_owner\"><td>owner</td><td>" . esc_html($owner) . "</td></tr>\n";
-	if (defined $cd{'rfc2822'}) {
-		print "<tr id=\"metadata_lchange\"><td>last change</td><td>$cd{'rfc2822'}</td></tr>\n";
-	}
-	my $url_tag = "URL";
-	my @url_list = git_get_project_url_list($project);
-	@url_list = map { "$_/$project" } @git_base_url_list unless @url_list;
-	foreach my $git_url (@url_list) {
-		next unless $git_url;
-		print "<tr class=\"metadata_url\"><td>$url_tag</td><td>$git_url</td></tr>\n";
-		$url_tag = "";
-	}
-	print "<tr id=\"metadata_owner\"><td>version</td><td>" . esc_html($version) . "</td></tr>\n";
-	print "</table>\n";
-	git_print_header_div('bugtracker');
-	print $bugtrack;
-	git_footer_html();
-}
-
 sub git_summary {
 	my $descr = git_get_project_description($project) || "none";
 	my %co = parse_commit("HEAD");
-- 
2.20.1