You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
30 lines
438 B
30 lines
438 B
#!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";
|
|
}
|
|
|
|
}
|
|
|
|
}
|