summaryrefslogtreecommitdiff
authorkergoth <kergoth>2002-11-05 16:33:50 (UTC)
committer kergoth <kergoth>2002-11-05 16:33:50 (UTC)
commitd590a056fde3eb4ad37ecd202ea024a9ad110106 (patch) (side-by-side diff)
tree4ab78078234f70d786e172a9408b208582e175a5
parent6561744765fdc099767c285e95ab9eb09d6087cb (diff)
downloadopie-d590a056fde3eb4ad37ecd202ea024a9ad110106.zip
opie-d590a056fde3eb4ad37ecd202ea024a9ad110106.tar.gz
opie-d590a056fde3eb4ad37ecd202ea024a9ad110106.tar.bz2
tweaks
Diffstat (more/less context) (ignore whitespace changes)
-rwxr-xr-xscripts/makecfg.pl12
1 files changed, 8 insertions, 4 deletions
diff --git a/scripts/makecfg.pl b/scripts/makecfg.pl
index 20c23f5..5dd66a4 100755
--- a/scripts/makecfg.pl
+++ b/scripts/makecfg.pl
@@ -7,14 +7,18 @@ use File::Find;
my $packages="";
open(FILE, "<./packages");
while(<FILE>){$packages.=$_;}
close(FILE);
-my ($dirname,$dir,$cfg,$filename,$tagname,$name,$caps,$pre,$post,$sources,@dupecheck);
-$cfg = shift || die;
+my ($dirname,$dir,$file,@files,$filename,$tagname,$name,$caps,$pre,$post,$sources,@dupecheck);
+$file = shift || die;
+push(@files, $file);
+
+foreach(@files){
+my $cfg=$_;
($dirname=$cfg)=~s,(.*)/(.*),$1,;
($filename=$cfg)=~s,(.*/)(.*),$2,;
($tagname=$dirname)=~s,.*/,,;
($caps=$tagname)=~tr/[a-z]/[A-Z]/;
#print "cfg is $cfg\n";
#print "dir is $dirname\n";
@@ -42,13 +46,13 @@ select(CFG);
print $pre;
@dupecheck=();
File::Find::find({wanted => \&wanted}, $dirname);
print $post;
select(STDOUT);
close(CFG);
-
+}
exit;
open(FILE,">$dir/config.in");
select(FILE);
print "menu \"$name\"\n";
print "\n";
@@ -79,13 +83,13 @@ foreach(grep(/^$dir/, @dirs)){
use vars qw/*name *dir *prune/;
*name = *File::Find::name;
*dir = *File::Find::dir;
*prune = *File::Find::prune;
sub wanted {
- if( /config.in/s ) {
+ if( /config.in$/s ) {
if(grep(/^$File::Find::dir\/config.in$/, @dupecheck)){
return;
}
my $nslashes = $File::Find::dir =~ tr!/!!;
my $dirnslashes = $dirname =~ tr!/!!;
$dirnslashes++;