13 Oct
2005
13 Oct
'05
3:45 p.m.
Nathan Woods <npwoods(a)cybercom.net>et>:
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