+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ "; + $msg .= "Autor : ".$usuario." (IP: ".$ip_usuario.")
"; + $msg .= "E-mail : ".$email."
"; + $msg .= "URL : ".$pagina_web."
"; + $msg .= "Whois : http://ws.arin.net/cgi-bin/whois.pl?queryinput=".$ip_usuario."
"; + $msg .= "Comentario:
".$comentario; + $msg .= "
".$url_blog."/index.php?id=".$id_post."
"; + + enviaMail($email_autor_post, "[".$desc_blog."] Nuevo mensaje en: ".$titulo_post."", $msg, EMAIL_ADMIN); + } + + function obtenerComentarios($idArticulo="") { + $this->ejecutarConsulta("select * from ".tabla_prefijo."comentarios WHERE id_post=".$idArticulo." AND spam=0 order by fecha ASC"); + return $this->mid_consulta; + } + + function contarComentarios($idArticulo="") { + $this->ejecutarConsulta("select * from ".tabla_prefijo."comentarios WHERE id_post=".$idArticulo." AND spam=0"); + return $this->contarRegistros(); + } + + function mostrarGravatar($email="") { + $emailg = $email; + $default = URL_CODICE."/images/noGravatar.jpg"; + $size = 30; + $grav_url = "http://www.gravatar.com/avatar.php?gravatar_id=".md5($emailg)."&default=".urlencode($default)."&size=".$size; + return "
strings used in
- * replacement callbacks. *JHR*
- *
- * @private
- */
- var $tmp = array();
-
- /**
- * Instantiates a new Textile object. Optional options
- * can be passed to initialize the object. Attributes for the
- * options key are the same as the get/set method names
- * documented here.
- *
- * @param $options The @c array specifying the options to use for
- * this object.
- *
- * @public
- */
- function Textile($options = array()) {
- $this->options = $options;
- $this->options['filters'] = ($this->options['filters'] ? $this->options['filters'] : array());
- $this->options['charset'] = ($this->options['charset'] ? $this->options['charset'] : 'utf-8');
- $this->options['char_encoding'] = (isset($this->options['char_encoding']) ? $this->options['char_encoding'] : 1);
- $this->options['do_quotes'] = (isset($this->options['do_quotes']) ? $this->options['do_quotes'] : 1);
- $this->options['trim_spaces'] = (isset($this->options['trim_spaces']) ? $this->options['trim_spaces'] : 0);
- $this->options['smarty_mode'] = (isset($this->options['smarty_mode']) ? $this->options['smarty_mode'] : 1);
- $this->options['preserve_spaces'] = (isset($this->options['preserve_spaces']) ? $this->options['preserve_spaaces'] : 0);
- $this->options['head_offset'] = (isset($this->options['head_offset']) ? $this->options['head_offset'] : 0);
-
- if (is_array($this->options['css'])) {
- $this->css($this->options['css']);
- }
- $this->options['macros'] = ($this->options['macros'] ? $this->options['macros'] : $this->default_macros());
- if (isset($this->options['flavor'])) {
- $this->flavor($this->options['flavor']);
- } else {
- $this->flavor('xhtml1/css');
- }
- $this->_create_re();
- } // function Textile
-
- // getter/setter methods...
-
- /**
- * Used to set Textile attributes. Attribute names are the same
- * as the get/set method names documented here.
- *
- * @param $opt A @c string specifying the name of the option to
- * change or an @c array specifying options and values.
- * @param $value The value for the provided option name.
- *
- * @public
- */
- function set($opt, $value = NULL) {
- if (is_array($opt)) {
- foreach ($opt as $opt => $value) {
- $this->set($opt, $value);
- }
- } else {
- // the following options have special set methods
- // that activate upon setting:
- if ($opt == 'charset') {
- $this->charset($value);
- } elseif ($opt == 'css') {
- $this->css($value);
- } elseif ($opt == 'flavor') {
- $this->flavor($value);
- } else {
- $this->options[$opt] = $value;
- }
- }
- } // function set
-
- /**
- * Used to get Textile attributes. Attribute names are the same
- * as the get/set method names documented here.
- *
- * @param $opt A @c string specifying the name of the option to get.
- *
- * @return The value for the provided option.
- *
- * @public
- */
- function get($opt) {
- return $this->options[$opt];
- } // function get
-
- /**
- * Gets or sets the "disable html" control, which allows you to
- * prevent HTML tags from being used within the text processed.
- * Any HTML tags encountered will be removed if disable html is
- * enabled. Default behavior is to allow HTML.
- *
- * @param $disable_html If provided, a @c bool indicating whether or
- * not this object should disable HTML.
- *
- * @return A true value if this object disables HTML; a false value
- * otherwise.
- *
- * @public
- */
- function disable_html($disable_html = NULL) {
- if ($disable_html != NULL) {
- $this->options['disable_html'] = $disable_html;
- }
- return ($this->options['disable_html'] ? $this->options['disable_html'] : 0);
- } // function disable_html
-
- /**
- * Gets or sets the relative heading offset, which allows you to
- * change the heading level used within the text processed. For
- * example, if the heading offset is '2' and the text contains an
- * 'h1' block, an \'; - $this->options['_blockcode_open'] = '
';
- $this->options['_blockcode_close'] = ''; - $this->options['_blockcode_open'] = '
';
- $this->options['_blockcode_close'] = '-
- *
- class_align_right - * - * defaults to 'right' - * - *
- class_align_left - * - * defaults to 'left' - * - *
- class_align_center - * - * defaults to 'center' - * - *
- class_align_top - * - * defaults to 'top' - * - *
- class_align_bottom - * - * defaults to 'bottom' - * - *
- class_align_middle - * - * defaults to 'middle' - * - *
- class_align_justify - * - * defaults to 'justify' - * - *
- class_caps - * - * defaults to 'caps' - * - *
- class_footnote - * - * defaults to 'footnote' - * - *
- id_footnote_prefix - * - * defaults to 'fn' - * - *
';
- } elseif (preg_match('/fn(\d+)/', $block, $matches)) {
- $fnum = $matches[1];
- $pre .= '
-
- *
- *
- text - * - * The text to be processed. - * - *
-
- *
- *
- text - * - * The text to be processed. - * - *
-
- *
- *
- pre - * - * open brace character - * - *
- post - * - * close brace character - * - *
- macro - * - * the macro to be executed - * - *
-
- *
- *
- pre - * - * Any text that comes before the citation. - * - *
- text - * - * The text that is being cited. - * - *
- cite - * - * The URL of the citation. - * - *
- post - * - * Any text that follows the citation. - * - *
-
- *
- *
- text - * - * The text of the code itself. - * - *
- lang - * - * The language (programming language) for the code. - * - *
-
- *
- *
{...}- * - * style rules. If present, they are appended to$style.
- *
- * (...#...)- * - * class and/or ID name declaration
- *
- * ((one or more) - * - * pad left characters
- *
- * )(one or more) - * - * pad right characters
- *
- * [ll]- * - * language declaration
- *
- *
-
- *
- *
- tag - * - * the tag to produce - * - *
- text - * - * the text to output inside the tag - * - *
- pre - * - * text to produce before the tag - * - *
- post - * - * text to produce following the tag - * - *
- clsty - * - * class and/or style attributes that should be assigned to the tag. - * - *
-
- *
- *
- text - * - * The text to be processed. - * - *
-
- *
- *
- text - * - * The text to be processed. - * - *
- * ==|filter|text to be filtered== - *- * You may specify multiple filters in the filter portion of - * the string. Simply comma delimit the filters you desire - * to execute. Filters are defined using the filters method. - * - * @param $args An @c array specifying the attributes for formatting - * the block. - * - * @return A @c string containing the formatted block. - * - * @private - */ - function format_block($args) { - $str = (isset($args['text']) ? $args['text'] : ''); - $inline = $args['inline']; - $pre = (isset($args['pre']) ? $args['pre'] : ''); - $post = (isset($args['post']) ? $args['post'] : ''); - $this->_strip_borders($pre, $post); - $filters = (preg_match('/^(\|(?:(?:[a-z0-9_\-]+)\|)+)/', $str, $matches) ? $matches[1] : ''); - if ($filters) { - $filtreg = preg_replace('/[^A-Za-z0-9]/', '\\\\$1', $filters); - $str = preg_replace('/^' . $filtreg . '/', '', $str, 1); - $filters = preg_replace('/^\|/', '', $filters, 1); - $filters = preg_replace('/\|$/', '', $filter, 1); - $filters = preg_split('/\|/', $filters); - $str = $this->apply_filters(array('text' => $str, 'filters' => $filters)); - $count = count($filters); - if ($str = preg_replace('!(
){' . $count . '}!se', '(++$i ? "$1" : "$1")', $str) && $i) { - $str = preg_replace('!(
){' . $count . '}!s', '$1', $str); - $str = preg_replace('!(-
- *
- *
- src - * - * The 'src' (URL) for the image. This may be a local path, - * ideally starting with a '/'. Images can be located within - * the file system if the docroot method is used to specify - * where the docroot resides. If the image can be found, the - * image_size method is used to determine the dimensions of - * the image. - * - *
- extra - * - * Additional parameters for the image. This would include - * alt text, height/width specification or scaling instructions. - * - *
- align - * - * Alignment attribute. - * - *
- pre - * - * Text to produce prior to the tag. - * - *
- post - * - * Text to produce following the tag. - * - *
- link - * - * Optional URL to connect with the image tag. - * - *
- clsty - * - * Class and/or style attributes. - * - *
' . $this->encode_html_basic($alt) . '
'; - } elseif (preg_match('/^xhtml/', $this->options['flavor'])) { - $tag .= ' />'; - } else { - $tag .= '>'; - } - if ($link) { - $link = preg_replace('/^:/', '', $link, 1); - $link = $this->format_url(array('url' => $link)); - $tag = '' . $tag . ''; - } - return $pre . $tag . $post; - } // function format_image - - /** - * Takes a Wiki-ish string of data and transforms it into a full - * table. - * - * @param $args An @c array specifying the attributes for formatting - * the table. - * - * @return A @c string containing the formatted table. - * - * @private - */ - function format_table($args) { - $str = (isset($args['text']) ? $args['text'] : ''); - - $lines = preg_split('/\n/', $str); - unset($rows); - $line_count = count($lines); - for ($i = 0; $i < $line_count; $i++) { - if (!preg_match('/\|\s*$/', $lines[$i])) { - if ($i + 1 < $line_count) { - if ($i + 1 <= count($lines) - 1) { $lines[$i + 1] = $lines[$i] . "\n" . $lines[$i + 1]; } - } else { - $rows[] = $lines[$i]; - } - } else { - $rows[] = $lines[$i]; - } - } - unset($tid, $tpadl, $tpadr, $tlang); - $tclass = ''; - $tstyle = ''; - $talign = ''; - if (preg_match('/^table[^\.]/', $rows[0])) { - $row = $rows[0]; - $row = preg_replace('/^table/', '', $row, 1); - $params = 1; - // process row parameters until none are left - while ($params) { - if (preg_match('{^(' . $this->tblalignre . ')}', $row, $matches)) { - // found row alignment - $talign .= $matches[1]; - if ($matches[1]) { $row = substr($row, strlen($matches[1])); } - if ($matches[1]) { continue; } - } - if (preg_match('{^(' . $this->clstypadre . ')}x', $row, $matches)) { - // found a class/id/style/padding indicator - $clsty = $matches[1]; - if ($clsty) { $row = substr($row, strlen($clsty)); } - if (preg_match('/{([^}]+)}/', $clsty, $matches)) { - $tstyle = $matches[1]; - $clsty = preg_replace('/{([^}]+)}/', '', $clsty, 1); - if ($tstyle) { continue; } - } - if (preg_match('/\(([A-Za-z0-9_\- ]+?)(?:#(.+?))?\)/', $clsty, $matches) || - preg_match('/\(([A-Za-z0-9_\- ]+?)?(?:#(.+?))\)/', $clsty, $matches)) { - if ($matches[1] || $matches[2]) { - $tclass = $matches[1]; - $tid = $matches[2]; - continue; - } - } - if (preg_match('/(\(+)/', $clsty, $matches)) { $tpadl = strlen($matches[1]); } - if (preg_match('/(\)+)/', $clsty, $matches)) { $tpadr = strlen($matches[1]); } - if (preg_match('/\[(.+?)\]/', $clsty, $matches)) { $tlang = $matches[1]; } - if ($clsty) { continue; } - } - $params = 0; - } - $row = preg_replace('/\.\s+/', '', $row, 1); - $rows[0] = $row; - } - $out = ''; - $cols = preg_split('/\|/', $rows[0] . ' '); - unset($colaligns, $rowspans); - foreach ($rows as $row) { - $cols = preg_split('/\|/', $row . ' '); - $colcount = count($cols) - 1; - array_pop($cols); - $colspan = 0; - $row_out = ''; - unset($rowclass, $rowid, $rowalign, $rowstyle, $rowheader); - if (!$cols[0]) { $cols[0] = ''; } - if (preg_match('/_/', $cols[0])) { - $cols[0] = preg_replace('/_/', '', $cols[0]); - $rowheader = 1; - } - if (preg_match('/{([^}]+)}/', $cols[0], $matches)) { - $rowstyle = $matches[1]; - $cols[0] = preg_replace('/{[^}]+}/', '', $cols[0]); - } - if (preg_match('/\(([^\#]+?)?(#(.+))?\)/', $cols[0], $matches)) { - $rowclass = $matches[1]; - $rowid = $matches[3]; - $cols[0] = preg_replace('/\([^\)]+\)/', '', $cols[0]); - } - if (preg_match('{(' . $this->alignre . ')}', $cols[0], $matches)) { $rowalign = $matches[1]; } - for ($c = $colcount - 1; $c > 0; $c--) { - if ($rowspans[$c]) { - $rowspans[$c]--; - if ($rowspans[$c] > 1) { continue; } - } - unset($colclass, $colid, $header, $colparams, $colpadl, $colpadr, $collang); - $colstyle = ''; - $colalign = $colaligns[$c]; - $col = array_pop($cols); - $col = ($col ? $col : ''); - $attrs = ''; - if (preg_match('{^(((_|[/\\\\]\d+|' . $this->alignre . '|' . $this->clstypadre . ')+)\.\ )}x', $col, $matches)) { - $colparams = $matches[2]; - $col = substr($col, strlen($matches[1])); - $params = 1; - // keep processing column parameters until there - // are none left... - while ($params) { - if (preg_match('{^(_|' . $this->alignre . ')(.*)$}', $colparams, $matches)) { - // found alignment or heading indicator - $attrs .= $matches[1]; - if ($matches[1]) { $colparams = $matches[2]; } - if ($matches[1]) { continue; } - } - if (preg_match('{^(' . $this->clstypadre . ')(.*)$}x', $colparams, $matches)) { - // found a class/id/style/padding marker - $clsty = $matches[1]; - if ($clsty) { $colparams = $matches[2]; } - if (preg_match('/{([^}]+)}/', $clsty, $matches)) { - $colstyle = $matches[1]; - $clsty = preg_replace('/{([^}]+)}/', '', $clsty, 1); - } - if (preg_match('/\(([A-Za-z0-9_\- ]+?)(?:#(.+?))?\)/', $clsty, $matches) || - preg_match('/\(([A-Za-z0-9_\- ]+?)?(?:#(.+?))\)/', $clsty, $matches)) { - if ($matches[1] || $matches[2]) { - $colclass = $matches[1]; - $colid = $matches[2]; - if ($colclass) { - $clsty = preg_replace('/\([A-Za-z0-9_\- ]+?(#.*?)?\)/', '', $clsty); - } elseif ($colid) { - $clsty = preg_replace('/\(#.+?\)/', '', $clsty); - } - } - } - if (preg_match('/(\(+)/', $clsty, $matches)) { - $colpadl = strlen($matches[1]); - $clsty = preg_replace('/\(+/', '', $clsty, 1); - } - if (preg_match('/(\)+)/', $clsty, $matches)) { - $colpadr = strlen($matches[1]); - $clsty = preg_replace('/\)+/', '', $clsty, 1); - } - if (preg_match('/\[(.+?)\]/', $clsty, $matches)) { - $collang = $matches[1]; - $clsty = preg_replace('/\[.+?\]/', '', $clsty, 1); - } - if ($clsty) { continue; } - } - if (preg_match('/^\\\\(\d+)/', $colparams, $matches)) { - $colspan = $matches[1]; - $colparams = substr($colparams, strlen($matches[1]) + 1); - if ($matches[1]) { continue; } - } - if (preg_match('/\/(\d+)/', $colparams, $matches)) { - if ($matches[1]) { $rowspans[$c] = $matches[1]; } - $colparams = substr($colparams, strlen($matches[1]) + 1); - if ($matches[1]) { continue; } - } - $params = 0; - } - } - if (strlen($attrs)) { - if (preg_match('/_/', $attrs)) { $header = 1; } - if (preg_match('{(' . $this->alignre . ')}', $attrs, $matches) && strlen($matches[1])) { $colalign = ''; } - // determine column alignment - if (preg_match('/<>/', $attrs)) { - $colalign .= '<>'; - } elseif (preg_match('//', $attrs)) { - $colalign = '>'; - } - if (preg_match('/\^/', $attrs)) { - $colalign .= '^'; - } elseif (preg_match('/~/', $attrs)) { - $colalign .= '~'; - } elseif (preg_match('/-/', $attrs)) { - $colalign .= '-'; - } - } - if ($rowheader) { $header = 1; } - if ($header) { $colaligns[$c] = $colalign; } - $col = preg_replace('/^ +/', '', $col, 1); $col = preg_replace('/ +$/', '', $col, 1); - if (strlen($col)) { - // create one cell tag - $rowspan = ($rowspans[$c] ? $rowspans[$c] : 0); - $col_out = '<' . ($header ? 'th' : 'td'); - if ($colalign) { - // horizontal, vertical alignment - $halign = $this->_halign($colalign); - if ($halign) { $col_out .= " align=\"$halign\""; } - $valign = $this->_valign($colalign); - if ($valign) { $col_out .= " valign=\"$valign\""; } - } - // apply css attributes, row, column spans - if ($colpadl) { $colstyle .= ";padding-left:${colpadl}em"; } - if ($colpadr) { $colstyle .= ";padding-right:${colpadr}em"; } - if ($colclass) { $col_out .= " class=\"$colclass\""; } - if ($colid) { $col_out .= " id=\"$colid\""; } - if ($colstyle) { $colstyle = preg_replace('/^;/', '', $colstyle, 1); } - if ($colstyle) { $col_out .= " style=\"$colstyle\""; } - if ($collang) { $col_out .= " lang=\"$collang\""; } - if ($colspan > 1) { $col_out .= " colspan=\"$colspan\""; } - if ($rowspan > 1) { $col_out .= " rowspan=\"$rowspan\""; } - $col_out .= '>'; - // if the content of this cell has newlines OR matches - // our paragraph block signature, process it as a full-blown - // textile document - if (preg_match('/\n\n/', $col) || - preg_match('{^(?:' . $this->halignre . '|' . $this->clstypadre . '*)* - [\*\#] - (?:' . $this->clstypadre . '*|' . $this->halignre . ')*\ }x', $col)) { - $col_out .= $this->process($col); - } else { - $col_out .= $this->format_paragraph(array('text' => $col)); - } - $col_out .= ''; - $row_out = $col_out . $row_out; - if ($colspan) { $colspan = 0; } - } else { - if ($colspan == 0) { $colspan = 1; } - $colspan++; - } - } - if ($colspan > 1) { - // handle the spanned column if we came up short - $colspan--; - $row_out = "-
- *
- *
- text - * - * The text to be processed. - * - *
- filters - * - * An array reference of filter names to run for the given text. - * - *
-
- *
- *
\<\>- * - * becomes 'justify'
- *
- * \<- * - * becomes 'left'
- *
- * \>- * - * becomes 'right'
- *
- * =- * - * becomes 'center'
- *
- *
-
- *
- *
^- * - * becomes 'top'
- *
- * ~- * - * becomes 'bottom'
- *
- * -- * - * becomes 'middle'
- *
- *
-
- *
- *
^- * - * becomes 'top'
- *
- * ~- * - * becomes 'bottom'
- *
- * -- * - * becomes 'middle'
- *
- * \<- * - * becomes 'left'
- *
- * \>- * - * becomes 'right'
- *
- *
- * $pre starts with '[', $post ends with ']'
- * $pre starts with '{', $post ends with '}'
- *
- * If neither condition is met, then the @c $pre and @c $post
- * values are left untouched.
- *
- * @param $pre A @c string specifying the prefix.
- * @param $post A @c string specifying the postfix.
- *
- * @private
- */
- function _strip_borders(&$pre, &$post) {
- if ($post && $pre && preg_match('/[{[]/', ($open = substr($pre, 0, 1)))) {
- $close = substr($post, 0, 1);
- if ((($open == '{') && ($close == '}')) ||
- (($open == '[') && ($close == ']'))) {
- $pre = substr($pre, 1);
- $post = substr($post, 1);
- } else {
- if (!preg_match('/[}\]]/', $close)) { $close = substr($post, -1, 1); }
- if ((($open == '{') && ($close == '}')) ||
- (($open == '[') && ($close == ']'))) {
- $pre = substr($pre, 1);
- $post = substr($post, 0, strlen($post) - 1);
- }
- }
- }
- } // function _strip_borders
-
- /**
- * An internal routine that takes a string and appends it to an array.
- * It returns a marker that is used later to restore the preserved
- * string.
- *
- * @param $array The @c array in which to store the replacement
- * text.
- * @param $str A @c string specifying the replacement text.
- *
- * @return A @c string containing a temporary marker for the
- * replacement.
- *
- * @private
- */
- function _repl(&$array, $str) {
- $array[] = $str;
- return '$textile = new MTLikeTextile;
- * instead of $textile = new Textile; to create a Textile
- * object. This will enable the special lookup links. To enable
- * SmartyPants processing, you must install the SmartyPants-PHP
- * implementation available at
- * http://monauraljerk.org/smartypants-php/
- * and include the
- * SmartyPants-PHP.inc file.
- *
- *
- * include_once("Textile.php");
- * include_once("SmartyPants-PHP.inc");
- * $text = \<\<\process($text);
- * print $html;
- *
- * include_once("Textile.php");
- * $text = \<\<\process($text);
- * print $html;
- * -
- *
- *
- p
- *
- * A paragraph block. This is the default signature if no
- * signature is explicitly given. Paragraphs are formatted
- * with all the inline rules (see inline formatting) and
- * each line receives the appropriate markup rules for
- * the flavor of HTML in use. For example, newlines for XHTML
- * content receive a \
tag at the end of the line - * (with the exception of the last line in the paragraph). - * Paragraph blocks are enclosed in a \
- *
- * - pre - * - * A pre-formatted block of text. Textile will not add any - * HTML tags for individual lines. Whitespace is also preserved. - * - * Note that within a "pre" block, \< and \> are - * translated into HTML entities automatically. - * - *
- bc
- *
- * A "bc" signature is short for "block code", which implies
- * a preformatted section like the 'pre' block, but it also
- * gets a \
- table - * - * For composing HTML tables. See the "TABLES" section for more - * information. - * - *
- bq
- *
- * A "bq" signature is short for "block quote". Paragraph text
- * formatting is applied to these blocks and they are enclosed
- * in a \
- h1, h2, h3, h4, h5, h6
- *
- * Headline signatures that produce \
- clear - * - * A 'clear' signature is simply used to indicate that the next - * block should emit a CSS style attribute that clears any - * floating elements. The default behavior is to clear "both", - * but you can use the left (\< or right \>) alignment - * characters to indicate which side to clear. - * - *
- dl - * - * A "dl" signature is short for "definition list". See the - * "LISTS" section for more information. - * - *
- fn - * - * A "fn" signature is short for "footnote". You add a number - * following the "fn" keyword to number the footnote. Footnotes - * are output as paragraph tags but are given a special CSS - * class name which can be used to style them as you see fit. - * - *
-
- *
- *
{style rule}- * - * A CSS style rule. Style rules can span multiple lines.
- *
- * [ll]- * - * A language identifier (for a "lang" attribute).
- *
- * (class)or(#id)or(class#id)- * - * For CSS class and id attributes.
- *
- * \>,\<,=,\<\>- * - * Modifier characters for alignment. Right-justification, left-justification, - * centered, and full-justification.
- *
- * ((one or more) - * - * Adds padding on the left. 1em per "(" character is applied. - * When combined with the align-left or align-right modifier, - * it makes the block float.
- *
- * )(one or more) - * - * Adds padding on the right. 1em per ")" character is applied. - * When combined with the align-left or align-right modifier, - * it makes the block float.
- *
- * |filter|or|filter|filter|filter|- * - * A filter may be invoked to further format the text for this - * signature. If one or more filters are identified, the text - * will be processed first using the filters and then by - * Textile's own block formatting rules.
- *
- *
- * bq.. This is paragraph one of a block quote. - * - * This is paragraph two of a block quote. - * - * p. Now we're back to a regular paragraph. - *- * You can apply this technique to any signature (although for - * some it doesn't make sense, like "h1" for example). This is - * especially useful for "bc" blocks where your code may - * have many blank lines scattered through it. - * - * @subsection escaping Escaping - * - * Sometimes you want Textile to just get out of the way and - * let you put some regular HTML markup in your document. You - * can disable Textile formatting for a given block using the '==' - * escape mechanism: - *
- * p. Regular paragraph - * - * == - * Escaped portion -- will not be formatted - * by Textile at all - * == - * - * p. Back to normal. - *- * You can also use this technique within a Textile block, - * temporarily disabling the inline formatting functions: - *
- * p. This is ==*a test*== of escaping. - *- * @subsection inlineformatting Inline Formatting - * - * Formatting within a block of text is covered by the "inline" - * formatting rules. These operators must be placed up against - * text/punctuation to be recognized. These include: - * - *
-
- *
- *
*strong*- * - * Translates into \
- *
- * - _emphasis_
- *
- * Translates into \
**bold**- * - * Translates into \
- *
- * __italics__- * - * Translates into \
- *
- * ++bigger++- * - * Translates into \
- *
- * --smaller--- * - * Translates into: \
- *
- * -deleted text-- * - * Translates into \
- *
- * +inserted text+- * - * Translates into \
- *
- * ^superscript^- * - * Translates into \
- *
- * ~subscript~- * - * Translates into \
- *
- * \%span\%- * - * Translates into \
- *
- * \@code\@- * - * Translates into \
- *
- *
-
- *
- *
{style rule}- * - * A CSS style rule.
- *
- * [ll]- * - * A language identifier (for a "lang" attribute).
- *
- * (class)or(#id)or(class#id)- * - * For CSS class and id attributes.
- *
- *
- * Textile is *way* cool. - * - * Textile is *_way_* cool. - *- * Now this won't work, because the formatting - * characters need whitespace before and after - * to be properly recognized. - *
- * Textile is way c*oo*l. - *- * However, you can supply braces or brackets to - * further clarify that you want to format, so - * this would work: - *
- * Textile is way c[*oo*]l. - *- * @subsection footnotes Footnotes - * - * You can create footnotes like this: - *
- * And then he went on a long trip[1]. - *- * By specifying the brackets with a number inside, Textile will - * recognize that as a footnote marker. It will replace that with - * a construct like this: - *
- * And then he went on a long - * trip1 - *- * To supply the content of the footnote, place it at the end of your - * document using a "fn" block signature: - *
- * fn1. And there was much rejoicing. - *- * Which creates a paragraph that looks like this: - *
- *- * @subsection links Links - * - * Textile defines a shorthand for formatting hyperlinks. - * The format looks like this: - *1 And there was - * much rejoicing.
- *
- * "Text to display":http://example.com - *- * In addition to this, you can add 'title' text to your link: - *
- * "Text to display (Title text)":http://example.com - *- * The URL portion of the link supports relative paths as well - * as other protocols like ftp, mailto, news, telnet, etc. - *
- * "E-mail me please":mailto:someone\@example.com - *- * You can also use single quotes instead of double-quotes if - * you prefer. As with the inline formatting rules, a hyperlink - * must be surrounded by whitespace to be recognized (an - * exception to this is common punctuation which can reside - * at the end of the URL). If you have to place a URL next to - * some other text, use the bracket or brace trick to do that: - *
- * You["gotta":http://example.com]seethis! - *- * Textile supports an alternate way to compose links. You can - * optionally create a lookup list of links and refer to them - * separately. To do this, place one or more links in a block - * of it's own (it can be anywhere within your document): - *
- * [excom]http://example.com - * [exorg]http://example.org - *- * For a list like this, the text in the square brackets is - * used to uniquely identify the link given. To refer to that - * link, you would specify it like this: - *
- * "Text to display":excom - *- * Once you've defined your link lookup table, you can use - * the identifiers any number of times. - * - * @subsection images Images - * - * Images are identified by the following pattern: - *
- * !/path/to/image! - *- * Image attributes may also be specified: - *
- * !/path/to/image 10x20! - *- * Which will render an image 10 pixels wide and 20 pixels high. - * Another way to indicate width and height: - *
- * !/path/to/image 10w 20h! - *- * You may also redimension the image using a percentage. - *
- * !/path/to/image 20%x40%! - *- * Which will render the image at 20% of it's regular width - * and 40% of it's regular height. - * - * Or specify one percentage to resize proprotionately: - *
- * !/path/to/image 20%! - *- * Alt text can be given as well: - *
- * !/path/to/image (Alt text)! - *- * The path of the image may refer to a locally hosted image or - * can be a full URL. - * - * You can also use the following modifiers after the opening '!' - * character: - * - *
-
- *
- *
\<- * - * Align the image to the left (causes the image to float if - * CSS options are enabled).
- *
- * \>- * - * Align the image to the right (causes the image to float if - * CSS options are enabled).
- *
- * -(dash) - * - * Aligns the image to the middle.
- *
- * ^- * - * Aligns the image to the top.
- *
- * ~(tilde) - * - * Aligns the image to the bottom.
- *
- * {style rule}- * - * Applies a CSS style rule to the image.
- *
- * (class)or(#id)or(class#id)- * - * Applies a CSS class and/or id to the image.
- *
- * ((one or more) - * - * Pads 1em on the left for each '(' character.
- *
- * )(one or more) - * - * Pads 1em on the right for each ')' character.
- *
- *
- * (c) - * (r) - * (tm) - *- * In addition to these, there are a whole set of character - * macros that are defined by default. All macros are enclosed - * in curly braces. These include: - *
- * {c|} or {|c} cent sign
- * {L-} or {-L} pound sign
- * {Y=} or {=Y} yen sign
- *
- * Many of these macros can be guessed. For example:
- *
- * {A'} or {'A}
- * {a"} or {"a}
- * {1/4}
- * {*}
- * {:)}
- * {:(}
- *
- * @subsection lists Lists
- *
- * Textile also supports ordered and unordered lists.
- * You simply place an asterisk or pound sign, followed
- * with a space at the start of your lines.
- *
- * Simple lists:
- * - * * one - * * two - * * three - *- * Multi-level lists: - *
- * * one - * ** one A - * ** one B - * *** one B1 - * * two - * ** two A - * ** two B - * * three - *- * Ordered lists: - *
- * # one - * # two - * # three - *- * Styling lists: - *
- * (class#id)* one - * * two - * * three - *- * The above sets the class and id attributes for the \
- * *(class#id) one - * * two - * * three - *- * The above sets the class and id attributes for the first \
- * dl. textile:a cloth, especially one manufactured by weaving - * or knitting; a fabric - * format:the arrangement of data for storage or display. - *- * Note that there is no space between the term and definition. The - * term must be at the start of the line (or following the "dl" - * signature as shown above). - * - * @subsection tables Tables - * - * Textile supports tables. Tables must be in their own block and - * must have pipe characters delimiting the columns. An optional - * block signature of "table" may be used, usually for applying - * style, class, id or other options to the table element itself. - * - * From the simple: - *
- * |a|b|c| - * |1|2|3| - *- * To the complex: - *
- * table(fig). {color:red}_|Top|Row|
- * {color:blue}|/2. Second|Row|
- * |_{color:green}. Last|
- *
- * Modifiers can be specified for the table signature itself,
- * for a table row (prior to the first '|' character) and
- * for any cell (following the '|' for that cell). Note that for
- * cells, a period followed with a space must be placed after
- * any modifiers to distinguish the modifier from the cell content.
- *
- * Modifiers allowed are:
- *
- * -
- *
- *
{style rule}- * - * A CSS style rule.
- *
- * (class)or(#id)or(class#id)- * - * A CSS class and/or id attribute.
- *
- * ((one or more) - * - * Adds 1em of padding to the left for each '(' character.
- *
- * )(one or more) - * - * Adds 1em of padding to the right for each ')' character.
- *
- * \<- * - * Aligns to the left (floats to left for tables if combined with the - * ')' modifier).
- *
- * \>- * - * Aligns to the right (floats to right for tables if combined with - * the '(' modifier).
- *
- * =- * - * Aligns to center (sets left, right margins to 'auto' for tables).
- *
- * \<\>- * - * For cells only. Justifies text.
- *
- * ^- * - * For rows and cells only. Aligns to the top.
- *
- * ~(tilde) - * - * For rows and cells only. Aligns to the bottom.
- *
- * _(underscore) - * - * Can be applied to a table row or cell to indicate a header - * row or cell.
- *
- * \\2or\\3or\\4, etc. - * - * Used within cells to indicate a colspan of 2, 3, 4, etc. columns. - * When you see "\\", think "push forward".
- *
- * /2or/3or/4, etc. - * - * Used within cells to indicate a rowspan of 2, 3, 4, etc. rows. - * When you see "/", think "push downward".
- *
- *
-
- *
- *
- Aligning a block or span or other element to - * left, right, etc. - * - * "left" for left justified, "right" for right justified, - * "center" for centered text, "justify" for full-justified - * text. - * - *
- Aligning an image to the top or bottom - * - * "top" for top alignment, "bottom" for bottom alignment, - * "middle" for middle alignment. - * - *
- Footnotes - * - * "footnote" is applied to the paragraph tag for the - * footnote text itself. An id of "fn" plus the footnote - * number is placed on the paragraph for the footnote as - * well. For the footnote superscript tag, a class of - * "footnote" is used. - * - *
- Capped text - * - * For a series of characters that are uppercased, a - * span is placed around them with a class of "caps". - * - *
Header...
+ + Paragraph: p. (also applied by default) + Example: p. Text ->Text
+ + Blockquote: bq. + Example: bq. Block quotation... ->Block quotation...+ + Blockquote with citation: bq.:http://citation.url + Example: bq.:http://textism.com/ Text... + ->
Text...+ + Footnote: fn(1-100). + Example: fn1. Footnote... ->
Footnote...
+ + Numeric list: #, ## + Consecutive paragraphs beginning with # are wrapped in ordered list tags. + Example:- ordered list
- unordered list
computer code
+ %(bob)span% -> span
+
+ ==notextile== -> leave text alone (do not format)
+
+ "linktext":url -> linktext
+ "linktext(title)":url -> linktext
+
+ !imageurl! -> paragraph
+ + p(#fluid). paragraph ->paragraph
+ + (classes and ids can be combined) + p(hector#fluid). paragraph ->paragraph
+ + Curly {brackets} insert arbitrary css style + + p{line-height:18px}. paragraph ->paragraph
+ + h3{color:red}. header 3 ->header 3
+ + Square [brackets] insert language attributes + + p[no]. paragraph ->paragraph
+ + %[fr]phrase% -> phrase + + Usually Textile block element syntax requires a dot and space before the block + begins, but since lists don't, they can be styled just using braces + + #{color:blue} one ->-
+ # big
- one + # list
- big +
- list +
", "
\n", $text); + + return $text; + } + } + +// ------------------------------------------------------------- + function TextileRestricted($text, $lite=1, $noimage=1, $rel='nofollow') + { + $this->restricted = true; + $this->lite = $lite; + $this->noimage = $noimage; + if ($rel) + $this->rel = ' rel="'.$rel.'" '; + + // escape any raw html + $text = $this->encode_html($text, 0); + + $text = $this->cleanWhiteSpace($text); + $text = $this->getRefs($text); + + if ($lite) { + $text = $this->blockLite($text); + } + else { + $text = $this->block($text); + } + + $text = $this->retrieve($text); + + // just to be tidy + $text = str_replace("
", "
\n", $text); + + return $text; + } + +// ------------------------------------------------------------- + function pba($in, $element = "") // "parse block attributes" + { + $style = ''; + $class = ''; + $lang = ''; + $colspan = ''; + $rowspan = ''; + $id = ''; + $atts = ''; + + if (!empty($in)) { + $matched = $in; + if ($element == 'td') { + if (preg_match("/\\\\(\d+)/", $matched, $csp)) $colspan = $csp[1]; + if (preg_match("/\/(\d+)/", $matched, $rsp)) $rowspan = $rsp[1]; + } + + if ($element == 'td' or $element == 'tr') { + if (preg_match("/($this->vlgn)/", $matched, $vert)) + $style[] = "vertical-align:" . $this->vAlign($vert[1]) . ";"; + } + + if (preg_match("/\{([^}]*)\}/", $matched, $sty)) { + $style[] = rtrim($sty[1], ';') . ';'; + $matched = str_replace($sty[0], '', $matched); + } + + if (preg_match("/\[([^]]+)\]/U", $matched, $lng)) { + $lang = $lng[1]; + $matched = str_replace($lng[0], '', $matched); + } + + if (preg_match("/\(([^()]+)\)/U", $matched, $cls)) { + $class = $cls[1]; + $matched = str_replace($cls[0], '', $matched); + } + + if (preg_match("/([(]+)/", $matched, $pl)) { + $style[] = "padding-left:" . strlen($pl[1]) . "em;"; + $matched = str_replace($pl[0], '', $matched); + } + + if (preg_match("/([)]+)/", $matched, $pr)) { + // $this->dump($pr); + $style[] = "padding-right:" . strlen($pr[1]) . "em;"; + $matched = str_replace($pr[0], '', $matched); + } + + if (preg_match("/($this->hlgn)/", $matched, $horiz)) + $style[] = "text-align:" . $this->hAlign($horiz[1]) . ";"; + + if (preg_match("/^(.*)#(.*)$/", $class, $ids)) { + $id = $ids[2]; + $class = $ids[1]; + } + + if ($this->restricted) + return ($lang) ? ' lang="' . $lang .'"':''; + + return join('',array( + ($style) ? ' style="' . join("", $style) .'"':'', + ($class) ? ' class="' . $class .'"':'', + ($lang) ? ' lang="' . $lang .'"':'', + ($id) ? ' id="' . $id .'"':'', + ($colspan) ? ' colspan="' . $colspan .'"':'', + ($rowspan) ? ' rowspan="' . $rowspan .'"':'' + )); + } + return ''; + } + +// ------------------------------------------------------------- + function hasRawText($text) + { + // checks whether the text has text not already enclosed by a block tag + $r = trim(preg_replace('@<(p|blockquote|div|form|table|ul|ol|pre|h\d)[^>]*?>.*@s', '', trim($text))); + $r = trim(preg_replace('@<(hr|br)[^>]*?/>@', '', $r)); + return '' != $r; + } + +// ------------------------------------------------------------- + function table($text) + { + $text = $text . "\n\n"; + return preg_replace_callback("/^(?:table(_?{$this->s}{$this->a}{$this->c})\. ?\n)?^({$this->a}{$this->c}\.? ?\|.*\|)\n\n/smU", + array(&$this, "fTable"), $text); + } + +// ------------------------------------------------------------- + function fTable($matches) + { + $tatts = $this->pba($matches[1], 'table'); + + foreach(preg_split("/\|$/m", $matches[2], -1, PREG_SPLIT_NO_EMPTY) as $row) { + if (preg_match("/^($this->a$this->c\. )(.*)/m", ltrim($row), $rmtch)) { + $ratts = $this->pba($rmtch[1], 'tr'); + $row = $rmtch[2]; + } else $ratts = ''; + + $cells = array(); + foreach(explode("|", $row) as $cell) { + $ctyp = "d"; + if (preg_match("/^_/", $cell)) $ctyp = "h"; + if (preg_match("/^(_?$this->s$this->a$this->c\. )(.*)/", $cell, $cmtch)) { + $catts = $this->pba($cmtch[1], 'td'); + $cell = $cmtch[2]; + } else $catts = ''; + + $cell = $this->graf($this->span($cell)); + + if (trim($cell) != '') + $cells[] = "\t\t\t
)\n(?![#*\s|])@", '$1
', $m[3]); + return '<'.$m[1].$m[2].'>'.$content.$m[4]; + } + +// ------------------------------------------------------------- + function block($text) + { + $find = $this->btag; + $tre = join('|', $find); + + $text = explode("\n\n", $text); + + $tag = 'p'; + $atts = $cite = $graf = $ext = ''; + + foreach($text as $line) { + $anon = 0; + if (preg_match("/^($tre)($this->a$this->c)\.(\.?)(?::(\S+))? (.*)$/s", $line, $m)) { + // last block was extended, so close it + if ($ext) + $out[count($out)-1] .= $c1; + // new block + list(,$tag,$atts,$ext,$cite,$graf) = $m; + list($o1, $o2, $content, $c2, $c1) = $this->fBlock(array(0,$tag,$atts,$ext,$cite,$graf)); + + // leave off c1 if this block is extended, we'll close it at the start of the next block + if ($ext) + $line = $o1.$o2.$content.$c2; + else + $line = $o1.$o2.$content.$c2.$c1; + } + else { + // anonymous block + $anon = 1; + if ($ext or !preg_match('/^ /', $line)) { + list($o1, $o2, $content, $c2, $c1) = $this->fBlock(array(0,$tag,$atts,$ext,$cite,$line)); + // skip $o1/$c1 because this is part of a continuing extended block + if ($tag == 'p' and !$this->hasRawText($content)) { + $line = $content; + } + else { + $line = $o2.$content.$c2; + } + } + else { + $line = $this->graf($line); + } + } + + $line = $this->doPBr($line); + $line = preg_replace('/
/', '
', $line); + + if ($ext and $anon) + $out[count($out)-1] .= "\n".$line; + else + $out[] = $line; + + if (!$ext) { + $tag = 'p'; + $atts = ''; + $cite = ''; + $graf = ''; + } + } + if ($ext) $out[count($out)-1] .= $c1; + return join("\n\n", $out); + } + + + +// ------------------------------------------------------------- + function fBlock($m) + { + // $this->dump($m); + list(, $tag, $atts, $ext, $cite, $content) = $m; + $atts = $this->pba($atts); + + $o1 = $o2 = $c2 = $c1 = ''; + + if (preg_match("/fn(\d+)/", $tag, $fns)) { + $tag = 'p'; + $fnid = empty($this->fn[$fns[1]]) ? $fns[1] : $this->fn[$fns[1]]; + $atts .= ' id="fn' . $fnid . '"'; + if (strpos($atts, 'class=') === false) + $atts .= ' class="footnote"'; + $content = '' . $fns[1] . ' ' . $content; + } + + if ($tag == "bq") { + $cite = $this->checkRefs($cite); + $cite = ($cite != '') ? ' cite="' . $cite . '"' : ''; + $o1 = "\t
', '', 'fCode');
+ $text = $this->doSpecial($text, '@', '@', 'fCode');
+ $text = $this->doSpecial($text, '', '', 'fPre'); + return $text; + } + +// ------------------------------------------------------------- + function fCode($m) + { + @list(, $before, $text, $after) = $m; + if ($this->restricted) + // $text is already escaped + return $before.$this->shelve('
'.$text.'').$after;
+ else
+ return $before.$this->shelve(''.$this->encode_html($text).'').$after;
+ }
+
+// -------------------------------------------------------------
+ function fPre($m)
+ {
+ @list(, $before, $text, $after) = $m;
+ if ($this->restricted)
+ // $text is already escaped
+ return $before.''.$this->shelve($text).''.$after; + else + return $before.'
'.$this->shelve($this->encode_html($text)).''.$after; + } +// ------------------------------------------------------------- + function shelve($val) + { + $i = uniqid(rand()); + $this->shelf[$i] = $val; + return $i; + } + +// ------------------------------------------------------------- + function retrieve($text) + { + if (is_array($this->shelf)) + do { + $old = $text; + $text = strtr($text, $this->shelf); + } while ($text != $old); + + return $text; + } + +// ------------------------------------------------------------- +// NOTE: deprecated + function incomingEntities($text) + { + return preg_replace("/&(?![#a-z0-9]+;)/i", "x%x%", $text); + } + +// ------------------------------------------------------------- +// NOTE: deprecated + function encodeEntities($text) + { + return (function_exists('mb_encode_numericentity')) + ? $this->encode_high($text) + : htmlentities($text, ENT_NOQUOTES, "utf-8"); + } + +// ------------------------------------------------------------- +// NOTE: deprecated + function fixEntities($text) + { + /* de-entify any remaining angle brackets or ampersands */ + return str_replace(array(">", "<", "&"), + array(">", "<", "&"), $text); + } + +// ------------------------------------------------------------- + function cleanWhiteSpace($text) + { + $out = str_replace("\r\n", "\n", $text); + $out = preg_replace("/\n{3,}/", "\n\n", $out); + $out = preg_replace("/\n *\n/", "\n\n", $out); + $out = preg_replace('/"$/', "\" ", $out); + return $out; + } + +// ------------------------------------------------------------- + function doSpecial($text, $start, $end, $method='fSpecial') + { + return preg_replace_callback('/(^|\s|[[({>])'.preg_quote($start, '/').'(.*?)'.preg_quote($end, '/').'(\s|$|[\])}])?/ms', + array(&$this, $method), $text); + } + +// ------------------------------------------------------------- + function fSpecial($m) + { + // A special block like notextile or code + @list(, $before, $text, $after) = $m; + return $before.$this->shelve($this->encode_html($text)).$after; + } + +// ------------------------------------------------------------- + function noTextile($text) + { + $text = $this->doSpecial($text, '
'; + + return $out; + } + +// ------------------------------------------------------------- +// NOTE: deprecated + function txtgps($thing) + { + if (isset($_POST[$thing])) { + if (get_magic_quotes_gpc()) { + return stripslashes($_POST[$thing]); + } + else { + return $_POST[$thing]; + } + } + else { + return ''; + } + } + +// ------------------------------------------------------------- +// NOTE: deprecated + function dump() + { + foreach (func_get_args() as $a) + echo "\n
",(is_array($a)) ? print_r($a) : $a, "\n"; + } + +// ------------------------------------------------------------- + + function blockLite($text) + { + $this->btag = array('bq', 'p'); + return $this->block($text."\n\n"); + } + + +} // end class + +?> diff --git a/comments.php b/comments.php new file mode 100644 index 0000000..f75acee --- /dev/null +++ b/comments.php @@ -0,0 +1,115 @@ + + + =========================== */ +?> +deleteComment($_GET['delete']); + header("Location: comments.php?delete=true"); + die(); +} + +if(isset($_POST["btnAdd"])) { + unset($_POST["btnAdd"]); + $_POST["username"] = strip_tags($_POST["username"]); + $_POST["email"] = strip_tags($_POST["email"]); + $_POST["web"] = strip_tags($_POST["web"]); + + if (isset($_POST["id_comment"])) { + $comment->modifyComment($_POST, $_POST["id_comment"]); + } else { + $comment->generateCookie($_POST); + $_POST["spam"] = ($comment->isSpam($_POST)) ? "1" : "0"; + $_POST["ip_user"] = $_SERVER["REMOTE_ADDR"]; + + if ($comment->addComment($_POST)) { + header("Location: comments.php?added=true"); + die(); + } else { + header("Location: comments.php?added=false"); + die(); + } + } +} else { + if ($isEdition) { + $row = $comment->getCommentByID($userId); + } +?> + + + +
+
diff --git a/themes/tumblr/template_comments.htm b/themes/tumblr/template_comments.htm
new file mode 100644
index 0000000..9fd4b65
--- /dev/null
+++ b/themes/tumblr/template_comments.htm
@@ -0,0 +1,18 @@
+ Add your comment
+ + +
+
+ el <*Fecha*>
+ <*TextoComentario*> +
+