function cvsfilter_help($section) {
switch ($section) {
+ case 'admin/modules#description':
case 'admin/system/modules#description':
return t("Automatically points cvs: style URLs at the appropriate location.");
+ break;
}
}
-function cvsfilter_filter($op, $text = "") {
+function cvsfilter_filter($op, $delta = 0, $format = -1, $text = "") {
switch ($op) {
case "name":
return t("CVS Filter");
+ case "list":
+ return array(0 => t("CVS Filter"));
+ case 'description':
+ return cvsfilter_help('admin/modules#description');
case "settings":
return form_group(t("URL Filter"), t("CVS Filter is enabled. This means that cvs: style URLs will automatically be pointed at the appropriate location."));
case "process":
- //$text = " " . $text . " ";
- $text = preg_replace("/<a href=\"cvs:\/\/([^\"\/]*)\/?([^\"]*)\">/i", '<a href="http://sexygeek.us/cgi-bin/cvsweb/\2?cvsroot=\1">', $text);
- $text = preg_replace("/<a href=\"cvs:([^\"]*)\">/i", '<a href="http://sexygeek.us/cgi-bin/cvsweb/\1?cvsroot=tpope">', $text);
-// $text = preg_replace("<([ \n\r\t\(])([A-Za-z0-9._-]+@[A-Za-z0-9._-]+\.[A-Za-z]{2,4})([.,]?)(?=[ \n\r\t\)])>i", '\1<a href="mailto:\2">\2</a>\3', $text);
-// $text = preg_replace("<([ \n\r\t\(])(www\.[a-zA-Z0-9@:%_~#?&=.,/;-]*[a-zA-Z0-9@:%_~#\&=/;-])([.,?]?)(?=[ \n\r\t\)])>i", '\1<a href="http://\2">\2</a>\3', $text);
- //$text = substr($text, 1, -1);
+ $text = preg_replace("/<a href=\"cvs:\/\/([^\"\/]*)\/?([^\"]*)\">/i", '<a href="http://www.sexygeek.us/cgi-bin/cvsweb/\2?cvsroot=\1">', $text);
+ $text = preg_replace("/<a href=\"cvs:([^\"]*)\">/i", '<a href="http://www.sexygeek.us/cgi-bin/cvsweb/\1?cvsroot=tpope">', $text);
return $text;
default:
return $text;