X-Git-Url: http://git.rot13.org/?p=BackupPC.git;a=blobdiff_plain;f=makeDist;h=0821a7e0bcbce351750073f222d422eeae96b9ec;hp=c6ebf3d4be1c422f12312174584efa6c830b12b6;hb=69adb627ebd6145bc9bc5815093828306db17767;hpb=dcf156b7d70fbe2f114c1fed738f613d0b1a2775 diff --git a/makeDist b/makeDist index c6ebf3d..0821a7e 100755 --- a/makeDist +++ b/makeDist @@ -297,12 +297,13 @@ sub CheckLangUsage my $errors; my $vars = {}; - open(F, "cgi-bin/BackupPC_Admin") - || die("can't open cgi-bin/BackupPC_Admin\n"); - while ( ) { - s/\$Lang->{([^}]*)}/$vars->{$1} = 1;/eg; + foreach my $file ( qw(cgi-bin/BackupPC_Admin bin/BackupPC_sendEmail) ) { + open(F, $file) || die("can't open $file"); + while ( ) { + s/\$Lang->{([^}]*)}/$vars->{$1} = 1;/eg; + } + close(F); } - close(F); foreach my $f ( ) { my $done = {}; open(F, $f) || die("can't open $f\n");