Fix REMOTE_LOG_ARCHIVE path string (missing a backslash. Add some debug lines
authorDario Sestito <darios@symbian.org>
Mon, 10 Aug 2009 18:40:00 +0100
changeset 43 42877cd4d8be
parent 42 71a252d194e6
child 44 1caba2ed8b35
Fix REMOTE_LOG_ARCHIVE path string (missing a backslash. Add some debug lines
build_package.pl
--- a/build_package.pl	Mon Aug 10 18:28:49 2009 +0100
+++ b/build_package.pl	Mon Aug 10 18:40:00 2009 +0100
@@ -22,7 +22,7 @@
 my $sJOB_BASE_DIR="fbf_project";
 my $nMAX_JOBDIR_AGE_SECONDS = 86400; # max number of seconds after which the letter is forcibly released
 my $nLOCK_FILE_MAX_ATTEMPTS = 5;
-my $sREMOTE_LOG_ARCHIVE="\\\\bishare\SF_builds";
+my $sREMOTE_LOG_ARCHIVE="\\\\bishare\\SF_builds";
 my $sNUMBERS_FILE="\\\\bishare\\SF_builds\\numbers2.txt";
 my $sLETTERS_FILE="letters.txt";
 my $nMAX_LETTER_AGE_SECONDS = 86400; # max number of seconds after which the letter is forcibly released
@@ -269,6 +269,7 @@
 # copy console outputs to remote log archive
 if (-d "$sREMOTE_LOG_ARCHIVE\\$sPackage\\builds\\$sPlatform\\$sPackage\_$sPlatform.$nJobNumber\\logs")
 {
+	print "copying console output files to $sTgtDir\n";
 	my $sTgtDir = "$sREMOTE_LOG_ARCHIVE\\$sPackage\\builds\\$sPlatform\\$sPackage\_$sPlatform.$nJobNumber\\logs\\console";
 	system("mkdir $sTgtDir");
 	system("copy /Y $sBOOTSTRAP_DIR\\console_bootstrap_$$.txt $sTgtDir");
@@ -276,6 +277,10 @@
 	system("copy $sJobDir\\sf-config\\console_sfprep_$$.txt $sTgtDir");
 	system("copy $sJobDir\\sf-config\\console_sfbuildall_$$.txt $sTgtDir");
 }
+else
+{
+	print "directory $sREMOTE_LOG_ARCHIVE\\$sPackage\\builds\\$sPlatform\\$sPackage\_$sPlatform.$nJobNumber\\logs doesn't exist.\n";
+}
 
 print("cd $sBOOTSTRAP_DIR\n");
 chdir("$sBOOTSTRAP_DIR");