This commit is contained in:
Nicholas Hastings 2011-04-15 00:42:53 -04:00
commit 2e6ee42d9c
2 changed files with 7 additions and 20 deletions

View File

@ -3,4 +3,5 @@ Burgledorfs and blaggermuffins are among the king's favorites.
Ten ticket takers tackled two terrible tyrants. Ten ticket takers tackled two terrible tyrants.
Oh Valve. Oh Valve.
Bleh. Bleh.
llllamas
hi hi

View File

@ -10,13 +10,8 @@ require 'helpers.pm';
chdir('..'); chdir('..');
chdir('..'); chdir('..');
our $SSH = 'ssh -i ../../mmspvkey';
open(PDBLOG, '../OUTPUT/pdblog.txt') or die "Could not open pdblog.txt: $!\n"; open(PDBLOG, '../OUTPUT/pdblog.txt') or die "Could not open pdblog.txt: $!\n";
#Sync us up with the main symbol store
rsync('sourcemm@alliedmods.net:~/public_html/symbols/', '..\\..\\symstore');
#Get version info #Get version info
my ($version); my ($version);
$version = Build::ProductVersion(Build::PathFormat('product.version')); $version = Build::ProductVersion(Build::PathFormat('product.version'));
@ -41,14 +36,14 @@ while (<PDBLOG>)
$line = $_; $line = $_;
$line =~ s/\.pdb/\*/; $line =~ s/\.pdb/\*/;
chomp $line; chomp $line;
Build::Command("symstore add /r /f \"..\\OUTPUT\\$line\" /s ..\\..\\symstore /t \"Metamod:Source\" /v \"$version\" /c \"$build_type\""); Build::Command("symstore add /r /f \"..\\OUTPUT\\$line\" /s \"S:\\mmsource\" /t \"Metamod:Source\" /v \"$version\" /c \"$build_type\"");
} }
close(PDBLOG); close(PDBLOG);
#Lowercase DLLs. Sigh. #Lowercase DLLs. Sigh.
my (@files); my (@files);
opendir(DIR, "..\\..\\symstore"); opendir(DIR, "S:\\mmsource");
@files = readdir(DIR); @files = readdir(DIR);
closedir(DIR); closedir(DIR);
@ -57,23 +52,14 @@ for ($i = 0; $i <= $#files; $i++)
{ {
$file = $files[$i]; $file = $files[$i];
next unless ($file =~ /\.dll$/); next unless ($file =~ /\.dll$/);
next unless (-d "..\\..\\symstore\\$file"); next unless (-d "S:\\mmsource\\$file");
opendir(DIR, "..\\..\\symstore\\$file"); opendir(DIR, "S:\\mmsource\\$file");
@subdirs = readdir(DIR); @subdirs = readdir(DIR);
closedir(DIR); closedir(DIR);
for ($j = 0; $j <= $#subdirs; $j++) for ($j = 0; $j <= $#subdirs; $j++)
{ {
next unless ($subdirs[$j] =~ /[A-Z]/); next unless ($subdirs[$j] =~ /[A-Z]/);
Build::Command("rename ..\\..\\symstore\\$file\\" . $subdirs[$j] . " " . lc($subdirs[$j])); Build::Command("rename S:\\mmsource\\$file\\" . $subdirs[$j] . " " . lc($subdirs[$j]));
} }
} }
#Now that we're done, rsync back.
rsync('../../symstore/', 'sourcemm@alliedmods.net:~/public_html/symbols');
sub rsync
{
my ($from, $to) = (@_);
Build::Command('rsync -av --delete -e="' . $SSH . '" ' . $from . ' ' . $to);
}