'system_encoded',
'write_data_file',
'write_postdata_file',
- 'html_entity_encode_dec'
+ 'html_entity_encode_dec',
+ 'merge_url'
);
###PERL_DEFAULT_PASSWORD: use constant DEFAULT_PASSWORD => 'password';
# [/name]
# [name=value]
# [name="value"]
- if($bbcode =~ m/(\[(\/?)([a-z]+|\*)(=(([^\[\]]*)|("[^"]*")))?\])/g) {
+ if($bbcode =~ m/\[(\/?)([a-z]+|\*)(=(([^\[\]]*)|("[^"]*")))?\]/g) {
# assign detected parts:
- $tag = $1;
- $tag_end = $2;
- $tag_name = $3;
- $tag_value = $5;
+ $tag = $&;
+ $tag_end = $1;
+ $tag_name = $2;
+ $tag_value = $4;
# text before the tag:
- $text = substr($bbcode, 0, pos($bbcode) - length($tag));
+ # $text = substr($bbcode, 0, pos($bbcode) - length($tag));
+ $text = $`;
# cut off already processed part:
- $bbcode = substr ($bbcode, pos ($bbcode));
+ # $bbcode = substr ($bbcode, pos ($bbcode));
+ $bbcode = $';
}
# no tag found, only text left
else {
# convert smilies
if (($post->{'smilies'}) and ($tag_name !~ /^((code)|(img))$/)) {
if ($cmd_options->{'post-style'} eq 'phpbb') {
- $text =~ s/(^|[ \t])((:([D\(\)o\?xP\|]|(((shock)|(lol)|(oops)|(cry)|(evil)|(twisted)|(roll)|(wink)|(idea)|(arrow)|(mrgreen)|[!\?]):)))|(8-\))|(;\)))($|[ \t])/' <img title="'.BBCODE_SMILEY_TITLE->{$2}.'" alt="'.$2.'" src="'.BBCODE_SMILEY_FILE->{$2}.'" \/> '/gme;
+ $text =~ s/(^|[ \t])((:([D\(\)o\?xP\|]|(((shock)|(lol)|(oops)|(cry)|(evil)|(twisted)|(roll)|(wink)|(idea)|(arrow)|(mrgreen)|[!\?]):)))|(8-\))|(;\)))($|[ \t])/' <img title="'.BBCODE_SMILEY_TITLE->{$2}.'" alt="'.$2.'" src="'.merge_url($cmd_options->{'smiley-url'},BBCODE_SMILEY_FILE->{$2}).'" \/> '/gme;
}
else {
- $text =~ s/(^|[ \t])((:([D\(\)o\?xP\|]|(((shock)|(lol)|(oops)|(cry)|(evil)|(twisted)|(roll)|(wink)|(idea)|(arrow)|(mrgreen)|[!\?]):)))|(8-\))|(;\)))($|[ \t])/' <img title="'.BBCODE_SMILEY_TITLE->{$2}.'" alt="'.$2.'" src="'.BBCODE_SMILEY_FILE->{$2}.'"> '/gme;
+ $text =~ s/(^|[ \t])((:([D\(\)o\?xP\|]|(((shock)|(lol)|(oops)|(cry)|(evil)|(twisted)|(roll)|(wink)|(idea)|(arrow)|(mrgreen)|[!\?]):)))|(8-\))|(;\)))($|[ \t])/' <img title="'.BBCODE_SMILEY_TITLE->{$2}.'" alt="'.$2.'" src="'.merge_url($cmd_options->{'smiley-url'},BBCODE_SMILEY_FILE->{$2}).'"> '/gme;
}
}
# You should have received a copy of the GNU Affero General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-_version: 1.0.2
+_version: 1.0.3
_PERL_STR: '@_ESCAPE($0,')'
_SHEBANG: #!$0