Me@0: #!/usr/bin/perl
Me@0: 
Me@0: # recursively goes through directory tree and removes the .svn
Me@0: # dir in each, which removes the code from SVN control
Me@0: 
Me@0: $dirToSearch = `pwd`;
Me@0: @foo = split("\n", $dirToSearch);
Me@0: $dirToSearch = $foo[0];
Me@0: doDir();
Me@0: 
Me@0: # SUBROUTINEs
Me@0: #============================================================
Me@0: 
Me@0: sub doDir
Me@0:  { my @fileNames;
Me@0:    my $dirSearching = $dirToSearch;
Me@0:    print "doing dir: $dirSearching\n";
Me@0:    
Me@0:    $dired = `ls -a $dirSearching`;
Me@0:    @fileNames = split("\n", $dired);
Me@0:    #print "filenames: ";
Me@0:    foreach $fileName (@fileNames)
Me@0:     { #print " $fileName ";
Me@0:       stat "$dirSearching/$fileName";
Me@0:       if( -d "$dirSearching/$fileName" )
Me@0:        { if( $fileName  =~ /\.svn/ ) 
Me@0:           { print "found SVN: $fileName\n";
Me@0:             `rm -Rf $dirSearching/$fileName`;
Me@0:           }
Me@0:          elsif( !( $fileName =~ /\.|\.\./ ) )
Me@0:           { $dirToSearch = "$dirSearching/$fileName";
Me@0:             doDir();
Me@0:           }
Me@0:        }
Me@0:     }
Me@0:  }