equal
deleted
inserted
replaced
88 #} |
88 #} |
89 |
89 |
90 my $sWORKING_DRIVE = find_working_drive(); |
90 my $sWORKING_DRIVE = find_working_drive(); |
91 print "Will use drive $sWORKING_DRIVE as working drive for this build\n"; |
91 print "Will use drive $sWORKING_DRIVE as working drive for this build\n"; |
92 |
92 |
93 if ($bHudson) |
|
94 { |
|
95 my $nProcessors = $ENV{'NUMBER_OF_PROCESSORS'}; |
|
96 my $diroutput = `dir /-C $sWORKING_DRIVE`; |
|
97 my $nBytesFree = 0; |
|
98 $nBytesFree = $1 if ($diroutput =~ /(\d+) bytes free/); |
|
99 my $nNeededSpace = 10*$nProcessors*1073741824; |
|
100 #print "Needed space is $nNeededSpace\n"; |
|
101 if ($nBytesFree < $nNeededSpace) |
|
102 { |
|
103 print "ERROR: Available disk space on working drive ($nBytesFree bytes) is not enough to run a package build with Hudson.\n"; |
|
104 exit(1); |
|
105 } |
|
106 } |
|
107 |
|
108 my $sFbfProjectRev = ''; |
93 my $sFbfProjectRev = ''; |
109 if ($sFbfProjectRepo =~ m,(.*)#(.*),) |
94 if ($sFbfProjectRepo =~ m,(.*)#(.*),) |
110 { |
95 { |
111 $sFbfProjectRepo = $1; |
96 $sFbfProjectRepo = $1; |
112 $sFbfProjectRev = $2; |
97 $sFbfProjectRev = $2; |