blob: 89d1765b068ed288d5b2fc20ada2a121454130a0 (
plain) (
blame)
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
sub CreateFile
{
local( $filename ) = shift;
local( *FILE );
open FILE, ">$filename";
close FILE;
}
sub ProcessFile
{
local( $filename ) = shift;
local( @fileContents );
# print "$filename\n";
if( $filename =~ /\.vtf/i )
{
return if( $filename =~ /_normal/i );
return if( $filename =~ /_dudv/i );
local( $cmd ) = "..\\..\\..\\bin\\vtfscrew \"$filename\" $r $g $b";
print $cmd . "\n";
system $cmd;
}
}
sub ProcessFileOrDirectory
{
local( $name ) = shift;
# If the file has "." at the end, skip it.
if( $name eq "." || $name eq ".." || $name =~ /\.$/ )
{
# print "skipping: $name\n";
return;
}
# Figure out if it's a file or a directory.
if( -d $name )
{
local( *SRCDIR );
# print "$name is a directory\n";
opendir SRCDIR, $name;
local( @dir ) = readdir SRCDIR;
closedir SRCDIR;
local( $item );
while( $item = shift @dir )
{
&ProcessFileOrDirectory( $name . "/" . $item );
}
}
elsif( -f $name )
{
&ProcessFile( $name );
}
else
{
print "$name is neither a file or a directory\n";
}
return;
}
$baseDirectory = shift;
$r = shift;
$g = shift;
$b = shift;
if( !$baseDirectory )
{
die "Usage: createvmt.pl baseDir";
}
print "baseDirectory = \"$baseDirectory\"\n";
opendir SRCDIR, $baseDirectory;
@dir = readdir SRCDIR;
closedir SRCDIR;
while( $item = shift @dir )
{
&ProcessFileOrDirectory( "$baseDirectory/$item" );
}
|