Initial commit.

lib/php/monica/addslash.inc.php

@@ -0,0 +1,60 @@
+<?php
+// File name:	addslash.inc.php
+// Description:	PHP subroutine to have addslashes() in different versions
+// Date:	2003-03-18
+// Author:	imacat <imacat@pristine.com.tw>
+// Copyright:	Copyright (C) 2003-2007 Pristine Communications
+
+// addslashes_like: addslashes() in like version
+//   Removed.  Replaced with sql_esclike()
+
+// addslashes_re: addslashes() in regular expression version
+function addslashes_re($s)
+{
+    // Cache the result
+    static $cache = array();
+    // Return the cache
+    if (array_key_exists($s, $cache)) {
+        return $cache[$s];
+    }
+    $r = $s;
+    $r = preg_replace("/\\\\/", "\\\\\\\\", $r);
+    $r = preg_replace("/(\W)/", "\\\\$1", $r);
+    if (preg_match("/^\w/", $s)) {
+        $r = "[[:<:]]" . $r;
+    }
+    if (preg_match("/\w$/", $s)) {
+        $r = $r . "[[:>:]]";
+    }
+    $cache[$s] = $r;
+    return $r;
+}
+
+// addslashes_re_php: addslashes() in PHP preg_* version
+function addslashes_re_php($s)
+{
+    // Cache the result
+    static $cache = array();
+    // Return the cache
+    if (array_key_exists($s, $cache)) {
+        return $cache[$s];
+    }
+    $r = $s;
+    // ASCII punctuations area
+    $r = preg_replace("/([\\x21-\\x2F\\x3A-\\x40\\x5B-\\x60\\x7B-\\x7E])/", "\\\\$1", $r);
+    $r = str_replace("\n", "\\n", $r);
+    $r = str_replace("\r", "\\r", $r);
+    $r = str_replace("\t", "\\t", $r);
+    // Disabled.  It may not always be a word piece.
+    // To be designed a better handling method on this issue.
+    //if (preg_match("/^\w/", $s)) {
+    //    $r = "\\b" . $r;
+    //}
+    //if (preg_match("/\w$/", $s)) {
+    //    $r = $r . "\\b";
+    //}
+    $cache[$s] = $r;
+    return $r;
+}
+
+?>