[Freeswitch-svn] [commit] r5127 - freeswitch/trunk/build

[Freeswitch SVN]

Author: anthm
Date: Thu May 10 14:23:56 2007
New Revision: 5127

Added:
   freeswitch/trunk/build/ignore_helper.pl

Log:
add ignore_helper.pl

Added: freeswitch/trunk/build/ignore_helper.pl
==============================================================================
--- (empty file)
+++ freeswitch/trunk/build/ignore_helper.pl	Thu May 10 14:23:56 2007
@@ -0,0 +1,74 @@
+################################################################################
+# ignore_helper.pl
+# Copyright (c) 2007 Anthony Minessale II <anthmct at yahoo.com>
+# 
+# Permission is hereby granted, free of charge, to any person
+# obtaining a copy of this software and associated documentation
+# files (the "Software"), to deal in the Software without
+# restriction, including without limitation the rights to use,
+# copy, modify, merge, publish, distribute, sublicense, and/or sell
+# copies of the Software, and to permit persons to whom the
+# Software is furnished to do so, subject to the following
+# conditions:
+# 
+# The above copyright notice and this permission notice shall be
+# included in all copies or substantial portions of the Software.
+# 
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+# OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+# HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+# WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+# OTHER DEALINGS IN THE SOFTWARE.
+# 
+# Usage: cat <file with list of things to ignore (full path from trunk root) > | ignore_helper.pl
+#
+################################################################################
+
+while (<>) {
+  my $path = $_;
+  my ($dir, $file) = $path =~ /(.*)\/([^\/]+)$/;
+  if (!$dir) {
+    $dir = ".";
+    $file = $path;
+  }
+
+  my $props = $PROP_HASH{$dir};
+  if (!$props) {
+    my @prop_tmp = `svn propget svn:ignore $dir`;
+    my @prop_tmp2;
+    foreach (@prop_tmp) {
+      $_ =~ s/[\r\n]//g;
+      if ($_) {
+	push @prop_tmp2, $_;
+      }
+    }
+    $props = \@prop_tmp2;
+      
+    $PROP_HASH{$dir} = $props;
+  }
+  if ($props) {
+    push @{$props}, "$file";
+  }
+}
+
+foreach (keys %PROP_HASH) {
+  my $dir = $_;
+  my @list = @{$PROP_HASH{$dir}};
+  my $path = $dir;
+  $path =~ s/\//_/g;
+  $path = "/tmp/$path.tmp";
+
+  print "Setting Properties on $dir\n";
+  
+  open O, ">$path";
+  foreach (@list) {
+    print O "$_\n";
+  }
+  close O;
+  my $cmd = "svn propset svn:ignore -F $path $dir";
+  system($cmd);
+  unlink($path);
+}