devtools/mat_check.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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";
		  }

	  }

  }