Index: trunk/cgi-bin/main.cgi
===================================================================
--- trunk/cgi-bin/main.cgi	(revision 46)
+++ trunk/cgi-bin/main.cgi	(revision 47)
@@ -139,5 +139,5 @@
     eval { $ip_dbh->rollback; };
     syslog "err", "Could not add master block '$webvar{cidr}' to database: '$@'";
-    printAndExit("Could not add master block $webvar{cidr} to database");
+    printAndExit("Could not add master block $webvar{cidr} to database: $@");
   }
 
@@ -984,7 +984,7 @@
     $sth->execute;
     if ($sth->err) {
-      printAndExit("Allocation of $cidr to $webvar{custid} failed: '".$sth->errstr."'");
       syslog "err", "Allocation of $cidr to $webvar{custid} by $authuser failed: ".
 	"'".$sth->errstr."'";
+      printAndExit("Allocation of $cidr to $webvar{custid} failed: '".$sth->errstr."'");
     }
     print qq(<div class="center"><div class="heading">The IP $cidr has been allocated to customer $webvar{custid}</div></div>);
@@ -1169,5 +1169,6 @@
       if ($webvar{city} !~ /^(?:Huntsville|North Bay|Ottawa|Pembroke|Sault Ste. Marie|Sudbury|Timmins|Thunder Bay|Toronto)$/) {
 	printAndExit("Please choose a valid POP location for a routed netblock.  Valid ".
-		"POP locations are currently:<br>\n Huntsville - North Bay - Ottawa -". 
+		"POP locations are currently:<br>\n Elliot Lake - Huntsville - North Bay -".
+		" Ottawa -". 
 		" Pembroke - Sault Ste. Marie - Sudbury - Timmins - Thunder Bay - Toronto");
       }
@@ -1285,5 +1286,5 @@
     eval { $ip_dbh->rollback; };
     syslog "err", "$authuser could not update block/IP '$webvar{block}': '$@'";
-    printAndExit("Could not update block/IP $webvar{block}");
+    printAndExit("Could not update block/IP $webvar{block}: $@");
   }
 
@@ -1424,5 +1425,5 @@
       eval { $ip_dbh->rollback; };
       syslog "err", "$authuser could not deallocate static IP '$webvar{block}': '$@'";
-      printAndExit("Could not deallocate static IP $webvar{block}");
+      printAndExit("Could not deallocate static IP $webvar{block}: $@");
     }
     print "<div class=heading align=center>Success!  $webvar{block} deallocated.</div>\n";
@@ -1442,5 +1443,5 @@
       eval { $ip_dbh->rollback; };
       syslog "err", "$authuser could not remove master block '$webvar{block}': '$@'";
-      printAndExit("Could not remove master block $webvar{block}");
+      printAndExit("Could not remove master block $webvar{block}: $@");
     }
     print "<div class=heading align=center>Success!  Master $webvar{block} removed.</div>\n";
@@ -1538,5 +1539,5 @@
       eval { $ip_dbh->rollback; };
       syslog "err", "$authuser could not deallocate netblock '$webvar{block}': '$@'";
-      printAndExit("Could not deallocate netblock $webvar{block}");
+      printAndExit("Could not deallocate netblock $webvar{block}: $@");
     }
     print "<div class=heading align=center>Success!  $webvar{block} deleted.</div>\n";