Add simple script to check up-to-datedness of translations

diff --git a/doc/sv/.check.pl b/doc/sv/.check.pl
new file mode 100755 (executable)
index 0000000..ee969f6
--- /dev/null
+++ b/doc/sv/.check.pl
@@ -0,0 +1,78 @@
+#!/usr/bin/perl -w
+
+# Source file directories
+my %source = (
+       'deb.5'                                 => 'doc',
+       'deb-old.5'                             => 'doc',
+       'deb-control.5'                 => 'doc',
+       'dpkg-query.8'                  => 'main',
+       'dpkg.8'                                => 'main',
+       'dpkg-split.8'                  => 'split',
+       'md5sum.1'                              => 'utils',
+       'start-stop-daemon.8'   => 'utils',
+       'dpkg-deb.1'                    => 'dpkg-deb',
+       '822-date.1'                    => 'scripts',
+       'dpkg-checkbuilddeps.1' => 'scripts',
+       'dpkg-source.1'                 => 'scripts',
+       'dpkg-statoverride.8'   => 'scripts',
+       'dpkg-divert.8'                 => 'scripts',
+       'dpkg-architecture.1'   => 'scripts',
+       'dpkg-scanpackages.8'   => 'scripts',
+       'update-alternatives.8' => 'scripts',
+       'install-info.8'                => 'scripts',
+       'dpkg-name.1'                   => 'scripts',
+       'cleanup-info.8'                => 'scripts',
+       'dselect.8'                             => 'dselect',
+);
+
+# Read directory to find translated files
+opendir CURDIR, '.' or die "Cannot read directory: $!\n";
+FILE: foreach $file (readdir(CURDIR))
+{
+       next FILE unless $file =~ /\.[1-8]$/;
+
+       # Locate revision number
+       my $revision = undef;
+       open DOC, "$file" or die "Cannot read file: $!\n";
+       LINE: while (<DOC>)
+       {
+               if (/Translation of CVS revision ([0-9\.]*)$/)
+               {
+                       $revision = $1;
+                       last LINE;
+               }
+       }
+       close DOC;
+
+       die "Unable to find translated revision in $file\n"
+               unless defined $revision;
+
+       # Check revision number against that in the CVS
+       my $original = undef;
+       open ENTRIES, "../../$source{$file}/CVS/Entries"
+               or die "Cannot open ../../$source{$file}/CVS/Entries: $!\n";
+       ENTRY: while (<ENTRIES>)
+       {
+               if (m"^/$file/([0-9\.]+)/")
+               {
+                       $original = $1;
+                       last ENTRY;
+               }
+       }
+       close ENTRIES;
+
+       die "Unable to find original revision for $file\n"
+               unless defined $original;
+
+       # Check if version is up-to-date
+       if ($revision eq $original)
+       {
+               print "$file is up to date\n";
+       }
+       else
+       {
+               print "$file translates $revision, current $source{$file}/$file is $original\n";
+       }
+}
+
+closedir CURDIR;