From: Stephen L Johnson <sjohnson@monsters.org>
Date: Mon, 13 Mar 2000 21:14:57 +0000 (+0000)
Subject: added custom toolbar to display_problems_html()
X-Git-Tag: spong-2_7-alpha5~47
X-Git-Url: http://git.etc.gen.nz/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a93a1f7dfceeaf6b5d83fd5b735bd61866e96de7;p=spong.git

added custom toolbar to display_problems_html()
---

diff --git a/src/lib/Spong/Host.pm b/src/lib/Spong/Host.pm
index 558c909..7d1f050 100755
--- 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";