diff options
Diffstat (limited to 'public')
| -rw-r--r-- | public/images/twitter.ico | bin | 0 -> 1150 bytes | |||
| -rw-r--r-- | public/js/cassis.js | 1584 |
2 files changed, 1584 insertions, 0 deletions
diff --git a/public/images/twitter.ico b/public/images/twitter.ico Binary files differnew file mode 100644 index 0000000..b4a7169 --- /dev/null +++ b/public/images/twitter.ico diff --git a/public/js/cassis.js b/public/js/cassis.js new file mode 100644 index 0000000..aee3b62 --- /dev/null +++ b/public/js/cassis.js @@ -0,0 +1,1584 @@ +/* <!-- + cassis.js Copyright 2008-2015 Tantek Çelik http://tantek.com + http://cassisproject.com conceived:2008-254; created:2009-299; + license:http://creativecommons.org/licenses/by-sa/3.0/ --> +if you see this in the browser, you need to wrap your PHP include of cassis.js and use thereof with calls to ob_start and ob_end_clean, e.g.: +ob_start(); +include 'cassis.js'; +// your code that calls CASSIS functions goes here +ob_end_clean(); +/* <!-- <?php // CASSIS v0.1 start --> +// =================================================================== +// PHP-only block. Processed only by PHP. Use only // comments here. +// ------------------------------------------------------------------- +function js() { + return false; +} + +// global configuration + +if (php_min_version("5.1.0")) { + date_default_timezone_set("UTC"); +} + +function php_min_version($s) { + $s = explode(".", $s); + $phpv = explode(".", phpversion()); + for ($i=0; $i < count($s); $i+=1) { + if ($s[$i] > $phpv[$i]) { + return false; + } + } + return true; +} + +// ------------------------------------------------------------------- +// date time functions + +function date_get_full_year($d = "") { + if ($d == "") { + $d = new DateTime(); + } + return $d->format('Y'); +} + +function date_get_timestamp($d) { + return $d->format('U'); // $d->getTimestamp(); // in PHP 5.3+ +} + +// mixed-case function names are bad for PHP vs JS. Don't do it. +//function Number($n) { +// return $n-0; +//} + + +// ------------------------------------------------------------------- +// old wrappers. transition code away from these +// ** do not use these in new code. ** + +function getFullYear($d = "") { + // 2010-020 obsoleted. Use date_get_full_year instead + return date_get_full_year($d); +} + +// =================================================================== +/*/ // This comment inverter switches from PHP only to JS only. +// JS-only block. Processed only by JS. Use only // comments here. +// ------------------------------------------------------------------- +function js() { + return true; +} + +// array functions + +function array() { // makes an array from arbitrary parameter list. + return Array.prototype.slice.call(arguments); +} + +function is_array(a) { + return (typeof(a) === "object") && (a instanceof Array); +} + +function count(a) { + return a.length; +} + +function array_slice(a, b, e) { // slice an array, begin, optional end + if (a === undefined) { return array(); } + if (b === undefined) { return a; } + if (e === undefined) { return a.slice(b); } + return a.slice(b, e); +} + +// ------------------------------------------------------------------- +// math and numerical functions + +function floor(n) { + return Math.floor(n); +} + +function intval(n) { + return parseInt(n, 10); +} + +Array.min = function(a) { +// from http://ejohn.org/blog/fast-javascript-maxmin/ + return Math.min.apply(Math, a); +}; + +function min() { + var m = arguments; + if (m.length < 1) { + return false; + } + if (m.length === 1) { + m = m[0]; + if (!is_array(m)) { + return m; + } + } + return Array.min(m); +} + +function ctype_digit(s) { + return (/^[0-9]+$/).test(s); +} + +function ctype_space(s) { + return /\s/.test(s); +} + +// ------------------------------------------------------------------- +// date time functions + +function date_create(s) { + var d = new Date(); + d.parse(s); + return d; +} + +function date_get_full_year(d) { + if (arguments.length < 1) { + d = new Date(); + } + return d.getFullYear(); +} + +function date_get_timestamp(d) { + return floor(d.getTime() / 1000); +} + + +// ------------------------------------------------------------------- +// character and string functions + +function ord(s) { + return s.charCodeAt(0); +} + +function strlen(s) { + return s.length; +} + +function substr(s, o, n) { + var m = strlen(s); + if ((o < 0 ? -1-o : o) >= m) { return false; } + if (o < 0) { o = m + o; } + if (n < 0) { n = m - o + n; } + if (n === undefined) { n = m - o; } + return s.substring(o, o + n); +} + +function substr_count(s, n) { + return s.split(n).length - 1; +} + +function strpos(h, n, o) { + // clients must triple-equal test return for === false for no match! + // or use offset(n, h) instead (0 = not found, else 1-based index) + if (arguments.length === 2) { + o = 0; + } + o = h.indexOf(n, o); + if (o === -1) { return false; } + else { return o; } +} + +function strncmp(s1, s2, n) { + s1 = substr(String(s1), 0, n); + s2 = substr(String(s2), 0, n); + return (s1 === s2) ? 0 : + ((s1 < s2) ? -1 : 1); +} + +function explode(d, s, n) { + if (arguments.length === 2) { + return s.split(d); + } + return s.split(d, n); +} + +function implode(d, a) { + return a.join(d); +} + +function rawurlencode(s) { + return encodeURIComponent(s); +} + +function htmlspecialchars(s) { + var c, i; + c = [["&","&"], ["<","<"], [">",">"], + ["'","'"], ['"',"""]]; + for (i = 0; i < c.length; i+=1) { + s = s.replace(new RegExp(c[i][0], "g"), c[i][1]); + } + return s; +} + +function str_ireplace(a, b, s) { + var i; + if (!is_array(a)) { + return s.replace(new RegExp(a, "gi"), is_array(b) ? b[0] : b); + } + else { + for (i=0; i<a.length; i++) { + s = s.replace(new RegExp(a[i], "gi"), is_array(b) ? b[i] : b); + } + return s; + } +} + +function trim() { + var c, i, j, m, s; + m = arguments; + s = m[0]; + c = count(m) > 1 ? m[1] : " \t\n\r\f\x00\x0b\xa0"; + i = 0; + j = strlen(s); + + while (strpos(c,s[i])!==false && i<j) { + i+=1; + } + j-=1; + while (j>i && strpos(c,s[j])!==false) { + j-=1; + } + j+=1; + if (j>i) { + return substr(s,i,j-i); + } + else { + return ''; + } +} + +function rtrim() { + var c,j,m,s; + m = arguments; + s = m[0]; + c = count(m)>1 ? m[1] : " \t\n\r\f\x00\x0b\xa0"; + j = strlen(s)-1; + while (j>=0 && strpos(c,s[j])!==false) { + j-=1; + } + if (j>=0) { + return substr(s,0,j+1); + } + else { + return ''; + } +} + +function strtolower(s) { + return s.toLowerCase(); +} + +function ucfirst(s) { + return s.charAt(0).toUpperCase() + substr(s, 1); +} + +// ------------------------------------------------------------------- +// more javascript-only php-equivalent functions here + + +// ------------------------------------------------------------------- +// pacify jslint/jshint +// -- define functions and variables only used in PHP flow. +function func_get_args() { } +var FALSE = false; +var PREG_PATTERN_ORDER; +var STR_PAD_LEFT; +// -- may eventually define these for JS. +function date_format() { } +function preg_match_all() { } +function str_pad() { } +function DateTime() { } + +// =================================================================== +/**/ // unconditional comment closer exits PHP comment block. +// JS+PHP block. Processed by both JS and PHP. /*...*/ comments ok. +// ------------------------------------------------------------------- +/* original js/php test - doesn't pass jslint/jshint. +function js() { + return "00"==false; +} +*/ + +/*global document: false, window: false */ +/// ?> <!-- /// +// ------------------------------------------------------------------- +// javascript-only framework functions + +function doevent(el, evt) { + if (evt==="click" && el.tagName==='A') { + // dispatch/fireEvent fails FF3.5+/IE8+ on [a href] w "click" event + window.location = el.href; // workaround + return true; + } + if (document.createEvent) { + var eo = document.createEvent("HTMLEvents"); + eo.initEvent(evt, true, true); + return !el.dispatchEvent(eo); + } + else if (document.createEventObject) { + return el.fireEvent("on"+evt); + } +} + +function targetelement(e) { + var t; + e = e ? e : window.event; + t = e.target ? e.target : e.srcElement; + t = (t.nodeType == 3) ? t.parentNode : t; // Safari workaround + return t; +} + +// CommonJS (node, browserify, npm) Exports +if (typeof exports !== 'undefined' && + typeof module !== 'undefined' && module.exports) { + exports.auto_link = auto_link; + exports.num_to_sxg = num_to_sxg; + exports.sxg_to_num = sxg_to_num; +} + +/// --> <?php /// + + +// ------------------------------------------------------------------- +// character and string functions + +// strcat: takes as many strings as you want to give it. +function strcat() { /// ?> <!-- /// + var $args, $i, $isjs, $r; /// --> <?php /// + $r = ""; + $isjs = js(); + $args = $isjs ? arguments : func_get_args(); + for ($i=count($args)-1; $i>=0; $i-=1) { + $r = $isjs ? $args[$i] + $r : $args[$i] . $r; + } + return $r; +} + +function number($s) { + return $s - 0; +} + +function string($n) { + if (js()) { + if (typeof($n)==="number") { + return Number($n).toString(); + } else if (typeof($n)==="undefined") { + return ""; + } else { + return $n.toString(); + } + } + else { + return "" . $n; + } +} + +function str_pad_left($s1, $n, $s2) { + $s1 = string($s1); + $s2 = string($s2); + if (js()) { + $n -= strlen($s1); + while ($n >= strlen($s2)) { + $s1 = strcat($s2, $s1); + $n -= strlen($s2); + } + if ($n > 0) { + $s1 = strcat(substr($s2, 0, $n), $s1); + } + return $s1; + } else { + return str_pad($s1, $n, $s2, STR_PAD_LEFT); + } +} + +function trim_slashes($s) { + if ($s[0]==="/") { // strip unnecessary / delim PHP regex funcs want + return substr($s, 1, strlen($s)-2); + } + return $s; +} + +// define a few JS functions that PHP already has, using CASSIS funcs +/// ?> <!-- /// +function preg_match(p, s) { + return (s.match(trim_slashes(p)) ? 1 : 0); +} + +function preg_split(p, s) { + return s.split(new RegExp(trim_slashes(p), "gi")); +} +/// --> <?php /// + +function preg_match_1($p, $s) { /// ?> <!-- /// + var $m; /// --> <?php /// + if (js()) { + return $s.match(new RegExp(trim_slashes($p), "i")); + } else { + $m = array(); + if (preg_match($p, $s, $m) !== FALSE) { + return $m[0]; + } else { + return null; //array(); + } + } +} + +function preg_replace_1($p, $r, $s) { + if (js()) { + return $s.replace(new RegExp(trim_slashes($p), "i"), $r); + } + else { + $r = preg_replace($p, $r, $s, 1); + if ($r !== null) { return $r; } + else { return $s; } + } +} + +function preg_matches($p, $s) { /// ?> <!-- /// + var $m; /// --> <?php /// + if (js()) { + return $s.match(new RegExp(trim_slashes($p), "gi")); + } else { + $m = array(); + if (preg_match_all($p, $s, $m, PREG_PATTERN_ORDER) !== FALSE) { + return $m[0]; + } else { + return null; //array(); + } + } +} + +function ctype_email_local($s) { + // close enough. no '.' because this is used for last char of. + return (preg_match("/^[a-zA-Z0-9_%+-]+$/", $s)); +} + +function ctype_uri_scheme($s) { + return (preg_match("/^[a-zA-Z][a-zA-Z0-9+.-]*$/", $s)); +} + +// ------------------------------------------------------------------- +// newbase60 + +function num_to_sxg($n) { /// ?> <!-- /// + var $d, $m, $p, $s; /// --> <?php /// + $m = "0123456789ABCDEFGHJKLMNPQRSTUVWXYZ_abcdefghijkmnopqrstuvwxyz"; + $p = ""; + $s = ""; + if ($n==="" || $n===0) { return "0"; } + if ($n<0) { + $n = -$n; + $p = "-"; + } + while ($n>0) { + if(!js() && function_exists('bcmod')) { + $d = bcmod($n, 60); + $s = $m[$d] . $s; + $n = bcdiv(bcsub($n, $d), 60); + } else { + $d = $n % 60; + $s = strcat($m[$d], $s); + $n = ($n-$d)/60; + } + } + return strcat($p, $s); +} + +function num_to_sxgf($n, $f) { + if (!$f) { $f=1; } + return str_pad_left(num_to_sxg($n), $f, "0"); +} + +function sxg_to_num($s) { /// ?> <!-- /// + var $c, $i, $j, $m, $n; /// --> <?php /// + $j = strlen($s); + $m = 1; + $n = 0; + if ($s[0]==="-") { + $m = -1; + $j-=1; + $s = substr($s, 1, $j); + } + for ($i=0; $i<$j; $i+=1) { // iterate from first to last char of $s + $c = ord($s[$i]); // put current ASCII of char into $c + if ($c>=48 && $c<=57) { $c=$c-48; } + else if ($c>=65 && $c<=72) { $c-=55; } + else if ($c===73 || $c===108) { $c=1; } // typo cap I lower l to 1 + else if ($c>=74 && $c<=78) { $c-=56; } + else if ($c===79) { $c=0; } // error correct typo capital O to 0 + else if ($c>=80 && $c<=90) { $c-=57; } + else if ($c===95 || $c===45) { $c=34; } // _ and dash - to _ + else if ($c>=97 && $c<=107) { $c-=62; } + else if ($c>=109 && $c<=122) { $c-=63; } + else { break; } // treat all other noise as end of number + if(!js() && function_exists('bcadd')) { + $n = bcadd(bcmul(60, $n), $c); + } else { + $n = 60*$n + $c; + } + } + return $n*$m; +} + +function sxg_to_numf($s, $f) { + if ($f===undefined) { $f=1; } + return str_pad_left(sxg_to_num($s), $f, "0"); +} + +// ------------------------------------------------------------------- +// == newbase60 compat functions only == (before 2011-149) +function numtosxg($n) { + return num_to_sxg($n); +} + +function numtosxgf($n, $f) { + return num_to_sxgf($n, $f); +} + +function sxgtonum($s) { + return sxg_to_num($s); +} + +function sxgtonumf($s, $f) { + return sxg_to_numf($s, $f); +} + +// ------------------------------------------------------------------- +// date and time + +function date_create_ymd($s) { /// ?> <!-- /// + var $d; /// --> <?php /// + if (!$s) { + return (js() ? new Date() : new DateTime()); + } + if (js()) { + if (substr($s,4,1)==='-') { + $s=strcat(substr($s,0,4), substr($s,5,2), substr($s,8,2)); + } + $d = new Date(substr($s,0,4),substr($s,4,2)-1,substr($s,6,2)); + $d.setHours(0); // was setUTCHours, avoiding bc JS no default tz + return $d; + } else { + return date_create(strcat($s, " 00:00:00")); + } +} + +function date_create_timestamp($s) { + if (js()) { + return new Date(1000*$s); + } else { + return new DateTime(strcat("@", string($s))); + } +} + +// function date_get_timestamp($d) // in PHP/JS specific code above. + +function date_get_rfc3339($d) { + if (js()) { + return strcat($d.getFullYear(), '-', + str_pad_left(1+$d.getUTCMonth(), 2, "0"), '-', + str_pad_left($d.getDate(), 2, "0"), 'T', + str_pad_left($d.getUTCHours(), 2, "0"), ':', + str_pad_left($d.getUTCMinutes(), 2, "0"), ':', + str_pad_left($d.getUTCSeconds(), 2, "0"), 'Z'); + } else { + return date_format($d, 'c'); + } +} + +function dt_to_time($dt) { + $dt = explode("T", $dt); + if (count($dt)==1) { + $dt = explode(" ", $dt); + } + return (count($dt)>1) ? $dt[1] : "0:00"; +} + +function dt_to_date($dt) { + $dt = explode("T", $dt); + if (count($dt)==1) { + $dt = explode(" ", $dt); + } + return $dt[0]; +} + +function dt_to_ordinal_date($dt) { + return ymd_to_yd(dt_to_date($dt)); +} + +// ------------------------------------------------------------------- +// newcal + +function isleap($y) { + return ($y % 4 === 0 && ($y % 100 !== 0 || $y % 400 === 0)); +} + +function ymdp_to_d($y, $m, $d) { /// ?> <!-- /// + var $md; /// --> <?php /// + $md = array( + array(0,31,59,90,120,151,181,212,243,273,304,334), + array(0,31,60,91,121,152,182,213,244,274,305,335)); + return $md[number(isleap($y))][$m-1] + number($d); +} + +function ymd_to_d($d) { + if (substr($d, 4, 1)==='-') { + return ymdp_to_d(substr($d,0,4),substr($d,5,2),substr($d,8,2)); + } else { + return ymdp_to_d(substr($d,0,4),substr($d,4,2),substr($d,6,2)); + } +} + +function ymdp_to_yd($y, $m, $d) { + return strcat(str_pad_left($y, 4, "0"), '-', + str_pad_left(ymdp_to_d($y, $m, $d), 3, "0")); +} + +function ymd_to_yd($d) { + if (substr($d, 4, 1)==='-') { + return ymdp_to_yd(substr($d,0,4),substr($d,5,2),substr($d,8,2)); + } else { + return ymdp_to_yd(substr($d,0,4),substr($d,4,2),substr($d,6,2)); + } +} + +function date_get_ordinal_days($d) { + if (js()) { + return ymdp_to_d($d.getFullYear(), 1+$d.getMonth(), $d.getDate()); + } else { + return 1+date_format($d, 'z'); + } +} + +function bim_from_od($d) { + return 1+floor(($d-1)/61); +} + +function date_get_bim() { /// ?> <!-- /// + var $args; /// --> <?php /// + $args = js() ? arguments : func_get_args(); + return bim_from_od( + date_get_ordinal_days( + date_create_ymd((count($args) > 0) ? $args[0] : 0))); +} + +function get_nm_str($m) { /// ?> <!-- /// + var $a; /// --> <?php /// + $a = array("New January", "New February", "New March", "New April", "New May", "New June", "New July", "New August", "New September", "New October", "New November", "New December"); + return $a[($m-1)]; +} + +function nm_from_od($d) { + return ((($d-1) % 61) > 29) ? 2+2*(bim_from_od($d)-1) : 1+2*(bim_from_od($d)-1); +} + +// date_get_ordinal_date: optional date argument +function date_get_ordinal_date() { /// ?> <!-- /// + var $args, $d; /// --> <?php /// + $args = js() ? arguments : func_get_args(); + $d = date_create_ymd((count($args) > 0) ? $args[0] : 0); + return strcat(date_get_full_year($d), '-', + str_pad_left(date_get_ordinal_days($d), 3, "0")); +} + +// ------------------------------------------------------------------- +// begin epochdays + +function y_to_days($y) { + // convert y-01-01 to epoch days + return floor( + (date_get_timestamp(date_create_ymd(strcat($y, "-01-01"))) - + date_get_timestamp(date_create_ymd("1970-01-01")))/86400); +} + +// convert ymd to epoch days and sexagesimal epoch days (sd) + +function ymd_to_days($d) { + return yd_to_days(ymd_to_yd($d)); +} + +/* old: +function ymd_to_days($d) { + // fails in JS, "2013-03-10" and "2013-03-11" both return 15774 + return floor( + (date_get_timestamp(date_create_ymd($d)) - + date_get_timestamp(date_create_ymd("1970-01-01")))/86400); +} +*/ + +function ymd_to_sd($d) { + return num_to_sxg(ymd_to_days($d)); +} + +function ymd_to_sdf($d, $f) { + return num_to_sxgf(ymd_to_days($d), $f); +} + +// ordinal date (YYYY-DDD) to ymd, epoch days, sexagesimal epoch days + +function ydp_to_ymd($y, $d) { /// ?> <!-- /// + var $md, $m; /// --> <?php /// + $md = array( + array(0,31,59,90,120,151,181,212,243,273,304,334,365), + array(0,31,60,91,121,152,182,213,244,274,305,335,366)); + $d -= 1; + $m = trunc($d / 29); + if ($md[isleap($y) - 0][$m] > $d) $m -= 1; + $d = $d - $md[isleap($y)-0][$m] + 1; + $m += 1; + return strcat($y, '-', str_pad_left($m, 2, '0'), + '-', str_pad_left($d, 2, '0')); +} + +function yd_to_ymd($d) { + return ydp_to_ymd(substr($d, 0, 4), substr($d, 5, 3)); +} + +function yd_to_days($d) { + return y_to_days(substr($d, 0, 4)) - 1 + number(substr($d, 5, 3)); +} + +function yd_to_sd($d) { + return num_to_sxg(yd_to_days($d)); +} + +function yd_to_sdf($d, $f) { + return num_to_sxgf(yd_to_days($d), $f); +} + +// convert epoch days or sexagesimal epoch days (sd) to ordinal date +function days_to_yd($d) { /// ?> <!-- /// + var $a, $y; /// --> <?php /// + $d = date_create_timestamp( + date_get_timestamp( + date_create_ymd("1970-01-01")) + $d*86400); + $y = date_get_full_year($d); + $a = date_create_ymd(strcat($y, "-01-01")); + return strcat($y, "-", + str_pad_left( + 1 + floor(( + date_get_timestamp($d) - date_get_timestamp($a))/86400), 3, "0")); +} + +function sd_to_yd($d) { + return days_to_yd(sxg_to_num($d)); +} + +// ------------------------------------------------------------------- +// compat as of 2011-143 +function ymdptod($y,$m,$d) { return ymdp_to_d($y,$m,$d); } +function ymdptoyd($y,$m,$d) { return ymdp_to_yd($y,$m,$d); } +function ymdtoyd($d) { return ymd_to_yd($d); } +function bimfromod($d) { return bim_from_od($d); } +function getnmstr($m) { return get_nm_str($m); } +function nmfromod($d) { return nm_from_od($d); } +function ymdtodays($d) { return ymd_to_days($d); } +function ymdtosd($d) { return ymd_to_sd($d); } +function ymdtosdf($d,$f) { return ymd_to_sdf($d, $f); } +function ydtodays($d) { return yd_to_days($d); } +function ydtosd($d) { return yd_to_sd($d); } +function ydtosdf($d,$f) { return yd_to_sdf($d, $f); } +function daystoyd($d) { return days_to_yd($d); } +function sdtoyd($d) { return sd_to_yd($d); } + +// ------------------------------------------------------------------- +// HTTP + +function is_http_header($s) { + return (preg_match_1('/^[a-zA-Z][-\\w]*:/',$s)!==null); +} + +// ------------------------------------------------------------------- +// webaddress + +function web_address_to_uri($wa, $addhttp) { + if (!$wa || + (substr($wa, 0, 7) === 'http://') || + (substr($wa, 0, 8) === 'https://') || + (substr($wa, 0, 6) === 'irc://')) { + return $wa; + } + if ((substr($wa, 0, 7) === 'Http://') || + (substr($wa, 0, 8) === 'Https://')) { + // handle iOS4 overcapitalization of input entries + return strcat('h', substr($wa, 1, strlen($wa))); + } + + // TBI: may want to handle typos as well like: + // missing/extra : or / http:/ http/// + // missing letter in protocol: ttps htps htts, ttp htp htt, ir ic rc + // use strtolower(substr($wa, 0, 6)); // handle capitals in URLs + + if (substr($wa,0,1) === '@') { + return strcat('https://twitter.com/', substr($wa, 1, strlen($wa))); + } + + if ($addhttp) { + $wa = strcat('http://', $wa); + } + return $wa; +} + +function uri_clean($uri) { + $uri = web_address_to_uri($uri, false); + // prune the optional http:// for a neater param + if (substr($uri, 0, 7) === 'http://') { + $uri = explode('://', $uri); + $uri = array_slice($uri, 1); + $uri = implode('://', $uri); + } + // URL encode + return str_ireplace("%3A", ":", + str_ireplace("%2F", "/", rawurlencode($uri))); +} + +function protocol_of_uri($uri) { + if (offset(':', $uri) === 0) { return ""; } + $uri = explode(':', $uri, 2); + if (!ctype_uri_scheme($uri[0])) { return ""; } + return strcat($uri[0], ':'); +} + +// returns e.g. //ttk.me/b/4DY1?seriously=yes#ud +function relative_uri_hash($uri) { + if (offset(':', $uri) === 0) { return ""; } + $uri = explode(':', $uri, 2); + if (!ctype_uri_scheme($uri[0])) { return ""; } + return $uri[1]; +} + +// returns e.g. ttk.me +function hostname_of_uri($uri) { + $uri = explode('/', $uri, 4); + if (count($uri) > 2) { + $uri = $uri[2]; + if (offset(':', $uri) !== 0) { + $uri = explode(':', $uri, 2); + $uri = $uri[0]; + } + return $uri; + } + return ''; +} + +function sld_of_uri($uri) { + $uri = hostname_of_uri($uri); + $uri = explode('.', $uri); + if (count($uri) > 1) { + return $uri[count($uri) - 2]; + } + return ""; +} + +function path_of_uri($uri) { + $uri = explode('/', $uri, 4); + if (count($uri) > 3) { + $uri = array_slice($uri, 3); + $uri = strcat('/', implode('/', $uri)); + if (offset('?', $uri) !== 0) { + $uri = explode('?', $uri, 2); + $uri = $uri[0]; + } + if (offset('#', $uri) !== 0) { + $uri = explode('#', $uri, 2); + $uri = $uri[0]; + } + return $uri; + } + return '/'; +} + +function is_http_uri($uri) { + $uri = explode(":", $uri, 2); + return !!strncmp($uri[0], "http", 4); +} + +// ------------------------------------------------------------------- +// compat as of 2011-149 +function webaddresstouri($wa, $addhttp) { + return web_address_to_uri($wa, $addhttp); +} +function uriclean($uri) { return uri_clean($uri); } + + +// ------------------------------------------------------------------- +// hexatridecimal + +function num_to_hxt($n) { /// ?> <!-- /// + var $d, $m, $s; /// --> <?php /// + $m = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"; + $s = ""; + if ($n === undefined || $n === 0) { return "0"; } + while ($n>0) { + $d = $n % 36; + $s = strcat($m[$d], $s); + $n = ($n-$d)/36; + } + return $s; +} + +function num_to_hxtf($n, $f) { + if ($f === undefined) { $f=1; } + return str_pad_left(num_to_hxt($n), $f, "0"); +} + +function hxt_to_num($h) { /// ?> <!-- /// + var $c, $i, $j, $n; /// --> <?php /// + $j = strlen($h); + $n = 0; + for ($i=0; $i<$j; $i+=1) { // iterate from first to last char of $h + $c = ord($h[$i]); // put current ASCII of char into $c + if ($c>=48 && $c<=57) { $c=$c-48; } // 0-9 + else if ($c>=65 && $c<=90) { $c-=55; } // A-Z + else if ($c>=97 && $c<=122) { $c-=87; } // a-z treat as A-Z + else { $c = 0; } // treat all other noise as 0 + $n = 36*$n + $c; + } + return $n; +} + +// ------------------------------------------------------------------- +// compat as of 2011-149 +function numtohxt($n) { return num_to_hxt($n); } +function numtohxtf($n,$f) { return num_to_hxtf($n, $f); } +function hxttonum($h) { return hxt_to_num($h); } + + +// ------------------------------------------------------------------- +// ISBN-10 + +function num_to_isbn10($n) { /// ?> <!-- /// + var $d, $f, $i; /// --> <?php /// + $n = string($n); + $d = 0; + $f = 2; + for ($i=strlen($n)-1; $i>=0; $i-=1) { + $d += $n[$i]*$f; + $f += 1; + } + $d = 11-($d % 11); + if ($d===10) {$d="X";} + else if ($d===11) {$d="0";} + else {$d=string($d);} + return strcat(str_pad_left($n, 9, "0"), $d); +} + +// ------------------------------------------------------------------- +// compat as of 2011-149 +function numtoisbn10($n) { return num_to_isbn10($n); } + + +// ------------------------------------------------------------------- +// HyperTalk + +function trunc($n) { // just an alias from BASIC days + return floor($n); +} + +function offset($n, $h) { + $n = strpos($h, $n); + if ($n === false) { + return 0; + } else { + return $n+1; + } +} + +function contains($h, $n) { +// HyperTalk syntax haystack contains needle: if ("abc" contains "b") + return strpos($h, $n)!==false; +} + +function last_character_of($s) { + return (strlen($s) > 0) ? $s[strlen($s)-1] : ''; +} + +function line_1_of($s) { /// ?> <!-- /// + var $r; /// --> <?php /// + $r = preg_match_1('/^[\\w\\W]*?[\\n\\r]+?/', $s); + if ($r === null) { return $s; } + return substr($r, 0, strlen($r)-1); +} + +function delete_line_1_of($s) { + if (preg_match_1('/^[\\w\\W]*?[\\n\\r]+?/', $s) === null) { + return ''; + } + return preg_replace_1('/^[\\w\\W]*?[\\n\\r]+?/', '', $s); +} + +// ------------------------------------------------------------------- +// microformats + +// xpath expressions to extract microformats +function xp_has_class($s) { + return strcat("//*[contains(concat(' ',@class,' '),' ",$s," ')]"); +} + +function xpr_has_class($s) { + return strcat(".//*[contains(concat(' ',@class,' '),' ",$s," ')]"); +} + +function xp_has_id($s) { + return strcat("//*[@id='", $s, "']"); +} + +function xp_attr_starts_with($a, $s) { + return strcat("//*[starts-with(@", $a, ",'", $s, "')]"); +} + +function xp_has_rel($s) { + return strcat("//*[contains(concat(' ',@rel,' '),' ", $s, " ')]"); +} + +function xpr_has_rel($s) { + return strcat(".//*[contains(concat(' ',@rel,' '),' ", $s, " ')]"); +} + +function xpr_attr_starts_with_has_rel($a, $s, $r) { + return strcat(".//*[contains(concat(' ',@rel,' '),' ", $r, + " ') and starts-with(@", $a, ",'", $s, "')]"); +} + +// value class pattern readable date time from ISO8601 datetime +function vcp_dt_readable($d) { /// ?> <!-- /// + var $r; /// --> <?php /// + $d = explode("T", $d); + $r = ""; + if (count($d)>1) { + $r = explode("-", $d[1]); + if (count($d)==1) { + $r = explode("+", $d[1]); + } + if (count($d)>1) { + $r = strcat('<time class="value" datetime="',$d[1],'">', + $r[0],'</time> on '); + } + else { + $r = strcat('<time class="value">',$d[1],'</time> on '); + } + } + return strcat($r, '<time class="value">', $d[0], '</time>'); +} + + +// ------------------------------------------------------------------- +// compat as of 2011-149 +function xphasclass($s) { return xp_has_class($s); } +function xprhasclass($s) { return xpr_has_class($s); } +function xphasid($s) { return xp_has_id($s); } +function xpattrstartswith($a, $s) { + return xp_attr_starts_with($a, $s); +} +function xphasrel($s) { return xp_has_rel($s); } +function xprhasrel($s) { return xpr_has_rel($s); } +function xprattrstartswithhasrel($a, $s, $r) { + return xpr_attr_starts_with_has_rel($a, $s, $r); +} +function vcpdtreadable($d) { return vcp_dt_readable($d); } + + +// ------------------------------------------------------------------- +// whistle +// algorithmic URL shortener core +// YYYY/DDD/tnnn to tdddss +// ordinal date, type, decimal #, to sexagesimal epoch days, sexagesimal # +function whistle_short_path($p) { + return strcat(substr($p, 9, 1), + ((substr($p, 9, 1)!=='t') ? "/" : ""), + yd_to_sdf(substr($p, 0, 8), 3), + num_to_sxg(substr($p, 10, 3))); +} + +// ------------------------------------------------------------------- +// falcon + +function html_unesc_amp_only($s) { + return str_ireplace('&', '&', $s); +} + +function html_esc_amper_once($s) { + return str_ireplace('&', '&', html_unesc_amp_only($s)); +} + +function html_esc_amp_ang($s) { + return str_ireplace('<', '<', + str_ireplace('>', '>', html_esc_amper_once($s))); +} + +function ellipsize_to_word($s, $max, $e, $min) { /// ?> <!-- /// + var $elen, $i, $slen; /// --> <?php /// + if (strlen($s)<=$max) { + return $s; // no need to ellipsize + } + + $elen = strlen($e); + $slen = $max-$elen; + + // if last characters before $max+1 are ': ', truncate w/o ellipsis. + // no need to take length of ellipsis into account + if ($e==='...') { + for ($i=1; $i<=$elen+1; $i+=1) { + if (substr($s, $max-$i, 2)===': ') { + return substr($s, 0, $max-$i+1); + } + } + } + + if ($min) { + // if a non-zero minimum is provided, then + // find previous space or word punctuation to break at. + // do not break at %`'"&.!?^ - reasons why to be documented. + while ($slen>$min && + !contains('@$ -~*()_+[]{}|;,<>', $s[$slen-1])) { + $slen-=1; + } + } + // at this point we've got a min length string, + // only do minimum trimming necessary to avoid a punctuation error. + + // trim slash after colon or slash + if ($s[$slen-1]==='/' && $slen > 2) { + if ($s[$slen-2]===':') { + $slen-=1; + } + if ($s[$slen-2]==='/') { + $slen-=2; + } + } + + //if trimmed at a ":" in a URL, trim the whole thing + //or trimmed at "http", trim the whole URL + if ($s[$slen-1]===':' && $slen > 5 && + substr($s, $slen-5, 5)==='http:') { + $slen -= 5; + } else if ($s[$slen-1]==='p' && $slen > 4 && + substr($s, $slen-4, 4)==='http') { + $slen -= 4; + } else if ($s[$slen-1]==='t' && $slen > 4 && + (substr($s, $slen-3, 4)==='http' || + substr($s, $slen-3, 4)===' htt')) { + $slen -= 3; + } else if ($s[$slen-1]==='h' && $slen > 4 && + substr($s, $slen-1, 4)==='http') { + $slen -= 1; + } + + //if char immediately before ellipsis would be @$ then trim it + if ($slen > 0 && contains('@$', $s[$slen-1])) { + $slen-=1; + } + + //if char before ellipsis would be sentence terminator, trim 2 more + while ($slen > 1 && contains('.!?', $s[$slen-1])) { + $slen-=2; + } + + // trim extra whitespace before ellipsis down to one space + if ($slen > 2 && contains("\n\r ", $s[$slen-1])) { + while (contains("\n\r ", $s[$slen-2]) && $slen > 2) { + --$slen; + } + } + + if ($slen < 1) { // somehow shortened too much + return $e; // or ellipsis by itself exceeded max, return ellipsis. + } + + // if last two chars are ': ', omit ellipsis. + if ($e==='...' && substr($s, $slen-2, 2)===': ') { + return substr($s, 0, $slen); + } + + return strcat(substr($s, 0, $slen), $e); +} + +function trim_leading_urls($s) { + // deliberately trim URLs with explicit http: / https: from start + // keep schemeless URLs, @-names as expected user-visible text + // if empty or just space after trimming, just return original + $r = trim($s); + while (substr($r, 0, 5) == 'http:' || substr($r, 0, 6) == 'https:') + { + $ws = offset(' ', $r); + $rs = offset("\r", $r); + if ($rs == 0) { $rs = offset("\n", $r); } + if ($rs != 0 && $rs < $ws) { $ws = $rs; } + if ($ws == 0) { return $s; } + $r = substr($r, $ws, strlen($r)-$ws); + } + $r = trim($r); + return ((strlen($r) > 0) ? $r : $s); +} + +function auto_space($s) { +// replace linebreaks with <br class="auto-break"/> +// and one leading space with +// replace " " with " " +// replace leading spaces (on a line or before spaces) with nbsp; + if ($s[0] === ' ') { + $s = strcat(' ', substr($s, 1, strlen($s)-1)); + } + return str_ireplace(array("\r\n", "\r", "\n ", "\n", " "), + array("\n", "\n", '<br class="auto-break"/> ', + '<br class="auto-break"/>', + '  '), + $s); +} + +function auto_link_re() { + return '/(?:\\@[_a-zA-Z0-9]{1,17})|(?:(?:(?:(?:http|https|irc)?:\\/\\/(?:(?:[!$&-.0-9;=?A-Z_a-z]|(?:\\%[a-fA-F0-9]{2}))+(?:\\:(?:[!$&-.0-9;=?A-Z_a-z]|(?:\\%[a-fA-F0-9]{2}))+)?\\@)?)?(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*\\.)+(?:(?:aero|arpa|asia|a[cdefgilmnoqrstuwxz])|(?:biz|b[abdefghijmnorstvwyz])|(?:cat|com|coop|c[acdfghiklmnoruvxyz])|d[ejkmoz]|(?:edu|e[cegrstu])|f[ijkmor]|(?:gov|g[abdefghilmnpqrstuwy])|h[kmnrtu]|(?:info|int|i[delmnoqrst])|j[emop]|k[eghimnrwyz]|l[abcikrstuvy]|(?:mil|museum|m[acdeghklmnopqrstuvwxyz])|(?:name|net|n[acefgilopruz])|(?:org|om)|(?:pro|p[aefghklmnrstwy])|qa|r[eouw]|(?:space|s[abcdeghijklmnortuvyz])|(?:tel|travel|t[cdfghjklmnoprtvwz])|u[agkmsyz]|v[aceginu]|(?:wtf|w[fs])|xyz|y[etu]|z[amw]))|(?:(?:25[0-5]|2[0-4][0-9]|[0-1][0-9]{2}|[1-9][0-9]|[1-9])\\.(?:25[0-5]|2[0-4][0-9]|[0-1][0-9]{2}|[1-9][0-9]|[0-9])\\.(?:25[0-5]|2[0-4][0-9]|[0-1][0-9]{2}|[1-9][0-9]|[0-9])\\.(?:25[0-5]|2[0-4][0-9]|[0-1][0-9]{2}|[1-9][0-9]|[0-9])))(?:\\:\\d{1,5})?)(?:\\/(?:(?:[!#&-;=?-Z_a-z~])|(?:\\%[a-fA-F0-9]{2}))*)?)(?=\\b|\\s|$)/'; + // ccTLD compressed regular expression clauses (re)created. + // .mobi .jobs deliberately excluded to discourage layer violations. + // see http://flic.kr/p/2kmuSL for more on the problematic new gTLDs + // part of $re derived from Android Open Source Project, Apache 2.0 + // with a bunch of subsequent fixes/improvements (e.g. ttk.me/t44H2) + // thus auto_link_re is also Apache 2.0 licensed + // http://www.apache.org/licenses/LICENSE-2.0 + // - Tantek 2010-046 (moved to auto_link_re 2012-062) +} + +// auto_link: param 1: text; +// optional: param 2: do embeds or not (false), +// param 3: do auto_links or not (true) +// auto_link is idempotent, works on plain text or typical markup. +function auto_link() { + /// ?> <!-- /// + var $args, $afterchar, $afterlink, $do_embed, $fe, $i, $isjs, + $mi, $mlen, $ms, $re, + $sp, $spe, $spliti, $t, $wmi, $yvid; + /// --> <?php /// + + $isjs = js(); + $args = $isjs ? arguments : func_get_args(); + if (count($args) === 0) { + return ''; + } + $t = $args[0]; + $do_embed = (count($args) > 1) && ($args[1]!==false); + $do_link = (count($args) < 3) || ($args[2]!==false); + + $re = auto_link_re(); + $ms = preg_matches($re, $t); + if (!$ms) { + return $t; + } + + $mlen = count($ms); + $sp = preg_split($re, $t); + $t = ""; + $sp[0] = string($sp[0]); // force undefined to "" + for ($i=0; $i<$mlen; $i+=1) { + $mi = $ms[$i]; + $spliti = $sp[$i]; + $t = strcat($t, $spliti); + $sp[$i+1] = string($sp[$i+1]); // force undefined to "" + if (substr($sp[$i+1], 0, 1)==='/') { //regex omits end/ before </a + $sp[$i+1] = substr($sp[$i+1], 1, strlen($sp[$i+1])-1); + $mi = strcat($mi, '/'); // include / in the match + } + $spe = substr($spliti, -2, 2); + // avoid 2x-linking, don't link CSS @-rules, attr values, asciibet + if ((!$spe || !preg_match('/(?:\\=[\\"\\\']?|t;)/', $spe)) && + substr(trim($sp[$i+1]), 0, 3)!=='</a' && + (!contains( +'@charset@font@font-face@import@media@namespace@page@ABCDEFGHIJKLMNOPQ@', + strcat($mi, '@')))) { + $afterlink = ''; + $afterchar = substr($mi, -1, 1); + while (contains('.!?,;"\')]}', $afterchar) && // trim punc from + ($afterchar!==')' || !contains($mi,'('))) { // 1 () pair + $afterlink = strcat($afterchar, $afterlink); + $mi = substr($mi, 0, -1); + $afterchar = substr($mi, -1, 1); + } + + $fe = 0; + if ($do_embed) { + $fe = strtolower( + (substr($mi, -4, 1)==='.') ? substr($mi, -4, 4) + : substr($mi, -5, 5)); + } + $wmi = web_address_to_uri($mi, true); + $prot = protocol_of_uri($wmi); + $hn = hostname_of_uri($wmi); + $pa = path_of_uri($wmi); + $ih = is_http_uri($wmi); + + $ahref = '<span class="figure" style="text-align:left">'; + $enda = '</span>'; + if ($do_link) { + $ahref = strcat('<a class="auto-link figure" href="', + $wmi, '">'); + $enda = '</a>'; + } + + if ($fe && + ($fe === '.jpeg' || $fe === '.jpg' || $fe === '.png' || + $fe === '.gif' || $fe === '.svg')) { + $alt = strcat('a ', + (offset('photo', $mi) != 0) ? 'photo' + : substr($fe, 1)); + $t = strcat($t, $ahref, '<img class="auto-embed" alt="', + $alt, '" src="', $wmi, '"/>', $enda, $afterlink); + } else if ($fe && + ($fe === '.mp4' || $fe === '.mov' || + $fe === '.ogv' || $fe === '.webm')) + { + $t = strcat($t, $ahref, '<video class="auto-embed" ', + 'controls="controls" src="', $wmi, '"></video>', + $enda, $afterlink); + } else if ($hn === 'vimeo.com' + && ctype_digit(substr($pa, 1))) { + if ($do_link) { + $t = strcat($t, '<a class="auto-link" href="', + 'https:', relative_uri_hash($wmi), + '">', $mi, '</a> '); + } + + $t = strcat($t, '<iframe class="vimeo-player auto-embed figure" width="480" height="385" style="border:0" src="', 'https://player.vimeo.com/video/', + substr($pa, 1), '"></iframe>', + $afterlink); + } else if ($hn === 'youtu.be' || + (($hn === 'youtube.com' || $hn === 'www.youtube.com') + && ($yvid = offset('watch?v=', $mi)) !== 0)) { + if ($hn === 'youtu.be') { + $yvid = substr($pa, 1); + } else { + $yvid = explode('&', substr($mi, $yvid+7)); + $yvid = $yvid[0]; + } + if ($do_link) { + $t = strcat($t, '<a class="auto-link" href="', + 'https:', relative_uri_hash($wmi), + '">', $mi, '</a> '); + } + $t = strcat($t, '<iframe class="youtube-player auto-embed figure" width="480" height="385" style="border:0" src="', 'https://www.youtube.com/embed/', + $yvid, '"></iframe>', + $afterlink); + } else if ($mi[0] === '@' && $do_link) { + if ($sp[$i+1][0] === '.' && + $spliti != '' && + ctype_email_local(substr($spliti, -1, 1))) { + // if email address, simply append info, no linking + $t = strcat($t, $mi, $afterlink); + } + else { + // treat it as a Twitter @-username reference and link it + $t = strcat($t, '<a class="auto-link h-x-username" href="', + $wmi, '">', $mi, '</a>', + $afterlink); + } + } else if ($do_link) { + $t = strcat($t, '<a class="auto-link" href="', + $wmi, '">', $mi, '</a>', + $afterlink); + } else { + $t = strcat($t, $mi, $afterlink); + } + } else { + $t = strcat($t, $mi); + } + } + return strcat($t, $sp[$mlen]); +} + + +// returns array of URLs after literal "in-reply-to:" in text +function get_in_reply_to_urls($s) { + /// ?> <!-- /// + var $irtn, $r, $re, $i, $j, + $ms, $sp, $afterlink, $ac; + /// --> <?php /// + + $s = explode('in-reply-to: ', $s); + $irtn = count($s); + if ($irtn < 2) { return array(); } + $r = array(); + $re = auto_link_re(); + for ($i=1; $i<$irtn; $i++) { + // iterate through all strings after an 'in-reply-to: ' for URLs + $ms = preg_matches($re, $s[$i]); + $msn = count($ms); + if ($ms) { + $sp = preg_split($re, $s[$i]); + $j = 0; + $afterlink = ''; + while ($j<$msn && + $afterlink == '' && + ($sp[$j] == '' || ctype_space($sp[$j]))) { + // iterate through space separated URLs and add them to $r + $m = $ms[$j]; + if ($m[0] != '@') { // skip @-references + $ac = substr($m, -1, 1); + while (contains('.!?,;"\')]}', $ac) && // trim punc @ end + ($ac != ')' || !contains($m, '('))) { + // allow one paren pair + // *** not sure twitter is this smart + $afterlink = strcat($ac, $afterlink); + $m = substr($m, 0, -1); + $ac = substr($m, -1, 1); + } + if (substr($m, 0, 6) === 'irc://') { + // skip it. no known use of in-reply-to an IRC URL + } else { + $r[count($r)] = webaddresstouri($m, true); + } + } + $j++; + } + } + } + return $r; +} + + +// Twitter POSSE support + +// replace URLs with https://j.mp/0011235813 to mimic Twitter's t.co +function tw_text_proxy() { + /// ?> <!-- /// + var $args, $afterchar, $afterlink, $i, $isjs, + $mlen, $ms, $re, + $sp, $spe, $spliti, $prot, $proxy_url; + /// --> <?php /// + + $isjs = js(); + $args = $isjs ? arguments : func_get_args(); + if (count($args) === 0) { + return ''; + } + $t = $args[0]; + + $re = auto_link_re(); + $ms = preg_matches($re, $t); + if (!$ms) { + return $t; + } + + $mlen = count($ms); + $sp = preg_split($re, $t); + $t = ""; + $sp[0] = string($sp[0]); // force undefined to "" + for ($i=0; $i<$mlen; $i++) { + $mi = $ms[$i]; + $spliti = $sp[$i]; + $t = strcat($t, $spliti); + $sp[$i+1] = string($sp[$i+1]); // force undefined to "" + if (substr($sp[$i+1], 0, 1)=='/') { // regex omits '/' before </a + $sp[$i+1] = substr($sp[$i+1], 1, strlen($sp[$i+1])-1); + $mi = strcat($mi, '/'); // explicitly include in match + } + $spe = substr($spliti, -2, 2); + // don't proxy @-names, plain ccTLDs + if ($mi[0]!='@' && + (substr($mi, -3, 1) !== '.' || substr_count($mi, '.') > 1)) { + $afterlink = ''; + $afterchar = substr($mi, -1, 1); + while (contains('.!?,;"\')]}', $afterchar) && // trim punc @ end + ($afterchar !== ')' || !contains($mi, '('))) { + // allow one paren pair + // *** not sure twitter is this smart + $afterlink = strcat($afterchar, $afterlink); + $mi = substr($mi, 0, -1); + $afterchar = substr($mi, -1, 1); + } + + $prot = protocol_of_uri($mi); + $proxy_url = ''; + if ($prot === 'irc:') { + $proxy_url = $mi; // Twitter doesn't tco irc: URLs + } else { /* 'https:', 'http:' or presumed for schemeless URLs */ + $proxy_url = 'https://j.mp/0011235813'; + } + $t = strcat($t, $proxy_url, $afterlink); + } + else { + $t = strcat($t, $mi); + } + } + return strcat($t, $sp[$mlen]); +} + + +// note_length_check: +// checks if $note fits in $maxlen characters. +// if $username is non-empty, checks if RT'd $note fits in $maxlen +// 0 - bad params or other precondition failure error +// 200 - exactly fits max characters with RT if username provided +// 206 - less than max chars with RT if username provided +// 207 - more than RT safe length, but less than tweet max +// 208 - tweet max length but with RT would be over +// 413 - (entity too large) over max tweet length +// strlen('RT @: ') === 6. +function note_length_check($note, $maxlen, $username) { + /// ?> <!-- /// + var $note_size_chk_u, $note_size_chk_n; + /// --> <?php /// + + if ($maxlen < 1) { return 0; } + + $note_size_chk_u = $username ? 6 + strlen(string($username)) : 0; + $note_size_chk_n = strlen(string($note)) + $note_size_chk_u; + + if ($note_size_chk_n === $maxlen) { return 200; } + if ($note_size_chk_n < $maxlen) { return 206; } + if ($note_size_chk_n - $note_size_chk_u < $maxlen) { return 207; } + if ($note_size_chk_n - $note_size_chk_u === $maxlen) { return 208; } + return 413; +} + +function tw_length_check($t, $maxlen, $username) { + return note_length_check(tw_text_proxy($t), + $maxlen, $username); +} + +function tw_url_to_status_id($u) { +// $u - tweet permalink url +// returns tweet status id string; 0 if not a tweet permalink. + if (!$u) return 0; + $u = explode("/", string($u)); // https:,,twitter.com,t,status,nnn + if ($u[2] != "twitter.com" || + $u[4] != "status" || + !ctype_digit($u[5])) { + return 0; + } + return $u[5]; +} + +function tw_url_to_username($u) { +// $u - tweet permalink url +// returns twitter username; 0 if not a tweet permalink. + if (!$u) return 0; + $u = explode("/", string($u)); // https:,,twitter.com,t,status,nnn + if ($u[2] != "twitter.com" || + $u[4] != "status" || + !ctype_digit($u[5])) { + return 0; + } + return $u[3]; +} + +function fb_url_to_event_id($u) { +// $u - fb event permalink url +// returns fb event id string; 0 if not a fb event permalink. + if (!$u) return 0; + $u = explode("/", string($u)); // https:,,fb.com,events,nnn + if (($u[2] != "fb.com" && $u[2] != "facebook.com" && + $u[2] != "www.facebook.com") || + $u[3] != "events" || + !ctype_digit($u[4])) { + return 0; + } + return $u[4]; +} + +// =================================================================== +// end CASSIS v0.1, cassis.js +// ?> -->
\ No newline at end of file |