Changeset 285

Timestamp:

Mar 9, 2009, 5:25:23 PM (16 years ago)

Author:

joergs

Message:

remove unknown files

File:

• trunk/dasscm/dasscm (modified) (2 diffs)

trunk/dasscm/dasscm

@@ -580 +580 @@
 }
 
+sub svn_remove_unknown_files( ;$ )
+{
+    my $path = shift || $DASSCM_REPO;
+
+    ( my $rc_update, my @result ) = run_command("$SVN status '$path'" );
+
+    if ( $rc_update != 0 ) {
+        print "\n", @result;
+        error("failed to receive subversion repository information");
+    } else {
+        foreach (@result) { 
+            if( s/^\? +// ) {
+                chomp;
+                # if file is unknown to subversion (line starts with "?")
+                # remove it
+                print "removing $_\n";
+                unlink( $_ );
+            }
+        }
+    }
+}
+
 sub getModifiedFiles( ;$ )
 {
@@ -1176 +1198 @@
 
     svn_revert($DASSCM_REPO);
+    svn_remove_unknown_files($DASSCM_REPO);
 }