Nathan Woods npwoods@cybercom.net: Resource translation status script Added: trunk/web/ Added: trunk/web/reactos.org/ Added: trunk/web/reactos.org/scripts/ Added: trunk/web/reactos.org/scripts/RosResCheck.pl Added: trunk/web/reactos.org/scripts/daily.sh Added: trunk/web/reactos.org/scripts/update_source.sh _____
Added: trunk/web/reactos.org/scripts/RosResCheck.pl --- trunk/web/reactos.org/scripts/RosResCheck.pl 2005-10-13 12:44:58 UTC (rev 18427) +++ trunk/web/reactos.org/scripts/RosResCheck.pl 2005-10-13 15:45:27 UTC (rev 18428) @@ -0,0 +1,85 @@
+ + +sub check_dir +{ + my $dir = shift; + opendir(DIR, $dir); + my @files = readdir(DIR); + closedir(DIR); + + my %resrevs = {}; + my @subdirs = (); + + foreach my $file (@files) + { + if ((-f "$dir/$file") && ($file =~ /^[A-Za-z][A-Za-z].rc$/)) + { + # invoke Subversion to figure out info on this file + open(SVNINVOKE, "svn info $dir/$file |"); + my @props = <SVNINVOKE>; + close(SVNINVOKE); + + # pick out the appropriate property + my ($propline) = grep { $_ =~ /Last Changed Rev: / } @props; + if ($propline =~ /Last Changed Rev: (\d+)/) + { + my $rev = $1; + $resrevs{$file} = $rev; + } + } + elsif ((-d "$dir/$file") && !($file =~ /^./)) + { + # found a subdirectory + push @subdirs, "$dir/$file"; + } + } + + # list all files older than En.rc + my $en_rev = $resrevs{'En.rc'}; + if ($en_rev > 0) + { + foreach my $file (keys(%resrevs)) + { + my $this_rev = $resrevs{$file}; + if (($this_rev < $en_rev) && ($this_rev > 0)) + { + my $path = "$dir/$file"; + $path =~ s/^.///; + + my $url = "http://svn.reactos.com/viewcvs/trunk/reactos/$path"; + + print "<tr>\n"; + print "<td><a href='$url'>$path</a></td>\n"; + print "<td>$this_rev</td>\n"; + print "<td>$en_rev</td>\n"; + print "</tr>\n"; + } + } + } + + # recurse into subdirectories + foreach my $dir (@subdirs) + { + &check_dir($dir); + } +} + +print "<html>\n"; +print "<head>\n"; +print "<title>Resources to update</title>\n"; +print "</head>\n"; + +print "<body>\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 "</table>\n"; +print "</body>\n"; +print "</html>\n"; Property changes on: trunk/web/reactos.org/scripts/RosResCheck.pl ___________________________________________________________________ Name: svn:executable + * Name: svn:eol-style + native _____
Added: trunk/web/reactos.org/scripts/daily.sh --- trunk/web/reactos.org/scripts/daily.sh 2005-10-13 12:44:58 UTC (rev 18427) +++ trunk/web/reactos.org/scripts/daily.sh 2005-10-13 15:45:27 UTC (rev 18428) @@ -0,0 +1,7 @@
+#!/bin/sh + +cd /web/reactos.org/scripts + +./update_source.sh +cd ../source/reactos +perl ../../scripts/RosResCheck.pl > ../../htdocs/generated/transstatus.html Property changes on: trunk/web/reactos.org/scripts/daily.sh ___________________________________________________________________ Name: svn:executable + * Name: svn:eol-style + native _____
Added: trunk/web/reactos.org/scripts/update_source.sh --- trunk/web/reactos.org/scripts/update_source.sh 2005-10-13 12:44:58 UTC (rev 18427) +++ trunk/web/reactos.org/scripts/update_source.sh 2005-10-13 15:45:27 UTC (rev 18428) @@ -0,0 +1,7 @@
+#!/bin/sh + +PATH=/bin:/usr/bin:/usr/local/bin +SRCDIR=../source/reactos + +cd $SRCDIR +svn -q update > /dev/null 2>&1 Property changes on: trunk/web/reactos.org/scripts/update_source.sh ___________________________________________________________________ Name: svn:executable + * Name: svn:eol-style + native