From b1646accb96ca0ec8deb5e3f7dedddadb12f7490 Mon Sep 17 00:00:00 2001
From: David Anderson <dvander@alliedmods.net>
Date: Tue, 11 Nov 2008 01:36:15 -0800
Subject: [PATCH] Attempted to lcase dll dirs in the symstore.
---
tools/buildbot/symstore.pl | 22 ++++++++++++++++++++++
1 file changed, 22 insertions(+)
diff --git a/tools/buildbot/symstore.pl b/tools/buildbot/symstore.pl
index 06404c6d..b1e95eec 100755
--- a/tools/buildbot/symstore.pl
+++ b/tools/buildbot/symstore.pl
@@ -33,6 +33,28 @@ while (<PDBLOG>)
close(PDBLOG);
+#Lowercase DLLs. Sigh.
+my (@files);
+opendir(DIR, "..\\..\\symstore");
+@files = readdir(DIR);
+closedir(DIR);
+
+my ($i, $j, $file, @subdirs);
+for ($i = 0; $i <= $#files; $i++)
+{
+ $file = $files[$i];
+ next unless ($file =~ /\.dll$/);
+ next unless (-d "..\\..\\symstore\\$file");
+ opendir(DIR, "..\\..\\symstore\\$file");
+ @subdirs = readdir(DIR);
+ closedir(DIR);
+ for ($j = 0; $j < $#subdirs; $j++)
+ {
+ next unless ($subdirs[$j] =~ /[A-Z]/);
+ Build::Command("rename ..\\..\\symstore\\$file\\" . $subdirs[$j] . " ..\\..\\symstore\\$file\\" . lc($subdirs[$j]));
+ }
+}
+
#Now that we're done, rsync back.
rsync('../../symstore/', 'sourcemod@alliedmods.net:~/public_html/symbols');