Add error checking when creating output file

diff --git a/bomgen/bomgen.php b/bomgen/bomgen.php
index d38f116..d3055a5 100755 (executable)
--- a/bomgen/bomgen.php
+++ b/bomgen/bomgen.php
@@ -219,6 +219,10 @@ $workbook = new Spreadsheet_Excel_Writer($dest);
 /* Création du worksheet */
 $worksheet =& $workbook->addWorksheet($titre);
 
+if (PEAR::isError($worksheet)) {
+    die($worksheet->getMessage());
+}
+
 /* Importation du BOM CSV. */
 $data = array();
 $row_num = 1;
@@ -416,4 +420,9 @@ xls_configure($workbook, $worksheet);
 
 $workbook->close();
 
+if (!file_exists($dest)) {
+  echo "Cannot create destination file: " . $dest . "\n";
+  exit(1);
+}
+
 ?>