← Back to branch summary

~qbalazs/installation-guide/lp1030336

« back to all changes in this revision

Viewing changes to scripts/rev-update

  • Committer: joeyh
  • Date: 2005-10-07 19:51:38 UTC
  • Revision ID: vcs-imports@canonical.com-20051007195138-c3d57b2617a79a4f
move manual to top-level directory, split out of debian-installer package

Show diffs side-by-side

added added

removed removed

Lines of Context:
scripts/rev-update
 
1
#!/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 (/<!--\s*original version\D*(\d+)\s*-->/) {
 
71
                        $plrev = $1;
 
72
                        last;
 
73
                }
 
74
                if (/<!--\s*original version\D*(\d+)\s*untranslated\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");