dvander@2267: #!/usr/bin/perl
dvander@2267: 
dvander@2267: use File::Basename;
dvander@2267: 
dvander@2267: my ($myself, $path) = fileparse($0);
dvander@2267: chdir($path);
dvander@2267: 
dvander@2267: require 'helpers.pm';
dvander@2267: 
dvander@2267: chdir('..');
dvander@2267: chdir('..');
dvander@2267: 
dvander@2267: our $SSH = 'ssh -i ../../smpvkey';
dvander@2267: 
dvander@2267: open(PDBLOG, 'OUTPUT/pdblog.txt') or die "Could not open pdblog.txt: $!\n";
dvander@2267: 
dvander@2267: #Sync us up with the main symbol store
dvander@2267: rsync('sourcemod@alliedmods.net:~/public_html/symbols/', '..\\..\\symstore');
dvander@2267: 
dvander@2267: #Get version info
dvander@2267: my ($version);
dvander@2267: $version = Build::ProductVersion(Build::PathFormat('product.version'));
dvander@2292: $version .= '-hg' . Build::HgRevNum('.');
dvander@2267: 
dvander@2267: my ($line);
dvander@2267: while (<PDBLOG>)
dvander@2267: {
dvander@2267: 	$line = $_;
dvander@2267: 	$line =~ s/\.pdb/\*/;
dvander@2267: 	chomp $line;
dvander@2267: 	Build::Command("symstore add /r /f \"$line\" /s ..\\..\\symstore /t \"SourceMod\" /v \"$version\" /c \"buildbot\"");
dvander@2267: }
dvander@2267: 
dvander@2267: close(PDBLOG);
dvander@2267: 
dvander@2393: #Lowercase DLLs.  Sigh.
dvander@2393: my (@files);
dvander@2393: opendir(DIR, "..\\..\\symstore");
dvander@2393: @files = readdir(DIR);
dvander@2393: closedir(DIR);
dvander@2393: 
dvander@2393: my ($i, $j, $file, @subdirs);
dvander@2393: for ($i = 0; $i <= $#files; $i++)
dvander@2393: {
dvander@2393: 	$file = $files[$i];
dvander@2393: 	next unless ($file =~ /\.dll$/);
dvander@2393: 	next unless (-d "..\\..\\symstore\\$file");
dvander@2393: 	opendir(DIR, "..\\..\\symstore\\$file");
dvander@2393: 	@subdirs = readdir(DIR);
dvander@2393: 	closedir(DIR);
dvander@2395: 	for ($j = 0; $j <= $#subdirs; $j++)
dvander@2393: 	{
dvander@2393: 		next unless ($subdirs[$j] =~ /[A-Z]/);
dvander@2395: 		Build::Command("rename ..\\..\\symstore\\$file\\" . $subdirs[$j] . " " . lc($subdirs[$j]));
dvander@2393: 	}	
dvander@2393: }
dvander@2393: 
dvander@2267: #Now that we're done, rsync back.
dvander@2268: rsync('../../symstore/', 'sourcemod@alliedmods.net:~/public_html/symbols');
dvander@2267: 
dvander@2267: sub rsync
dvander@2267: {
dvander@2267: 	my ($from, $to) = (@_);
dvander@2267: 	
dvander@2267: 	Build::Command('rsync -av --delete -e="' . $SSH . '" ' . $from . ' ' . $to);
dvander@2267: }