Mercurial > cgi-bin > hgwebdir.cgi > VMS > 2__runs_and_data

annotate scripts/remove_svn.pl @ 25:078abaff1bc3

find changesets by author, revision, files, or words in the commit message
VSs SCG ver
author Nina Engelhardt <nengel@mailbox.tu-berlin.de>
date Tue, 28 Aug 2012 13:34:25 +0200
parents
children
rev   line source
Me@0 1 #!/usr/bin/perl
Me@0 2
Me@0 3 # recursively goes through directory tree and removes the .svn
Me@0 4 # dir in each, which removes the code from SVN control
Me@0 5
Me@0 6 $dirToSearch = `pwd`;
Me@0 7 @foo = split("\n", $dirToSearch);
Me@0 8 $dirToSearch = $foo[0];
Me@0 9 doDir();
Me@0 10
Me@0 11 # SUBROUTINEs
Me@0 12 #============================================================
Me@0 13
Me@0 14 sub doDir
Me@0 15 { my @fileNames;
Me@0 16 my $dirSearching = $dirToSearch;
Me@0 17 print "doing dir: $dirSearching\n";
Me@0 18
Me@0 19 $dired = `ls -a $dirSearching`;
Me@0 20 @fileNames = split("\n", $dired);
Me@0 21 #print "filenames: ";
Me@0 22 foreach $fileName (@fileNames)
Me@0 23 { #print " $fileName ";
Me@0 24 stat "$dirSearching/$fileName";
Me@0 25 if( -d "$dirSearching/$fileName" )
Me@0 26 { if( $fileName =~ /\.svn/ )
Me@0 27 { print "found SVN: $fileName\n";
Me@0 28 `rm -Rf $dirSearching/$fileName`;
Me@0 29 }
Me@0 30 elsif( !( $fileName =~ /\.|\.\./ ) )
Me@0 31 { $dirToSearch = "$dirSearching/$fileName";
Me@0 32 doDir();
Me@0 33 }
Me@0 34 }
Me@0 35 }
Me@0 36 }