[med-svn] r2500 - in trunk/packages/agdbnet/trunk/debian: . patches

[tille at alioth.debian.org]

Author: tille
Date: 2008-09-16 14:54:24 +0000 (Tue, 16 Sep 2008)
New Revision: 2500

Added:
   trunk/packages/agdbnet/trunk/debian/patches/10_config_location.patch
Removed:
   trunk/packages/agdbnet/trunk/debian/links
Modified:
   trunk/packages/agdbnet/trunk/debian/patches/series
Log:
Change location of config file to /etc/agdbnet


Deleted: trunk/packages/agdbnet/trunk/debian/links
===================================================================
--- trunk/packages/agdbnet/trunk/debian/links	2008-09-16 07:13:20 UTC (rev 2499)
+++ trunk/packages/agdbnet/trunk/debian/links	2008-09-16 14:54:24 UTC (rev 2500)
@@ -1,2 +0,0 @@
-etc/agdbnet/agdbnet.xml usr/lib/cgi-bin/agdbnet.xml
-

Added: trunk/packages/agdbnet/trunk/debian/patches/10_config_location.patch
===================================================================
--- trunk/packages/agdbnet/trunk/debian/patches/10_config_location.patch	                        (rev 0)
+++ trunk/packages/agdbnet/trunk/debian/patches/10_config_location.patch	2008-09-16 14:54:24 UTC (rev 2500)
@@ -0,0 +1,12 @@
+--- agdbnet_v1.0.0.orig/cgi-bin/agdbnet.pl
++++ agdbnet_v1.0.0/cgi-bin/agdbnet.pl
+@@ -125,7 +125,8 @@
+ 	#directory as the script.  This prevents
+ 	#a public script from accessing a private database.
+ 	if ( $q->param('file') =~ /^([\w\d\-_]+\.xml)$/ ) {
+-		$instance = $1;
++		## in Debian config file is in /etc/agdbnet
++		$instance = '/etc/agdbnet/'.$1;
+ 	}
+ 	eval {
+ 		if ( $ENV{MOD_PERL} )

Modified: trunk/packages/agdbnet/trunk/debian/patches/series
===================================================================
--- trunk/packages/agdbnet/trunk/debian/patches/series	2008-09-16 07:13:20 UTC (rev 2499)
+++ trunk/packages/agdbnet/trunk/debian/patches/series	2008-09-16 14:54:24 UTC (rev 2500)
@@ -2,3 +2,4 @@
 10_bioperl.patch
 10_preconf.patch
 10_moreinfo.patch
+10_config_location.patch