Changeset 265 for branches

Timestamp:

07/15/05 16:34:02 (19 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Bugfix; allow the real error message to actually show up for
errors adding a master block.

File:

• branches/stable/cgi-bin/main.cgi (modified) (1 diff)

branches/stable/cgi-bin/main.cgi

@@ -112 +112 @@
 
     if ($@) {
-      carp "Transaction aborted because $@";
+      my $msg = $@;
+      carp "Transaction aborted because $msg";
       eval { $ip_dbh->rollback; };
-      syslog "err", "Could not add master block '$webvar{cidr}' to database: '$@'";
-      printError("Could not add master block $webvar{cidr} to database: $@");
+      syslog "err", "Could not add master block '$webvar{cidr}' to database: '$msg'";
+      printError("Could not add master block $webvar{cidr} to database: $msg");
     } else {
       print "<div type=heading align=center>Success!</div>\n";