validateUrlSyntax()

Complexity

Conditions	32
Paths	> 20000

Size

Total Lines	194
Code Lines	111

Duplication

Lines	0
Ratio	0 %

Importance

Changes	1
Bugs	0	Features	0

<?php
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('/^([sHSEFRuPaIpfqr][+?-])*$/', $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'] = '?';

$aOptions was never initialized. Although not strictly required by PHP, it is generally a good practice to add $aOptions = array(); before regardless.

    } 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);
    }
    // rtmp://
    if (strpos($options, 'R') === false) {
        $aOptions['R'] = '-';
    } else {
        $aOptions['R'] = substr($options, strpos($options, 'R') + 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 '<pre>'; print_r($aOptions); echo '</pre>';

    // 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:', 'ftp://' or 'rtmp://'
    $scheme = '(';
    if ($aOptions['H'] === '') {
        $scheme .= 'http://';
    } elseif ($aOptions['S'] === '') {
        $scheme .= 'https://';
    } elseif ($aOptions['E'] === '') {
        $scheme .= 'mailto:';
    } elseif ($aOptions['F'] === '') {
        $scheme .= 'ftp://';
    } elseif ($aOptions['R'] === '') {
        $scheme .= 'rtmp://';
    } else {
        if ($aOptions['H'] === '?') {
            $scheme .= '|(http://)';
        }
        if ($aOptions['S'] === '?') {
            $scheme .= '|(https://)';
        }
        if ($aOptions['E'] === '?') {
            $scheme .= '|(mailto:)';
        }
        if ($aOptions['F'] === '?') {
            $scheme .= '|(ftp://)';
        }
        if ($aOptions['R'] === '?') {
            $scheme .= '|(rtmp://)';
        }
        $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.')?\.)*';
    $domain_toplevel = '([a-zA-Z](([a-zA-Z0-9-]*)[a-zA-Z0-9])?)';

    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 '<pre>' . htmlentities(wordwrap($regexp,70,"\n",1)) . '</pre>';

    // Running the regular expression
    if (preg_match($regexp, $urladdr)) {
        return true; // The domain passed
    } else {
        return false; // The domain didn't pass the expression
    }