[gvg] 18428: Nathan Woods <npwoods@cybercom.net>: - Ros-diffs

13 Oct 2005

Nathan Woods &lt;npwoods(a)cybercom.net&gt;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



    