AUBBC
view release on metacpan or search on metacpan
$msg=~ s/\[(?:c|code)=(.+?)\](?s)(.+?)\[\/(?:c|code)\]/code_tag($2, $1)/ge;$do_f[9] =''if$do_f[9];$msg=~ s/\[(img|right_img|left_img)\](.+?)\[\/img\]/fix_image($1, $2)/geif!$AUBBC{no_img};$msg=~ s/\[email\](?![\w\.\-\&\+]+\@[\w\.\-]+).+?\[\/email\]/\[<font color=red>$BAD_MESSAGE<\/font>\]email/g;$AUBBC{protect_email}?$msg=~ s/\[email\]([\w\.\-\&\+]+\@[\w\.\-]+)\[\/email\]/protect_email($1)/ge:$msg=~ s/\[email\]([\w\.\-\&\+]+\@[\w\.\-]+)\[\/email\]/link_check("mailto:$1",$1,'','')/ge;$msg=~ s/\[color=([\w#]+)\](?s)(.+?)\[\/color\]/<span style="color:$1;">$2<\/span>/g;1while$msg=~s/\[quote=([\w\s]+)\](?s)(.+?)\[\/quote\]/<div$AUBBC{quote_class}><small><strong>$1:<\/strong><\/small><br$AUBBC{html_type}>$2<\/div>$AUBBC{quote_extra}/g;1while$msg=~s/\[quote\](?s)(.+?)\[\/quote\]/<div$AUBBC{quote_class}>$1<\/div>$AUBBC{quote_extra}/g;$msg=~ s/\[(left|right|center)\](?s)(.+?)\[\/\1\]/<div style=\"text-align: $1;\">$2<\/div>/g;$msg=~ s/\[li=(\d+)\](?s)(.+?)\[\/li\]/<li value="$1">$2<\/li>/g;$msg=~ s/\[u\](?s)(.+?)\[\/u\]/<span style="text-decoration: underline;">$1<\/span>/g;$msg=~ s/\[strike\](?s)(.+?)\[\/strike\]/<span style="text-decoration: line-through;">$1<\/span>/g;$msg=~ s/\[([bh]r)\]/<$1$AUBBC{html_type}>/g;$msg=~ s/\[list\](?s)(.+?)\[\/list\]/fix_list($1)/ge;1while$msg=~s/\[(blockquote|big|h[123456]|[ou]l|li|em|pre|s(?:mall|trong|u[bp])|[bip])\](?s)(.+?)\[\/\1\]/<$1>$2<\/$1>/g;$msg=~ s/(<\/?(?:ol|ul|li|hr)\s?\/?>)\r?\n?<br(?:\s?\/)?>/$1/g;$msg=~ s/\[url=(\w+\:\/\/$long_regex)\](.+?)\[\/url\]/link_check($1,fix_message($2),'',1)/ge;$msg=~ s/(?<!["=\.\/\'\[\{\;])((?:\b\w+\b\:\/\/)$long_regex)/link_check($1,$1,'',1)/ge;
Default is'html'and the only other support is'xhtml'=head2 fix_ampDefault is 1 Enabled and the only other setting is 0 to Disable.This setting finds all the & that need to covert to the amp; html code nameso the w3c xhtml validation checks ok.=head2 line_breakEnable line_break "<br>\n" Default 1 , 2 is for the "<br>" older stylethat has no new line, 0 is Disable.This will turn any new line \n to the HTML line break <br>\n or <br> by the script_escape method and the other way aroundwith the html_to_text method.=head2 code_classDefault is '' and this allows a custom class, style and/or JavaScript to be used in any of the [code] [c] tags.must have a space before the text.example:code_class => ' class="quote"',code_class => ' class="quote" onclick="....."',=head2 code_extraDefault is '' and this is for a custom message, code, image, est.. to be used after the [code] [c] tags.example:code_extra => 'Codes may not reflect what is in the current version.',code_extra => '<div style="clear: left"> </div>',=head2 code_downloadDefault is '^Download above code^' this message willbe the links name. the link will open a JavaScript popup window and write thecode in it to be copyed or printed. A new JavaScript function wasadded to the js_print method called MyCodePrint.To turn off set this to ''example:code_download => 'Click here to get above code.',code_download => '',=head2 href_classDefault is '' and this allows a custom class, style and/or JavaScript to be used in the [url] tags.must have a space before the text.example:href_class => ' class="url"',href_class => ' class="url" onclick="....."',=head2 quote_classDefault is '' and this allows a custom class, style and/or JavaScript to be used in the [quote] tags.must have a space before the text.example:quote_class => ' class="quote"',quote_class => ' class="quote" onclick="....."',=head2 quote_extraDefault is '' and this is for a custom message, code, image, est.. to be used after a [quote] tags.example:quote_extra => 'QUOTES AND SAYINGS DISPLAYED ON THIS BLOG ARE NOT WRITTEN BY THE AUTHOR OF THE BLOG.',quote_extra => '<div style="clear: left"> </div>',=head2 script_escapeThis will turn on or off the sanitizer/escape security for the hole message.Default is 1 on and 0 for Disable.Notes: 1)The code highlighter works best with an escaped character format like thescript_escape => 1 setting can provide.
pattern - limited to'all'or'l,n,-,:,_,s''all'= anything but [ or ]'l'='a-z''n'='0-9''s'=' ''-'='-'':'=':''_'='_'type - 1 is style [name://pattern], 2 is style [name]pattern[/name], 3 is style [name],thenextsettingfortype the function will not be used to run Perl subroutines andwill replace the textwithwhat text isdefinedin the function setting, the setting issee function below on how type 4 worksfunction - a pre-definedsubroutine that receives the matched pattern, tag name and returns what you want,unlesstype is set to 4 then it will replace the tagwithwhat text is in the function.Note:ifthe function returns undefined,''or 0 the tag will not be changed.level - the array number of the security levelerror - the text or HTML to showifuserhasnoaccess
v4.03 - 02/03/2011Addition - New Object method aubbc_error . Developers can now controleiforwhento handle errors, see the POD'Error Message'forusage.Fixed - All built-in tags only convert balanced tags sonounbalanced HTML canbe producedFixed - Bug in code_highlight a highlight regex needed to be changedafterversion 4.01 to support the Parser style.Improvement - Small restructure of add_build_tag and change the'all'settingof'pattern'to allow more.v4.02 - 11/28/2010Fixed - The element IDforthe code download started at 1forevery instance thiswill force the browser to take priority to load the first ID it reads. The fixstarts the counter at'time.$$.000'totryto produce a more unique IDforeachinstance.
Addition - AUBBC::make_link($link,$name,$javascript,$target) this is useful enoughto mention once.Improvement - After lots of testing I have removed all /o in the regex. One mainreason is Memoize provides enough speed.v3.13 - 09/30/2010Addition - do_ubbc New built-in tag [list][*=1]... [*]... [/list], This willfollow XHTML or HTML Transitional element style and XHTML or HTML Strict will notsupport the elements that tag [*=1] in the [list] will produceAddition - do_ubbc New built-in tag [em]Hello[/em]Addition - New valueforsetting line_break 2forold <br style. This effects script_escape.Addition - This module now uses Memoizefora massive speed improvement.If you thought it was fastbefore, I hope your sitting downwhenyou bench this version. LOLAddition - added setting highlight_function to replace the highlighting methodof AUBBCwitha costume one.Fixed - in do_ubbc the line breaks was invalidating HTMLforList Block elementsImprovement - in do_all_ubbc changed defining$msgeachtime. there could have
of all the Perl BBcode modules. BBCode::Parser Parse::BBCode HTML::BBCode HTML::BBReverseFixed - fixed a line break and new line sandbox bugImprovement - Massive speed improvement to the hole module andnofeatures lost.changed newforfaster loading, the module uses varsforsome variables,re-spaced the hole code.v2.10 - 08/31/2010 11:17:13different then the other built functions. Type 4 willthe textdefinedinfunction and not point to adefinedPerl subroutine.Addition - added line_break setting to have control over the script_escape andhtml_to_text methods converting html line break <br> and new line \nAddition - added fix_amp this setting finds all the & that need to covert to the amp; html code nameso the w3c xhtml validation checks ok.Addition - added no_img this setting will allow some controlforusing [img] tags
v1.20 - 09/07/2008 09:23:09Fixed bug that bypassed utf tag converterifsquare bracket wasn't detectedFixed Makefile.PLv1.10 - 09/02/2008 09:49:46Added two more tags [big]..[/big] and [small]..[/small].Removed utf tag style [ux23] and [u://0931] to make more tag names available.Changed the way functions should workforbuilt tags, the custom functionforbuilt tags will receive the tag name and data of the tag. This is so one function can handle many tags.Removed other site tags and setting other_sites_pattern, an example of them are in"Build your own tags"Removed [time] tag, example in"Build your own tags".Email now allows nameswith& signNow every message that is passed to do_all_ubbc() gets escapedbeforebeing returnedifscript_escape is Enabled.
v4.03 - 02/03/2011Addition - New Object method aubbc_error . Developers can now controleiforwhento handle errors, see the POD'Error Message'forusage.Fixed - All built-in tags only convert balanced tags sonounbalanced HTML canbe producedFixed - Bug in code_highlight a highlight regex needed to be changedafterversion 4.01 to support the Parser style.Improvement - Small restructure of add_build_tag and change the'all'settingof'pattern'to allow more.v4.02 - 11/28/2010Fixed - The element IDforthe code download started at 1forevery instance thiswill force the browser to take priority to load the first ID it reads. The fixstarts the counter at'time.$$.000'totryto produce a more unique IDforeachinstance.
Addition - AUBBC::make_link($link,$name,$javascript,$target) this is useful enoughto mention once.Improvement - After lots of testing I have removed all /o in the regex. One mainreason is Memoize provides enough speed.v3.13 - 09/30/2010Addition - do_ubbc New built-in tag [list][*=1]... [*]... [/list], This willfollow XHTML or HTML Transitional element style and XHTML or HTML Strict will notsupport the elements that tag [*=1] in the [list] will produceAddition - do_ubbc New built-in tag [em]Hello[/em]Addition - New valueforsetting line_break 2forold <br style. This effects script_escape.Addition - This module now uses Memoizefora massive speed improvement.If you thought it was fastbefore, I hope your sitting downwhenyou bench this version. LOLAddition - added setting highlight_function to replace the highlighting methodof AUBBCwitha costume one.Fixed - in do_ubbc the line breaks was invalidating HTMLforList Block elementsImprovement - in do_all_ubbc changed defining$msgeachtime. there could have
of all the Perl BBcode modules. BBCode::Parser Parse::BBCode HTML::BBCode HTML::BBReverseFixed - fixed a line break and new line sandbox bugImprovement - Massive speed improvement to the hole module andnofeatures lost.changed newforfaster loading, the module uses varsforsome variables,re-spaced the hole code.v2.10 - 08/31/2010 11:17:13different then the other built functions. Type 4 willthe textdefinedinfunction and not point to adefinedPerl subroutine.Addition - added line_break setting to have control over the script_escape andhtml_to_text methods converting html line break <br> and new line \nAddition - added fix_amp this setting finds all the & that need to covert to the amp; html code nameso the w3c xhtml validation checks ok.Addition - added no_img this setting will allow some controlforusing [img] tags
v1.20 - 09/07/2008 09:23:09Fixed bug that bypassed utf tag converterifsquare bracket wasn't detectedFixed Makefile.PLv1.10 - 09/02/2008 09:49:46Added two more tags [big]..[/big] and [small]..[/small].Removed utf tag style [ux23] and [u://0931] to make more tag names available.Changed the way functions should workforbuilt tags, the custom functionforbuilt tags will receive the tag name and data of the tag. This is so one function can handle many tags.Removed other site tags and setting other_sites_pattern, an example of them are in"Build your own tags"Removed [time] tag, example in"Build your own tags".Email now allows nameswith& signNow every message that is passed to do_all_ubbc() gets escapedbeforebeing returnedifscript_escape is Enabled.
Default is'html'and the only other support is'xhtml'=head2 fix_ampDefault is 1 Enabled and the only other setting is 0 to Disable.This setting finds all the & that need to covert to the amp; html code nameso the w3c xhtml validation checks ok.=head2 line_breakEnable line_break "<br>\n" Default 1 , 2 is for the "<br>" older stylethat has no new line, 0 is Disable.This will turn any new line \n to the HTML line break <br>\n or <br> by the script_escape method and the other way aroundwith the html_to_text method.=head2 code_classDefault is '' and this allows a custom class, style and/or JavaScript to be used in any of the [code] [c] tags.must have a space before the text.example:code_class => ' class="quote"',code_class => ' class="quote" onclick="....."',=head2 code_extraDefault is '' and this is for a custom message, code, image, est.. to be used after the [code] [c] tags.example:code_extra => 'Codes may not reflect what is in the current version.',code_extra => '<div style="clear: left"> </div>',=head2 code_downloadDefault is '^Download above code^' this message willbe the links name. the link will open a JavaScript popup window and write thecode in it to be copyed or printed. A new JavaScript function wasadded to the js_print method called MyCodePrint.To turn off set this to ''example:code_download => 'Click here to get above code.',code_download => '',=head2 href_classDefault is '' and this allows a custom class, style and/or JavaScript to be used in the [url] tags.must have a space before the text.example:href_class => ' class="url"',href_class => ' class="url" onclick="....."',=head2 quote_classDefault is '' and this allows a custom class, style and/or JavaScript to be used in the [quote] tags.must have a space before the text.example:quote_class => ' class="quote"',quote_class => ' class="quote" onclick="....."',=head2 quote_extraDefault is '' and this is for a custom message, code, image, est.. to be used after a [quote] tags.example:quote_extra => 'QUOTES AND SAYINGS DISPLAYED ON THIS BLOG ARE NOT WRITTEN BY THE AUTHOR OF THE BLOG.',quote_extra => '<div style="clear: left"> </div>',=head2 script_escapeThis will turn on or off the sanitizer/escape security for the hole message.Default is 1 on and 0 for Disable.Notes: 1)The code highlighter works best with an escaped character format like thescript_escape => 1 setting can provide.
pattern - limited to'all'or'l,n,-,:,_,s''all'= anything but [ or ]'l'='a-z''n'='0-9''s'=' ''-'='-'':'=':''_'='_'type - 1 is style [name://pattern], 2 is style [name]pattern[/name], 3 is style [name],thenextsettingfortype the function will not be used to run Perl subroutines andwill replace the textwithwhat text isdefinedin the function setting, the setting issee function below on how type 4 worksfunction - a pre-definedsubroutine that receives the matched pattern, tag name and returns what you want,unlesstype is set to 4 then it will replace the tagwithwhat text is in the function.Note:ifthe function returns undefined,''or 0 the tag will not be changed.level - the array number of the security levelerror - the text or HTML to showifuserhasnoaccess
v4.03 - 02/03/2011Addition - New Object method aubbc_error . Developers can now controleiforwhento handle errors, see the POD'Error Message'forusage.Fixed - All built-in tags only convert balanced tags sonounbalanced HTML canbe producedFixed - Bug in code_highlight a highlight regex needed to be changedafterversion 4.01 to support the Parser style.Improvement - Small restructure of add_build_tag and change the'all'settingof'pattern'to allow more.v4.02 - 11/28/2010Fixed - The element IDforthe code download started at 1forevery instance thiswill force the browser to take priority to load the first ID it reads. The fixstarts the counter at'time.$$.000'totryto produce a more unique IDforeachinstance.
Addition - AUBBC::make_link($link,$name,$javascript,$target) this is useful enoughto mention once.Improvement - After lots of testing I have removed all /o in the regex. One mainreason is Memoize provides enough speed.v3.13 - 09/30/2010Addition - do_ubbc New built-in tag [list][*=1]... [*]... [/list], This willfollow XHTML or HTML Transitional element style and XHTML or HTML Strict will notsupport the elements that tag [*=1] in the [list] will produceAddition - do_ubbc New built-in tag [em]Hello[/em]Addition - New valueforsetting line_break 2forold <br style. This effects script_escape.Addition - This module now uses Memoizefora massive speed improvement.If you thought it was fastbefore, I hope your sitting downwhenyou bench this version. LOLAddition - added setting highlight_function to replace the highlighting methodof AUBBCwitha costume one.Fixed - in do_ubbc the line breaks was invalidating HTMLforList Block elementsImprovement - in do_all_ubbc changed defining$msgeachtime. there could have
of all the Perl BBcode modules. BBCode::Parser Parse::BBCode HTML::BBCode HTML::BBReverseFixed - fixed a line break and new line sandbox bugImprovement - Massive speed improvement to the hole module andnofeatures lost.changed newforfaster loading, the module uses varsforsome variables,re-spaced the hole code.v2.10 - 08/31/2010 11:17:13different then the other built functions. Type 4 willthe textdefinedinfunction and not point to adefinedPerl subroutine.Addition - added line_break setting to have control over the script_escape andhtml_to_text methods converting html line break <br> and new line \nAddition - added fix_amp this setting finds all the & that need to covert to the amp; html code nameso the w3c xhtml validation checks ok.Addition - added no_img this setting will allow some controlforusing [img] tags
v1.20 - 09/07/2008 09:23:09Fixed bug that bypassed utf tag converterifsquare bracket wasn't detectedFixed Makefile.PLv1.10 - 09/02/2008 09:49:46Added two more tags [big]..[/big] and [small]..[/small].Removed utf tag style [ux23] and [u://0931] to make more tag names available.Changed the way functions should workforbuilt tags, the custom functionforbuilt tags will receive the tag name and data of the tag. This is so one function can handle many tags.Removed other site tags and setting other_sites_pattern, an example of them are in"Build your own tags"Removed [time] tag, example in"Build your own tags".Email now allows nameswith& signNow every message that is passed to do_all_ubbc() gets escapedbeforebeing returnedifscript_escape is Enabled.
examples/tag_list.cgi view on Meta::CPAN
usewarnings;#use lib '../';useAUBBC;my$aubbc= AUBBC->new();# Change some default settings$aubbc->settings(protect_email=> 4,html_type=>'xhtml',code_class=>' class="codepost"',code_extra=>'<div style="clear: left"> </div>',quote_class=>' class="quote"',quote_extra=>'<div style="clear: left"> </div>',highlight_class1=>' class="highlightclass1"',highlight_class2=>' class="highlightclass2"',highlight_class3=>' class="highlightclass1"',highlight_class4=>' class="highlightclass1"',highlight_class5=>' class="highlightclass5"',highlight_class6=>' class="highlightclass6"',highlight_class7=>' class="highlightclass7"',highlight_class8=>' class="highlightclass5"',highlight_class9=>' class="highlightclass5"',);
examples/tag_list.cgi view on Meta::CPAN
<!DOCTYPE html PUBLIC"-//W3C//DTD XHTML 1.0 Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><head><title>AUBBC.pm Tag List</title><meta http-equiv="Content-Type"content="text/html; charset=iso-8859-1"/></head><body><script type="text/javascript"src="?js_print"></script><style type="text/css">.codepost {background-color:#ffffff;width: 80%;height: auto;white-space: nowrap;overflow: scroll;padding-left: 2px;padding-bottom: 5px;margin: 0;top: 0;
examples/tag_list.cgi view on Meta::CPAN
color :#990000;font-weight : normal;font-size : 10pt;text-decoration : none;font-family : Courier New, Latha, sans-serif;}.highlightclass2 {color :#0000CC;font-weight : normal;font-size : 10pt;font-style: italic;text-decoration : none;font-family : Courier New, Latha, sans-serif;}.highlightclass5 {color :#0000CC;font-weight : normal;font-size : 10pt;text-decoration : none;font-family : Courier New, Latha, sans-serif;}
examples/tag_list.cgi view on Meta::CPAN
text-decoration : none;font-family : Courier New, Latha, sans-serif;}.highlightclass7 {color :#009900;font-weight : normal;font-size : 10pt;text-decoration : none;font-family : Courier New, Latha, sans-serif;}</style>$message</body></html>HTMLexit;}subother_sites {my($tag_name,$text_from_AUBBC) =@_;
( run in 0.290 second using v1.01-cache-2.11-cpan-bb97c1e446a )