Changeset 11
- Timestamp:
- 12/09/07 22:06:49 (1 year ago)
- Files:
-
- trunk/ChangeLog (modified) (1 diff)
- trunk/dev-tools/update-loblaw-test.plx (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/ChangeLog
r10 r11 1 1 2007-12-09 Bradley M. Kuhn <bkuhn@softwarefreedom.org> 2 3 * dev-tools/update-loblaw-test.plx (ProcessRevision): Added 'push' 4 at completion. Added check on commit success. 2 5 3 6 * dev-tools/post-hook-loblaw-test-feed.plx: Ported over from export-cal. trunk/dev-tools/update-loblaw-test.plx
r10 r11 98 98 print SENDMAIL ", $user\@softwarefreedom.org" if defined $user; 99 99 print SENDMAIL "\nFrom: root\@softwarefreedom.org\n", 100 "Subject: CAL,COMMIT_HOOK\n\n$message\n.\n";100 "Subject: LOBLAW,COMMIT_HOOK\n\n$message\n.\n"; 101 101 close(SENDMAIL); 102 102 if ($? != 0) { … … 287 287 # HG process will read this var. 288 288 $ENV{EMAIL} = 'svn@softwarefreedom.org'; 289 my $commitDone = 0; 289 290 290 291 foreach my $vals (@operateOnFiles) { … … 330 331 } 331 332 $tempFH->close(); 332 read_from_process($HG, '-l', $tempFile, 'commit',333 "$LOBLAW_TEST_HG_CHECKOUT/$file");333 my @vals = read_from_process($HG, '-l', $tempFile, 'commit', 334 "$LOBLAW_TEST_HG_CHECKOUT/$file"); 334 335 unlink($tempFile); 336 DieLog("Unexpected output from commit: " . join("\n", @vals), 337 $LOCK_CLEANUP_CODE) if (@vals > 0); 338 $commitDone = 1; 335 339 } else { 336 340 DieLog("Invalid svnlook status, $operation, in $changeLine", 337 341 $LOCK_CLEANUP_CODE); 338 342 } 343 read_from_process($HG, 'push') if $commitDone; 339 344 } 340 345 &$LOCK_CLEANUP_CODE;