oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added searchAndReplace functionality

Browse source
This commit is contained in:
Len Kranendonk 2003-05-13 11:38:51 +00:00
parent 07aa610a8f
commit 12a35c8db6
4 changed files with 52 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

15
docs/upgrades/upgrade_5.2.6-5.3.0.pl
View file

@ -19,7 +19,7 @@ GetOptions(
print "\tUpdating config file.\n" unless ($quiet);
my $pathToConfig = '../../etc/'.$configFile;
my $pathToConfig = '../../etc/'.$configFile; print"debug:$pathToConfig\n";
my $conf = Parse::PlainConfig->new('DELIM' => '=', 'FILE' => $pathToConfig);
my $macros = $conf->get("macros");
$macros->{RootTab} = "RootTab";
@ -41,8 +41,19 @@ foreach my $i ($wobjects) {
}
}
$conf->set("wobjects"=>$wobjects);
$conf->write;
$conf->set("searchAndReplace"=>{ ":)" => "<img src='/extras/smileys/smile01.gif' align='absMiddle' border='0'>",
":-)" => "<img src='/extras/smileys/smile01.gif' align='absMiddle' border='0'>",
":(" => "<img src='/extras/smileys/smile02.gif' align='absMiddle' border='0'>",
":-(" => "<img src='/extras/smileys/smile02.gif' align='absMiddle' border='0'>",
";)" => "<img src='/extras/smileys/smile03.gif' align='absMiddle' border='0'>",
";-)" => "<img src='/extras/smileys/smile03.gif' align='absMiddle' border='0'>",
":D" => "<img src='/extras/smileys/smile04.gif' align='absMiddle' border='0'>",
":p" => "<img src='/extras/smileys/smile09.gif' align='absMiddle' border='0'>",
":O" => "<img src='/extras/smileys/smile11.gif' align='absMiddle' border='0'>",
"WebGUI" => "<a href='http://www.plainblack.com/webgui'>WebGUI</a>"});
$conf->write;
exit;
print "\tRemoving unneeded files.\n" unless ($quiet);

12
etc/WebGUI.conf.original
View file

@ -69,4 +69,16 @@ macros = a => a_account, \
URLEncode => URLEncode, \
User => User
searchAndReplace = \
:) => "<img src='/extras/smileys/smile01.gif' align='absMiddle' border='0'>", \
:-) => "<img src='/extras/smileys/smile01.gif' align='absMiddle' border='0'>", \
:( => "<img src='/extras/smileys/smile02.gif' align='absMiddle' border='0'>", \
:-( => "<img src='/extras/smileys/smile02.gif' align='absMiddle' border='0'>", \
;) => "<img src='/extras/smileys/smile03.gif' align='absMiddle' border='0'>", \
;-) => "<img src='/extras/smileys/smile03.gif' align='absMiddle' border='0'>", \
:D => "<img src='/extras/smileys/smile04.gif' align='absMiddle' border='0'>", \
:p => "<img src='/extras/smileys/smile09.gif' align='absMiddle' border='0'>", \
:O => "<img src='/extras/smileys/smile11.gif' align='absMiddle' border='0'>", \
\
WebGUI => "<a href='http://www.plainblack.com/webgui'>WebGUI</a>"

1
lib/WebGUI/Discussion.pm
View file

@ -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;
}

26
lib/WebGUI/HTML.pm
View file

@ -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;