1 files changed, 30 insertions, 0 deletions
diff --git a/devtools/mat_check.pl b/devtools/mat_check.pl
new file mode 100644
index 0000000..acf71c2
--- /dev/null
+++ b/devtools/mat_check.pl
@@ -0,0 +1,30 @@
+#!perl
+
+while(<>)
+  {
+	s/[\n\r]//g;
+	s@\\@/@g;
+	if (/\.vtf$/)
+	  {
+		$origname=$_;
+		if (s@/game/(\S+)/materials/@/content/\1/materialsrc/@i)
+		  {
+			s/\.vtf$/.tga/i;
+			unless (-e $_)
+			  {
+				print "Missing :$_ \n    for $origname\n";
+			  }
+			else
+			  {
+				#print "***found content $_ for $origname\n";
+			  }
+
+		  }
+		else
+		  {
+			print "I don't know where the materialsrc for $origname is supposed to be!\n";
+		  }
+
+	  }
+
+  }