The script can use Drupal's fully populated \$node object or +the pattern placeholders, which are passed as ordinary PHP variables +(e.g. [week] becomes \$week). +Additionally, it is provided with two slightly different views to full categorization, +\$taxotree and \$taxopaths. Both are arrays with vocabulary +names as first level keys. Under them, \$taxopaths contains a string array of topic paths (e.g. +strtolower(\$taxopaths['focus'][0]) might return 'sports/ski') +whereas \$taxotree has a multi level tree of term names plus key '1' for each selected term (example: +isset(\$taxotree['focus']['sports']['ski'][1]) is True if term 'sport/ski' of vocabulary +'focus' is chosen). Function clean_alias(\$str, \$sep='-') removes accents and replaces +all non-ASCII characters with \$sep, making \$str suitable for use in a URL.
+EOD +); + + $items .= form_textarea(t('PHP script (optional)'), + 'pathauto_phpscript', + variable_get('pathauto_phpscript',''), + 65, + 14, + $script_description, + NULL, + FALSE); + + $examples = t('Pattern examples:'. 'The following examples of aliases generated from various patterns are all based on a node titled '. '"This is a (sample) node", created at 11:23 (am) on February 6, 2005, '. 'with a category of Sports, which is a subcategory of News, in the '. 'vocabulary Topics.
'. 'Use title by default but also add '. + 'a news-item alias if the node is sports related.
' . + 'if ( $taxotree["topic"]["sports"] ) '."\n". + ' $res[] = "sportsworld/$yyyy/$week/$dd_$hour_$min";' ."\n" . + '$res[] = "articles/$title";' ); $output .= form_group(t('Format settings'), $items, $examples); // %%% Should only show when there are unaliased nodes $items = ''; + $items .= form_checkbox(t('Test the rules'), 'pathauto_testrules', 1, FALSE, + t('Test the rules against all existing nodes. This only shows a list of generated aliases '. + 'without actually adding any.')); + variable_set('pathauto_testrules', FALSE); + $items .= form_checkbox(t('Bulk update'), 'pathauto_bulkupdate', 1, FALSE, - t('Generate aliases for all existing nodes which do not already have aliases.')); + t('Generate aliases for all existing nodes which do not already have aliases. '. + 'This works even if \'Enabled\' option is not checked.')); variable_set('pathauto_bulkupdate', FALSE); + $output .= form_group(t('Actions'), $items, t('')); return $output; @@ -152,9 +255,12 @@ $alias, $src)); } -// Generate an alias from a node's title -function _pathauto_generate_alias($node) { - if ($node->title && !$node->path) { +// Generate an alias from a node's title. If $do_add is true, +// also add it to the node. +function _pathauto_generate_alias($node, $do_add) { + $alias = false; + if (!$node->path || !variable_get('pathauto_onlymissing',true)) { + $separator = variable_get('pathauto_separator', '_'); // First transform the title @@ -162,61 +268,129 @@ // Now get all the placeholder data $placeholders = array(); - $placeholders['[title]'] = $title; + $placeholders['title'] = $title; // Date & time info - $placeholders['[yyyy]'] = date('Y', $node->created); - $placeholders['[mm]'] = date('m', $node->created); - $placeholders['[mon]'] = strtolower(date('M', $node->created)); - $placeholders['[dd]'] = date('d', $node->created); - $placeholders['[day]'] = strtolower(date('D', $node->created)); - $placeholders['[hour]'] = date('H', $node->created); - $placeholders['[min]'] = date('i', $node->created); - $placeholders['[sec]'] = date('s', $node->created); - $placeholders['[week]'] = date('W', $node->created); + $placeholders['yyyy'] = date('Y', $node->created); + $placeholders['yy'] = date('y', $node->created); + $placeholders['mm'] = date('m', $node->created); + $placeholders['mon'] = strtolower(date('M', $node->created)); + $placeholders['dd'] = date('d', $node->created); + $placeholders['day'] = strtolower(date('D', $node->created)); + $placeholders['hour'] = date('H', $node->created); + $placeholders['min'] = date('i', $node->created); + $placeholders['sec'] = date('s', $node->created); + $placeholders['week'] = date('W', $node->created); // Category info if (module_exist('taxonomy')) { $firsttermid = $node->taxonomy[0]; $term = taxonomy_get_term($firsttermid); - $placeholders['[cat]'] = _pathauto_cleanstring($term->name, $separator); + $placeholders['cat'] = _pathauto_cleanstring($term->name, $separator); $catpath = ''; $parents = taxonomy_get_parents_all($firsttermid); foreach ($parents as $parent) { $catpath = _pathauto_cleanstring($parent->name, $separator) . '/' . $catpath; } - $placeholders['[catpath]'] = $catpath; + $placeholders['catpath'] = $catpath; $vid = $term->vid; $vocabulary = taxonomy_get_vocabulary($vid); - $placeholders['[vocab]'] = _pathauto_cleanstring($vocabulary->name, $separator); + $placeholders['vocab'] = _pathauto_cleanstring($vocabulary->name, $separator); + + // Build a taxonomy tree and path string array. + $taxotree = array(); + $taxopaths = array(); + $taxon = $node->taxonomy; + if ( !is_array($taxon)) + $taxon = array(); + foreach ($taxon as $tid) + { + $term = taxonomy_get_term($tid); + $voc = taxonomy_get_vocabulary($term->vid); + if ( !isset($taxotree[$voc->name])) + $taxotree[$voc->name] = array(); + $parents = taxonomy_get_parents_all($tid); + $branch = &$taxotree[$voc->name]; + $branch_names = array(); + foreach (array_reverse($parents) as $p) { + $branch_names[] = $p->name; + if ( !isset($branch[$p->name])) + $branch[$p->name] = array(); + if ( $p->tid == $tid ) + { + $branch[$p->name][1] = 1; + $taxopaths[$voc->name][] = join('/', $branch_names); + } + $branch = &$branch[$p->name]; + } + } } + $aliases = array(); + $script = variable_get('pathauto_phpscript',''); + if (strlen(trim($script))) { + + // Load the node in full + $node = node_load( array('nid' => (int)$node->nid )); + + // Provide the script with string sanitizer + if ( !function_exists('clean_alias')) { + function clean_alias($str, $sep="-") { + return _pathauto_cleanstring($str, $sep); + } + } + $res = array(); + extract($placeholders); + eval($script); + if ( !is_array($res)) // recover if user e.g. replaced $res with a string + $res = array( ''.$res ); + $aliases = $res; + } + else { // Retrieve and apply the pattern $pattern = strtolower(variable_get('pathauto_pattern', '[title]')); - $alias = str_replace(array_keys($placeholders), $placeholders, $pattern); + $tokens = array(); + foreach( array_keys($placeholders) as $k ) + $tokens[] = "[$k]"; + $alias = str_replace($tokens, $placeholders, $pattern); $alias = strtolower($alias); // Two or more slashes should be collapsed into one $alias = preg_replace("/\/+/", "/", $alias); // Trim any leading or trailing slashes $alias = preg_replace("/^\/|\/+$/", "", $alias); + $aliases[] = $alias; + } $src = "node/$node->nid"; // If the alias already exists, generate a new variant - if (_pathauto_alias_exists($alias, $src)) { - for ($i=0; _pathauto_alias_exists($alias.$separator.$i, $src); $i++) { + foreach( $aliases as $k => $a ) { + if (_pathauto_alias_exists($a, $src)) { + for ($i=0; _pathauto_alias_exists($a.$separator.$i, $src); $i++) { } - $alias = $alias.$separator.$i; + $aliases[$k] = $a.$separator.$i; } - path_set_alias($src, $alias); } - return $alias; + if ($do_add) + foreach( $aliases as $a ) + path_set_alias($src, $a); + } + return $aliases; } + function _pathauto_cleanstring($string, $separator) { // Drop apostrophes $output = str_replace("'", "", $string); + // Convert accented characters to their ASCII counterparts + $output = utf8_encode(strtr(utf8_decode($output), + "\xe1\xc1\xe0\xc0\xe2\xc2\xe4\xc4\xe3\xc3\xe5\xc5". + "\xaa\xe7\xc7\xe9\xc9\xe8\xc8\xea\xca\xeb\xcb\xed". + "\xcd\xec\xcc\xee\xce\xef\xcf\xf1\xd1\xf3\xd3\xf2". + "\xd2\xf4\xd4\xf6\xd6\xf5\xd5\x8\xd8\xba\xf0\xfa". + "\xda\xf9\xd9\xfb\xdb\xfc\xdc\xfd\xdd\xff\xe6\xc6\xdf", + 'aAaAaAaAaAaAacCeEeEeEeEiIiIiIiInNoOoOoOoOoOoOoouUuUuUuUyYyaAs')); // Any sequence of one or more non-alphanumerics // should become a separator $output = preg_replace('/[\W]+/ ', $separator, $output); @@ -231,11 +405,16 @@ return $output; } -// Generate aliases for all nodes without aliases -function _pathauto_bulkupdate() { - $query = 'SELECT nid,title,created,src,dst FROM {node} '. +// Generate aliases for all nodes. If $only_listing is false, add them to nodes +// and if true, only return a list. +function _pathauto_processall( $do_add ) { + if ( variable_get('pathauto_onlymissing', true)) + $query .= 'SELECT nid,title,created,src,dst FROM {node}' . "LEFT JOIN {url_alias} ON CONCAT('node/', nid) = src ". 'WHERE dst is null'; + else + $query .= 'SELECT nid,title,created FROM {node}'; + $result = db_query($query); $node = db_fetch_object($result); if (!$node) { @@ -243,15 +422,17 @@ return; } + $generated = array(); while ($node) { if (module_exist('taxonomy')) { // Must populate the terms for the node here for the // category placeholders to work $node->taxonomy = array_keys(taxonomy_node_get_terms($node->nid)); } - _pathauto_generate_alias($node); + $generated[$node->nid] = _pathauto_generate_alias($node, $do_add); $node = db_fetch_object($result); } + return $generated; } ?>