Integrate translation check script into website Modified: trunk/web/reactos.org/scripts/RosResCheck.pl _____
Modified: trunk/web/reactos.org/scripts/RosResCheck.pl --- trunk/web/reactos.org/scripts/RosResCheck.pl 2005-10-13 15:45:27 UTC (rev 18428) +++ trunk/web/reactos.org/scripts/RosResCheck.pl 2005-10-13 15:46:32 UTC (rev 18429) @@ -46,7 +46,7 @@
my $path = "$dir/$file"; $path =~ s/^.///;
- my $url = "http://svn.reactos.com/viewcvs/trunk/reactos/$path"; + my $url = "http://svn.reactos.org/viewcvs/trunk/reactos/$path"; print "<tr>\n"; print "<td><a href='$url'>$path</a></td>\n"; @@ -64,22 +64,49 @@ } }
-print "<html>\n"; -print "<head>\n"; -print "<title>Resources to update</title>\n"; -print "</head>\n"; +sub generate_content +{ + print '<h1><a href="http://www.reactos.org/xhtml/en/dev.html">'; + print "ReactOS Development</a> > Resource translation status</h1>\n"; + print "<h2>Resource translation status</h2>\n";
-print "<body>\n"; -print "<table border='1'>\n"; + open(SVNINVOKE, "svn info . |"); + my @props = <SVNINVOKE>; + close(SVNINVOKE); + + print "<h3>Last update: "; + system "date"; + # pick out the appropriate property + my ($propline) = grep { $_ =~ /Last Changed Rev: / } @props; + if ($propline =~ /Last Changed Rev: (\d+)/) + { + print " (revision $1)"; + } + print "</h3>\n"; + + print "<table border='1'>\n"; + + print "<tr>\n"; + print "<td>File</td>\n"; + print "<td>Rev</td>\n"; + print "<td>En.rc Rev</td>\n"; + print "</tr>\n"; + + check_dir('.'); +}
-print "<tr>\n"; -print "<td>File</td>\n"; -print "<td>Rev</td>\n"; -print "<td>En.rc Rev</td>\n"; -print "</tr>\n"; - -check_dir('.'); - -print "</table>\n"; -print "</body>\n"; -print "</html>\n"; +open(TEMPLATE, '../../htdocs/xhtml/en/dev_template.html' ); +while (<TEMPLATE>) +{ + s/Template title/Resource translation status/; +# s/^//extramessage$/$extramessage/; + if ($_ =~ '<!-- Replace this by the real content -->') + { + generate_content(); + } + else + { + print "$_"; + } +} +close(TEMPLATE);
-
gvg＠svn.reactos.com