reactos/web
1
0
Fork 0
mirror of https://github.com/reactos/web.git synced 2024-11-30 07:00:35 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Nathan Woods <npwoods@cybercom.net>:

Browse Source 
Resource translation status script

svn path=/trunk/; revision=22
This commit is contained in:
Gé van Geldorp 2005-10-13 15:45:27 +00:00
commit df711a2047
3 changed files with 99 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

85
web/reactos.org/scripts/RosResCheck.pl Executable file
View File

@ -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";

7
web/reactos.org/scripts/daily.sh Executable file
View File

@ -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

7
web/reactos.org/scripts/update_source.sh Executable file
View File

@ -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