X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=drupal%2Fmodules%2Fcvsfilter.module;fp=drupal%2Fmodules%2Fcvsfilter.module;h=84f5127a19b821381b3f038d5ccb8834bfcadedf;hp=0000000000000000000000000000000000000000;hb=23eb137b54db28e622d70ec9b451c75ef752b047;hpb=2bdaa7ec002da2b8f6c96089ed5c9c81d8dd4194

diff --git a/drupal/modules/cvsfilter.module b/drupal/modules/cvsfilter.module
new file mode 100644
index 0000000..84f5127
--- /dev/null
+++ b/drupal/modules/cvsfilter.module
@@ -0,0 +1,33 @@
+<?php
+// $Id$
+// -*- php -*- vim: ft=php
+
+function cvsfilter_help($section) {
+  switch ($section) {
+    case 'admin/system/modules#description':
+      return t("Automatically points cvs: style URLs at the appropriate location.");
+  }
+}
+
+function cvsfilter_filter($op, $text = "") {
+  switch ($op) {
+    case "name":
+      return t("CVS Filter");
+    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/\1?cvsroot=tpope">', $text);
+      $text = preg_replace("/<a href=\"cvs://([^\"/]*)/?([^\"]*)\">/i", '<a href="http://sexygeek.us/cgi-bin/cvsweb/\2?cvsroot=\1">', $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);
+      return $text;
+    default:
+      return $text;
+  }
+  return $text;
+}
+
+
+?>