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"; |
|
} |
|
|
|
} |
|
|
|
}
|
|
|