diff options
author | Kurt Zenker <kz@openoffice.org> | 2005-01-21 08:47:39 +0000 |
---|---|---|
committer | Kurt Zenker <kz@openoffice.org> | 2005-01-21 08:47:39 +0000 |
commit | 89568760b1600eba33735c2069f795ad5251655b (patch) | |
tree | 225ce3314f1372d235db82eed4f38f8a86bc1945 /readlicense_oo | |
parent | 471f965bbc3ea5c679c99c347696837d03a549e1 (diff) |
INTEGRATION: CWS ause016 (1.3.70); FILE MERGED
2005/01/18 10:51:57 hjs 1.3.70.1: #i35263# avoid language specific lines in d.lst
Diffstat (limited to 'readlicense_oo')
-rwxr-xr-x | readlicense_oo/conv.pl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/readlicense_oo/conv.pl b/readlicense_oo/conv.pl index c00ed4bd9541..4f2780c9dc77 100755 --- a/readlicense_oo/conv.pl +++ b/readlicense_oo/conv.pl @@ -8,6 +8,7 @@ use Getopt::Std; use Cwd; my ($startdir,$outdir,$pfx); +my $verbose = 0; sub usage() { print STDERR "usage: $0 -o <outdir> [-f <file>]\n" @@ -50,9 +51,9 @@ sub wanted { ( /^.*\.html\z/s || - /^license\.txt\z/s + /^license.*\.txt\z/s || - /^LICENSE\z/s + /^LICENSE.*\z/s || /^readme\.txt\z/s || @@ -67,7 +68,7 @@ sub doconv { $dest=$dir; $dest=~s/^$pfx//g; $dest=$outdir.$dest; - convertfile($dest,$name); + convertfile($dest,$name) if $name =~ /\/$ENV{GUI}\//i; } sub convertfile { @@ -84,7 +85,7 @@ sub convertfile { open(IN,"<$file") || die "can not open $file"; open(OUT,">$destfile") || die "can not open $destfile"; - + print "converting: $file -> $destfile\n" if $verbose; while (<IN> ) { chop while ( /\n$/ || /\r$/ ); print OUT "$_\n"; |