view release on metacpan or  search on metacpan

htdocs/transforms/xhtml/match-control.xsl  view on Meta::CPAN

	theme_advanced_buttons2 : "cut,copy,paste,separator,undo,redo,separator,search,replace,separator,emotions,separator,link,unlink,image",
	theme_advanced_buttons3 : "tablecontrols,separator,iespell",
	theme_advanced_toolbar_location : "top",
	theme_advanced_toolbar_align : "left",
	theme_advanced_blockformats : "p,h3,h4,h5,h6,div,blockquote",
	convert_fonts_to_spans : true,
	relative_urls : false,
	language : "<xsl:value-of select="$neg.lang"/>",
	verify_html : true,
valid_elements : ""
+"a[accesskey|charset|class|coords|dir&lt;ltr?rtl|href|hreflang|id|lang|name"
  +"|onblur|onclick|ondblclick|onfocus|onkeydown|onkeypress|onkeyup"
  +"|onmousedown|onmousemove|onmouseout|onmouseover|onmouseup|rel|rev"
  +"|shape&lt;circle?default?poly?rect|style|tabindex|title|target|type],"
+"abbr[class|dir&lt;ltr?rtl|id|lang|onclick|ondblclick|onkeydown|onkeypress"
  +"|onkeyup|onmousedown|onmousemove|onmouseout|onmouseover|onmouseup|style"
  +"|title],"
+"acronym[class|dir&lt;ltr?rtl|id|id|lang|onclick|ondblclick|onkeydown|onkeypress"
  +"|onkeyup|onmousedown|onmousemove|onmouseout|onmouseover|onmouseup|style"
  +"|title],"
+"address[class|align|dir&lt;ltr?rtl|id|lang|onclick|ondblclick|onkeydown"

scripts/upgrade04to05.pl  view on Meta::CPAN

use Formatter::HTML::Textile;
use Encode;
use HTML::Entities;

my $dbh = DBI->connect($dsn, $pguser, $pgpassword);

my $all  = $dbh->selectall_hashref('SELECT storyname,minicontent,content FROM stories;', 'storyname');

foreach my $story (values(%{$all})) {
  my $formatter1 = Formatter::HTML::Textile->format(encode_entities(decode_utf8(${$story}{content})));
  $formatter1->charset('utf-8');
  $formatter1->char_encoding(0);
  my $content = $formatter1->fragment;
  
  my $formatter2 = Formatter::HTML::Textile->format(encode_entities(decode_utf8(${$story}{minicontent})));
  $formatter2->charset('utf-8');
  $formatter2->char_encoding(0);
  my $minicontent = $formatter2->fragment;
  
  $dbh->do("UPDATE stories SET minicontent=?,content=? WHERE storyname=?", {}, ($minicontent,$content,${$story}{storyname}));
}


my $allc  = $dbh->selectall_arrayref('SELECT content FROM comments;');
foreach my $comment (@{$allc}) {
  my $formatter1 = Formatter::HTML::Textile->format(encode_entities(decode_utf8(${$comment}[0])));
  $formatter1->charset('utf-8');
  $formatter1->char_encoding(0);
  my $content = $formatter1->fragment;
  $dbh->do("UPDATE comments SET content=? WHERE content=?", {}, ($content,${$comment}[0]));
}