Contents of /trunk/installer/doc/manual/scripts/rev-update

#!/usr/bin/perl -w

# This script converts and updates revision comments in translations.
# It will automatically replace revision comments for 'original documents'
# with revision comments for 'translated documents'.
# When called with "-u" option, it will also update the revision for the
# translated document to the revision number in the original document.
# This script only supports SVN style revision marks.

# Note: only use the "-u" option after you have made sure there are no
#       changes in content for the listed documents.

# SYNOPSIS:
#             ./rev-update [-u] [-v] [lang]
#
#       (uses $lang set below if lang is not given on commandline)

use Getopt::Std;
use File::Find;
$opt_u = $opt_v = 0;
getopts('uvV');
# You may set this to your default language code
$lang = shift || "pl";

sub convert
{
        my ($plfname, $plrev) = (@_);
        my $transtext = '';
        open (FILE, "< $plfname");
        while (<FILE>) {
                if (/<!--\s*\$Id: \S+ (\d+) /) {
                        s/(<!--)(.*)(-->)/$1 original version: $plrev untranslated $3/;
                }
                $transtext .= $_;
        }
        close (FILE);
        warn "Writing $plfname\n" if $opt_v;
        open (FILE, "> $plfname");
        print FILE $transtext;
        close (FILE);
}

sub update
{
        my ($plfname, $plrev, $enrev) = (@_);
        my $transtext = '';
        open (FILE, "< $plfname");
        while (<FILE>) {
                if (/<!--\s*original version/) {
                        s/(<!--.*\s)($plrev)(\s.*-->)/$1$enrev$3/;
                }
                $transtext .= $_;
        }
        close (FILE);
        warn "Writing $plfname\n" if $opt_v;
        open (FILE, "> $plfname");
        print FILE $transtext;
        close (FILE);
}

sub getrev
{
        my ($plfname, $enfname) = (@_);
        my ($plrev, $enrev) = (0, 0);
        my ($notconverted, $untrans) = (0, 0);

        warn "checking $plfname:\n" if $opt_v;
        open FILE, $plfname or warn "$plfname: $!\n" and return;
        while (<FILE>) {
                if (/<!--\s*original version\D*(\d+)\s*-->/) {
                        $plrev = $1;
                        last;
                }
                if (/<!--\s*original version\D*(\d+)\s*untranslated\s*-->/) {
                        $plrev = $1;
                        $untrans = 1;
                        last;
                }
                # Also check for revision comments of original documents
                if (/<!--\s*\$Id: \S+ (\d+) /) {
                        $plrev = $1;
                        $notconverted = 1;
                        $untrans = 1;
                        last;
                }
        }
        warn "checking $enfname:\n" if $opt_v;
        open FILE, $enfname or warn "$enfname: $!\n" and return;
        while (<FILE>) {
                if (/<!--\s*\$Id: \S+ (\d+) /) {
                        $enrev = $1;
                        last;
                }
        }
        close FILE;
        warn "failed to find revision for $plfname\n" unless $plrev;
        warn "failed to find revision for $enfname\n" unless $enrev;
        if ($notconverted) {
                warn "$plfname: converting revision comment\n";
                warn "   document marked 'untranslated'\n";
                convert($plfname, $plrev);
        }
        return ($plrev, $enrev, $untrans);
}

sub checkrev
{
        my ($plfname, $enfname) = (@_);
        my ($plrev, $enrev, $untrans) = getrev($plfname, $enfname);
        $plrev and $enrev or return;
        if ( "$plrev" ne "$enrev" ) {
                if ($untrans) {
                        print "$enfname : $plrev -> $enrev (untranslated)\n";
                } else {
                        print "$enfname : $plrev -> $enrev\n";
                }
                if ($opt_u) {
                        update($plfname, $plrev, $enrev);
                        print "$plfname : revision updated\n";
                }
        }
}

