smeserver-git/contribs10/smeserver-git-1.2.0-bz9629.patch

diff -Nur --no-dereference smeserver-git-1.2.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/git.pm smeserver-git-1.2.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/git.pm
--- smeserver-git-1.2.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/git.pm     2013-02-09 21:49:54.000000000 -0500
+++ smeserver-git-1.2.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/git.pm 2023-03-24 23:16:40.664000000 -0400
@@ -85,6 +85,10 @@
 
 our $git_db = esmith::GitDB->open
   or die "Can't open the Git database : $!\n" ;
+
+our $SystemName = $config_db->get_prop('git','SystemName') || get_config_value('', 'SystemName');
+our $DomainName = $config_db->get_prop('git','DomainName') || get_config_value('', 'DomainName');
+our $server = $SystemName . "." . $DomainName ;
   
 # fields and records separator for sub records
 use constant FS => "," ;
@@ -154,7 +158,6 @@
   my $q = $self->{cgi};
 
   print qq(<tr>);
-  my $server = get_config_value('', 'SystemName') . "." . get_config_value('', 'DomainName');
   print qq(<td><p>) . $self->localise('GIT_HOME_DESCRIPTION', {serverName => $server} ) . qq(</p></td>);
   print qq(<td><a href="http://git-scm.com" target="_blank"><img src="/server-common/git-logo.png" alt="GIT" style="float:right;margin:0 0 0 5px;" /></a></td>);
   print qq(</tr>);
@@ -242,8 +245,8 @@
     my $href                   = "$scriptname?$params&action=modify&wherenext=";
     my $actionModify           = '&nbsp;' . $q->a({href => "${href}GitCreateModify"},$modify) . '&nbsp;';
     my $actionRemove           = '&nbsp;' . $q->a({href => "${href}GitRemove"}, $remove) . '&nbsp';
-    my $repo_url               = $q->a({href => "https://" . get_config_value('', 'SystemName') . "." 
-                                                           . get_config_value('', 'DomainName') . "/git/"
+    my $repo_url               = $q->a({href => "https://" . $SystemName . "." 
+                                                           . $DomainName . "/git/"
                                                            . $repo_name . ".git" }, $repo_name . ".git" );
     
     print $q->Tr (  esmith::cgi::genSmallCell($q, $repo_url,               "normal"),
1	jpp	1.1	diff -Nur --no-dereference smeserver-git-1.2.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/git.pm smeserver-git-1.2.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/git.pm
2			--- smeserver-git-1.2.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/git.pm 2013-02-09 21:49:54.000000000 -0500
3			+++ smeserver-git-1.2.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/git.pm 2023-03-24 23:16:40.664000000 -0400
4			@@ -85,6 +85,10 @@
5
6			our $git_db = esmith::GitDB->open
7			or die "Can't open the Git database : $!\n" ;
8			+
9			+our $SystemName = $config_db->get_prop('git','SystemName') \|\| get_config_value('', 'SystemName');
10			+our $DomainName = $config_db->get_prop('git','DomainName') \|\| get_config_value('', 'DomainName');
11			+our $server = $SystemName . "." . $DomainName ;
12
13			# fields and records separator for sub records
14			use constant FS => "," ;
15			@@ -154,7 +158,6 @@
16			my $q = $self->{cgi};
17
18			print qq(<tr>);
19			- my $server = get_config_value('', 'SystemName') . "." . get_config_value('', 'DomainName');
20			print qq(<td><p>) . $self->localise('GIT_HOME_DESCRIPTION', {serverName => $server} ) . qq(</p></td>);
21			print qq(<td><a href="http://git-scm.com" target="_blank"><img src="/server-common/git-logo.png" alt="GIT" style="float:right;margin:0 0 0 5px;" /></a></td>);
22			print qq(</tr>);
23			@@ -242,8 +245,8 @@
24			my $href = "$scriptname?$params&action=modify&wherenext=";
25			my $actionModify = ' ' . $q->a({href => "${href}GitCreateModify"},$modify) . ' ';
26			my $actionRemove = ' ' . $q->a({href => "${href}GitRemove"}, $remove) . '&nbsp';
27			- my $repo_url = $q->a({href => "https://" . get_config_value('', 'SystemName') . "."
28			- . get_config_value('', 'DomainName') . "/git/"
29			+ my $repo_url = $q->a({href => "https://" . $SystemName . "."
30			+ . $DomainName . "/git/"
31			. $repo_name . ".git" }, $repo_name . ".git" );
32
33			print $q->Tr ( esmith::cgi::genSmallCell($q, $repo_url, "normal"),