SourceFormat Enforcement

[thirdparty/squid.git] / scripts / verify_errorpages.pl

#!/usr/bin/perl
#
## Copyright (C) 1996-2017 The Squid Software Foundation and contributors
##
## Squid software is distributed under GPLv2+ license and includes
## contributions from numerous individuals and organizations.
## Please see the COPYING and CONTRIBUTORS files for details.
##

open(LIST,"<list") || die;
while (<LIST>) {
    chomp;
    push (@pages, $_);
}
close LIST;

foreach $page (@pages) {
    open(IN, "<English/$page") || die;
    $file = join("", <IN>);
    close(IN);
    $file =~ s/%(.)/$english{$page}{$1}++, "%$1"/ge;
}

foreach $lang (@ARGV) {
  foreach $page (@pages) {
    undef %codes;
    open(IN, "<$lang/$page") || die;
    $file = join("", <IN>);
    close(IN);
    $file =~ s/%(.)/$codes{$1}++/ge;
    foreach $code (keys %codes, keys %{$english{$page}}) {
	if ($codes{$code} ne $english{$page}{$code}) {
	    print("$lang/$page %$code mismatch (found $codes{$code}, expected $english{$page}{$code})\n");
	}
    }
  }
}