added custom toolbar to display_problems_html()

diff --git a/src/lib/Spong/Host.pm b/src/lib/Spong/Host.pm
index 558c909fd20abb2f2a3fb131c56064d9169f17d8..7d1f050a25767bcfe2d2cf59c28b00b3a5b2a6b5 100755 (executable)
--- a/src/lib/Spong/Host.pm
+++ b/src/lib/Spong/Host.pm
@@ -335,11 +335,25 @@ sub display_problem_html {
       print POSIX::strftime( "%H:%M, %D", localtime($time) ), "<br>\n";
    }
    
-   print "$spacer contact: ";
-   print "<a href=\"$main::WWWCONTACT?host=$name&message=$message\">";
-   print "$human</a><p>\n";
-}
+   if ( $main::WWWCONTACT ) {
+      print "$spacer contact: ";
+      print "<a href=\"$main::WWWCONTACT?host=$name&message=$message\">";
+      print "$human</a>\n";
+   }
 
+   if ( $main::WWW_PROB_ACTIONBAR ) {
+      my($text) = eval '"' . $main::WWW_ACTIONBAR_CUSTOM . '"';
+      if ($@) { 
+         &main::error("add_action_bar: $@");
+         &main::error($main::WWW_ACTIONBAR_CUSTOM);
+      } else {
+         print "$spacer $text<br>\n";
+      }
+   }
+
+
+   print "<p>\n"; 
+}
 
 
 # Returns the name (or a string indicating there are multiple problems), the
@@ -416,7 +430,12 @@ sub add_action_bar {
    
    if ($main::WWW_ACTIONBAR_CUSTOM) {
       my($text) = eval '"' . $main::WWW_ACTIONBAR_CUSTOM . '"';
-      print " || " . $text;
+      if ($@) { 
+         &main::error("add_action_bar: $@");
+         &main::error($main::WWW_ACTIONBAR_CUSTOM);
+      } else {
+         print " || " . $text;
+      }
    }
 
    print "<hr>\n";