#! /usr/bin/env perl
# $Id: svn.template 2232 2008-07-18 21:46:39Z jnieuwen $
# $URL: svn+ssh://hermod.jeroen.se./var/svn/jnieuwen/files/trunk/t/templates/svn.template $
# $Author: jnieuwen $
# $Date: 2008-07-18 23:46:39 +0200 (Fri, 18 Jul 2008) $
# $Rev: 2232 $


while (my $file = shift @ARGV) {

	my $isdos = 0 ;
	open(FILE,$file) ;

	while (my $line=<FILE>) {
		$isdos = 1 if ($line =~ /\r\n/) ;
	}
	close FILE ;

	print "$file is in dos format\n" if ($isdos) ;
}