commit c51e6abc632e321bb82148603a5e82c623654d01 Author: ahwelp Date: Thu Sep 6 17:44:31 2018 -0300 First commit diff --git a/composer.json b/composer.json new file mode 100644 index 0000000..7db719e --- /dev/null +++ b/composer.json @@ -0,0 +1,12 @@ +{ + "name": "ahwelp/request-response", + "description": "Requests and responses", + "type": "library", + "authors": [ + { + "name": "ahwelp", + "email": "ahwelp@universo.univates.br" + } + ], + "require": {} +} diff --git a/src/RequestResponse/Flash.php b/src/RequestResponse/Flash.php new file mode 100755 index 0000000..b0df6a2 --- /dev/null +++ b/src/RequestResponse/Flash.php @@ -0,0 +1,108 @@ + 'error', + self::WARNING => 'warning', + self::SUCCESS => 'success', + self::INFO => 'info', + ]; + + public $old_messages = Array(); + + public $new_messages = Array(); + + //SINGLETON============================================== + + private function __construct(){ + if(session_id() == '' || !isset($_SESSION)) { + session_start(); + } + $this->old_messages = $_SESSION['flashes']; + unset( $_SESSION[self::SESSION_NAME] ); + } + + private static function newObj(){ + if (!isset( self::$_response )) { + self::$_response = new Flash(); + } + return self::$_response; + } + + public function getInstance(){ + if (!isset(self::$_response)) { + return self::newObj(); + } + return self::$_response; + } + //======================================================= + + public function load_to_session(){ + $_SESSION[self::SESSION_NAME] = $this->new_messages; + } + + public static function add_message($type = self::defaultType, $message){ + $instance = self::getInstance(); + $instance->new_messages[$type] = $message; + $instance->load_to_session(); + } + + public static function add_info($message){ + $instance = self::getInstance(); + $instance->new_messages[self::INFO] = $message; + $instance->load_to_session(); + } + + public static function add_error($message){ + $instance = self::getInstance(); + $instance->new_messages[self::ERROR] = $message; + $instance->load_to_session(); + } + + public static function get_errors(){ + if(!self::has_errors()){ + return Array(); + } + return self::getInstance()->old_messages[self::ERROR]; + } + + public static function get_infos(){ + if(!self::has_info()){ + return Array(); + } + return self::getInstance()->old_messages[self::INFO]; + } + + public static function has_errors(){ + $instance = self::getInstance(); + if( array_key_exists(self::ERROR, $instance->old_messages ) ){ + return true; + }else{ + return false; + } + } + + public static function has_info(){ + $instance = self::getInstance(); + if( array_key_exists(self::INFO, $instance->old_messages ) ){ + return true; + }else{ + return false; + } + } + +} diff --git a/src/RequestResponse/Request.php b/src/RequestResponse/Request.php new file mode 100755 index 0000000..5f7b7ba --- /dev/null +++ b/src/RequestResponse/Request.php @@ -0,0 +1,808 @@ + $value) { + if (!preg_match('/^[a-z0-9_-]+$/i', $key)) { + continue; + } + $result[$key] = clean_param($value, $type); + } + return $result; + } + + + public static function optional_param($parname, $default = '', $type){ + if (func_num_args() != 3 or empty($parname) or empty($type)) { + throw new \Exception('optional_param requires $parname, $default + $type to be specified (parameter: '.$parname.')'); + } + + if (isset($_POST[$parname])) { + $param = $_POST[$parname]; + } else if (isset($_GET[$parname])) { + $param = $_GET[$parname]; + } else { + return $default; + } + + if (is_array($param)) { + return optional_param_array($parname, $default, $type); + } + + return self::clean_param($param, $type); + } + + public static function optional_param_array($parname, $default = Array(), $type) { + if (func_num_args() != 3 or empty($parname) or empty($type)) { + throw new \Exception('optional_param_array requires $parname, $default + $type to be specified (parameter: '.$parname.')'); + } + + // POST has precedence. + if (isset($_POST[$parname])) { + $param = $_POST[$parname]; + } else if (isset($_GET[$parname])) { + $param = $_GET[$parname]; + } else { + return $default; + } + if (!is_array($param)) { + return $default; + } + + $result = array(); + foreach ($param as $key => $value) { + if (!preg_match('/^[a-z0-9_-]+$/i', $key)) { + continue; + } + } + + return $result; + } + + /** + * Used by {@link optional_param()} and {@link required_param()} to + * clean the variables and/or cast to specific types, based on + * an options field. + * + * $course->format = clean_param($course->format, PARAM_ALPHA); + * $selectedgradeitem = clean_param($selectedgradeitem, PARAM_INT); + * + * + * @param mixed $param the variable we are cleaning + * @param string $type expected format of param after cleaning. + * @return mixed + * @throws coding_exception + */ + public static function clean_param($param, $type) { + global $CFG; + + if (is_array($param)) { + throw new coding_exception('clean_param() can not process arrays, please use clean_param_array() instead.'); + } else if (is_object($param)) { + if (method_exists($param, '__toString')) { + $param = $param->__toString(); + } else { + throw new coding_exception('clean_param() can not process objects, please use clean_param_array() instead.'); + } + } + + switch ($type) { + case PARAM_RAW: + // No cleaning at all. + $param = fix_utf8($param); + return $param; + + case PARAM_RAW_TRIMMED: + // No cleaning, but strip leading and trailing whitespace. + $param = fix_utf8($param); + return trim($param); + + case PARAM_INT: + // Convert to integer. + return (int)$param; + + case PARAM_FLOAT: + // Convert to float. + return (float)$param; + + case PARAM_ALPHA: + // Remove everything not `a-z`. + return preg_replace('/[^a-zA-Z]/i', '', $param); + + case PARAM_ALPHAEXT: + // Remove everything not `a-zA-Z_-` (originally allowed "/" too). + return preg_replace('/[^a-zA-Z_-]/i', '', $param); + + case PARAM_ALPHANUM: + // Remove everything not `a-zA-Z0-9`. + return preg_replace('/[^A-Za-z0-9]/i', '', $param); + + case PARAM_ALPHANUMEXT: + // Remove everything not `a-zA-Z0-9_-`. + return preg_replace('/[^A-Za-z0-9_-]/i', '', $param); + + case PARAM_SEQUENCE: + // Remove everything not `0-9,`. + return preg_replace('/[^0-9,]/i', '', $param); + + case PARAM_BOOL: + // Convert to 1 or 0. + $tempstr = strtolower($param); + if ($tempstr === 'on' or $tempstr === 'yes' or $tempstr === 'true') { + $param = 1; + } else if ($tempstr === 'off' or $tempstr === 'no' or $tempstr === 'false') { + $param = 0; + } else { + $param = empty($param) ? 0 : 1; + } + return $param; + + case PARAM_NOTAGS: + // Strip all tags. + $param = fix_utf8($param); + return strip_tags($param); + + case PARAM_TEXT: + // Leave only tags needed for multilang. + $param = fix_utf8($param); + // If the multilang syntax is not correct we strip all tags because it would break xhtml strict which is required + // for accessibility standards please note this cleaning does not strip unbalanced '>' for BC compatibility reasons. + do { + if (strpos($param, '') !== false) { + // Old and future mutilang syntax. + $param = strip_tags($param, ''); + if (!preg_match_all('/<.*>/suU', $param, $matches)) { + break; + } + $open = false; + foreach ($matches[0] as $match) { + if ($match === '') { + if ($open) { + $open = false; + continue; + } else { + break 2; + } + } + if (!preg_match('/^$/u', $match)) { + break 2; + } else { + $open = true; + } + } + if ($open) { + break; + } + return $param; + + } else if (strpos($param, '') !== false) { + // Current problematic multilang syntax. + $param = strip_tags($param, ''); + if (!preg_match_all('/<.*>/suU', $param, $matches)) { + break; + } + $open = false; + foreach ($matches[0] as $match) { + if ($match === '') { + if ($open) { + $open = false; + continue; + } else { + break 2; + } + } + if (!preg_match('/^$/u', $match)) { + break 2; + } else { + $open = true; + } + } + if ($open) { + break; + } + return $param; + } + } while (false); + // Easy, just strip all tags, if we ever want to fix orphaned '&' we have to do that in format_string(). + return strip_tags($param); + + case PARAM_COMPONENT: + // We do not want any guessing here, either the name is correct or not + // please note only normalised component names are accepted. + if (!preg_match('/^[a-z]+(_[a-z][a-z0-9_]*)?[a-z0-9]+$/', $param)) { + return ''; + } + if (strpos($param, '__') !== false) { + return ''; + } + if (strpos($param, 'mod_') === 0) { + // Module names must not contain underscores because we need to differentiate them from invalid plugin types. + if (substr_count($param, '_') != 1) { + return ''; + } + } + return $param; + + + case PARAM_SAFEDIR: + // Remove everything not a-zA-Z0-9_- . + return preg_replace('/[^a-zA-Z0-9_-]/i', '', $param); + + case PARAM_SAFEPATH: + // Remove everything not a-zA-Z0-9/_- . + return preg_replace('/[^a-zA-Z0-9\/_-]/i', '', $param); + + case PARAM_FILE: + // Strip all suspicious characters from filename. + $param = fix_utf8($param); + $param = preg_replace('~[[:cntrl:]]|[&<>"`\|\':\\\\/]~u', '', $param); + if ($param === '.' || $param === '..') { + $param = ''; + } + return $param; + + case PARAM_PATH: + // Strip all suspicious characters from file path. + $param = fix_utf8($param); + $param = str_replace('\\', '/', $param); + + // Explode the path and clean each element using the PARAM_FILE rules. + $breadcrumb = explode('/', $param); + foreach ($breadcrumb as $key => $crumb) { + if ($crumb === '.' && $key === 0) { + // Special condition to allow for relative current path such as ./currentdirfile.txt. + } else { + $crumb = clean_param($crumb, PARAM_FILE); + } + $breadcrumb[$key] = $crumb; + } + $param = implode('/', $breadcrumb); + + // Remove multiple current path (./././) and multiple slashes (///). + $param = preg_replace('~//+~', '/', $param); + $param = preg_replace('~/(\./)+~', '/', $param); + return $param; + + case PARAM_HOST: + // Allow FQDN or IPv4 dotted quad. + $param = preg_replace('/[^\.\d\w-]/', '', $param ); + // Match ipv4 dotted quad. + if (preg_match('/(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/', $param, $match)) { + // Confirm values are ok. + if ( $match[0] > 255 + || $match[1] > 255 + || $match[3] > 255 + || $match[4] > 255 ) { + // Hmmm, what kind of dotted quad is this? + $param = ''; + } + } else if ( preg_match('/^[\w\d\.-]+$/', $param) // Dots, hyphens, numbers. + && !preg_match('/^[\.-]/', $param) // No leading dots/hyphens. + && !preg_match('/[\.-]$/', $param) // No trailing dots/hyphens. + ) { + // All is ok - $param is respected. + } else { + // All is not ok... + $param=''; + } + return $param; + + case PARAM_URL: // Allow safe ftp, http, mailto urls. + $param = fix_utf8($param); + if (!empty($param) && self::validateUrlSyntax($param, 's?H?S?F?E?u-P-a?I?p?f?q?r?')) { + // All is ok, param is respected. + } else { + // Not really ok. + $param =''; + } + return $param; + + + case PARAM_PEM: + $param = trim($param); + // PEM formatted strings may contain letters/numbers and the symbols: + // forward slash: / + // plus sign: + + // equal sign: = + // , surrounded by BEGIN and END CERTIFICATE prefix and suffixes. + if (preg_match('/^-----BEGIN CERTIFICATE-----([\s\w\/\+=]+)-----END CERTIFICATE-----$/', trim($param), $matches)) { + list($wholething, $body) = $matches; + unset($wholething, $matches); + $b64 = clean_param($body, PARAM_BASE64); + if (!empty($b64)) { + return "-----BEGIN CERTIFICATE-----\n$b64\n-----END CERTIFICATE-----\n"; + } else { + return ''; + } + } + return ''; + + case PARAM_BASE64: + if (!empty($param)) { + // PEM formatted strings may contain letters/numbers and the symbols + // forward slash: / + // plus sign: + + // equal sign: =. + if (0 >= preg_match('/^([\s\w\/\+=]+)$/', trim($param))) { + return ''; + } + $lines = preg_split('/[\s]+/', $param, -1, PREG_SPLIT_NO_EMPTY); + // Each line of base64 encoded data must be 64 characters in length, except for the last line which may be less + // than (or equal to) 64 characters long. + for ($i=0, $j=count($lines); $i < $j; $i++) { + if ($i + 1 == $j) { + if (64 < strlen($lines[$i])) { + return ''; + } + continue; + } + + if (64 != strlen($lines[$i])) { + return ''; + } + } + return implode("\n", $lines); + } else { + return ''; + } + + case PARAM_TAGLIST: + $param = fix_utf8($param); + $tags = explode(',', $param); + $result = array(); + foreach ($tags as $tag) { + $res = clean_param($tag, PARAM_TAG); + if ($res !== '') { + $result[] = $res; + } + } + if ($result) { + return implode(',', $result); + } else { + return ''; + } + + + + + + + + + + case PARAM_USERNAME: + $param = fix_utf8($param); + $param = trim($param); + // Convert uppercase to lowercase MDL-16919. + $param = core_text::strtolower($param); + if (empty($CFG->extendedusernamechars)) { + $param = str_replace(" " , "", $param); + // Regular expression, eliminate all chars EXCEPT: + // alphanum, dash (-), underscore (_), at sign (@) and period (.) characters. + $param = preg_replace('/[^-\.@_a-z0-9]/', '', $param); + } + return $param; + + case PARAM_EMAIL: + $param = fix_utf8($param); + if (validate_email($param)) { + return $param; + } else { + return ''; + } + + case PARAM_STRINGID: + if (preg_match('|^[a-zA-Z][a-zA-Z0-9\.:/_-]*$|', $param)) { + return $param; + } else { + return ''; + } + + case PARAM_TIMEZONE: + // Can be int, float(with .5 or .0) or string seperated by '/' and can have '-_'. + $param = fix_utf8($param); + $timezonepattern = '/^(([+-]?(0?[0-9](\.[5|0])?|1[0-3](\.0)?|1[0-2]\.5))|(99)|[[:alnum:]]+(\/?[[:alpha:]_-])+)$/'; + if (preg_match($timezonepattern, $param)) { + return $param; + } else { + return ''; + } + + default: + // Doh! throw error, switched parameters in optional_param or another serious problem. + print_error("unknownparamtype", '', '', $type); + } + } + + function fix_utf8($value) { + if (is_null($value) or $value === '') { + return $value; + + } else if (is_string($value)) { + if ((string)(int)$value === $value) { + // Shortcut. + return $value; + } + // No null bytes expected in our data, so let's remove it. + $value = str_replace("\0", '', $value); + + // Note: this duplicates min_fix_utf8() intentionally. + static $buggyiconv = null; + if ($buggyiconv === null) { + $buggyiconv = (!function_exists('iconv') or @iconv('UTF-8', 'UTF-8//IGNORE', '100'.chr(130).'€') !== '100€'); + } + + if ($buggyiconv) { + if (function_exists('mb_convert_encoding')) { + $subst = mb_substitute_character(); + mb_substitute_character(''); + $result = mb_convert_encoding($value, 'utf-8', 'utf-8'); + mb_substitute_character($subst); + + } else { + // Warn admins on admin/index.php page. + $result = $value; + } + + } else { + $result = @iconv('UTF-8', 'UTF-8//IGNORE', $value); + } + + return $result; + + } else if (is_array($value)) { + foreach ($value as $k => $v) { + $value[$k] = fix_utf8($v); + } + return $value; + + } else if (is_object($value)) { + // Do not modify original. + $value = clone($value); + foreach ($value as $k => $v) { + $value->$k = fix_utf8($v); + } + return $value; + + } else { + // This is some other type, no utf-8 here. + return $value; + } + } + + /** + * Validations + * @param $urladdr + * @param string $options + * @return bool + */ + + function validateUrlSyntax( $urladdr, $options="" ){ + + // Force Options parameter to be lower case + // DISABLED PERMAMENTLY - OK to remove from code + // $options = strtolower($options); + + // Check Options Parameter + if (!preg_match( '/^([sHSEFuPaIpfqr][+?-])*$/', $options )) + { + trigger_error("Options attribute malformed", E_USER_ERROR); + } + + // Set Options Array, set defaults if options are not specified + // Scheme + if (strpos( $options, 's') === false) $aOptions['s'] = '?'; + else $aOptions['s'] = substr( $options, strpos( $options, 's') + 1, 1); + // http:// + if (strpos( $options, 'H') === false) $aOptions['H'] = '?'; + else $aOptions['H'] = substr( $options, strpos( $options, 'H') + 1, 1); + // https:// (SSL) + if (strpos( $options, 'S') === false) $aOptions['S'] = '?'; + else $aOptions['S'] = substr( $options, strpos( $options, 'S') + 1, 1); + // mailto: (email) + if (strpos( $options, 'E') === false) $aOptions['E'] = '-'; + else $aOptions['E'] = substr( $options, strpos( $options, 'E') + 1, 1); + // ftp:// + if (strpos( $options, 'F') === false) $aOptions['F'] = '-'; + else $aOptions['F'] = substr( $options, strpos( $options, 'F') + 1, 1); + // User section + if (strpos( $options, 'u') === false) $aOptions['u'] = '?'; + else $aOptions['u'] = substr( $options, strpos( $options, 'u') + 1, 1); + // Password in user section + if (strpos( $options, 'P') === false) $aOptions['P'] = '?'; + else $aOptions['P'] = substr( $options, strpos( $options, 'P') + 1, 1); + // Address Section + if (strpos( $options, 'a') === false) $aOptions['a'] = '+'; + else $aOptions['a'] = substr( $options, strpos( $options, 'a') + 1, 1); + // IP Address in address section + if (strpos( $options, 'I') === false) $aOptions['I'] = '?'; + else $aOptions['I'] = substr( $options, strpos( $options, 'I') + 1, 1); + // Port number + if (strpos( $options, 'p') === false) $aOptions['p'] = '?'; + else $aOptions['p'] = substr( $options, strpos( $options, 'p') + 1, 1); + // File Path + if (strpos( $options, 'f') === false) $aOptions['f'] = '?'; + else $aOptions['f'] = substr( $options, strpos( $options, 'f') + 1, 1); + // Query Section + if (strpos( $options, 'q') === false) $aOptions['q'] = '?'; + else $aOptions['q'] = substr( $options, strpos( $options, 'q') + 1, 1); + // Fragment (Anchor) + if (strpos( $options, 'r') === false) $aOptions['r'] = '?'; + else $aOptions['r'] = substr( $options, strpos( $options, 'r') + 1, 1); + + + // Loop through options array, to search for and replace "-" to "{0}" and "+" to "" + foreach($aOptions as $key => $value) + { + if ($value == '-') + { + $aOptions[$key] = '{0}'; + } + if ($value == '+') + { + $aOptions[$key] = ''; + } + } + + // DEBUGGING - Unescape following line to display to screen current option values + // echo '
'; print_r($aOptions); echo '
'; + + + // Preset Allowed Characters + $alphanum = '[a-zA-Z0-9]'; // Alpha Numeric + $unreserved = '[a-zA-Z0-9_.!~*' . '\'' . '()-]'; + $escaped = '(%[0-9a-fA-F]{2})'; // Escape sequence - In Hex - %6d would be a 'm' + $reserved = '[;/?:@&=+$,]'; // Special characters in the URI + + // Beginning Regular Expression + // Scheme - Allows for 'http://', 'https://', 'mailto:', or 'ftp://' + $scheme = '('; + if ($aOptions['H'] === '') { $scheme .= 'http://'; } + elseif ($aOptions['S'] === '') { $scheme .= 'https://'; } + elseif ($aOptions['E'] === '') { $scheme .= 'mailto:'; } + elseif ($aOptions['F'] === '') { $scheme .= 'ftp://'; } + else + { + if ($aOptions['H'] === '?') { $scheme .= '|(http://)'; } + if ($aOptions['S'] === '?') { $scheme .= '|(https://)'; } + if ($aOptions['E'] === '?') { $scheme .= '|(mailto:)'; } + if ($aOptions['F'] === '?') { $scheme .= '|(ftp://)'; } + $scheme = str_replace('(|', '(', $scheme); // fix first pipe + } + $scheme .= ')' . $aOptions['s']; + // End setting scheme + + // User Info - Allows for 'username@' or 'username:password@'. Note: contrary to rfc, I removed ':' from username section, allowing it only in password. + // /---------------- Username -----------------------\ /-------------------------------- Password ------------------------------\ + $userinfo = '((' . $unreserved . '|' . $escaped . '|[;&=+$,]' . ')+(:(' . $unreserved . '|' . $escaped . '|[;:&=+$,]' . ')+)' . $aOptions['P'] . '@)' . $aOptions['u']; + + // IP ADDRESS - Allows 0.0.0.0 to 255.255.255.255 + $ipaddress = '((((2(([0-4][0-9])|(5[0-5])))|([01]?[0-9]?[0-9]))\.){3}((2(([0-4][0-9])|(5[0-5])))|([01]?[0-9]?[0-9])))'; + + // Tertiary Domain(s) - Optional - Multi - Although some sites may use other characters, the RFC says tertiary domains have the same naming restrictions as second level domains + $domain_tertiary = '(' . $alphanum . '(([a-zA-Z0-9-]{0,62})' . $alphanum . ')?\.)*'; + + /* MDL-9295 - take out domain_secondary here and below, so that URLs like http://localhost/ and lan addresses like http://host/ are accepted. + // Second Level Domain - Required - First and last characters must be Alpha-numeric. Hyphens are allowed inside. + $domain_secondary = '(' . $alphanum . '(([a-zA-Z0-9-]{0,62})' . $alphanum . ')?\.)'; + */ + +// we want more relaxed URLs in Moodle: MDL-11462 + // Top Level Domain - First character must be Alpha. Last character must be AlphaNumeric. Hyphens are allowed inside. + $domain_toplevel = '([a-zA-Z](([a-zA-Z0-9-]*)[a-zA-Z0-9])?)'; + /* // Top Level Domain - Required - Domain List Current As Of December 2004. Use above escaped line to be forgiving of possible future TLD's + $domain_toplevel = '(aero|biz|com|coop|edu|gov|info|int|jobs|mil|mobi|museum|name|net|org|post|pro|travel|ac|ad|ae|af|ag|ai|al|am|an|ao|aq|ar|as|at|au|aw|az|ax|ba|bb|bd|be|bf|bg|bh|bi|bj|bm|bn|bo|br|bs|bt|bv|bw|by|bz|ca|cc|cd|cf|cg|ch|ci|ck|cl|cm|cn|co|cr|cs|cu|cv|cx|cy|cz|de|dj|dk|dm|do|dz|ec|ee|eg|eh|er|es|et|eu|fi|fj|fk|fm|fo|fr|ga|gb|gd|ge|gf|gg|gh|gi|gl|gm|gn|gp|gq|gr|gs|gt|gu|gw|gy|hk|hm|hn|hr|ht|hu|id|ie|il|im|in|io|iq|ir|is|it|je|jm|jo|jp|ke|kg|kh|ki|km|kn|kp|kr|kw|ky|kz|la|lb|lc|li|lk|lr|ls|lt|lu|lv|ly|ma|mc|md|mg|mh|mk|ml|mm|mn|mo|mp|mq|mr|ms|mt|mu|mv|mw|mx|my|mz|na|nc|ne|nf|ng|ni|nl|no|np|nr|nu|nz|om|pa|pe|pf|pg|ph|pk|pl|pm|pn|pr|ps|pt|pw|py|qa|re|ro|ru|rw|sa|sb|sc|sd|se|sg|sh|si|sj|sk|sl|sm|sn|so|sr|st|sv|sy|sz|tc|td|tf|tg|th|tj|tk|tl|tm|tn|to|tp|tr|tt|tv|tw|tz|ua|ug|uk|um|us|uy|uz|va|vc|ve|vg|vi|vn|vu|wf|ws|ye|yt|yu|za|zm|zw)'; + */ + + // Address can be IP address or Domain + if ($aOptions['I'] === '{0}') { // IP Address Not Allowed + $address = '(' . $domain_tertiary . /* MDL-9295 $domain_secondary . */ $domain_toplevel . ')'; + } elseif ($aOptions['I'] === '') { // IP Address Required + $address = '(' . $ipaddress . ')'; + } else { // IP Address Optional + $address = '((' . $ipaddress . ')|(' . $domain_tertiary . /* MDL-9295 $domain_secondary . */ $domain_toplevel . '))'; + } + $address = $address . $aOptions['a']; + + // Port Number - :80 or :8080 or :65534 Allows range of :0 to :65535 + // (0-59999) |(60000-64999) |(65000-65499) |(65500-65529) |(65530-65535) + $port_number = '(:(([0-5]?[0-9]{1,4})|(6[0-4][0-9]{3})|(65[0-4][0-9]{2})|(655[0-2][0-9])|(6553[0-5])))' . $aOptions['p']; + + // Path - Can be as simple as '/' or have multiple folders and filenames + $path = '(/((;)?(' . $unreserved . '|' . $escaped . '|' . '[:@&=+$,]' . ')+(/)?)*)' . $aOptions['f']; + + // Query Section - Accepts ?var1=value1&var2=value2 or ?2393,1221 and much more + $querystring = '(\?(' . $reserved . '|' . $unreserved . '|' . $escaped . ')*)' . $aOptions['q']; + + // Fragment Section - Accepts anchors such as #top + $fragment = '(\#(' . $reserved . '|' . $unreserved . '|' . $escaped . ')*)' . $aOptions['r']; + + + // Building Regular Expression + $regexp = '#^' . $scheme . $userinfo . $address . $port_number . $path . $querystring . $fragment . '$#i'; + + // DEBUGGING - Uncomment Line Below To Display The Regular Expression Built + // echo '
' . htmlentities(wordwrap($regexp,70,"\n",1)) . '
'; + + // Running the regular expression + if (preg_match( $regexp, $urladdr )) + { + return true; // The domain passed + } + else + { + return false; // The domain didn't pass the expression + } + + } + + function validateEmailSyntax( $emailaddr, $options="" ){ + + // Check Options Parameter + if (!preg_match( '/^([sHSEFuPaIpfqr][+?-])*$/', $options )) + { + trigger_error("Options attribute malformed", E_USER_ERROR); + } + + // Set Options Array, set defaults if options are not specified + // Scheme + if (strpos( $options, 's') === false) $aOptions['s'] = '-'; + else $aOptions['s'] = substr( $options, strpos( $options, 's') + 1, 1); + // http:// + if (strpos( $options, 'H') === false) $aOptions['H'] = '-'; + else $aOptions['H'] = substr( $options, strpos( $options, 'H') + 1, 1); + // https:// (SSL) + if (strpos( $options, 'S') === false) $aOptions['S'] = '-'; + else $aOptions['S'] = substr( $options, strpos( $options, 'S') + 1, 1); + // mailto: (email) + if (strpos( $options, 'E') === false) $aOptions['E'] = '?'; + else $aOptions['E'] = substr( $options, strpos( $options, 'E') + 1, 1); + // ftp:// + if (strpos( $options, 'F') === false) $aOptions['F'] = '-'; + else $aOptions['F'] = substr( $options, strpos( $options, 'F') + 1, 1); + // User section + if (strpos( $options, 'u') === false) $aOptions['u'] = '+'; + else $aOptions['u'] = substr( $options, strpos( $options, 'u') + 1, 1); + // Password in user section + if (strpos( $options, 'P') === false) $aOptions['P'] = '-'; + else $aOptions['P'] = substr( $options, strpos( $options, 'P') + 1, 1); + // Address Section + if (strpos( $options, 'a') === false) $aOptions['a'] = '+'; + else $aOptions['a'] = substr( $options, strpos( $options, 'a') + 1, 1); + // IP Address in address section + if (strpos( $options, 'I') === false) $aOptions['I'] = '-'; + else $aOptions['I'] = substr( $options, strpos( $options, 'I') + 1, 1); + // Port number + if (strpos( $options, 'p') === false) $aOptions['p'] = '-'; + else $aOptions['p'] = substr( $options, strpos( $options, 'p') + 1, 1); + // File Path + if (strpos( $options, 'f') === false) $aOptions['f'] = '-'; + else $aOptions['f'] = substr( $options, strpos( $options, 'f') + 1, 1); + // Query Section + if (strpos( $options, 'q') === false) $aOptions['q'] = '-'; + else $aOptions['q'] = substr( $options, strpos( $options, 'q') + 1, 1); + // Fragment (Anchor) + if (strpos( $options, 'r') === false) $aOptions['r'] = '-'; + else $aOptions['r'] = substr( $options, strpos( $options, 'r') + 1, 1); + + // Generate options + $newoptions = ''; + foreach($aOptions as $key => $value) + { + $newoptions .= $key . $value; + } + + // DEBUGGING - Uncomment line below to display generated options + // echo '
' . $newoptions . '
'; + + // Send to validateUrlSyntax() and return result + return validateUrlSyntax( $emailaddr, $newoptions); + + } + + function validateFtpSyntax( $ftpaddr, $options="" ){ + + // Check Options Parameter + if (!preg_match( '/^([sHSEFuPaIpfqr][+?-])*$/', $options )) + { + trigger_error("Options attribute malformed", E_USER_ERROR); + } + + // Set Options Array, set defaults if options are not specified + // Scheme + if (strpos( $options, 's') === false) $aOptions['s'] = '?'; + else $aOptions['s'] = substr( $options, strpos( $options, 's') + 1, 1); + // http:// + if (strpos( $options, 'H') === false) $aOptions['H'] = '-'; + else $aOptions['H'] = substr( $options, strpos( $options, 'H') + 1, 1); + // https:// (SSL) + if (strpos( $options, 'S') === false) $aOptions['S'] = '-'; + else $aOptions['S'] = substr( $options, strpos( $options, 'S') + 1, 1); + // mailto: (email) + if (strpos( $options, 'E') === false) $aOptions['E'] = '-'; + else $aOptions['E'] = substr( $options, strpos( $options, 'E') + 1, 1); + // ftp:// + if (strpos( $options, 'F') === false) $aOptions['F'] = '+'; + else $aOptions['F'] = substr( $options, strpos( $options, 'F') + 1, 1); + // User section + if (strpos( $options, 'u') === false) $aOptions['u'] = '?'; + else $aOptions['u'] = substr( $options, strpos( $options, 'u') + 1, 1); + // Password in user section + if (strpos( $options, 'P') === false) $aOptions['P'] = '?'; + else $aOptions['P'] = substr( $options, strpos( $options, 'P') + 1, 1); + // Address Section + if (strpos( $options, 'a') === false) $aOptions['a'] = '+'; + else $aOptions['a'] = substr( $options, strpos( $options, 'a') + 1, 1); + // IP Address in address section + if (strpos( $options, 'I') === false) $aOptions['I'] = '?'; + else $aOptions['I'] = substr( $options, strpos( $options, 'I') + 1, 1); + // Port number + if (strpos( $options, 'p') === false) $aOptions['p'] = '?'; + else $aOptions['p'] = substr( $options, strpos( $options, 'p') + 1, 1); + // File Path + if (strpos( $options, 'f') === false) $aOptions['f'] = '?'; + else $aOptions['f'] = substr( $options, strpos( $options, 'f') + 1, 1); + // Query Section + if (strpos( $options, 'q') === false) $aOptions['q'] = '-'; + else $aOptions['q'] = substr( $options, strpos( $options, 'q') + 1, 1); + // Fragment (Anchor) + if (strpos( $options, 'r') === false) $aOptions['r'] = '-'; + else $aOptions['r'] = substr( $options, strpos( $options, 'r') + 1, 1); + + // Generate options + $newoptions = ''; + foreach($aOptions as $key => $value) + { + $newoptions .= $key . $value; + } + + // DEBUGGING - Uncomment line below to display generated options + // echo '
' . $newoptions . '
'; + + // Send to validateUrlSyntax() and return result + return validateUrlSyntax( $ftpaddr, $newoptions); + + } + + +} \ No newline at end of file diff --git a/src/RequestResponse/Response.php b/src/RequestResponse/Response.php new file mode 100755 index 0000000..a5f3339 --- /dev/null +++ b/src/RequestResponse/Response.php @@ -0,0 +1,129 @@ +_headers[$key] = $value; + return $istance; + } + + public static function body_prepend($body = null){ + $instance = self::getInstance(); + if (null !== $body) { + $instance->_body = (string) $body . $instance->_body; + return $instance; + } + return $instance; + } + + public static function body($body = null){ + $instance = self::getInstance(); + if (null !== $body) { + $instance->_body = (string) $body; + return $instance; + } + return $instance; + } + + public static function body_append($body = null){ + $instance = self::getInstance(); + if (null !== $body) { + $instance->_body .= (string) $body; + return $instance; + } + return $instance; + } + + private function send_headers(){ + foreach ($this->_headers as $key => $value) { + header($key .': '. $value, false); + } + return $this; + } + + private function send_body(){ + echo (string) $this->_body; + return $this; + } + + public static function send(){ + $instance = self::getInstance(); + $instance->send_headers(); + $instance->send_body(); + return $instance; + } + + public static function json($object, $jsonp_prefix = null){ + $instance = self::getInstance(); + + $instance->body(''); + + $json = json_encode($object); + if (null !== $jsonp_prefix) { + $instance->header('Content-Type', 'text/javascript'); + $instance->body("$jsonp_prefix($json);"); + } else { + $instance->header('Content-Type', 'application/json'); + $instance->body($json); + } + return $instance; + } + + public static function redirect($url, $code = 302){ + $instance = self::getInstance(); + + $instance->_code = $code; + $instance->header('Location', $url); + + $instance->body(''); + $instance->send(); + } + + function done(){ + die; + } +}