[gedmurphy] 28101: fix the audit script to check for svn:needs-lock instead of checking for files locked on the server

Author: gedmurphy
Date: Thu Aug  2 14:32:24 2007
New Revision: 28101

URL: http://svn.reactos.org/svn/reactos?rev=28101&view=rev
Log:
fix the audit script to check for svn:needs-lock instead of checking for files locked on the server

Modified:
    trunk/web/reactos.org/scripts/audit_progress.pl

Modified: trunk/web/reactos.org/scripts/audit_progress.pl
URL: http://svn.reactos.org/svn/reactos/trunk/web/reactos.org/scripts/audit_progr...
==============================================================================
--- trunk/web/reactos.org/scripts/audit_progress.pl (original)
+++ trunk/web/reactos.org/scripts/audit_progress.pl Thu Aug  2 14:32:24 2007
@@ -18,15 +18,14 @@
 open HTML, "> $out_file"
     or die "couldn't open $out_file for writing: $!\n";

-my @files = `svn ls -v -R $in_path`;
+my @files = `svn ls -R $in_path`;

foreach (@files) {
     next if //$/;
     $total_files++;
-    my @fields = split /\s+/;
-    if( $fields[3] eq 'O' ) {
+    if(`svn propget svn:needs-lock -R $_`) {
         $unclean_files++;
-        push @locked_files, "$fields[-1]\n";
+        push @locked_files, "$_";
     }
 }