sub process
{
        my $enfname = $File::Find::name;
        return unless $enfname =~ m/\.xml$/;
        my $plfname = $enfname;
        $plfname =~ s,^en/,$lang/,;
        checkrev($plfname, $enfname);
}
File::Find::find({ wanted => \&process, no_chdir => 1 }, 'en');
checkrev("build/install.$lang.xml", "build/install.en.xml");
#checkdiff("release-notes.$lang.sgml","release-notes.sgml");
#checkdiff("index.$lang.html.m4","index.en.html.m4");
#checkdiff("dselect-beginner.$lang.sgml","dselect-beginner.sgml");
1	fjpop-guest	15141	#!/usr/bin/perl -w
2
3			# This script converts and updates revision comments in translations.
4			# It will automatically replace revision comments for 'original documents'
5			# with revision comments for 'translated documents'.
6			# When called with "-u" option, it will also update the revision for the
7			# translated document to the revision number in the original document.
8			# This script only supports SVN style revision marks.
9
10			# Note: only use the "-u" option after you have made sure there are no
11			# changes in content for the listed documents.
12
13			# SYNOPSIS:
14			# ./rev-update [-u] [-v] [lang]
15			#
16			# (uses $lang set below if lang is not given on commandline)
17
18			use Getopt::Std;
19			use File::Find;
20			$opt_u = $opt_v = 0;
21			getopts('uvV');
22			# You may set this to your default language code
23			$lang = shift \|\| "pl";
24
25			sub convert
26			{
27			my ($plfname, $plrev) = (@_);
28			my $transtext = '';
29			open (FILE, "< $plfname");
30			while (<FILE>) {
31			if (/<!--\s*\$Id: \S+ (\d+) /) {
32			s/(<!--)(.*)(-->)/$1 original version: $plrev untranslated $3/;
33			}
34			$transtext .= $_;
35			}
36			close (FILE);
37			warn "Writing $plfname\n" if $opt_v;
38			open (FILE, "> $plfname");
39			print FILE $transtext;
40			close (FILE);
41			}
42
43			sub update
44			{
45			my ($plfname, $plrev, $enrev) = (@_);
46			my $transtext = '';
47			open (FILE, "< $plfname");
48			while (<FILE>) {
49			if (/<!--\s*original version/) {
50			s/(<!--.\s)($plrev)(\s.-->)/$1$enrev$3/;
51			}
52			$transtext .= $_;
53			}
54			close (FILE);
55			warn "Writing $plfname\n" if $opt_v;
56			open (FILE, "> $plfname");
57			print FILE $transtext;
58			close (FILE);
59			}
60
61			sub getrev
62			{
63			my ($plfname, $enfname) = (@_);
64			my ($plrev, $enrev) = (0, 0);
65			my ($notconverted, $untrans) = (0, 0);
66
67			warn "checking $plfname:\n" if $opt_v;
68			open FILE, $plfname or warn "$plfname: $!\n" and return;
69			while (<FILE>) {
70			if (/<!--\soriginal version\D(\d+)\s*-->/) {
71			$plrev = $1;
72			last;
73			}
74			if (/<!--\soriginal version\D(\d+)\suntranslated\s-->/) {
75			$plrev = $1;
76			$untrans = 1;
77			last;
78			}
79			# Also check for revision comments of original documents
80			if (/<!--\s*\$Id: \S+ (\d+) /) {
81			$plrev = $1;
82			$notconverted = 1;
83			$untrans = 1;
84			last;
85			}
86			}
87			warn "checking $enfname:\n" if $opt_v;
88			open FILE, $enfname or warn "$enfname: $!\n" and return;
89			while (<FILE>) {
90			if (/<!--\s*\$Id: \S+ (\d+) /) {
91			$enrev = $1;
92			last;
93			}
94			}
95			close FILE;
96			warn "failed to find revision for $plfname\n" unless $plrev;
97			warn "failed to find revision for $enfname\n" unless $enrev;
98			if ($notconverted) {
99			warn "$plfname: converting revision comment\n";
100			warn " document marked 'untranslated'\n";
101			convert($plfname, $plrev);
102			}
103			return ($plrev, $enrev, $untrans);
104			}
105
106			sub checkrev
107			{
108			my ($plfname, $enfname) = (@_);
109			my ($plrev, $enrev, $untrans) = getrev($plfname, $enfname);
110			$plrev and $enrev or return;
111			if ( "$plrev" ne "$enrev" ) {
112			if ($untrans) {
113			print "$enfname : $plrev -> $enrev (untranslated)\n";
114			} else {
115			print "$enfname : $plrev -> $enrev\n";
116			}
117			if ($opt_u) {
118			update($plfname, $plrev, $enrev);
119			print "$plfname : revision updated\n";
120			}
121			}
122			}
123
124			sub process
125			{
126			my $enfname = $File::Find::name;
127			return unless $enfname =~ m/\.xml$/;
128			my $plfname = $enfname;
129			$plfname =~ s,^en/,$lang/,;
130			checkrev($plfname, $enfname);
131			}
132			File::Find::find({ wanted => \&process, no_chdir => 1 }, 'en');
133			checkrev("build/install.$lang.xml", "build/install.en.xml");
134			#checkdiff("release-notes.$lang.sgml","release-notes.sgml");
135			#checkdiff("index.$lang.html.m4","index.en.html.m4");
136			#checkdiff("dselect-beginner.$lang.sgml","dselect-beginner.sgml");