LDAPAccountManager/lam/po/extract.pl

46 lines
910 B
Perl
Raw Normal View History

2003-02-12 09:24:48 +00:00
#!/usr/bin/perl
#
# $Horde: horde/po/extract.pl,v 1.6 2001/09/14 20:03:33 jon Exp $
#
# Perl script to extract strings from all the files and print
# to stdout for use with xgettext.
use FileHandle;
use File::Basename;
use File::Find;
use Cwd;
use strict;
use vars qw($exts @dirs $dirs %strings);
chdir(dirname($0));
@dirs = qw($ /templates /lib /config /admin /util);
$exts = '(\.php$|\.inc$|\.dist$)';
$dirs = '^' . cwd() . '/..(' . join('|', @dirs) . ')';
find(\&extract, cwd() . '/..');
print join("\n", sort keys %strings), "\n";
sub extract
{
my $file = $File::Find::name;
my $dir = $File::Find::dir;
my $fd = new FileHandle;
if ($dir !~ /$dirs/s) {
$File::Find::prune = 1;
return;
}
if ($file =~ /$exts/) {
open($fd, basename($file));
my $data = join('', <$fd>);
while ($data =~ s/_\("(.*?)"\)//s) {
$strings{"_(\"$1\")"}++;
}
close($fd);
}
}