author | kergoth <kergoth> | 2002-11-05 16:33:50 (UTC) |
---|---|---|
committer | kergoth <kergoth> | 2002-11-05 16:33:50 (UTC) |
commit | d590a056fde3eb4ad37ecd202ea024a9ad110106 (patch) (side-by-side diff) | |
tree | 4ab78078234f70d786e172a9408b208582e175a5 /scripts | |
parent | 6561744765fdc099767c285e95ab9eb09d6087cb (diff) | |
download | opie-d590a056fde3eb4ad37ecd202ea024a9ad110106.zip opie-d590a056fde3eb4ad37ecd202ea024a9ad110106.tar.gz opie-d590a056fde3eb4ad37ecd202ea024a9ad110106.tar.bz2 |
tweaks
-rwxr-xr-x | scripts/makecfg.pl | 12 |
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++; |