Index: trunk/tools/file-case.bat
===================================================================
--- trunk/tools/file-case.bat	(revision 757)
+++ trunk/tools/file-case.bat	(revision 757)
@@ -0,0 +1,1 @@
+dir /b /s ..\asma\*.sap | perl file-case.pl
Index: trunk/tools/file-case.pl
===================================================================
--- trunk/tools/file-case.pl	(revision 757)
+++ trunk/tools/file-case.pl	(revision 757)
@@ -0,0 +1,16 @@
+my %f;
+while (<>) {
+	s/^.+\\asma\\// or die $_;
+	y!\\\r\n!/!d;
+	$f{$_}++;
+}
+open F, '../asma/new.m3u' or die;
+while (<F>) {
+	y/\r\n//d;
+	$f{$_} or print "new.m3u: $_\n";
+}
+open F, '../asma/Docs/STIL.txt' or die;
+while (<F>) {
+	y/\r\n//d;
+	$f{$_} or print "STIL.txt: $_\n" if s!^/!!;
+}