From 73927fe1c095507ce7fdd310917521fcd305b7e5 Mon Sep 17 00:00:00 2001
From: kergoth <kergoth>
Date: Thu, 16 Jan 2003 04:01:29 +0000
Subject: Use paths relative to OPIEDIR in generated configs.

---
(limited to 'scripts/makecfg.pl')

diff --git a/scripts/makecfg.pl b/scripts/makecfg.pl
index 5dd66a4..d7dc41e 100755
--- a/scripts/makecfg.pl
+++ b/scripts/makecfg.pl
@@ -10,8 +10,9 @@ open(FILE, "<./packages");
 while(<FILE>){$packages.=$_;}
 close(FILE);
 
-my ($dirname,$dir,$file,@files,$filename,$tagname,$name,$caps,$pre,$post,$sources,@dupecheck);
+my ($dirname,$dir,$file,@files,$filename,$tagname,$name,$caps,$pre,$post,$sources,@dupecheck,$basedir);
 $file = shift || die;
+$basedir = shift;
 push(@files, $file);
 
 foreach(@files){
@@ -52,34 +53,6 @@ close(CFG);
 }
 exit;
 
-open(FILE,">$dir/config.in");
-select(FILE);
-print "menu \"$name\"\n";
-print "\n";
-my @subdirs=();
-my @dirs;
-foreach(grep(/^$dir/, @dirs)){
-	chomp;
-	/^$dir\/$name.pro$/ && next;
-	my $localdir=$_;
-	if($dir=~m,^$localdir$,){
-		next;
-	}
-#($locadir=$_)~s,/[^/]+$,,g;
-	if($localdir=~/^\.$/){next;}
-	if(grep(/^$localdir$/, @subdirs)){next;}
-	my $nslashes = $localdir =~ tr!/!!;
-	my $dirnslashes = $dir =~ tr!/!!;
-	$dirnslashes++;
-	if($dirnslashes != $nslashes ){next;}
-	print STDERR "$localdir/config.in\n";
-	print "  source $localdir/config.in\n";
-	push(@subdirs, $localdir);
-	print "endmenu\n";
-	select(STDOUT);
-	close(FILE);
-}
-
 use vars qw/*name *dir *prune/;
 *name   = *File::Find::name;
 *dir    = *File::Find::dir;
@@ -96,7 +69,11 @@ sub wanted {
 #		print STDERR "dirnslashes is $dirnslashes\n";
 #		print STDERR "nslashes is $nslashes\n";
 		if($dirnslashes != $nslashes){return;}
-		print "  source " . $File::Find::dir . "/config.in\n";
+		my $reldir;
+		if (defined($basedir)) {
+			($reldir=$File::Find::dir)=~s,^$basedir/,,;
+		}
+		print "  source " . $reldir . "/config.in\n";
 		push(@dupecheck, $File::Find::dir . "/config.in");
 	}
 }
--
cgit v0.9.0.2