#!/usr/bin/perl -w
# (c) Copyright 2002, 2003 Stichting Wireless Leiden, all
#     rights reserved. More information can be found on
#     http://wwww.wirelessleiden.nl and the license is at:
#     http://wleiden.webweaving.org:8080/svn/node-config/LICENSE
#
use strict;
# svn:ignore is a newline seperated list of patterns to ignore - try specifying that in the shell :)
do {
	open(STDIN,$ARGV[0]) if $#ARGV>=0;
	my @ignore = (<STDIN>);
	chomp @ignore;
	my $ignore = join "\n", @ignore;
	system qq{svn ps svn:ignore "$ignore" .};
	shift @ARGV;
} while $#ARGV>=0;