summaryrefslogtreecommitdiff
path: root/scripts
authorkergoth <kergoth>2002-11-05 16:33:50 (UTC)
committer kergoth <kergoth>2002-11-05 16:33:50 (UTC)
commitd590a056fde3eb4ad37ecd202ea024a9ad110106 (patch) (unidiff)
tree4ab78078234f70d786e172a9408b208582e175a5 /scripts
parent6561744765fdc099767c285e95ab9eb09d6087cb (diff)
downloadopie-d590a056fde3eb4ad37ecd202ea024a9ad110106.zip
opie-d590a056fde3eb4ad37ecd202ea024a9ad110106.tar.gz
opie-d590a056fde3eb4ad37ecd202ea024a9ad110106.tar.bz2
tweaks
Diffstat (limited to 'scripts') (more/less context) (show 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
@@ -10,8 +10,12 @@ open(FILE, "<./packages");
10while(<FILE>){$packages.=$_;} 10while(<FILE>){$packages.=$_;}
11close(FILE); 11close(FILE);
12 12
13my ($dirname,$dir,$cfg,$filename,$tagname,$name,$caps,$pre,$post,$sources,@dupecheck); 13my ($dirname,$dir,$file,@files,$filename,$tagname,$name,$caps,$pre,$post,$sources,@dupecheck);
14$cfg = shift || die; 14$file = shift || die;
15push(@files, $file);
16
17foreach(@files){
18my $cfg=$_;
15($dirname=$cfg)=~s,(.*)/(.*),$1,; 19($dirname=$cfg)=~s,(.*)/(.*),$1,;
16($filename=$cfg)=~s,(.*/)(.*),$2,; 20($filename=$cfg)=~s,(.*/)(.*),$2,;
17($tagname=$dirname)=~s,.*/,,; 21($tagname=$dirname)=~s,.*/,,;
@@ -45,7 +49,7 @@ File::Find::find({wanted => \&wanted}, $dirname);
45print $post; 49print $post;
46select(STDOUT); 50select(STDOUT);
47close(CFG); 51close(CFG);
48 52}
49exit; 53exit;
50 54
51open(FILE,">$dir/config.in"); 55open(FILE,">$dir/config.in");
@@ -82,7 +86,7 @@ use vars qw/*name *dir *prune/;
82*prune = *File::Find::prune; 86*prune = *File::Find::prune;
83 87
84sub wanted { 88sub wanted {
85 if( /config.in/s ) { 89 if( /config.in$/s ) {
86 if(grep(/^$File::Find::dir\/config.in$/, @dupecheck)){ 90 if(grep(/^$File::Find::dir\/config.in$/, @dupecheck)){
87 return; 91 return;
88 } 92 }