Author: joeyh
Date: 2005-08-28 15:31:24 +0000 (Sun, 28 Aug 2005)
New Revision: 1693
Modified:
bin/dtsasync
Log:
output improvements
Modified: bin/dtsasync
==================================================================---
bin/dtsasync 2005-08-28 15:29:17 UTC (rev 1692)
+++ bin/dtsasync 2005-08-28 15:31:24 UTC (rev 1693)
@@ -22,7 +22,7 @@
chomp;
push @ret, $_;
}
- close KID || print "madison exited nonzero while getting $suite
$package\n";
+ close KID;
}
else {
exec "madison", "-s", $suite, "-f",
"heidi", "-S", $package
@@ -79,8 +79,10 @@
next;
}
+ print "Syncing these:";
open(HEIDI, "| $heidicmd") || print "$heidicmd
failed!\n";
foreach (@toheidi) {
+ print "$_\n";
print HEIDI "$_\n";
}
close HEIDI || print "$heidicmd exited nonzero!\n";