Added searchAndReplace functionality

lib/WebGUI/Discussion.pm

@@ -211,6 +211,7 @@ sub formatHeader {
 sub formatMessage {
         my $output;
 	$output = WebGUI::HTML::filter($_[0],$_[1]);
+	$output = WebGUI::HTML::searchAndReplace($output);
 	unless ($output =~ /\<div\>/ig || $output =~ /\<br\>/ig || $output =~ /\<p\>/ig) {
 		$output =~ s/\n/\<br\>/g;
 	}

lib/WebGUI/HTML.pm

@@ -32,6 +32,7 @@ A package for manipulating and massaging HTML.
  use WebGUI::HTML;
  $html = WebGUI::HTML::cleanSegment($html);
  $html = WebGUI::HTML::filter($html);
+ $html = WebGUI::HTML::searchAndReplace($html);
 
 =head1 METHODS
 
@@ -127,6 +128,31 @@ sub filter {
 	}
 }
 
+#-------------------------------------------------------------------
+
+=head2 searchAndReplace ( html )
+
+Replaces all occurrences of strings specified in the config file.
+
+=over
+
+=item html
+
+The HTML segment you want to have search and replaced.
+
+=back
+
+=cut
+
+sub searchAndReplace {
+	my $content = shift;
+	foreach my $search (keys %{$session{config}{searchAndReplace}}) {
+		my $replace = $session{config}{searchAndReplace}{$search};
+		$content =~ s/\Q$search/$replace/g;
+	}
+	return $content;
+}
+
 
 
 1;