Common.php0000644€tÆ*€tÆ*0000003421214673337221015527 0ustar axprmkhpdyxpaxprmkhpdyxp=0){ mysqli_data_seek($res,$row); $resrow = (is_numeric($col)) ? mysqli_fetch_row($res) : mysqli_fetch_assoc($res); if (isset($resrow[$col])){ return $resrow[$col]; } } return false; } function case_revauth($string) { $string = my_uppcase($string); return $string; } function case_title($string) { $string = my_uppcase($string); return $string; } function case_author($string) { $string = my_ttlcase($string); return $string; } function case_authoraka($string) { $string = my_ttlcase($string); return $string; } function case_subject($string) { $string = my_ttlcase($string); return $string; } function case_variant($string) { $string = my_ttlcase($string); return $string; } function case_firstline($string) { $string = my_sntcase($string); return $string; } function my_uppcase($string) { $string = strtoupper($string); return $string; } function my_ttlcase($string) { $string = ucwords(strtolower($string)); // $string = preg_replace('#[(\\/][a-z]#e', "strtoupper('$0')", $string); // $string = preg_replace('#[(\\/][a-z]#', "strtoupper('$0')", $string); // $string = preg_replace_callback('#[(\\/][a-z]#', "strtoupper('$0')", $string); return $string; } function my_sntcase($s){ $str = strtolower($s); $cap = true; $ret = ""; for($x = 0; $x < strlen($str); $x++){ /* if($x > 0 && $x < strlen($str)){ $Iletter = substr($str, $x-1, 3); if($Iletter == " i "){ $cap = true; } } if($x > 0 && $x == strlen($str)){ $Iletter = substr($str, $x-1, 2); if($Iletter == " i"){ $cap = true; } } */ $str = preg_replace( "/\bi\b/", "I", $str ); $letter = substr($str, $x, 1); if($letter == "." || $letter == "!" || $letter == "?"){ $cap = true; }elseif($letter != " " && $cap == true){ $letter = strtoupper($letter); $cap = false; } $ret .= $letter; } return $ret; } // function get_data_from_rhymes_dictionary_based_on_search($kword) // { // $url = "http://www.rhymezone.com/r/rhyme.cgi?Word=".$kword."&typeofrhyme=perfect&org1=syl&org2=l&org3=y"; // // Initiate curl // $ch = curl_init(); // // Disable SSL verification // curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false); // // Will return the response, if false it print the response // curl_setopt($ch, CURLOPT_RETURNTRANSFER, true); // // Set the url // curl_setopt($ch, CURLOPT_URL,$url); // // Execute // $result = curl_exec($ch); // $data = array(); // $array1 = array(); // $array2 = array(); // $array3 = array(); // $array4 = array(); // $array5 = array(); // array_push($data, $kword); // $start_position = strpos($result, "results)"); // if($start_position) // { // $result = substr($result, $start_position); // } // //find fisrt syllable data and create array // $end_point = strpos($result,"2 syllable"); // $strat_point = strpos($result,"1 syllable"); // $dataStr = ""; // if($end_point === FALSE || $strat_point === FALSE){ // //nothing to do // } else { // $length = strpos($result,"2 syllable") - strpos($result,"1 syllable"); // $array1 = explode(",", trim(preg_replace('/\s\s+/', '', strip_tags(str_replace("1 syllable", "", substr($result,strpos($result,"1 syllable"), $length)))))); // $array1[0] = trim(preg_replace('/\s\s+/', ' ', str_replace(":", "", $array1[0]))); // if(is_array($data) && is_array($array1)) // { // $data = array_merge($data,$array1); // } // } // //find 2nd syllable data and create array // $end_point = strpos($result,"3 syllable"); // $strat_point = strpos($result,"2 syllable"); // if($end_point === FALSE || $strat_point === FALSE) // { // //nothing to do // } else { // $length = strpos($result,"3 syllable") - strpos($result,"2 syllable"); // $array2 = explode(",", trim(preg_replace('/\s\s+/', '', strip_tags(str_replace("2 syllables", "", substr($result,strpos($result,"2 syllable"), $length)))))); // $array2[0] = trim(preg_replace('/\s\s+/', ' ', str_replace(":", "", $array2[0]))); // if(is_array($data) && is_array($array1) && is_array($array2)) // { // $data = array_merge($data,$array1,$array2); // } // } // //find 3rd syllable data and create array // $end_point = strpos($result,"4 syllable"); // $strat_point = strpos($result,"3 syllable"); // if($end_point === FALSE || $strat_point === FALSE) // { // //nothing to do // } else { // $length = strpos($result,"4 syllable") - strpos($result,"3 syllable"); // $array3 = explode(",", trim(preg_replace('/\s\s+/', '', strip_tags(str_replace("3 syllables", "", substr($result,strpos($result,"3 syllable"), $length)))))); // $array3[0] = trim(preg_replace('/\s\s+/', ' ', str_replace(":", "", $array3[0]))); // if(is_array($data) && is_array($array1) && is_array($array2) && is_array($array3)) // { // $data = array_merge($data, $array1,$array2, $array3); // } // } // //find 4th syllable data and create array // $end_point = strpos($result,"5 syllable"); // $strat_point = strpos($result,"4 syllable"); // if($end_point === FALSE || $strat_point === FALSE){ // //nothing to do // } else { // $length = strpos($result,"5 syllable") - strpos($result,"4 syllable"); // $array4 = explode(",", trim(preg_replace('/\s\s+/', '', strip_tags(str_replace("4 syllables", "", substr($result,strpos($result,"4 syllable"), $length)))))); // $array4[0] = trim(preg_replace('/\s\s+/', ' ', str_replace(":", "", $array4[0]))); // if(is_array($data) && is_array($array1) && is_array($array2) && is_array($array3) && is_array($array4)) // { // $data = array_merge($data, $array1,$array2, $array3, $array4); // } // } // //find 5th syllable data and create array // $end_point = strpos($result,"6 syllable"); // $strat_point = strpos($result,"5 syllable"); // if($end_point === FALSE || $strat_point === FALSE){ // //nothing to do // } else { // $length = strpos($result,"6 syllable") - strpos($result,"5 syllable"); // $array5 = explode(",", trim(preg_replace('/\s\s+/', '', strip_tags(str_replace("5 syllables", "", substr($result,strpos($result,"5 syllable"), $length)))))); // $array5[0] = trim(preg_replace('/\s\s+/', ' ', str_replace(":", "", $array5[0]))); // if(is_array($data) && is_array($array1) && is_array($array2) && is_array($array3) && is_array($array4) && is_array($array5)) // { // $data = array_merge($data, $array1,$array2, $array3, $array4, $array5); // } // } // // $data = (json_encode($data)); // // Closing // curl_close($ch); // $temp = false; // if($data) // { // foreach ($data as $key => $value) { // # code... // if($value != "") // { // if($temp == false) // { // $dataStr .= '"' . $value . '"'; // $temp = true; // } // else // { // $dataStr .= ', "' . $value . '"'; // } // } // } // } // return $dataStr; // } // REPLACE 2021-11-17 with new function below // function get_data_from_rhymes_dictionary_based_on_search($kword) // { // // // // A very simple PHP example that sends a HTTP POST to a remote site // // // // $ch = curl_init(); // // // // //curl_setopt($ch, CURLOPT_URL,"http://www.rhymedb.com/word/".$kword); // // oldmethod 2019 ^ // // curl_setopt($ch, CURLOPT_URL,"https://www.rhymezone.com/r/rhyme.cgi?Word=".$kword."&typeofrhyme=perfect&org1=syl&org2=l&org3=y"); // // print_r("https://www.rhymezone.com/r/rhyme.cgi?Word=".$kword."&typeofrhyme=perfect&org1=syl&org2=l&org3=y"); // // curl_setopt($ch, CURLOPT_POST, 1); // // // // receive server response ... // curl_setopt($ch, CURLOPT_RETURNTRANSFER, true); // // $server_output = curl_exec ($ch); // // // // print_r($server_output); // curl_close ($ch); // $dom = new DomDocument(); // @$dom->loadHTML($server_output); // $xpath = new DOMXpath($dom); // // $heading=parseToArray($xpath,'Heading1-H'); // $content=parseToArray($xpath,'content', $kword); // // // // $content=array("was", "fuzz", "twas", "does"); // // expected sample output ^ // // // echo '
'; print_r($content); echo '
'; // // $temp = false; // $dataStr = ""; // if($content) // { // foreach ($content as $key => $value) { // # code... // if($value != " " || $value != "") // { // if($temp == false) // { // $dataStr .= '"' . $value . '"'; // $temp = true; // // } // else // { // $dataStr .= ', "' . $value . '"'; // } // } // // // } // } // // return $dataStr; // } function getTheJuice($start, $end, $content) { $pos = strpos($content, $start); $content = substr($content, $pos); $content = str_replace($start, "", $content); $pos = strpos($content, $end); $content = substr($content, 0, $pos); return $content; } // needed below function get_data_from_rhymes_dictionary_based_on_search($kword) { $ch = curl_init(); curl_setopt($ch, CURLOPT_URL,"https://www.rhymezone.com/r/rhyme.cgi?Word=".$kword."&typeofrhyme=perfect&org1=syl&org2=l&org3=n"); curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, true); // TLS (https) curl_setopt($ch, CURLOPT_SSL_VERIFYHOST, 2); curl_setopt($ch, CURLOPT_RETURNTRANSFER, true); // Receive server response ... $server_output = curl_exec($ch); $nr = getTheJuice('  (', ' results)', $server_output); curl_close ($ch); // processing fetched data $dom = new DomDocument(); @$dom->loadHTML($server_output); $xpath = new DOMXpath($dom); // retain both matches in blue and matches in grey, only that $content = $xpath->query('//a[@class="r"]|//a[@class="d r"]'); $i = 0; $limit = (isset($nr) && !empty($nr)) ? $nr : 100; // put results in an array if (!is_null($content)) { foreach ($content as $element) { $i++; if ($i > $limit) break; $nodes = $element->childNodes; foreach ($nodes as $node) { $arr[] = $node->nodeValue; } } } // return $arr; // put results in a string $temp = false; $dataStr = ""; if($arr) { foreach ($arr as $key => $value) { # code... if($value != " " || $value != "") { if($temp == false) { $dataStr .= '"' . $value . '"'; $temp = true; } else { $dataStr .= ', "' . $value . '"'; } } //if } //foreach } //if return $dataStr; } function parseToArray($xpath,$class,$kword) { $xpathquery="//span[@class='".$class."']"; $elements = $xpath->query($xpathquery); if (!is_null($elements)) { $resultarray=array(); $resultarray[] = $kword; foreach ($elements as $element) { $nodes = $element->childNodes; foreach ($nodes as $node) { $cleanStr = trim(preg_replace('/\s\s+/', ' ', str_replace("\n", " ", $node->textContent))); if($cleanStr === "Definition Rhymes" || $cleanStr === "") { //echo "match"; } else { $resultarray[] = $cleanStr; } } } return $resultarray; } } function isMobileDevice() { return preg_match("/(android|avantgo|blackberry|bolt|boost|cricket|docomo |fone|hiptop|mini|mobi|palm|phone|pie|tablet|up\.browser|up\.link|webos|wos)/i" , empty($_SERVER["HTTP_USER_AGENT"]) ? "" : $_SERVER["HTTP_USER_AGENT"]); } // include('simple_html_dom.php'); // function get_data_from_rhymes_dictionary_based_on_search($kword) // { // // A very simple PHP example that sends a HTTP POST to a remote site // $url = "http://wikirhymer.com/words/".$kword; // $html = file_get_html($url); // $resultarray=array(); // $resultarray[] = $kword; // foreach($html->find('div.words') as $e) // { // $str = explode("", strip_tags($e->outertext)); // foreach($str as $s) // { // $cleanStr = trim(preg_replace('/\s\s+/', ' ', str_replace("\n", " ", $s))); // if($cleanStr === "") // { // //echo "match"; // } // else // { // $resultarray[] = $cleanStr; // } // } // } // $temp = false; // $dataStr = ""; // if($resultarray) // { // foreach ($resultarray as $key => $value) { // # code... // if($value != " " || $value != "") // { // if($temp == false) // { // $dataStr .= '"' . $value . '"'; // $temp = true; // } // else // { // $dataStr .= ', "' . $value . '"'; // } // } // } // } // return $dataStr; // } ?>Common_dbg.php0000644€tÆ*€tÆ*0000003406114405135601016334 0ustar axprmkhpdyxpaxprmkhpdyxp=0){ mysqli_data_seek($res,$row); $resrow = (is_numeric($col)) ? mysqli_fetch_row($res) : mysqli_fetch_assoc($res); if (isset($resrow[$col])){ return $resrow[$col]; } } return false; } function case_revauth($string) { $string = my_uppcase($string); return $string; } function case_title($string) { $string = my_uppcase($string); return $string; } function case_author($string) { $string = my_ttlcase($string); return $string; } function case_authoraka($string) { $string = my_ttlcase($string); return $string; } function case_subject($string) { $string = my_ttlcase($string); return $string; } function case_variant($string) { $string = my_ttlcase($string); return $string; } function case_firstline($string) { $string = my_sntcase($string); return $string; } function my_uppcase($string) { $string = strtoupper($string); return $string; } function my_ttlcase($string) { $string = ucwords(strtolower($string)); // $string = preg_replace('#[(\\/][a-z]#e', "strtoupper('$0')", $string); // $string = preg_replace('#[(\\/][a-z]#', "strtoupper('$0')", $string); // $string = preg_replace_callback('#[(\\/][a-z]#', "strtoupper('$0')", $string); return $string; } function my_sntcase($s){ $str = strtolower($s); $cap = true; $ret = ""; for($x = 0; $x < strlen($str); $x++){ /* if($x > 0 && $x < strlen($str)){ $Iletter = substr($str, $x-1, 3); if($Iletter == " i "){ $cap = true; } } if($x > 0 && $x == strlen($str)){ $Iletter = substr($str, $x-1, 2); if($Iletter == " i"){ $cap = true; } } */ $str = preg_replace( "/\bi\b/", "I", $str ); $letter = substr($str, $x, 1); if($letter == "." || $letter == "!" || $letter == "?"){ $cap = true; }elseif($letter != " " && $cap == true){ $letter = strtoupper($letter); $cap = false; } $ret .= $letter; } return $ret; } // function get_data_from_rhymes_dictionary_based_on_search($kword) // { // $url = "http://www.rhymezone.com/r/rhyme.cgi?Word=".$kword."&typeofrhyme=perfect&org1=syl&org2=l&org3=y"; // // Initiate curl // $ch = curl_init(); // // Disable SSL verification // curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false); // // Will return the response, if false it print the response // curl_setopt($ch, CURLOPT_RETURNTRANSFER, true); // // Set the url // curl_setopt($ch, CURLOPT_URL,$url); // // Execute // $result = curl_exec($ch); // $data = array(); // $array1 = array(); // $array2 = array(); // $array3 = array(); // $array4 = array(); // $array5 = array(); // array_push($data, $kword); // $start_position = strpos($result, "results)"); // if($start_position) // { // $result = substr($result, $start_position); // } // //find fisrt syllable data and create array // $end_point = strpos($result,"2 syllable"); // $strat_point = strpos($result,"1 syllable"); // $dataStr = ""; // if($end_point === FALSE || $strat_point === FALSE){ // //nothing to do // } else { // $length = strpos($result,"2 syllable") - strpos($result,"1 syllable"); // $array1 = explode(",", trim(preg_replace('/\s\s+/', '', strip_tags(str_replace("1 syllable", "", substr($result,strpos($result,"1 syllable"), $length)))))); // $array1[0] = trim(preg_replace('/\s\s+/', ' ', str_replace(":", "", $array1[0]))); // if(is_array($data) && is_array($array1)) // { // $data = array_merge($data,$array1); // } // } // //find 2nd syllable data and create array // $end_point = strpos($result,"3 syllable"); // $strat_point = strpos($result,"2 syllable"); // if($end_point === FALSE || $strat_point === FALSE) // { // //nothing to do // } else { // $length = strpos($result,"3 syllable") - strpos($result,"2 syllable"); // $array2 = explode(",", trim(preg_replace('/\s\s+/', '', strip_tags(str_replace("2 syllables", "", substr($result,strpos($result,"2 syllable"), $length)))))); // $array2[0] = trim(preg_replace('/\s\s+/', ' ', str_replace(":", "", $array2[0]))); // if(is_array($data) && is_array($array1) && is_array($array2)) // { // $data = array_merge($data,$array1,$array2); // } // } // //find 3rd syllable data and create array // $end_point = strpos($result,"4 syllable"); // $strat_point = strpos($result,"3 syllable"); // if($end_point === FALSE || $strat_point === FALSE) // { // //nothing to do // } else { // $length = strpos($result,"4 syllable") - strpos($result,"3 syllable"); // $array3 = explode(",", trim(preg_replace('/\s\s+/', '', strip_tags(str_replace("3 syllables", "", substr($result,strpos($result,"3 syllable"), $length)))))); // $array3[0] = trim(preg_replace('/\s\s+/', ' ', str_replace(":", "", $array3[0]))); // if(is_array($data) && is_array($array1) && is_array($array2) && is_array($array3)) // { // $data = array_merge($data, $array1,$array2, $array3); // } // } // //find 4th syllable data and create array // $end_point = strpos($result,"5 syllable"); // $strat_point = strpos($result,"4 syllable"); // if($end_point === FALSE || $strat_point === FALSE){ // //nothing to do // } else { // $length = strpos($result,"5 syllable") - strpos($result,"4 syllable"); // $array4 = explode(",", trim(preg_replace('/\s\s+/', '', strip_tags(str_replace("4 syllables", "", substr($result,strpos($result,"4 syllable"), $length)))))); // $array4[0] = trim(preg_replace('/\s\s+/', ' ', str_replace(":", "", $array4[0]))); // if(is_array($data) && is_array($array1) && is_array($array2) && is_array($array3) && is_array($array4)) // { // $data = array_merge($data, $array1,$array2, $array3, $array4); // } // } // //find 5th syllable data and create array // $end_point = strpos($result,"6 syllable"); // $strat_point = strpos($result,"5 syllable"); // if($end_point === FALSE || $strat_point === FALSE){ // //nothing to do // } else { // $length = strpos($result,"6 syllable") - strpos($result,"5 syllable"); // $array5 = explode(",", trim(preg_replace('/\s\s+/', '', strip_tags(str_replace("5 syllables", "", substr($result,strpos($result,"5 syllable"), $length)))))); // $array5[0] = trim(preg_replace('/\s\s+/', ' ', str_replace(":", "", $array5[0]))); // if(is_array($data) && is_array($array1) && is_array($array2) && is_array($array3) && is_array($array4) && is_array($array5)) // { // $data = array_merge($data, $array1,$array2, $array3, $array4, $array5); // } // } // // $data = (json_encode($data)); // // Closing // curl_close($ch); // $temp = false; // if($data) // { // foreach ($data as $key => $value) { // # code... // if($value != "") // { // if($temp == false) // { // $dataStr .= '"' . $value . '"'; // $temp = true; // } // else // { // $dataStr .= ', "' . $value . '"'; // } // } // } // } // return $dataStr; // } // REPLACE 2021-11-17 with new function below // function get_data_from_rhymes_dictionary_based_on_search($kword) // { // // // // A very simple PHP example that sends a HTTP POST to a remote site // // // // $ch = curl_init(); // // // // //curl_setopt($ch, CURLOPT_URL,"http://www.rhymedb.com/word/".$kword); // // oldmethod 2019 ^ // // curl_setopt($ch, CURLOPT_URL,"https://www.rhymezone.com/r/rhyme.cgi?Word=".$kword."&typeofrhyme=perfect&org1=syl&org2=l&org3=y"); // // print_r("https://www.rhymezone.com/r/rhyme.cgi?Word=".$kword."&typeofrhyme=perfect&org1=syl&org2=l&org3=y"); // // curl_setopt($ch, CURLOPT_POST, 1); // // // // receive server response ... // curl_setopt($ch, CURLOPT_RETURNTRANSFER, true); // // $server_output = curl_exec ($ch); // // // // print_r($server_output); // curl_close ($ch); // $dom = new DomDocument(); // @$dom->loadHTML($server_output); // $xpath = new DOMXpath($dom); // // $heading=parseToArray($xpath,'Heading1-H'); // $content=parseToArray($xpath,'content', $kword); // // // // $content=array("was", "fuzz", "twas", "does"); // // expected sample output ^ // // // echo '
'; print_r($content); echo '
'; // // $temp = false; // $dataStr = ""; // if($content) // { // foreach ($content as $key => $value) { // # code... // if($value != " " || $value != "") // { // if($temp == false) // { // $dataStr .= '"' . $value . '"'; // $temp = true; // // } // else // { // $dataStr .= ', "' . $value . '"'; // } // } // // // } // } // // return $dataStr; // } function getTheJuice($start, $end, $content) { $pos = strpos($content, $start); $content = substr($content, $pos); $content = str_replace($start, "", $content); $pos = strpos($content, $end); $content = substr($content, 0, $pos); return $content; } // needed below function get_data_from_rhymes_dictionary_based_on_search($kword) { $ch = curl_init(); curl_setopt($ch, CURLOPT_URL,"https://www.rhymezone.com/r/rhyme.cgi?Word=".$kword."&typeofrhyme=perfect&org1=syl&org2=l&org3=n"); curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, true); // TLS (https) curl_setopt($ch, CURLOPT_SSL_VERIFYHOST, 2); curl_setopt($ch, CURLOPT_RETURNTRANSFER, true); // Receive server response ... $server_output = curl_exec($ch); $nr = getTheJuice('  (', ' results)', $server_output); curl_close ($ch); // processing fetched data $dom = new DomDocument(); @$dom->loadHTML($server_output); $xpath = new DOMXpath($dom); // retain both matches in blue and matches in grey, only that $content = $xpath->query('//a[@class="r"]|//a[@class="d r"]'); $i = 0; $limit = (isset($nr) && !empty($nr)) ? $nr : 100; // put results in an array if (!is_null($content)) { foreach ($content as $element) { $i++; if ($i > $limit) break; $nodes = $element->childNodes; foreach ($nodes as $node) { $arr[] = $node->nodeValue; } } } // return $arr; // put results in a string $temp = false; $dataStr = ""; if($arr) { foreach ($arr as $key => $value) { # code... if($value != " " || $value != "") { if($temp == false) { $dataStr .= '"' . $value . '"'; $temp = true; } else { $dataStr .= ', "' . $value . '"'; } } //if } //foreach } //if return $dataStr; } function parseToArray($xpath,$class,$kword) { $xpathquery="//span[@class='".$class."']"; $elements = $xpath->query($xpathquery); if (!is_null($elements)) { $resultarray=array(); $resultarray[] = $kword; foreach ($elements as $element) { $nodes = $element->childNodes; foreach ($nodes as $node) { $cleanStr = trim(preg_replace('/\s\s+/', ' ', str_replace("\n", " ", $node->textContent))); if($cleanStr === "Definition Rhymes" || $cleanStr === "") { //echo "match"; } else { $resultarray[] = $cleanStr; } } } return $resultarray; } } function isMobileDevice() { return preg_match("/(android|avantgo|blackberry|bolt|boost|cricket|docomo |fone|hiptop|mini|mobi|palm|phone|pie|tablet|up\.browser|up\.link|webos|wos)/i" , $_SERVER["HTTP_USER_AGENT"]); } // include('simple_html_dom.php'); // function get_data_from_rhymes_dictionary_based_on_search($kword) // { // // A very simple PHP example that sends a HTTP POST to a remote site // $url = "http://wikirhymer.com/words/".$kword; // $html = file_get_html($url); // $resultarray=array(); // $resultarray[] = $kword; // foreach($html->find('div.words') as $e) // { // $str = explode("", strip_tags($e->outertext)); // foreach($str as $s) // { // $cleanStr = trim(preg_replace('/\s\s+/', ' ', str_replace("\n", " ", $s))); // if($cleanStr === "") // { // //echo "match"; // } // else // { // $resultarray[] = $cleanStr; // } // } // } // $temp = false; // $dataStr = ""; // if($resultarray) // { // foreach ($resultarray as $key => $value) { // # code... // if($value != " " || $value != "") // { // if($temp == false) // { // $dataStr .= '"' . $value . '"'; // $temp = true; // } // else // { // $dataStr .= ', "' . $value . '"'; // } // } // } // } // return $dataStr; // } ?>Connect.php0000644€tÆ*€tÆ*0000000201514422320351015650 0ustar axprmkhpdyxpaxprmkhpdyxp Connect_test.php0000644€tÆ*€tÆ*0000000171214415365543016730 0ustar axprmkhpdyxpaxprmkhpdyxp Functions.php0000644€tÆ*€tÆ*0000002123513124301600016226 0ustar axprmkhpdyxpaxprmkhpdyxp"; $txt_result=mysql_query($txt_query); $txt_num=mysql_numrows($txt_result); // echo "$txt_num
"; // die; $author=mysql_result($result,$i,"author_fix"); $author_aka=mysql_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysql_result($result,$i,"bio_link"); $title=mysql_result($result,$i,"title"); $first_line=mysql_result($result,$i,"first_line"); $last_line=mysql_result($result,$i,"last_line"); $text_link=mysql_result($result,$i,"text_link"); $recitation_link=mysql_result($result,$i,"recitation_link"); $rec_by_auth=mysql_result($result,$i,"rec_by_auth"); $subjects=trim(mysql_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysql_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); /* if ( $subjects === "" ) { unset($subjects) ; } */ /* original 2012OCT17 $author   " . ( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
$title   " . ( ($text_link) ? "\t\tPoem Text" : "" ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "
*/ unset($text_src); $text_win="_blank"; if ( $txt_num > 0 ){ if ( $text_link ) { $text_src=$text_link; } $text_link="../poem.php?id=$pid"; $text_win="_self"; if ( $text_link == $text_src ) { unset($text_src); } } /* echo "$txt_num
Text: $text_link
Src: $text_src
"; */ echo " ${title}, by $revauth   " . ( ($text_link) ? "\t\tPoem Text" : "" ) . "    " . ( ($text_src) ? "\t\tPoem Source" : "" ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
"; if ( $first_line ) { echo " First Line: $first_line
"; } if ( $last_line ) { echo " Last Line: $last_line
"; } if ( $author_aka ) { echo " Alternate Author Name(s): $author_aka
"; } if ( $variants ) { echo " Variant Title(s): $variants
"; } if ( $subjects ) { echo " Subject(s): $subjects
"; } echo "

"; $i++; } } //end of function function myAuthSearch( $num, $result ){ global $hostname, $username, $password, $database; mysql_connect($hostname,$username,$password); @mysql_select_db($database) or die( "Unable to select database"); $i=0; $last_author=""; while ($i < $num) { $pid=mysql_result($result,$i,"id"); $txt_query="SELECT T.* FROM text T WHERE T.poem_id = $pid"; // echo "$query
"; $txt_result=mysql_query($txt_query); $txt_num=mysql_numrows($txt_result); // echo "$txt_num
"; // die; $author_hold=mysql_result($result,$i,"author"); $author=mysql_result($result,$i,"author_fix"); $author_aka=mysql_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysql_result($result,$i,"bio_link"); $title=mysql_result($result,$i,"title"); $first_line=mysql_result($result,$i,"first_line"); $last_line=mysql_result($result,$i,"last_line"); $text_link=mysql_result($result,$i,"text_link"); $recitation_link=mysql_result($result,$i,"recitation_link"); $rec_by_auth=mysql_result($result,$i,"rec_by_auth"); $subjects=trim(mysql_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysql_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); if ($author_hold != $last_author) { // $query="SELECT COUNT(title) as numpoems FROM poem WHERE (text_link IS NOT NULL OR recitation_link IS NOT NULL) AND author = \"$author_hold\""; $query="SELECT COUNT(title) as numpoems FROM poem WHERE (id IS NOT NULL OR recitation_link IS NOT NULL) AND author = \"$author_hold\""; // echo "$query"; $cresult=mysql_query($query); if (!$cresult) echo mysql_error(); $numpoems_cnt=mysql_fetch_array($cresult); $numpoems=$numpoems_cnt['numpoems']; echo "
$author   " . ( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
" . ( ($author_aka) ? "Alternate Author Name(s): $author_aka
" : "" ) . " $numpoems poems available by this author

"; $last_author = $author_hold; } unset($text_src); $text_win="_blank"; if ( $txt_num > 0 ){ if ( $text_link ) { $text_src=$text_link; } $text_link="../poem.php?id=$pid"; $text_win="_self"; if ( $text_link == $text_src ) { unset($text_src); } } /* echo "$txt_num
Text: $text_link
Src: $text_src
"; */ echo " $title   " . ( ($text_link) ? "\t\tPoem Text" : "" ) . "    " . ( ($text_src) ? "\t\tPoem Source" : "" ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "
"; if ( $first_line ) { echo " First Line: $first_line
"; } if ( $last_line ) { echo " Last Line: $last_line
"; } if ( $variants ) { echo " Variant Title(s): $variants
"; } if ( $subjects ) { echo " Subject(s): $subjects
"; } echo "

"; $i++; } } //end of function function search_transform_term($term){ $term = preg_replace("/(\s)/e", "'{WHITESPACE-'.ord('\$1').'}'", $term); $term = preg_replace("/,/", "{COMMA}", $term); return $term; } function search_split_terms($terms){ /* $terms = preg_replace('!\s+!', ' ', $terms);*/ $terms = str_replace(",", "",$terms); $terms = preg_replace("/\"(.*?)\"/e", "search_transform_term('\$1')", $terms); $terms = preg_split("/\s+|,/", $terms); $out = array(); foreach($terms as $term){ $term = preg_replace("/\{WHITESPACE-([0-9]+)\}/e", "chr(\$1)", $term); $term = preg_replace("/\{COMMA\}/", ",", $term); $out[] = $term; } return $out; } function search_escape_rlike($string){ return preg_replace("/([.\[\]*^\$])/", '\\\$1', $string); } function search_db_escape_terms($terms){ $out = array(); foreach($terms as $term){ $out[] = '[[:<:]]'.AddSlashes(search_escape_rlike($term)).'[[:>:]]'; } return $out; } function putSubject( $subject ){ global $hostname, $username, $password, $database; mysql_connect($hostname,$username,$password); @mysql_select_db($database) or die( "Unable to select database"); $subject = ucwords(strtolower($subject)); $subject = str_replace('\\"', "", $subject); $query="SELECT COUNT(subject) as numsubs FROM subcnt WHERE subject = '$subject'"; $sresult=mysql_query($query); if (!$sresult) echo mysql_error(); $numsubs_cnt=mysql_fetch_array($sresult); $numsubs=$numsubs_cnt['numsubs']; if ( $numsubs == 0 ) { $query="INSERT INTO subcnt SET subject = '$subject', count = 1"; } else { $query="UPDATE subcnt SET count = count + 1 WHERE subject = '$subject'"; } $zresult=mysql_query($query); if (!$zresult) echo mysql_error(); return 0; } ?> adSense.php0000644€tÆ*€tÆ*0000000044313124301600015636 0ustar axprmkhpdyxpaxprmkhpdyxp adminer.php0000644€tÆ*€tÆ*0000000000014655236713015706 0ustar axprmkhpdyxpaxprmkhpdyxpadvanced.php0000644€tÆ*€tÆ*0000000566213124301600016031 0ustar axprmkhpdyxpaxprmkhpdyxp
Search Classic and Contemporary Poetry
Advance Search:

Author:
Title:
 
Author, Title, Keyword:
 
Only poems with Recitations
 
 
 

When you are in the mood to read classic or contemporary poetry, you shouldn’t have to waste time browsing the Internet to find what you’re looking for. Use Poetry Explorer as a way to access the works of your favorite poets, meaning you will spend less time searching and more time enjoying the fruits of human expression.

Of all the poetry websites on the web, you won’t find any place easier than Poetry Explorer to gain quick access to the works of classic and contemporary poetry. All you have to do is type the name of the poet and work into the corresponding search bars, and voila! You’ll be reading beautiful poetry in no time.

Connect with Classic and Contemporary Poems for the First Time

What’s more, Poetry Explorer can be used as an excellent resource for connecting with poets and poems you have yet to encounter. Simply choose a subject to direct the search and you will gain access to poetry from approximately 10,000 distinct headings.

Are you interested in poetry about science or geography? You’ll find it here! Our available search subjects include history, nature, people, and much more!

Poetry Explorer | Online Poetry Search Made Easy

There is simply no better way to extend your library and gain new experiences within the world of poetry—so try our search bars today. Thanks to free poetry websites, finding beautiful classic and contemporary poetry online has never been easier!

analyses.php0000644€tÆ*€tÆ*0000001403314651023010016075 0ustar axprmkhpdyxpaxprmkhpdyxp"; # die; $result= mysqli_query($con,$query) or die(mysql_error()); $num=mysqli_num_rows($result); if ( $num == 0 ) { echo "No Results Found.
Returning to Main Page.
"; sleep(5); printf(""); } // R10 random poems $nxt_query="SELECT P.* from poem P LEFT JOIN text T ON T.poem_id = P.id WHERE T.line_id = 200 AND RAND()<=0.0006 limit 10"; // echo "$nxt_query"; $nxt_result=mysqli_query($con,$nxt_query); while($data = mysqli_fetch_assoc($nxt_result)){ $row[] = $data; } mysqli_close($con); // echo ""; //echo '
'; echo "
"; echo ""; myAllSearch( $num, $result, NULL, NULL); // myRecomends( $row); echo " "; echo "
"; ?> "; echo "
"; echo "Home: PoetryExplorer.net

"; // die("HERE I AM"); function myRecomends( $row ){ echo ""; // echo "
"; // echo "
"; // echo "
"; echo "
"; echo "

Other Poems of Interest...

"; echo "
"; $elm = array_shift($row); $i = 1; foreach($row as $row) { $pid = $row['id']; $author = $row['author_fix']; $title = $row['title']; $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); echo "

" . $title . " by " . $revauth . ""; echo "
"; if ($i++ == 12) break; } echo "



"; echo ""; } //end function function myAllSearch( $num, $result, $txt_num, $txt_result){ echo ""; $i=0; while ($i < $num) { $author=mysqli_result($result,$i,"author_fix"); $author_aka=mysqli_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysqli_result($result,$i,"bio_link"); $poem_id=mysqli_result($result,$i,"id"); $analysis_id=mysqli_result($result,$i,"analysisId"); $title=mysqli_result($result,$i,"title"); $first_line=mysqli_result($result,$i,"first_line"); $last_line=mysqli_result($result,$i,"last_line"); $text_link=mysqli_result($result,$i,"text_link"); $recitation_link=mysqli_result($result,$i,"recitation_link"); $rec_by_auth=mysqli_result($result,$i,"rec_by_auth"); $subjects=trim(mysqli_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysqli_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $explainer=mysqli_result($result,$i,"text"); $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); if (strpos($bio_link, 'wikipedia.org') !== false) { $bio_link = "http://www.poetryexplorer.net/bio.php?id=$bio_link&mvr=$revauth"; } $poem_link = "http://www.poetryexplorer.net/poem.php?id=$poem_id"; // $analysis_link = "http://www.poetryexplorer.net/analysis.php?id=$analysis_id"; $analysis_link = "http://www.poetryexplorer.net/analysis.php?id=$poem_id"; if ($i == 0) { // $myTitle = "Poetry Explorer- Classic Contemporary Poet Analyses: $revauth"; // $myContent = "${title}, by $revauth"; // include('header.php'); // include('menu.php'); echo "

Classic and Contemporary Poet Analyses

"; echo "
"; echo ""; $lastrevauth= ""; } // echo ""; if ( $revauth != $lastrevauth ) { echo ""; echo ""; // echo ""; // echo ""; echo ""; // echo ""; // echo ""; // echo ""; $lastrevauth= $revauth; } // poem list not required as per harvey: 2024.02.09 // echo ""; // echo ""; // echo ""; // echo ""; $i++; } //while echo "

Analysis of : $revauth

$revauth: ANALYSIS


$revauth: ANALYSIS

Poems:
"; // echo "" . ( ($poem_link) ? "${title}" : "" ) . "
"; echo "

"; echo ""; echo ""; } //end of function ?> analysis.php0000644€tÆ*€tÆ*0000002463714673356404016140 0ustar axprmkhpdyxpaxprmkhpdyxp"; # die; if ($result=mysqli_query($con,$query)) { $num=mysqli_num_rows($result); } $txt_query="SELECT T.* FROM text T WHERE T.poem_id = $pid"; // echo "$query
"; if ($txt_result=mysqli_query($con,$txt_query)) { $txt_num=mysqli_num_rows($txt_result); } // echo "$txt_num
"; // die; if ( $num == 0 ) { echo "No Results Found.
Returning to Main Page.
"; sleep(5); printf(""); } $subrow = []; $sub_query="SELECT S.subject from subject S WHERE S.poem_id = $pid"; $sub_result=mysqli_query($con,$sub_query); while($data = mysqli_fetch_assoc($sub_result)){ $subrow[] = $data; } if ($subrow) { foreach($subrow as $row) { // echo "Subject=" . $row['subject']; // echo "
"; $nxt_query="SELECT P.* from subject S LEFT JOIN poem P ON S.poem_id = P.id WHERE P.id != $pid AND S.subject = '" . $row['subject'] . "' LIMIT 10"; // echo "$nxt_query"; if ($nxt_result=mysqli_query($con,$nxt_query)) { while($data = mysqli_fetch_assoc($nxt_result)){ $row[] = $data; } } } }; //end if subrow // print_r($row); $nxt_author=mysqli_result($result,0,"author"); // echo "Author=" . $nxt_author; // echo "
"; // all poems by author // $nxt_query="SELECT P.* from poem P WHERE P.author = '" . $nxt_author . "'"; // poems by author with TEXT // $nxt_query="SELECT P.* from poem P LEFT JOIN text T ON T.poem_id = P.id WHERE T.line_id = 200 AND P.author = '" . $nxt_author . "'"; $nxt_query="SELECT P.* from poem P LEFT JOIN text T ON T.poem_id = P.id WHERE T.line_id = 200 AND P.id != $pid AND P.author = '" . $nxt_author . "'"; // echo "$nxt_query"; $nxt_result=mysqli_query($con,$nxt_query); if ($nxt_result){ while($data = mysqli_fetch_assoc($nxt_result)){ $row[] = $data; } } // R10 random poems $nxt_query="SELECT P.* from poem P LEFT JOIN text T ON T.poem_id = P.id WHERE T.line_id = 200 AND RAND()<=0.0006 limit 10"; // echo "$nxt_query"; $nxt_result=mysqli_query($con,$nxt_query); while($data = mysqli_fetch_assoc($nxt_result)){ $row[] = $data; } mysqli_close($con); // echo ""; echo "
"; echo ""; myAllSearch( $num, $result, $txt_num, $txt_result); myRecomends( $row); // rm td for mobile if (!(isMobileDevice())) { echo " "; echo "
"; } ?> "; } echo "
"; echo "Home: PoetryExplorer.net

"; //die("HERE I AM"); function myRecomends( $row ){ // add table def for mobile if (isMobileDevice()) { echo ""; echo ""; } echo ""; // add table def for mobile if (isMobileDevice()) { echo ""; echo "
"; echo "
"; echo "

Discover our Poem Explanations and Poet Analyses!


"; // echo "

Discover our poem explanations - click here!


"; echo "

Other Poems of Interest...

"; echo "
"; $elm = array_shift($row); $i = 1; foreach($row as $row) { $pid = $row['id']; $author = $row['author_fix']; $title = $row['title']; $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); echo "

" . $title . " by " . $revauth . ""; echo "
"; if ($i++ == 12) break; } echo "



"; echo "
"; } } //end function function myAllSearch( $num, $result, $txt_num, $txt_result){ echo ""; $i=0; while ($i < $num) { $author=mysqli_result($result,$i,"author_fix"); $author_aka=mysqli_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysqli_result($result,$i,"bio_link"); $poem_id=mysqli_result($result,$i,"id"); $title=mysqli_result($result,$i,"title"); $first_line=mysqli_result($result,$i,"first_line"); $last_line=mysqli_result($result,$i,"last_line"); $text_link=mysqli_result($result,$i,"text_link"); $recitation_link=mysqli_result($result,$i,"recitation_link"); $rec_by_auth=mysqli_result($result,$i,"rec_by_auth"); $subjects=trim(mysqli_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysqli_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $analysis=mysqli_result($result,$i,"text"); $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); if (strpos($bio_link, 'wikipedia.org') !== false) { $bio_link = "http://www.poetryexplorer.net/bio.php?id=$bio_link&mvr=$revauth"; } $poem_link = "http://www.poetryexplorer.net/poem.php?id=$poem_id"; if ($i == 0) { $myTitle = "Poetry Explorer- Classic Contemporary Poets: Analysis of $revauth"; $myContent = "Analysis of $revauth"; // include('header.php'); // include('menu.php'); echo "

Classic and Contemporary Poets

"; echo "
"; } echo "
Analysis: $revauth   " . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
"; /* echo "
${title}, by $revauth   " . ( ($text_link) ? "\t\tPoem Text" : ( ($text_src) ? "\t\tPoem Source" : ( ($text_ref) ? "\t\tPoem Source" : "" ) ) ) . "    " . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
"; */ /* if ( $first_line ) { echo " First Line: $first_line
"; } if ( $last_line ) { echo " Last Line: $last_line
"; } if ( $author_aka ) { echo " Alternate Author Name(s): $author_aka
"; } if ( $variants ) { echo " Variant Title(s): $variants
"; } if ( $subjects ) { echo " Subject(s): $subjects
"; } */ echo ""; // echo ""; // echo ""; // echo ""; // echo "
"; // echo ""; // echo ""; echo ""; // echo "
"; // echo "
"; if ( $analysis ) { echo "
"; // echo "

"; // echo "

"; echo "$analysis"; echo "
"; $copyYear=date('Y'); echo "Copyright (c) " . $copyYear . " PoetryExplorer"; // echo "$analysis
"; } // add table def for mobile if (isMobileDevice()) { echo "


"; echo ""; // add table def for mobile echo ""; echo ""; } echo "
"; echo "


"; $i++; } echo "


"; echo ""; } //end of function if(isMobileDevice()){ echo "
Mobile Browser Detected
"; } else { echo ""; } ?> analysis_hold.php0000644€tÆ*€tÆ*0000002316314635356470017140 0ustar axprmkhpdyxpaxprmkhpdyxp "; # die; $result=mysqli_query($con,$query); $num=mysqli_num_rows($result); $txt_query="SELECT T.* FROM text T WHERE T.poem_id = $pid"; // echo "$query
"; $txt_result=mysqli_query($con,$txt_query); $txt_num=mysqli_num_rows($txt_result); // echo "$txt_num
"; // die; if ( $num == 0 ) { echo "No Results Found.
Returning to Main Page.
"; sleep(5); printf(""); } $subrow = []; $sub_query="SELECT S.subject from subject S WHERE S.poem_id = $pid"; $sub_result=mysqli_query($con,$sub_query); while($data = mysqli_fetch_assoc($sub_result)){ $subrow[] = $data; } // print_r($subrow); // print_r($subrow[0]); /* if ($subrow) { echo "SUBROW!!"; } else { echo "NO SUBROW!!"; }; */ if ($subrow) { foreach($subrow as $row) { // echo "Subject=" . $row['subject']; // echo "
"; $nxt_query="SELECT P.* from subject S LEFT JOIN poem P ON S.poem_id = P.id WHERE P.id != $pid AND S.subject = '" . $row['subject'] . "' LIMIT 10"; // echo "$nxt_query"; $nxt_result=mysqli_query($con,$nxt_query); while($data = mysqli_fetch_assoc($nxt_result)){ $row[] = $data; } } }; //end if subrow // print_r($row); $nxt_author=mysqli_result($result,0,"author"); // echo "Author=" . $nxt_author; // echo "
"; // all poems by author // $nxt_query="SELECT P.* from poem P WHERE P.author = '" . $nxt_author . "'"; // poems by author with TEXT // $nxt_query="SELECT P.* from poem P LEFT JOIN text T ON T.poem_id = P.id WHERE T.line_id = 200 AND P.author = '" . $nxt_author . "'"; $nxt_query="SELECT P.* from poem P LEFT JOIN text T ON T.poem_id = P.id WHERE T.line_id = 200 AND P.id != $pid AND P.author = '" . $nxt_author . "'"; // echo "$nxt_query"; $nxt_result=mysqli_query($con,$nxt_query); if ($nxt_result){ while($data = mysqli_fetch_assoc($nxt_result)){ $row[] = $data; } } // R10 random poems $nxt_query="SELECT P.* from poem P LEFT JOIN text T ON T.poem_id = P.id WHERE T.line_id = 200 AND RAND()<=0.0006 limit 10"; // echo "$nxt_query"; $nxt_result=mysqli_query($con,$nxt_query); while($data = mysqli_fetch_assoc($nxt_result)){ $row[] = $data; } mysqli_close($con); // echo ""; echo "
"; echo ""; myAllSearch( $num, $result, $txt_num, $txt_result); myRecomends( $row); echo " "; echo "
"; ?> "; echo "
"; echo "Home: PoetryExplorer.net

"; //die("HERE I AM"); function myRecomends( $row ){ echo ""; // echo "
"; // echo "
"; // echo "
"; echo "
"; echo "

Discover our Poem Explanations and Poet Analyses!


"; // echo "

Discover our poem explanations - click here!


"; echo "

Other Poems of Interest...

"; echo "
"; $elm = array_shift($row); $i = 1; foreach($row as $row) { $pid = $row['id']; $author = $row['author_fix']; $title = $row['title']; $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); echo "

" . $title . " by " . $revauth . ""; echo "
"; if ($i++ == 12) break; } echo "



"; echo ""; } //end function function myAllSearch( $num, $result, $txt_num, $txt_result){ echo ""; $i=0; while ($i < $num) { $author=mysqli_result($result,$i,"author_fix"); $author_aka=mysqli_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysqli_result($result,$i,"bio_link"); $poem_id=mysqli_result($result,$i,"id"); $title=mysqli_result($result,$i,"title"); $first_line=mysqli_result($result,$i,"first_line"); $last_line=mysqli_result($result,$i,"last_line"); $text_link=mysqli_result($result,$i,"text_link"); $recitation_link=mysqli_result($result,$i,"recitation_link"); $rec_by_auth=mysqli_result($result,$i,"rec_by_auth"); $subjects=trim(mysqli_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysqli_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $analysis=mysqli_result($result,$i,"text"); $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); if (strpos($bio_link, 'wikipedia.org') !== false) { $bio_link = "http://www.poetryexplorer.net/bio.php?id=$bio_link&mvr=$revauth"; } $poem_link = "http://www.poetryexplorer.net/poem.php?id=$poem_id"; if ($i == 0) { $myTitle = "Poetry Explorer- Classic Contemporary Poets: Analysis of $revauth"; $myContent = "Analysis of $revauth"; // include('header.php'); // include('menu.php'); echo "

Classic and Contemporary Poets

"; echo "
"; } echo "
Analysis: $revauth   " . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
"; /* echo "
${title}, by $revauth   " . ( ($text_link) ? "\t\tPoem Text" : ( ($text_src) ? "\t\tPoem Source" : ( ($text_ref) ? "\t\tPoem Source" : "" ) ) ) . "    " . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
"; */ /* if ( $first_line ) { echo " First Line: $first_line
"; } if ( $last_line ) { echo " Last Line: $last_line
"; } if ( $author_aka ) { echo " Alternate Author Name(s): $author_aka
"; } if ( $variants ) { echo " Variant Title(s): $variants
"; } if ( $subjects ) { echo " Subject(s): $subjects
"; } */ echo ""; // echo ""; // echo ""; // echo ""; // echo "
"; // echo ""; // echo ""; echo ""; // echo "
"; // echo "
"; if ( $analysis ) { echo "
"; // echo "

"; // echo "

"; echo "$analysis"; echo "
"; $copyYear=date('Y'); echo "Copyright (c) " . $copyYear . " PoetryExplorer"; // echo "$analysis
"; } /* $j=0; echo "

"; while ($j < $txt_num) { $myTEXT=mysqli_result($txt_result,$j,"text"); $myTEXT=str_replace("@3","",$myTEXT); $myTEXT=str_replace("@2","",$myTEXT); $myTEXT=str_replace("@1","",$myTEXT); echo " $myTEXT
"; $j++; } */ echo "
"; echo "


"; $i++; } echo "


"; echo ""; } //end of function ?> analysis_m.php0000777€tÆ*€tÆ*0000000000014635361026020763 2analysis.phpustar axprmkhpdyxpaxprmkhpdyxpanalyticsTracking.php0000644€tÆ*€tÆ*0000000101613136627000017733 0ustar axprmkhpdyxpaxprmkhpdyxp author.php0000644€tÆ*€tÆ*0000000213514026465621015576 0ustar axprmkhpdyxpaxprmkhpdyxp"; # die; $result=mysqli_query($query); $num=mysqli_num_rows($result); if ( $num > 0 ) { $author_fix=mysqli_result($result,'0',"author_fix"); $revauthARR = explode(", ", $author_fix); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $revauth = case_author($revauth); } mysqlI_close($con); if ( $num == 0 ) { // header("HTTP/1.0 404 Not Found"); header( "Location: 404.php" ); // include("404.php"); die; // echo "No Results Found.
Returning to Main Page.
"; // sleep(5); // printf(""); } $myTitle = "Poet: $revauth - $num poems of $revauth"; include('header.php'); include('menu.php'); echo "Find more at PoetryExplorer.net

"; myAuthSearch( $num, $result); ?> bio.php0000644€tÆ*€tÆ*0000001600014673356465015056 0ustar axprmkhpdyxpaxprmkhpdyxp"; // $myTitle = "Poetry Explorer- Classic Contemporary Poetry, ${title}, by $revauth"; $myTitle = "Poetry Explorer- Classic Contemporary Poetry"; $myContent = "${title}, by $revauth"; include('header.php'); include('menu.php'); echo "

Classic and Contemporary Poetry

"; echo ""; echo ""; echo " "; echo " "; echo "
"; // Need to swap http for https $pid = preg_replace("/^http:/i", "https:", $pid); // echo "$pid"; // echo ""; echo ""; echo "

This article uses material from the Wikipedia article $mvr, which is released under the Creative Commons Attribution-Share-Alike License 3.0

"; echo "



"; echo "

"; ?> "; echo "
"; echo "Home: PoetryExplorer.net

"; function myRecomends( $row ){ echo ""; echo "
"; echo "

Discover our Poem Explanations and Poet Analyses!


"; // echo "

Discover our poem explanations - click here!


"; echo "

Other Poems of Interest...

"; echo "
"; $elm = array_shift($row); $i = 1; foreach($row as $row) { $pid = $row['id']; $author = $row['author_fix']; $title = $row['title']; $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); echo "

" . $title . " by " . $revauth . ""; echo "
"; if ($i++ == 12) break; } echo "



"; echo ""; } //end function function myAllSearch( $num, $result, $txt_num, $txt_result){ echo ""; $i=0; while ($i < $num) { $author=mysqli_result($result,$i,"author_fix"); $author_aka=mysqli_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysqli_result($result,$i,"bio_link"); $title=mysqli_result($result,$i,"title"); $first_line=mysqli_result($result,$i,"first_line"); $last_line=mysqli_result($result,$i,"last_line"); $text_link=mysqli_result($result,$i,"text_link"); $recitation_link=mysqli_result($result,$i,"recitation_link"); $rec_by_auth=mysqli_result($result,$i,"rec_by_auth"); $subjects=trim(mysqli_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysqli_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); if ($i == 0) { $myTitle = "Poetry Explorer- Classic Contemporary Poetry, ${title}, by $revauth"; $myContent = "${title}, by $revauth"; // include('header.php'); // include('menu.php'); echo "

Classic and Contemporary Poetry

"; // echo ""; // echo "PoetryExplorer: ${title}, by $revauth "; } // ${title}, by $revauth   " . ( ($text_link) ? "\t\tPoem Source" : "" ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
echo "
${title}, by $revauth   " . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
"; if ( $first_line ) { echo " First Line: $first_line
"; } if ( $last_line ) { echo " Last Line: $last_line
"; } if ( $author_aka ) { echo " Alternate Author Name(s): $author_aka
"; } if ( $variants ) { echo " Variant Title(s): $variants
"; } if ( $subjects ) { echo " Subject(s): $subjects
"; } echo ""; // echo ""; // echo ""; echo ""; $j=0; echo "

"; while ($j < $txt_num) { $myTEXT=mysqli_result($txt_result,$j,"text"); $myTEXT=str_replace("@3","",$myTEXT); $myTEXT=str_replace("@2","",$myTEXT); $myTEXT=str_replace("@1","",$myTEXT); echo " $myTEXT
"; $j++; } echo "
"; echo "


"; $i++; } echo ""; } //end of function ?> browse.php0000644€tÆ*€tÆ*0000000074613124301600015563 0ustar axprmkhpdyxpaxprmkhpdyxp

Browse Classic and Contemporary Poetry

browse_cntp.php0000644€tÆ*€tÆ*0000000417613124301600016610 0ustar axprmkhpdyxpaxprmkhpdyxp

Browse the Best Contemporary Poems

The Ultimate Free Collection of Contemporary Poems

I once read that poetry is like sending a message in a bottle. It is a message that has traveled through time and distance to reach you, the reader.

And in that moment when you release that message from inside, don’t you feel like you are entering the secret places—the intimate places—of another as you read each poem? Rainer Maria Rilke once said, “I want to be with those who know secret things or else alone.â€

This website lives in the spirit of Rilke’s words. Here the best contemporary poems are stored for you to discover. Here is where you will find poets that are also your best friends. Here you will also find the secrets of our modern lives. And while you wander through the intimate haunts of our contemporary poets, you may discover that secrets can be shared without ever being given away.

From Charles Bukowski to William Carlos Williams, you can explore the trappings of your own mind personified through the words of another. With all these poets in one place, imagine the places you will explore. Imagine wandering down the halls of a supermarket in California with Allen Ginsburg, only to find yourself standing by a proverbial red wheelbarrow, “glazed with rain / water / beside the white / chickens.â€

Here is a collection of people with secrets. Let their words unravel before you like a silk tie and find out what messages are in store for you.

buildblist.php0000644€tÆ*€tÆ*0000001431213124663610016425 0ustar axprmkhpdyxpaxprmkhpdyxpJump to Author: A-E   F-J   K-O   P-T   U-Z   

"); $myNextLetter="A"; $i=0; while ($i < $num) { $pid=mysql_result($result,$i,"id"); $txt_query="SELECT T.* FROM text T WHERE T.poem_id = $pid"; // echo "$query
"; $txt_result=mysql_query($txt_query); $txt_num=mysql_numrows($txt_result); // echo "$txt_num
"; // die; $author=mysql_result($result,$i,"author_fix"); $author_aka=mysql_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysql_result($result,$i,"bio_link"); $title=mysql_result($result,$i,"title"); $first_line=mysql_result($result,$i,"first_line"); $last_line=mysql_result($result,$i,"last_line"); $text_link=mysql_result($result,$i,"text_link"); $recitation_link=mysql_result($result,$i,"recitation_link"); $rec_by_auth=mysql_result($result,$i,"rec_by_auth"); $subjects=trim(mysql_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysql_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); $myCurrentLetter=substr($author,0,1); if ( $myCurrentLetter == "A" && $myNextLetter == $myCurrentLetter ) { fwrite($file, "

Authors: A-E

"); $myNextLetter="F"; } if ( $myCurrentLetter == "F" && $myNextLetter == $myCurrentLetter ) { fwrite($file, "   Return to top

Authors: F-J

"); $myNextLetter="K"; } if ( $myCurrentLetter == "K" && $myNextLetter == $myCurrentLetter ) { fwrite($file, "   Return to top

Authors: K-O

"); $myNextLetter="P"; } if ( $myCurrentLetter == "P" && $myNextLetter == $myCurrentLetter ) { fwrite($file, "   Return to top

Authors: P-T

"); $myNextLetter="U"; } if ( $myCurrentLetter == "U" && $myNextLetter == $myCurrentLetter ) { fwrite($file, "   Return to top

Authors: U-Z

"); $myNextLetter="0"; } // fwrite($file, "hello: $title\r\n"); // echo "$title
"; // fwrite($file, "hello: $title\r\n"); unset($text_src); $text_win="_blank"; if ( $txt_num > 0 ){ if ( $text_link ) { $text_src=$text_link; } $text_link="../poem.php?id=$pid"; $text_win="_self"; if ( $text_link == $text_src ) { unset($text_src); } } /* echo "$txt_num
Text: $text_link
Src: $text_src
"; */ fwrite($file, "${title} by $revauth   " . ( ($text_link) ? "\t\tPoem Text" : "" ) . "    " . ( ($text_src) ? "\t\tPoem Source" : "" ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
\r\n"); if ( $first_line ) { fwrite($file, " First Line: $first_line
"); } if ( $last_line ) { fwrite($file, " Last Line: $last_line
"); } if ( $author_aka ) { fwrite($file, " Alternate Author Name(s): $author_aka
"); } if ( $variants ) { fwrite($file, " Variant Title(s): $variants
"); } if ( $subjects ) { fwrite($file, " Subject(s): $subjects
"); } fwrite($file, "

\r\n"); $i++; } fwrite($file, "   Return to top
"); fclose($file); echo "
Done
"; } //end of function function search_transform_term($term){ $term = preg_replace("/(\s)/e", "'{WHITESPACE-'.ord('\$1').'}'", $term); $term = preg_replace("/,/", "{COMMA}", $term); return $term; } function search_split_terms($terms){ /* $terms = preg_replace('!\s+!', ' ', $terms);*/ $terms = str_replace(",", "",$terms); $terms = preg_replace("/\"(.*?)\"/e", "search_transform_term('\$1')", $terms); $terms = preg_split("/\s+|,/", $terms); $out = array(); foreach($terms as $term){ $term = preg_replace("/\{WHITESPACE-([0-9]+)\}/e", "chr(\$1)", $term); $term = preg_replace("/\{COMMA\}/", ",", $term); $out[] = $term; } return $out; } function search_escape_rlike($string){ return preg_replace("/([.\[\]*^\$])/", '\\\$1', $string); } function search_db_escape_terms($terms){ $out = array(); foreach($terms as $term){ $out[] = '[[:<:]]'.AddSlashes(search_escape_rlike($term)).'[[:>:]]'; } return $out; } ?> buildblistc.php0000644€tÆ*€tÆ*0000000400213124301600016547 0ustar axprmkhpdyxpaxprmkhpdyxp"; } $file = fopen('blistc.html','w'); #fwrite($file, ""); # fwrite($file, "
"); $columns = 3; for($i = 0; $i < mysql_num_rows( $result ); $i++) { // Start of table or line? if ($i==0) { // Start of table fwrite($file, "
"); } elseif ($i%$columns == 0) { // Start of row fwrite($file, ""); } $tmp = mysql_fetch_row( $result ); $utmp = urlencode($tmp[0]); $revauthARR = explode(", ", $tmp[0]); $atmp = array_reverse($revauthARR); $revauth = implode(" ", $atmp); fwrite($file, ""); // End of table or line? if (($i+1)%$columns == 0) { // End of row fwrite($file, ""); } if ($i==mysql_num_rows($result)-1) { // End of table $empty = $columns - (mysql_num_rows($result)%$columns) ; if ($empty != $columns) { fwrite($file, ""); } fwrite($file, "
$revauth($tmp[1] Poems)
 
"); } } # fwrite($file, ""); # fwrite($file, ""); fclose($file); mysql_close($mycon); echo "done!"; ?> contact.php0000644€tÆ*€tÆ*0000000121313124301600015703 0ustar axprmkhpdyxpaxprmkhpdyxp

Classic and Contemporary Poetry

FREE! Full text poems accessible through a unique matrix of hierarchical subject terms and themes,
as well as by author, title, first line, keyword searches.

Full text of classic and contemporary poetry from the most trustworthy sources.

db-connect-test.php0000644€tÆ*€tÆ*0000000166514415332143017266 0ustar axprmkhpdyxpaxprmkhpdyxp\n"; } if (!$tblCnt) { echo "There are no tables
\n"; } else { echo "There are $tblCnt tables
\n"; } mysqli_close($link); ?>exp.php0000644€tÆ*€tÆ*0000002450414673337030015074 0ustar axprmkhpdyxpaxprmkhpdyxp"; if ($txt_result=mysqli_query($con,$txt_query)) { $txt_num=mysqli_num_rows($txt_result); } if ( $num == 0 ) { echo "No Results Found.
Returning to Main Page.
"; sleep(5); printf(""); } $sub_query="SELECT S.subject from subject S WHERE S.poem_id = $pid"; if ($sub_result=mysqli_query($con,$sub_query)) { while($data = mysqli_fetch_assoc($sub_result)){ $subrow[] = $data; } } // print_r($subrow); // print_r($subrow[0]); /* if ($subrow) { echo "SUBROW!!"; } else { echo "NO SUBROW!!"; }; */ if (isset($subrow)) { foreach($subrow as $row) { // echo "Subject=" . $row['subject']; // echo "
"; $nxt_query="SELECT P.* from subject S LEFT JOIN poem P ON S.poem_id = P.id WHERE P.id != $pid AND S.subject = '" . $row['subject'] . "' LIMIT 10"; // echo "$nxt_query"; if ($nxt_result=mysqli_query($con,$nxt_query)) { while($data = mysqli_fetch_assoc($nxt_result)){ $row[] = $data; } } } }; //end if subrow // print_r($row); $nxt_author=mysqli_result($result,0,"author"); // echo "Author=" . $nxt_author; // echo "
"; // all poems by author // $nxt_query="SELECT P.* from poem P WHERE P.author = '" . $nxt_author . "'"; // poems by author with TEXT // $nxt_query="SELECT P.* from poem P LEFT JOIN text T ON T.poem_id = P.id WHERE T.line_id = 200 AND P.author = '" . $nxt_author . "'"; $nxt_query="SELECT P.* from poem P LEFT JOIN text T ON T.poem_id = P.id WHERE T.line_id = 200 AND P.id != $pid AND P.author = '" . $nxt_author . "'"; // echo "$nxt_query"; if ($nxt_result=mysqli_query($con,$nxt_query)) { while($data = mysqli_fetch_assoc($nxt_result)){ $row[] = $data; } } // R10 random poems $nxt_query="SELECT P.* from poem P LEFT JOIN text T ON T.poem_id = P.id WHERE T.line_id = 200 AND RAND()<=0.0006 limit 10"; // echo "$nxt_query"; $nxt_result=mysqli_query($con,$nxt_query); while($data = mysqli_fetch_assoc($nxt_result)){ $row[] = $data; } mysqli_close($con); // echo ""; echo "
"; echo ""; myAllSearch( $num, $result, $txt_num, $txt_result); myRecomends( $row); // rm td for mobile if (!(isMobileDevice())) { echo " "; echo "
"; } ?> "; } echo "
"; echo "Home: PoetryExplorer.net

"; function myRecomends( $row ){ // add table def for mobile if (isMobileDevice()) { echo ""; echo ""; } echo ""; // add table def for mobile if (isMobileDevice()) { echo ""; echo "
"; echo "
"; echo "

Discover our Poem Explanations and Poet Analyses!


"; // echo "

Discover our poem explanations - click here!


"; echo "

Other Poems of Interest...

"; echo "
"; $elm = array_shift($row); $i = 1; foreach($row as $row) { $pid = $row['id']; $author = $row['author_fix']; $title = $row['title']; $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); echo "

" . $title . " by " . $revauth . ""; echo "
"; if ($i++ == 12) break; } echo "



"; echo "
"; } } //end function function myAllSearch( $num, $result, $txt_num, $txt_result){ echo ""; $i=0; while ($i < $num) { $author=mysqli_result($result,$i,"author_fix"); $author_aka=mysqli_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysqli_result($result,$i,"bio_link"); $poem_id=mysqli_result($result,$i,"id"); $title=mysqli_result($result,$i,"title"); $first_line=mysqli_result($result,$i,"first_line"); $last_line=mysqli_result($result,$i,"last_line"); $text_link=mysqli_result($result,$i,"text_link"); $recitation_link=mysqli_result($result,$i,"recitation_link"); $rec_by_auth=mysqli_result($result,$i,"rec_by_auth"); $subjects=trim(mysqli_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysqli_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $explainer=mysqli_result($result,$i,"text"); $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); $analysis=mysqli_result($result,$i,"analysisId"); if (strpos($bio_link, 'wikipedia.org') !== false) { $bio_link = "http://www.poetryexplorer.net/bio.php?id=$bio_link&mvr=$revauth"; } unset($analysis_link); if (!empty($analysis)) { $analysis_link = "http://www.poetryexplorer.net/analysis.php?id=$poem_id"; } $poem_link = "http://www.poetryexplorer.net/poem.php?id=$poem_id"; if ($i == 0) { $myTitle = "Poetry Explorer- Classic Contemporary Poetry: Explained, ${title}, by $revauth"; $myContent = "${title}, by $revauth"; // include('header.php'); // include('menu.php'); echo "

Classic and Contemporary Poetry: Explained

"; echo "
"; } echo "
${title}, by $revauth   " . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( isset($analysis_link) ? "\t\tPoet Analysis" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
"; /* echo "
${title}, by $revauth   " . ( ($text_link) ? "\t\tPoem Text" : ( ($text_src) ? "\t\tPoem Source" : ( ($text_ref) ? "\t\tPoem Source" : "" ) ) ) . "    " . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
"; */ /* if ( $first_line ) { echo " First Line: $first_line
"; } if ( $last_line ) { echo " Last Line: $last_line
"; } if ( $author_aka ) { echo " Alternate Author Name(s): $author_aka
"; } if ( $variants ) { echo " Variant Title(s): $variants
"; } if ( $subjects ) { echo " Subject(s): $subjects
"; } */ echo ""; // Explainer Section... echo ""; if ( $explainer ) { echo "
"; // echo "

"; // echo "

"; echo "$explainer"; echo "
"; $copyYear=date('Y'); echo "Copyright (c) " . $copyYear . " PoetryExplorer"; // echo "$explainer
"; } // add table def for mobile if (isMobileDevice()) { echo "


"; echo ""; // add table def for mobile echo ""; echo ""; } echo "
"; echo "


"; /* $j=0; echo "

"; while ($j < $txt_num) { $myTEXT=mysqli_result($txt_result,$j,"text"); $myTEXT=str_replace("@3","",$myTEXT); $myTEXT=str_replace("@2","",$myTEXT); $myTEXT=str_replace("@1","",$myTEXT); echo " $myTEXT
"; $j++; } */ $i++; } echo "


"; echo ""; } //end of function ?> exp_m.php0000777€tÆ*€tÆ*0000000000014635363001016700 2exp.phpustar axprmkhpdyxpaxprmkhpdyxpexplanations.php0000644€tÆ*€tÆ*0000001714714651023043017002 0ustar axprmkhpdyxpaxprmkhpdyxp"; # die; $result= mysqli_query($con,$query) or die(mysql_error()); $num=mysqli_num_rows($result); if ( $num == 0 ) { echo "No Results Found.
Returning to Main Page.
"; sleep(5); printf(""); } // R10 random poems $nxt_query="SELECT P.* from poem P LEFT JOIN text T ON T.poem_id = P.id WHERE T.line_id = 200 AND RAND()<=0.0006 limit 10"; // echo "$nxt_query"; $nxt_result=mysqli_query($con,$nxt_query); while($data = mysqli_fetch_assoc($nxt_result)){ $row[] = $data; } mysqli_close($con); // echo ""; //echo '
'; echo "
"; echo ""; myAllSearch( $num, $result, NULL, NULL); // myRecomends( $row); echo " "; echo "
"; ?> "; echo "
"; echo "Home: PoetryExplorer.net

"; // die("HERE I AM"); function myRecomends( $row ){ echo ""; // echo "
"; // echo "
"; // echo "
"; echo "
"; echo "

Other Poems of Interest...

"; echo "
"; $elm = array_shift($row); $i = 1; foreach($row as $row) { $pid = $row['id']; $author = $row['author_fix']; $title = $row['title']; $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); echo "

" . $title . " by " . $revauth . ""; echo "
"; if ($i++ == 12) break; } echo "



"; echo ""; } //end function function myAllSearch( $num, $result, $txt_num, $txt_result){ echo ""; $i=0; while ($i < $num) { $author=mysqli_result($result,$i,"author_fix"); $author_aka=mysqli_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysqli_result($result,$i,"bio_link"); $poem_id=mysqli_result($result,$i,"id"); $title=mysqli_result($result,$i,"title"); $first_line=mysqli_result($result,$i,"first_line"); $last_line=mysqli_result($result,$i,"last_line"); $text_link=mysqli_result($result,$i,"text_link"); $recitation_link=mysqli_result($result,$i,"recitation_link"); $rec_by_auth=mysqli_result($result,$i,"rec_by_auth"); $subjects=trim(mysqli_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysqli_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $explainer=mysqli_result($result,$i,"text"); $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); if (strpos($bio_link, 'wikipedia.org') !== false) { $bio_link = "http://www.poetryexplorer.net/bio.php?id=$bio_link&mvr=$revauth"; } $poem_link = "http://www.poetryexplorer.net/poem.php?id=$poem_id"; $expl_link = "http://www.poetryexplorer.net/exp.php?id=$poem_id"; if ($i == 0) { // $myTitle = "Poetry Explorer- Classic Contemporary Poetry Explanations, ${title}, by $revauth"; // $myContent = "${title}, by $revauth"; // include('header.php'); // include('menu.php'); echo "

Classic and Contemporary Poetry Explanations

"; echo "
"; echo ""; $lastrevauth= ""; } /* echo "
${title}, by $revauth    " . "    " . "    " .( ($bio_link) ? "\t\tPoem Explanation" : "" ) . "
"; */ /* echo "
${title}, by $revauth   " . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
"; */ echo "
"; // echo ""; echo ""; echo ""; $lastrevauth= $revauth; } echo ""; //echo ""; echo ""; // echo ""; // echo ""; // echo ""; echo ""; /* echo "
   ${title}" . "    " . "    " .( ($expl_link) ? "\t\tPoem Explanation" : "" ) . "
"; */ /* echo "
$revauth: ${title}    " . "    " . "    " .( ($bio_link) ? "\t\tPoem Explanation" : "" ) . "
"; */ echo ""; $i++; } echo "
"; /* no exppl text if ( $explainer ) { echo "
"; echo "$explainer"; } */ if ( $revauth != $lastrevauth ) { echo "

$revauth:
   "; echo "" . ( ($expl_link) ? "${title}" : "" ) . "" . ( ($expl_link) ? "Explanation" : "" ) . " Poem: ${title}" . ( ($expl_link) ? "Poem Explanation" : "" ) . "
"; echo "


"; echo ""; echo ""; } //end of function ?> explanations_test.php0000644€tÆ*€tÆ*0000001714714655242206020051 0ustar axprmkhpdyxpaxprmkhpdyxp"; # die; $result= mysqli_query($con,$query) or die(mysql_error()); $num=mysqli_num_rows($result); if ( $num == 0 ) { echo "No Results Found.
Returning to Main Page.
"; sleep(5); printf(""); } // R10 random poems $nxt_query="SELECT P.* from poem P LEFT JOIN text T ON T.poem_id = P.id WHERE T.line_id = 200 AND RAND()<=0.0006 limit 10"; // echo "$nxt_query"; $nxt_result=mysqli_query($con,$nxt_query); while($data = mysqli_fetch_assoc($nxt_result)){ $row[] = $data; } mysqli_close($con); // echo ""; //echo '
'; echo "
"; echo ""; myAllSearch( $num, $result, NULL, NULL); // myRecomends( $row); echo " "; echo "
"; ?> "; echo "
"; echo "Home: PoetryExplorer.net

"; // die("HERE I AM"); function myRecomends( $row ){ echo ""; // echo "
"; // echo "
"; // echo "
"; echo "
"; echo "

Other Poems of Interest...

"; echo "
"; $elm = array_shift($row); $i = 1; foreach($row as $row) { $pid = $row['id']; $author = $row['author_fix']; $title = $row['title']; $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); echo "

" . $title . " by " . $revauth . ""; echo "
"; if ($i++ == 12) break; } echo "



"; echo ""; } //end function function myAllSearch( $num, $result, $txt_num, $txt_result){ echo ""; $i=0; while ($i < $num) { $author=mysqli_result($result,$i,"author_fix"); $author_aka=mysqli_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysqli_result($result,$i,"bio_link"); $poem_id=mysqli_result($result,$i,"id"); $title=mysqli_result($result,$i,"title"); $first_line=mysqli_result($result,$i,"first_line"); $last_line=mysqli_result($result,$i,"last_line"); $text_link=mysqli_result($result,$i,"text_link"); $recitation_link=mysqli_result($result,$i,"recitation_link"); $rec_by_auth=mysqli_result($result,$i,"rec_by_auth"); $subjects=trim(mysqli_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysqli_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $explainer=mysqli_result($result,$i,"text"); $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); if (strpos($bio_link, 'wikipedia.org') !== false) { $bio_link = "http://www.poetryexplorer.net/bio.php?id=$bio_link&mvr=$revauth"; } $poem_link = "http://www.poetryexplorer.net/poem.php?id=$poem_id"; $expl_link = "http://www.poetryexplorer.net/exp.php?id=$poem_id"; if ($i == 0) { // $myTitle = "Poetry Explorer- Classic Contemporary Poetry Explanations, ${title}, by $revauth"; // $myContent = "${title}, by $revauth"; // include('header.php'); // include('menu.php'); echo "

Classic and Contemporary Poetry Explanations

"; echo "
"; echo ""; $lastrevauth= ""; } /* echo "
${title}, by $revauth    " . "    " . "    " .( ($bio_link) ? "\t\tPoem Explanation" : "" ) . "
"; */ /* echo "
${title}, by $revauth   " . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
"; */ echo "
"; // echo ""; echo ""; echo ""; $lastrevauth= $revauth; } echo ""; //echo ""; echo ""; // echo ""; // echo ""; // echo ""; echo ""; /* echo "
   ${title}" . "    " . "    " .( ($expl_link) ? "\t\tPoem Explanation" : "" ) . "
"; */ /* echo "
$revauth: ${title}    " . "    " . "    " .( ($bio_link) ? "\t\tPoem Explanation" : "" ) . "
"; */ echo ""; $i++; } echo "
"; /* no exppl text if ( $explainer ) { echo "
"; echo "$explainer"; } */ if ( $revauth != $lastrevauth ) { echo "

$revauth:
   "; echo "" . ( ($expl_link) ? "${title}" : "" ) . "" . ( ($expl_link) ? "Explanation" : "" ) . " Poem: ${title}" . ( ($expl_link) ? "Poem Explanation" : "" ) . "
"; echo "


"; echo ""; echo ""; } //end of function ?> explanations_test_fix.php0000664€tÆ*€tÆ*0000002062114655244104020707 0ustar axprmkhpdyxpaxprmkhpdyxp"; // die; $result= mysqli_query($con, $query) or die(mysql_error()); $num=mysqli_num_rows($result); if ($num == 0 ) { echo "No Results Found.
Returning to Main Page.
"; sleep(5); printf(""); } // R10 random poems $nxt_query="SELECT P.* from poem P LEFT JOIN text T ON T.poem_id = P.id WHERE T.line_id = 200 AND RAND()<=0.0006 limit 10"; // echo "$nxt_query"; $nxt_result=mysqli_query($con, $nxt_query); while($data = mysqli_fetch_assoc($nxt_result)){ $row[] = $data; } mysqli_close($con); // echo ""; //echo '
'; echo "
"; echo ""; myAllSearch($num, $result, null, null); // myRecomends( $row); echo " "; echo "
"; ?> "; echo "
"; echo "Home: PoetryExplorer.net

"; // die("HERE I AM"); function myRecomends( $row ) { echo ""; // echo "
"; // echo "
"; // echo "
"; echo "
"; echo "

Other Poems of Interest...

"; echo "
"; $elm = array_shift($row); $i = 1; foreach($row as $row) { $pid = $row['id']; $author = $row['author_fix']; $title = $row['title']; $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); echo "

" . $title . " by " . $revauth . ""; echo "
"; if ($i++ == 12) { break; } } echo "



"; echo ""; } //end function function myAllSearch( $num, $result, $txt_num, $txt_result) { echo ""; $i=0; while ($i < $num) { $author=mysqli_result($result, $i, "author_fix"); $author_aka=mysqli_result($result, $i, "author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysqli_result($result, $i, "bio_link"); $poem_id=mysqli_result($result, $i, "id"); $title=mysqli_result($result, $i, "title"); $first_line=mysqli_result($result, $i, "first_line"); $last_line=mysqli_result($result, $i, "last_line"); $text_link=mysqli_result($result, $i, "text_link"); $recitation_link=mysqli_result($result, $i, "recitation_link"); $rec_by_auth=mysqli_result($result, $i, "rec_by_auth"); $subjects=trim(mysqli_result($result, $i, "subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysqli_result($result, $i, "variant")); $variants=substr($variants, 0, -1); $explainer=mysqli_result($result, $i, "text"); $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); if (strpos($bio_link, 'wikipedia.org') !== false) { $bio_link = "http://www.poetryexplorer.net/bio.php?id=$bio_link&mvr=$revauth"; } $poem_link = "http://www.poetryexplorer.net/poem.php?id=$poem_id"; $expl_link = "http://www.poetryexplorer.net/exp.php?id=$poem_id"; if ($i == 0) { // $myTitle = "Poetry Explorer- Classic Contemporary Poetry Explanations, ${title}, by $revauth"; // $myContent = "${title}, by $revauth"; // include('header.php'); // include('menu.php'); echo "

Classic and Contemporary Poetry Explanations

"; echo "
"; echo ""; $lastrevauth= ""; } /* echo "
${title}, by $revauth    " . "    " . "    " .( ($bio_link) ? "\t\tPoem Explanation" : "" ) . "
"; */ /* echo "
${title}, by $revauth   " . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
"; */ echo "
"; // echo ""; echo ""; echo ""; $lastrevauth= $revauth; } echo ""; //echo ""; echo ""; // echo ""; // echo ""; // echo ""; echo ""; /* echo "
   ${title}" . "    " . "    " .( ($expl_link) ? "\t\tPoem Explanation" : "" ) . "
"; */ /* echo "
$revauth: ${title}    " . "    " . "    " .( ($bio_link) ? "\t\tPoem Explanation" : "" ) . "
"; */ echo ""; $i++; } echo "
"; /* no exppl text if ( $explainer ) { echo "
"; echo "$explainer"; } */ if ($revauth != $lastrevauth ) { echo "

$revauth:
   "; echo "" . ( ($expl_link) ? "${title}" : "" ) . "" . ( ($expl_link) ? "Explanation" : "" ) . " Poem: ${title}" . ( ($expl_link) ? "Poem Explanation" : "" ) . "
"; echo "

"; echo ""; echo ""; } //end of function ?> footer.php0000644€tÆ*€tÆ*0000000104414715725265015600 0ustar axprmkhpdyxpaxprmkhpdyxp
"; } ?>
gdform.php0000644€tÆ*€tÆ*0000000140613124301600015532 0ustar axprmkhpdyxpaxprmkhpdyxp\n"); fputs($fp,"$val\n"); fputs($fp,"\n"); if ($key == "redirect") { $landing_page = $val;} } fclose($fp); if ($landing_page != ""){ header("Location: http://".$_SERVER["HTTP_HOST"]."/$landing_page"); } else { header("Location: http://".$_SERVER["HTTP_HOST"]."/"); } ?> googleAnalyticsTracking.php0000644€tÆ*€tÆ*0000000063713136626437021115 0ustar axprmkhpdyxpaxprmkhpdyxp header.php0000644€tÆ*€tÆ*0000001104014703551354015520 0ustar axprmkhpdyxpaxprmkhpdyxp '; if ( isset($myTitle) ) echo $myTitle . ' - Poetry Explorer - Your Free Poetry Website for Classic and Contemporary Poetry' ; // echo 'Title Page'; else echo 'Poetry Explorer - Your Free Poetry Website for Classic and Contemporary Poetry' ; echo ''; if (!isset($myKeyword)) $myKeyword = null; if (!isset($pageDescription)) // $pageDescription = null; // $pageDescription = 'Poetry Explorer- Classic Contemporary Poetry'; $pageDescription = 'Discover the largest collection of classic and contemporary poetry with PoetryExplorer. Enjoy free access to poems analyzed for subject content, similarity, and connections to other works in our extensive collection.'; if (!isset($myCanonical )) $myCanonical = null; if (!isset($myNoindex)) $myNoindex = null; ?> "; ?> "; ?> No Ads1"; echo ""; // echo "
No Ads2
"; } ?> header_dbg.php0000644€tÆ*€tÆ*0000000517614621751051016344 0ustar axprmkhpdyxpaxprmkhpdyxp <?php if ( $myTitle ) echo $myTitle; // echo 'Title Page'; else echo 'Poetry Explorer- Classic Contemporary Poetry' ; ?> header_poem.php0000644€tÆ*€tÆ*0000001057414703550677016562 0ustar axprmkhpdyxpaxprmkhpdyxp '; if ( isset($myTitle) ) echo $myTitle . ' - Poetry Explorer - Your Free Poetry Website for Classic and Contemporary Poetry' ; // echo 'Title Page'; else echo 'Poetry Explorer - Your Free Poetry Website for Classic and Contemporary Poetry' ; echo ''; if (!isset($myKeyword)) $myKeyword = null; if (!isset($pageDescription)) // $pageDescription = null; // $pageDescription = 'Poetry Explorer- Classic Contemporary Poetry'; $pageDescription = 'Discover the largest collection of classic and contemporary poetry with PoetryExplorer. Enjoy free access to poems analyzed for subject content, similarity, and connections to other works in our extensive collection.'; ?> "; ?> No Ads1"; echo ""; // echo "
No Ads2
"; } ?> index.20140210.php0000644€tÆ*€tÆ*0000000701213124301600016252 0ustar axprmkhpdyxpaxprmkhpdyxp
Search Classic and Contemporary Poetry
Basic Search:

Author, Title, Keyword:
 
Only poems with Recitations
 
 
or, Subject Search:

Subject:
 
 
 

When you are in the mood to read classic or contemporary poetry, you shouldn’t have to waste time browsing the Internet to find what you’re looking for. Use Poetry Explorer as a way to access the works of your favorite poets, meaning you will spend less time searching and more time enjoying the fruits of human expression.

Of all the poetry websites on the web, you won’t find any place easier than Poetry Explorer to gain quick access to the works of classic and contemporary poetry. All you have to do is type the name of the poet and work into the corresponding search bars, and voila! You’ll be reading beautiful poetry in no time.

Connect with Classic and Contemporary Poems for the First Time

What’s more, Poetry Explorer can be used as an excellent resource for connecting with poets and poems you have yet to encounter. Simply choose a subject to direct the search and you will gain access to poetry from approximately 10,000 distinct headings.

Are you interested in poetry about science or geography? You’ll find it here! Our available search subjects include history, nature, people, and much more!

Poetry Explorer | Online Poetry Search Made Easy

There is simply no better way to extend your library and gain new experiences within the world of poetry—so try our search bars today. Thanks to free poetry websites, finding beautiful classic and contemporary poetry online has never been easier!

index.php0000644€tÆ*€tÆ*0000000062514655235534015413 0ustar axprmkhpdyxpaxprmkhpdyxp
  • Search All Poems
  • Subject Discovery
  • Browse Contemporary Poets
  • Advance Search
  • Contact Us
Search Classic and Contemporary Poetry

Basic Search:
Author, Title, Keyword:
 
Only poems with Recitations
 
 
or, Subject Search:

Subject:
upArrow
 
 
 
 

When you are in the mood to read classic or contemporary poetry, you shouldn’t have to waste time browsing the Internet to find what you’re looking for. Use Poetry Explorer as a way to access the works of your favorite poets, meaning you will spend less time searching and more time enjoying the fruits of human expression.

Of all the poetry websites on the web, you won’t find any place easier than Poetry Explorer to gain quick access to the works of classic and contemporary poetry. All you have to do is type the name of the poet and work into the corresponding search bars, and voila! You’ll be reading beautiful poetry in no time.

Connect with Classic and Contemporary Poems for the First Time

What’s more, Poetry Explorer can be used as an excellent resource for connecting with poets and poems you have yet to encounter. Simply choose a subject to direct the search and you will gain access to poetry from approximately 10,000 distinct headings.

Are you interested in poetry about science or geography? You’ll find it here! Our available search subjects include history, nature, people, and much more!

Poetry Explorer | Online Poetry Search Made Easy

There is simply no better way to extend your library and gain new experiences within the world of poetry—so try our search bars today. Thanks to free poetry websites, finding beautiful classic and contemporary poetry online has never been easier!

Subject Discovery:

In addition to the conventional subject search mechanism, the Subject Discovery utility provides a unique hierarchical search matrix which facilitates inquiry into unthought of and serendipitous subjects that reside in this ever growing collection of poems. There are 10,000 distinct headings to be discovered.

 
    
 

Browse the Best Contemporary Poems

The Ultimate Free Collection of Contemporary Poems

I once read that poetry is like sending a message in a bottle. It is a message that has traveled through time and distance to reach you, the reader.

And in that moment when you release that message from inside, don’t you feel like you are entering the secret places—the intimate places—of another as you read each poem? Rainer Maria Rilke once said, “I want to be with those who know secret things or else alone.â€

This website lives in the spirit of Rilke’s words. Here the best contemporary poems are stored for you to discover. Here is where you will find poets that are also your best friends. Here you will also find the secrets of our modern lives. And while you wander through the intimate haunts of our contemporary poets, you may discover that secrets can be shared without ever being given away.

From Charles Bukowski to William Carlos Williams, you can explore the trappings of your own mind personified through the words of another. With all these poets in one place, imagine the places you will explore. Imagine wandering down the halls of a supermarket in California with Allen Ginsburg, only to find yourself standing by a proverbial red wheelbarrow, “glazed with rain / water / beside the white / chickens.â€

Here is a collection of people with secrets. Let their words unravel before you like a silk tie and find out what messages are in store for you.

Search Classic and Contemporary Poetry

Advance Search:
Author:
Title:
 
Keyword:
 
Only poems with Recitations
 
 
 

When you are in the mood to read classic or contemporary poetry, you shouldn’t have to waste time browsing the Internet to find what you’re looking for. Use Poetry Explorer as a way to access the works of your favorite poets, meaning you will spend less time searching and more time enjoying the fruits of human expression.

Of all the poetry websites on the web, you won’t find any place easier than Poetry Explorer to gain quick access to the works of classic and contemporary poetry. All you have to do is type the name of the poet and work into the corresponding search bars, and voila! You’ll be reading beautiful poetry in no time.

Connect with Classic and Contemporary Poems for the First Time

What’s more, Poetry Explorer can be used as an excellent resource for connecting with poets and poems you have yet to encounter. Simply choose a subject to direct the search and you will gain access to poetry from approximately 10,000 distinct headings.

Are you interested in poetry about science or geography? You’ll find it here! Our available search subjects include history, nature, people, and much more!

Poetry Explorer | Online Poetry Search Made Easy

There is simply no better way to extend your library and gain new experiences within the world of poetry—so try our search bars today. Thanks to free poetry websites, finding beautiful classic and contemporary poetry online has never been easier!

Classic and Contemporary Poetry

FREE! Full text poems accessible through a unique matrix of hierarchical subject terms and themes,
as well as by author, title, first line, keyword searches.

Full text of classic and contemporary poetry from the most trustworthy sources.

indexold11242014.php0000644€tÆ*€tÆ*0000002407313124301600016706 0ustar axprmkhpdyxpaxprmkhpdyxp
  • Search All Poems
  • Subject Discovery
  • Browse Contemporary Poets
  • Advance Search
  • Contact Us
Search Classic and Contemporary Poetry

Basic Search:
Author, Title, Keyword:
 
Only poems with Recitations
 
 
or, Subject Search:

Subject:
upArrow
 
 
 
 

When you are in the mood to read classic or contemporary poetry, you shouldn’t have to waste time browsing the Internet to find what you’re looking for. Use Poetry Explorer as a way to access the works of your favorite poets, meaning you will spend less time searching and more time enjoying the fruits of human expression.

Of all the poetry websites on the web, you won’t find any place easier than Poetry Explorer to gain quick access to the works of classic and contemporary poetry. All you have to do is type the name of the poet and work into the corresponding search bars, and voila! You’ll be reading beautiful poetry in no time.

Connect with Classic and Contemporary Poems for the First Time

What’s more, Poetry Explorer can be used as an excellent resource for connecting with poets and poems you have yet to encounter. Simply choose a subject to direct the search and you will gain access to poetry from approximately 10,000 distinct headings.

Are you interested in poetry about science or geography? You’ll find it here! Our available search subjects include history, nature, people, and much more!

Poetry Explorer | Online Poetry Search Made Easy

There is simply no better way to extend your library and gain new experiences within the world of poetry—so try our search bars today. Thanks to free poetry websites, finding beautiful classic and contemporary poetry online has never been easier!

Subject Discovery:

In addition to the conventional subject search mechanism, the Subject Discovery utility provides a unique hierarchical search matrix which facilitates inquiry into unthought of and serendipitous subjects that reside in this ever growing collection of poems. There are 10,000 distinct headings to be discovered.

 
    
 

Browse the Best Contemporary Poems

The Ultimate Free Collection of Contemporary Poems

I once read that poetry is like sending a message in a bottle. It is a message that has traveled through time and distance to reach you, the reader.

And in that moment when you release that message from inside, don’t you feel like you are entering the secret places—the intimate places—of another as you read each poem? Rainer Maria Rilke once said, “I want to be with those who know secret things or else alone.â€

This website lives in the spirit of Rilke’s words. Here the best contemporary poems are stored for you to discover. Here is where you will find poets that are also your best friends. Here you will also find the secrets of our modern lives. And while you wander through the intimate haunts of our contemporary poets, you may discover that secrets can be shared without ever being given away.

From Charles Bukowski to William Carlos Williams, you can explore the trappings of your own mind personified through the words of another. With all these poets in one place, imagine the places you will explore. Imagine wandering down the halls of a supermarket in California with Allen Ginsburg, only to find yourself standing by a proverbial red wheelbarrow, “glazed with rain / water / beside the white / chickens.â€

Here is a collection of people with secrets. Let their words unravel before you like a silk tie and find out what messages are in store for you.

Search Classic and Contemporary Poetry

Advance Search:
Author:
Title:
 
Keyword:
 
Only poems with Recitations
 
 
 

When you are in the mood to read classic or contemporary poetry, you shouldn’t have to waste time browsing the Internet to find what you’re looking for. Use Poetry Explorer as a way to access the works of your favorite poets, meaning you will spend less time searching and more time enjoying the fruits of human expression.

Of all the poetry websites on the web, you won’t find any place easier than Poetry Explorer to gain quick access to the works of classic and contemporary poetry. All you have to do is type the name of the poet and work into the corresponding search bars, and voila! You’ll be reading beautiful poetry in no time.

Connect with Classic and Contemporary Poems for the First Time

What’s more, Poetry Explorer can be used as an excellent resource for connecting with poets and poems you have yet to encounter. Simply choose a subject to direct the search and you will gain access to poetry from approximately 10,000 distinct headings.

Are you interested in poetry about science or geography? You’ll find it here! Our available search subjects include history, nature, people, and much more!

Poetry Explorer | Online Poetry Search Made Easy

There is simply no better way to extend your library and gain new experiences within the world of poetry—so try our search bars today. Thanks to free poetry websites, finding beautiful classic and contemporary poetry online has never been easier!

Classic and Contemporary Poetry

FREE! Full text poems accessible through a unique matrix of hierarchical subject terms and themes,
as well as by author, title, first line, keyword searches.

Full text of classic and contemporary poetry from the most trustworthy sources.

info.php0000644€tÆ*€tÆ*0000000003013152502761015213 0ustar axprmkhpdyxpaxprmkhpdyxpinsert.php0000644€tÆ*€tÆ*0000000073513124664056015605 0ustar axprmkhpdyxpaxprmkhpdyxp menu.php0000644€tÆ*€tÆ*0000000621414715725441015246 0ustar axprmkhpdyxpaxprmkhpdyxp
"; } ?>


Poetry Explorer
  • HOME
  • ABOUT
  • CONTEMPORARY POETS
  • SUBJECT DISCOVERY
    • HISTORY
    • PEOPLE
    • NATURE
    • RELIGION
    • PLACES AND GEOGRAPHY
    • SCIENCE AND SOCIAL SCIENCE
    • SOCIETY
    • THE ARTS
    • THE FAMILY
    • THE HUMAN CONDITION
  • TOP POETS
  • CONTACT
msubbox.php0000644€tÆ*€tÆ*0000000125713124664142015754 0ustar axprmkhpdyxpaxprmkhpdyxpALL SUBJECTS\n"); for($i = 0; $i < mysql_num_rows( $rs ); $i++) { $tmp = mysql_fetch_row( $rs ); print("\n"); } ?> msublist.php0000644€tÆ*€tÆ*0000000156513124664232016141 0ustar axprmkhpdyxpaxprmkhpdyxpALL SUBJECTS\n"); */ print("All
\r\n"); for($i = 0; $i < mysql_num_rows( $rs ); $i++) { $tmp = mysql_fetch_row( $rs ); $sub = ucwords(strtolower($tmp[0])); /* print("\n"); */ print("$sub
\r\n"); } ?> msublist2.php0000644€tÆ*€tÆ*0000000205113124664316016215 0ustar axprmkhpdyxpaxprmkhpdyxp\r\n"); // print(""); print("\r\n"); for($i = 0; $i < mysql_num_rows( $rs ); $i++) { if ( 5 == $i ) { print("\r\n"); } $tmp = mysql_fetch_row( $rs ); $utmp = urlencode($tmp[0]); $sub = ucwords(strtolower($tmp[0])); print("\r\n"); } print("\r\n"); print("
 

\r\n"); print("$sub
\r\n"); ?> mysql.php0000644€tÆ*€tÆ*0000000653114415313323015436 0ustar axprmkhpdyxpaxprmkhpdyxp"; echo "- $dbname
"; while($row = mysql_fetch_array($result)) { echo "\ _ _ $row[0]
"; } echo "
The connection to \"$dbname\" was successful!"; $extension = "MySQL"; mysql_close($con); } else { // Create connection $con = @mysqli_connect($dbhost,$dbuser,$dbpass,$dbname,$dbport); // Check connection if (mysqli_connect_errno()) { die ("Failed to connect to MySQL using the PHP mysqli extension: " . mysqli_connect_error()); } // Query the database to show all the tables. $query = 'SHOW tables;'; $result = mysqli_query($con, $query); // Print the results of the query. echo "Here is a list of the tables in your database:
"; echo "- $dbname
"; while($row = mysqli_fetch_array($result)) { echo "\ _ _ $row[0]
"; } echo "
The connection to \"$dbname\" was successful!"; $extension = "MySQLi"; mysqli_close($con); } echo "
PHP extension used: " . $extension; echo "
Server Name: " . $hostname; unset($_POST); } // If we are not here because of a form submission, do the following. else { ?>
Connection Type:
Host Name:
Database Name:
User:
Password:
Port (optional):
mystats.php0000644€tÆ*€tÆ*0000000322013124664367016002 0ustar axprmkhpdyxpaxprmkhpdyxp My Stats:
$numauths Authors in database
$numauthp Authors in database w/ text or recitation link
$numpoems Titles in database w/ text link
$numrects Titles in database w/ recitation link
"; echo "

"; ?> netpoem.php0000644€tÆ*€tÆ*0000001537214561514001015741 0ustar axprmkhpdyxpaxprmkhpdyxp "; # die; $result=mysql_query($query); $num=mysql_numrows($result); $txt_query="SELECT T.* FROM text T WHERE T.poem_id = $pid"; // echo "$query
"; $txt_result=mysql_query($txt_query); $txt_num=mysql_numrows($txt_result); // echo "$txt_num
"; // die; if ( $num == 0 ) { echo "No Results Found.
Returning to Main Page.
"; sleep(5); printf(""); } $sub_query="SELECT S.subject from subject S WHERE S.poem_id = $pid"; $sub_result=mysql_query($sub_query); while($data = mysql_fetch_assoc($sub_result)){ $subrow[] = $data; } // print_r($subrow); // print_r($subrow[0]); foreach($subrow as $row) { // echo "Subject=" . $row['subject']; // echo "
"; $nxt_query="SELECT P.* from subject S LEFT JOIN poem P ON S.poem_id = P.id WHERE P.id != $pid AND S.subject = '" . $row['subject'] . "' LIMIT 10"; // echo "$nxt_query"; $nxt_result=mysql_query($nxt_query); while($data = mysql_fetch_assoc($nxt_result)){ $row[] = $data; } } // print_r($row); $nxt_author=mysql_result($result,0,"author"); // echo "Author=" . $nxt_author; // echo "
"; // all poems by author // $nxt_query="SELECT P.* from poem P WHERE P.author = '" . $nxt_author . "'"; // poems by author with TEXT $nxt_query="SELECT P.* from poem P LEFT JOIN text T ON T.poem_id = P.id WHERE T.line_id = 100 AND P.author = '" . $nxt_author . "'"; // echo "$nxt_query"; $nxt_result=mysql_query($nxt_query); while($data = mysql_fetch_assoc($nxt_result)){ $row[] = $data; } mysql_close(); // echo ""; echo "
"; echo ""; myAllSearch( $num, $result, $txt_num, $txt_result); myRecomends( $row); echo ""; echo "
"; echo "Home: PoetryExplorer.net

"; function myRecomends( $row ){ echo ""; echo "
"; echo "

Discover our Poem Explanations and Poet Analyses!


"; // echo "

Discover our poem explanations - click here!


"; echo "

Other Poems of Interest...

"; echo "
"; $elm = array_shift($row); $i = 1; foreach($row as $row) { $pid = $row['id']; $author = $row['author_fix']; $title = $row['title']; $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); echo "

" . $title . " by " . $revauth . ""; echo "
"; if ($i++ == 12) break; } echo "



"; echo ""; } //end function function myAllSearch( $num, $result, $txt_num, $txt_result){ echo ""; $i=0; while ($i < $num) { $author=mysql_result($result,$i,"author_fix"); $author_aka=mysql_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysql_result($result,$i,"bio_link"); $title=mysql_result($result,$i,"title"); $first_line=mysql_result($result,$i,"first_line"); $last_line=mysql_result($result,$i,"last_line"); $text_link=mysql_result($result,$i,"text_link"); $recitation_link=mysql_result($result,$i,"recitation_link"); $rec_by_auth=mysql_result($result,$i,"rec_by_auth"); $subjects=trim(mysql_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysql_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); if ($i == 0) { $myTitle = "Poetry Explorer- Classic Contemporary Poetry, ${title}, by $revauth"; $myContent = "${title}, by $revauth"; include('header.php'); include('menu.php'); echo "

Classic and Contemporary Poetry

"; // echo ""; // echo "PoetryExplorer: ${title}, by $revauth "; } echo "
${title}, by $revauth   " . ( ($text_link) ? "\t\tPoem Source" : "" ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
"; if ( $first_line ) { echo " First Line: $first_line
"; } if ( $last_line ) { echo " Last Line: $last_line
"; } if ( $author_aka ) { echo " Alternate Author Name(s): $author_aka
"; } if ( $variants ) { echo " Variant Title(s): $variants
"; } if ( $subjects ) { echo " Subject(s): $subjects
"; } echo ""; // echo ""; // echo ""; echo ""; $j=0; echo "

"; while ($j < $txt_num) { $myTEXT=mysql_result($txt_result,$j,"text"); $myTEXT=str_replace("@3","",$myTEXT); $myTEXT=str_replace("@2","",$myTEXT); $myTEXT=str_replace("@1","",$myTEXT); echo " $myTEXT
"; $j++; } echo "
"; echo "


"; $i++; } echo ""; } //end of function ?> new-test.php0000644€tÆ*€tÆ*0000000247713154244143016046 0ustar axprmkhpdyxpaxprmkhpdyxpfind('div.words') as $e) { $str = explode("", strip_tags($e->outertext)); foreach($str as $s) { $cleanStr = trim(preg_replace('/\s\s+/', ' ', str_replace("\n", " ", $s))); if($cleanStr === "") { //echo "match"; } else { $resultarray[] = $cleanStr; } } } $temp = false; $dataStr = ""; if($resultarray) { foreach ($resultarray as $key => $value) { # code... if($value != " " || $value != "") { if($temp == false) { $dataStr .= '"' . $value . '"'; $temp = true; } else { $dataStr .= ', "' . $value . '"'; } } } } echo "
";
var_dump($resultarray);


echo $dataStr;phpinfo.php0000644€tÆ*€tÆ*0000000000014655237003015723 0ustar  axprmkhpdyxpaxprmkhpdyxppoem.php0000644€tÆ*€tÆ*0000002235314703545251015240 0ustar  axprmkhpdyxpaxprmkhpdyxpReturning to Main Page.
";
  sleep(5);
  printf("");
}
 
$sub_query="SELECT S.subject from subject S WHERE S.poem_id = $pid";
$sub_result=mysqli_query($con,$sub_query);
$subrow = [];
if ($sub_result){ 
  while($data = mysqli_fetch_assoc($sub_result)){
      $subrow[] = $data;
  }
}


if (!isset($subrow))
  $subrow = null;

if ($subrow) {
foreach($subrow as $row) {
  $nxt_query="SELECT P.* from subject S LEFT JOIN poem P ON S.poem_id = P.id WHERE P.id != $pid AND S.subject = '" . $row['subject'] . "' LIMIT 10";
  $nxt_result=mysqli_query($con,$nxt_query);
  $row = [];
  if ($nxt_result){ 
      while($data = mysqli_fetch_assoc($nxt_result)){
      $row[] = $data;
    }
  }    
}
}; //end if subrow



$nxt_author=mysqli_result($result,0,"author");


$nxt_query="SELECT P.* from poem P LEFT JOIN text T ON T.poem_id = P.id WHERE T.line_id = 200 AND P.id != $pid AND P.author = '" . $nxt_author . "'";

if ($nxt_result=mysqli_query($con,$nxt_query))
{
 while($data = mysqli_fetch_assoc($nxt_result)){
   $row[] = $data;
 }
}

// R10 random poems
$nxt_query="SELECT P.* from poem P LEFT JOIN text T ON T.poem_id = P.id WHERE T.line_id = 200 AND RAND()<=0.0006 limit 10";           

$nxt_result=mysqli_query($con,$nxt_query);
while($data = mysqli_fetch_assoc($nxt_result)){
  $row[] = $data;
}


mysqli_close($con);

echo "";
echo "";

myAllSearch( $num, $result, $txt_num, $txt_result);
myRecomends( $row);

// rm td for mobile 
if (!(isMobileDevice())) {
echo " ";
echo "
 ";
}
?>

 ";
}

echo "
";

echo "Home: PoetryExplorer.net

";  

 
function myRecomends( $row ){

// add table def for mobile 
if (isMobileDevice()) {
  echo "";
  echo "";
}

echo "";

// add table def for mobile 
if (isMobileDevice()) {
  echo "";
  echo "
";
echo "
";

  echo "
Discover our Poem Explanations and Poet Analyses!

";
  echo "
Other Poems of Interest...
"; 
  echo "
";

  $elm = array_shift($row);

  $i = 1;
  foreach($row as $row) {
  
    $pid = $row['id'];
    $author = $row['author_fix'];
    $title = $row['title'];

    $revauthARR = explode(", ", $author);
    $tmp = array_reverse($revauthARR);
    $revauth = implode(" ", $tmp);
  
    $revauth = case_revauth($revauth);
    $title = case_title($title);
    $author = case_author($author);
  
    echo "
" . $title . " by " . $revauth . "";
    echo "
";
    if ($i++ == 12) break;
  }

  echo "


";
echo "
";
}

} //end function

function myAllSearch( $num, $result, $txt_num, $txt_result){

echo "";

$i=0;
  while ($i < $num) {

  $author=mysqli_result($result,$i,"author_fix");
  $author_aka=mysqli_result($result,$i,"author_aka");
  $author_aka=substr($author_aka, 0, -1);
  $bio_link=mysqli_result($result,$i,"bio_link");
  $poem_id=mysqli_result($result,$i,"id");
  $title=mysqli_result($result,$i,"title");
  $first_line=mysqli_result($result,$i,"first_line");
  $last_line=mysqli_result($result,$i,"last_line");
  $text_link=mysqli_result($result,$i,"text_link");
  $recitation_link=mysqli_result($result,$i,"recitation_link");
  $rec_by_auth=mysqli_result($result,$i,"rec_by_auth");
  $subjects=trim(mysqli_result($result,$i,"subjects"));
  $subjects=substr($subjects, 0, -1);
  $variants=trim(mysqli_result($result,$i,"variant"));
  $variants=substr($variants, 0, -1);

  $revauthARR = explode(", ", $author);
  $tmp = array_reverse($revauthARR);
  $revauth = implode(" ", $tmp);

  $tmpAKA = explode(";", $author_aka);
  $author_aka = implode("; ", $tmpAKA);

  $revauth = case_revauth($revauth);
  $title = case_title($title);
  $author = case_author($author);
  $author_aka = case_authoraka($author_aka);
  $first_line = case_firstline($first_line);
  $last_line = case_firstline($last_line);
  $subjects = case_subject($subjects);
  $variants = case_variant($variants);
  $explainer=mysqli_result($result,$i,"explainerId");
  $analysis=mysqli_result($result,$i,"analysisId");
  

  if (strpos($bio_link, 'wikipedia.org') !== false) {
    $bio_link = "https://www.poetryexplorer.net/bio.php?id=$bio_link&mvr=$revauth";
  }

  unset($expl_link);
  if (!empty($explainer)) {
    $expl_link = "https://www.poetryexplorer.net/exp.php?id=$poem_id";
  }
  
  unset($analysis_link);
  if (!empty($analysis)) {
    $analysis_link = "https://www.poetryexplorer.net/analysis.php?id=$poem_id";
  }
  
  if ($i == 0) {
   $myTitle = "Poetry Explorer- Classic Contemporary Poetry, ${title}, by $revauth";
    $myContent = "${title}, by $revauth";
    // echo "
Classic and Contemporary Poetry
";
   echo "
Classic and Contemporary Poetry
";
    /*
    if (isMobileDevice()) {
      echo 'Rhyming Dictionary Search
';
    }
    */
    /*
    if (!(isMobileDevice())) {
      echo "
"; } */ echo ""; } $addspace="    "; if (isMobileDevice()) { $addspace="
"; } echo "
${title}, by $revauth   " . $addspace . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( isset($expl_link) ? "\t\tPoem Explanation" : "" ) . "    " .( isset($analysis_link) ? "\t\tPoet Analysis" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
"; if ( $first_line ) { echo " First Line: $first_line
"; } if ( $last_line ) { echo " Last Line: $last_line
"; } if ( $author_aka ) { echo " Alternate Author Name(s): $author_aka
"; } if ( $variants ) { echo " Variant Title(s): $variants
"; } if ( $subjects ) { echo " Subject(s): $subjects
"; } echo ""; echo ""; $j=0; if (!(isMobileDevice())) { echo ""; } echo "

"; while ($j < $txt_num) { $myTEXT=mysqli_result($txt_result,$j,"text"); $myTEXT=str_replace("@3","",$myTEXT); $myTEXT=str_replace("@2","",$myTEXT); $myTEXT=str_replace("@1","",$myTEXT); echo " $myTEXT
"; $j++; } if (!(isMobileDevice())) { echo ""; } echo "
"; /* next ten lines could be non-mobile only - please test */ $onsite='https://' . $_SERVER['HTTP_HOST'] . $_SERVER['REQUEST_URI']; $onsit2='..' . $_SERVER['REQUEST_URI']; if ( $text_link == $onsite || $text_link == $onsit2 ) { unset($text_link); } if ( isset($text_link) && $txt_num < 1 ) { echo "
View Poem Text"; } echo "


"; $i++; } echo ""; } //end of function if(isMobileDevice()){ echo "
Mobile Browser Detected
"; } else { echo ""; } ?> poem_m.php0000777€tÆ*€tÆ*0000000000014621751751017220 2poem.phpustar axprmkhpdyxpaxprmkhpdyxppoemsout.php0000775€tÆ*€tÆ*0000000466414751466431016172 0ustar axprmkhpdyxpaxprmkhpdyxp 0 AND E.id IS NULL AND P.author_fix < 'F' ORDER BY P.author_fix,title "; // NOTE *** Change author_fix limit above F K P U / dont forget > statement // NOTE *** Change Filename x2 below, AE, FJ, KO, PT, UZ // LIMIT 5000"; // AND P.author_fix < 'ARNOLD, GEORGE' if ($result=mysqli_query($con,$query)) { $num=mysqli_num_rows($result); // echo "NUM: $num
"; while($row = mysqli_fetch_array($result)) { $pid = $row['id']; // echo "PID: $pid
"; $txt_query="SELECT T.* FROM text T WHERE T.poem_id = $pid ORDER BY line_id"; if ($txt_result=mysqli_query($con,$txt_query)) { $txt_num=mysqli_num_rows($txt_result); // echo "TNUM: $txt_num
"; if ($txt_num > 0) { ++$mycount; $mymod = fmod($mycount, 200); // echo "mycount: $mycount mymod: $mymod
"; if ($mycount == 1) { $myfile0 = "100000" + $mycount - "1"; $fil0 = fopen("poemsout/poemsAE_$myfile0.txt",'w'); // echo "fil0: poems_$mycount.txt
"; } if ($mymod == 0) { fclose($fil0); $myfile0 = "100000" + $mycount; $fil0 = fopen("poemsout/poems_AE$myfile0.txt",'w'); // echo "fil0: poems_$mycount.txt
"; } $revauthARR = explode(", ", $row['author_fix']); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); // echo "{"; // echo $row['id']; // echo "}"; // echo "
"; // echo "
"; echo $row['title']; echo " by "; echo $row['author_fix']; // echo $revauth; echo "
"; // echo "
"; fwrite($fil0, "{".$row['id']."}\r\n"); // fwrite($fil0, "\r\n"); fwrite($fil0, $row['title']." by ".$revauth."\r\n"); fwrite($fil0, "\r\n"); fwrite($fil0, "\r\n"); while($trow = mysqli_fetch_array($txt_result)) { // echo $trow['text']; // echo "
"; fwrite($fil0, $trow['text']."\r\n"); } // echo "
"; // echo "
"; // echo "
"; fwrite($fil0, "\r\n"); fwrite($fil0, "\r\n"); fwrite($fil0, "\r\n"); } } } } fclose($fil0); echo "Hello, World!"; echo " $mycount"; ?> poemx.php0000644€tÆ*€tÆ*0000001570213124662613015426 0ustar axprmkhpdyxpaxprmkhpdyxp "; # die; $result=mysql_query($query); $num=mysql_numrows($result); $txt_query="SELECT T.* FROM text T WHERE T.poem_id = $pid"; // echo "$query
"; $txt_result=mysql_query($txt_query); $txt_num=mysql_numrows($txt_result); // echo "$txt_num
"; // die; if ( $num == 0 ) { echo "No Results Found.
Returning to Main Page.
"; sleep(5); printf(""); } $sub_query="SELECT S.subject from subject S WHERE S.poem_id = $pid"; $sub_result=mysql_query($sub_query); while($data = mysql_fetch_assoc($sub_result)){ $subrow[] = $data; } print_r($subrow); // print_r($subrow[0]); /* if ($subrow) { echo "SUBROW!!"; } else { echo "NO SUBROW!!"; }; */ if ($subrow) { foreach($subrow as $row) { // echo "Subject=" . $row['subject']; // echo "
"; $nxt_query="SELECT P.* from subject S LEFT JOIN poem P ON S.poem_id = P.id WHERE P.id != $pid AND S.subject = '" . $row['subject'] . "' LIMIT 10"; // echo "$nxt_query"; $nxt_result=mysql_query($nxt_query); while($data = mysql_fetch_assoc($nxt_result)){ $row[] = $data; } } }; //end if subrow // print_r($row); $nxt_author=mysql_result($result,0,"author"); // echo "Author=" . $nxt_author; // echo "
"; // all poems by author // $nxt_query="SELECT P.* from poem P WHERE P.author = '" . $nxt_author . "'"; // poems by author with TEXT // $nxt_query="SELECT P.* from poem P LEFT JOIN text T ON T.poem_id = P.id WHERE T.line_id = 200 AND P.author = '" . $nxt_author . "'"; $nxt_query="SELECT P.* from poem P LEFT JOIN text T ON T.poem_id = P.id WHERE T.line_id = 200 AND P.id != $pid AND P.author = '" . $nxt_author . "'"; // echo "$nxt_query"; $nxt_result=mysql_query($nxt_query); while($data = mysql_fetch_assoc($nxt_result)){ $row[] = $data; } // R10 random poems $nxt_query="SELECT P.* from poem P LEFT JOIN text T ON T.poem_id = P.id WHERE T.line_id = 200 AND RAND()<=0.0006 limit 10"; // echo "$nxt_query"; $nxt_result=mysql_query($nxt_query); while($data = mysql_fetch_assoc($nxt_result)){ $row[] = $data; } mysql_close(); // echo ""; echo "
"; echo ""; myAllSearch( $num, $result, $txt_num, $txt_result); myRecomends( $row); echo ""; echo "
"; echo "Home: PoetryExplorer.net

"; function myRecomends( $row ){ echo ""; echo "
"; echo "

Other Poems of Interest...

"; echo "
"; $elm = array_shift($row); $i = 1; foreach($row as $row) { $pid = $row['id']; $author = $row['author_fix']; $title = $row['title']; $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); echo "

" . $title . " by " . $revauth . ""; echo "
"; if ($i++ == 12) break; } echo "



"; echo ""; } //end function function myAllSearch( $num, $result, $txt_num, $txt_result){ echo ""; $i=0; while ($i < $num) { $author=mysql_result($result,$i,"author_fix"); $author_aka=mysql_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysql_result($result,$i,"bio_link"); $title=mysql_result($result,$i,"title"); $first_line=mysql_result($result,$i,"first_line"); $last_line=mysql_result($result,$i,"last_line"); $text_link=mysql_result($result,$i,"text_link"); $recitation_link=mysql_result($result,$i,"recitation_link"); $rec_by_auth=mysql_result($result,$i,"rec_by_auth"); $subjects=trim(mysql_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysql_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); if ($i == 0) { $myTitle = "Poetry Explorer- Classic Contemporary Poetry, ${title}, by $revauth"; $myContent = "${title}, by $revauth"; include('header.php'); include('menu.php'); echo "

Classic and Contemporary Poetry

"; // echo ""; // echo "PoetryExplorer: ${title}, by $revauth "; } echo "
${title}, by $revauth   " . ( ($text_link) ? "\t\tPoem Source" : "" ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
"; if ( $first_line ) { echo " First Line: $first_line
"; } if ( $last_line ) { echo " Last Line: $last_line
"; } if ( $author_aka ) { echo " Alternate Author Name(s): $author_aka
"; } if ( $variants ) { echo " Variant Title(s): $variants
"; } if ( $subjects ) { echo " Subject(s): $subjects
"; } echo ""; // echo ""; // echo ""; echo ""; $j=0; echo "

"; while ($j < $txt_num) { $myTEXT=mysql_result($txt_result,$j,"text"); $myTEXT=str_replace("@3","",$myTEXT); $myTEXT=str_replace("@2","",$myTEXT); $myTEXT=str_replace("@1","",$myTEXT); echo " $myTEXT
"; $j++; } echo "
"; echo "


"; $i++; } echo ""; } //end of function ?> reference.php0000644€tÆ*€tÆ*0000002306514673356334016247 0ustar axprmkhpdyxpaxprmkhpdyxp"; // die; if ( $num == 0 ) { echo "No Results Found.
Returning to Main Page.
"; sleep(5); printf(""); } /* Subject Sytuff Not Needed 20220513 $sub_query="SELECT S.subject from subject S WHERE S.poem_id = $pid"; $sub_result=mysqli_query($con,$sub_query); while($data = mysqli_fetch_assoc($sub_result)){ $subrow[] = $data; } // print_r($subrow); // print_r($subrow[0]); if ($subrow) { foreach($subrow as $row) { // echo "Subject=" . $row['subject']; // echo "
"; $nxt_query="SELECT P.* from subject S LEFT JOIN poem P ON S.poem_id = P.id WHERE P.id != $pid AND S.subject = '" . $row['subject'] . "' LIMIT 10"; // echo "$nxt_query"; $nxt_result=mysqli_query($con,$nxt_query); while($data = mysqli_fetch_assoc($nxt_result)){ $row[] = $data; } } }; //end if subrow // print_r($row); Subject Sytuff Not Needed 20220513 */ $nxt_author=mysqli_result($result,0,"author"); $nxt_query="SELECT P.* from poem P LEFT JOIN text T ON T.poem_id = P.id WHERE T.line_id = 200 AND P.id != $pid AND P.author = '" . $nxt_author . "'"; if ($nxt_result=mysqli_query($con,$nxt_query)) { while($data = mysqli_fetch_assoc($nxt_result)){ $row[] = $data; } } // R10 random poems $nxt_query="SELECT P.* from poem P LEFT JOIN text T ON T.poem_id = P.id WHERE T.line_id = 200 AND RAND()<=0.0006 limit 10"; // echo "$nxt_query"; $nxt_result=mysqli_query($con,$nxt_query); while($data = mysqli_fetch_assoc($nxt_result)){ $row[] = $data; } mysqli_close($con); // echo ""; // add table for non mobile if (!(isMobileDevice())) { echo "
"; } echo ""; myAllSearch( $num, $result, $ref_num, $ref_result); myRecomends( $row); // rm td for mobile if (!(isMobileDevice())) { echo " "; } echo "
"; } ?> "; } if (!(isMobileDevice())) { echo "
"; echo "Home: PoetryExplorer.net

"; function myRecomends( $row ){ // add table def for mobile if (isMobileDevice()) { echo ""; echo ""; } echo ""; // add table def for mobile if (isMobileDevice()) { echo ""; echo "
"; echo "
"; echo "

Discover our Poem Explanations and Poet Analyses!


"; // echo "

Discover our poem explanations - click here!


"; echo "

Other Poems of Interest...

"; echo "
"; $elm = array_shift($row); $i = 1; foreach($row as $row) { $pid = $row['id']; $author = $row['author_fix']; $title = $row['title']; $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); echo "

" . $title . " by " . $revauth . ""; echo "
"; if ($i++ == 12) break; } echo "



"; echo "
"; } } //end function function myAllSearch( $num, $result, $ref_num, $ref_result){ echo ""; $i=0; while ($i < $num) { $author=mysqli_result($result,$i,"author_fix"); $author_aka=mysqli_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysqli_result($result,$i,"bio_link"); $title=mysqli_result($result,$i,"title"); $first_line=mysqli_result($result,$i,"first_line"); $last_line=mysqli_result($result,$i,"last_line"); $text_link=mysqli_result($result,$i,"text_link"); $recitation_link=mysqli_result($result,$i,"recitation_link"); $rec_by_auth=mysqli_result($result,$i,"rec_by_auth"); $subjects=trim(mysqli_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysqli_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); if (strpos($bio_link, 'wikipedia.org') !== false) { $bio_link = "http://www.poetryexplorer.net/bio.php?id=$bio_link&mvr=$revauth"; } if ($i == 0) { $myTitle = "Poetry Explorer- Classic Contemporary Poetry, ${title}, by $revauth"; $myContent = "${title}, by $revauth"; // include('header.php'); // include('menu.php'); echo "

Classic and Contemporary Poetry

"; echo "
"; echo "
"; //echo 'Rhyming Dictionary Search'; // echo ""; // echo "PoetryExplorer: ${title}, by $revauth "; } // ${title}, by $revauth   " . ( ($text_link) ? "\t\tPoem Source" : "" ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
echo "
${title}, by $revauth   " . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
"; /* if ( $first_line ) { echo " First Line: $first_line
"; } if ( $last_line ) { echo " Last Line: $last_line
"; } if ( $author_aka ) { echo " Alternate Author Name(s): $author_aka
"; } if ( $variants ) { echo " Variant Title(s): $variants
"; } if ( $subjects ) { echo " Subject(s): $subjects
"; } */ echo ""; // echo ""; // echo ""; echo ""; echo "
"; echo "

Sources:

"; // echo "

References:
"; $j=0; echo "
"; while ($j < $ref_num) { $myTEXT=mysqli_result($ref_result,$j,"title"); $myTEXY=mysqli_result($ref_result,$j,"year"); $myTEXP=mysqli_result($ref_result,$j,"page"); $myTEXA=mysqli_result($ref_result,$j,"author"); $myTEXA = case_author($myTEXA); $myTEXP = case_subject($myTEXP); echo " $myTEXT
"; if ( $myTEXA ) { echo "   $myTEXA
"; } if ( $myTEXY ) { // echo " Published $myTEXY
"; echo "   ($myTEXY)
"; } if ( $myTEXP ) { echo "   $myTEXP
"; } echo "

"; $j++; } echo "
"; echo "


"; $i++; } echo ""; } //end of function if(isMobileDevice()){ echo "
Mobile Browser Detected
"; } else { echo ""; } ?> reference_m.php0000777€tÆ*€tÆ*0000000000014635364232021213 2reference.phpustar axprmkhpdyxpaxprmkhpdyxprhyme-search.php0000644€tÆ*€tÆ*0000003350114145276152016665 0ustar axprmkhpdyxpaxprmkhpdyxp

Search Classic and Contemporary Poetry

'; print_r($compare_str); echo ''; if (isset($_GET['stype'])) { } else { $stype="B"; } if (isset($_GET['msub'])) { $msub=$_GET['msub']; } else { $msub="ALL"; } /* force ALL in new split query */ $msub="ALL"; if(isset($_GET['authrec']) && $_GET['authrec'] == 'Yes') { $authrec=True; } else { $authrec=False; } // mysql_connect($hostname,$username,$password); // @mysql_select_db($database) or die( "Unable to select database"); if ($msub == "ALL") { $query .= "SELECT P.*, T.*, GROUP_CONCAT(distinct(text) SEPARATOR '
') as poem_line, CONCAT(P.author, ' ', P.title, ' ', P.first_line, ' ', P.last_line, ' ', IFNULL(P.variant,'')) AS kword FROM poem P JOIN text T on P.id = T.poem_id WHERE (P.id IS NOT NULL"; } else { $query="SELECT DISTINCT P.*, CONCAT(P.author, ' ', P.title, ' ', P.first_line, ' ', P.last_line, ' ', IFNULL(P.variant,'')) AS kword FROM poem P LEFT JOIN subject S ON S.poem_id = P.id LEFT JOIN mastersub M ON M.subject = S.subject WHERE M.msub = '$msub' AND (P.id IS NOT NULL"; } if ($authrec) { $query.=" AND P.recitation_link IS NOT NULL)"; } else { $query.=" OR P.recitation_link IS NOT NULL)"; } $condition= ""; $authonly = False; if ( $author != "" ) { /* $condition.= " AND P.author LIKE '%$author%'"; */ $authonly = True; $terms = search_split_terms($author); $terms_db = search_db_escape_terms($terms); $parts = array(); foreach($terms_db as $term_db){ $parts[] = "P.author RLIKE '$term_db'"; } $parts = implode(' AND ', $parts); $condition.= "AND ( ($parts)"; $parts = array(); foreach($terms_db as $term_db){ $parts[] = "P.author_aka RLIKE '$term_db'"; } $parts = implode(' AND ', $parts); $condition.= "OR ($parts) )"; /* echo "$condition"; */ } if ( $title != '' ) { $condition.= " AND (P.title LIKE '%$title%' OR IFNULL(P.variant,'') LIKE '%$title%')"; $authonly = False; } if ( $kword != '' ) { // $condition.= " AND CONCAT(P.author, ' ', P.title, ' ', P.first_line, ' ', P.last_line, ' ', IFNULL(P.variant,'')) LIKE '$kword'"; $authonly = False; } if ( $kword != '' && ($stype == "B") ) { $terms = search_split_terms($kword); $terms_db = search_db_escape_terms($terms); $parts = array(); foreach($terms_db as $term_db){ $parts[] = "P.author RLIKE '$term_db'"; } $parts = implode(' AND ', $parts); // $condition.= "OR ( ($parts)"; $parts = array(); foreach($terms_db as $term_db){ $parts[] = "P.author_aka RLIKE '$term_db'"; } $parts = implode(' AND ', $parts); // $condition.= "OR ($parts) )"; //covers title // $condition.= " OR (P.title LIKE '%$kword%' OR IFNULL(P.variant,'') LIKE '%$kword%')"; // echo "$condition
"; } if ( $subject != '' ) { if (preg_match('/[\'\.^£$%&*()}{@#~?><>,|=_+¬-]/', $subject)) { // one or more of the 'special characters' found in $string $condition.= " AND P.subjects LIKE '%$subject%'"; } else { $condition.= " AND P.subjects REGEXP '[[:<:]]" . $subject . "[[:>:]]' = 1"; } // $condition.= " AND P.subjects REGEXP '[[:<:]]" . $subject . "[[:>:]]' = 1"; // $condition.= " AND P.subjects LIKE '%$subject%'"; // $condition.= " AND P.subjects LIKE '$subject%'"; $authonly = False; } $query.= "$condition"; if($kword) { $compare_str = get_data_from_rhymes_dictionary_based_on_search($kword); $query .= " AND SUBSTRING_INDEX ( `text` , ' ', -1 ) IN (".$compare_str.") GROUP BY poem_id"; } if ($authonly) { $query.= " ORDER BY P.author, P.title"; } else { $query.= " ORDER BY P.title, P.author"; } $result=mysqli_query($con,$query); if($result) $num=mysqli_num_rows($result); # mysql_close(); echo "
Search Results

"; echo "Back to search

"; echo " "; echo "
"; echo "Searching...
"; if ( $author ) echo " Author: $author
"; if ( $title ) echo " Title: $title
"; if ( $subject ) echo "Subject: $subject
"; if ( $kword ) echo "Keyword: $kword
"; /* if ( $msub ) echo "Category: $msub
";*/ if ( $authrec ) echo "Recitations only
"; echo "Matches Found: $num
"; echo "
"; if ( $num == 0 ) { echo "No Results Found.
"; } if ( $num > 0 && $subject ) { putSubject($subject); } if ($authonly) { myAuthSearch( $num, $result ); } else { myAllSearch( $num, $result, $kword ); } echo " 		"; ?>
"; mysql_close(); function myAllSearch( $num, $result, $kword ){ $i=0; while ($i < $num) { $pid=mysqli_result($result,$i,"id"); $txt_query="SELECT T.* FROM text T WHERE T.poem_id = $pid"; // echo "$query
"; $txt_result=mysqli_query($con,$query); $txt_num=mysqli_num_rows($txt_result); // echo "$txt_num
"; // die; $author=mysqli_result($result,$i,"author_fix"); $author_aka=mysqli_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysqli_result($result,$i,"bio_link"); $title=mysqli_result($result,$i,"title"); $first_line=mysqli_result($result,$i,"first_line"); $last_line=mysqli_result($result,$i,"last_line"); $text_link=mysqli_result($result,$i,"text_link"); $recitation_link=mysqli_result($result,$i,"recitation_link"); $rec_by_auth=mysqli_result($result,$i,"rec_by_auth"); $subjects=trim(mysqli_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysqli_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $text=mysqli_result($result,$i,"poem_line"); $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); if (strpos($bio_link, 'wikipedia.org') !== false) { $bio_link = "http://www.poetryexplorer.net/bio.php?id=$bio_link&mvr=$revauth"; } unset($text_src); $text_win="_blank"; if ( $txt_num > 0 ){ if ( $text_link ) { $text_src=$text_link; } $text_link="http://www.poetryexplorer.net/poem.php?id=$pid"; $text_win="_self"; if ( $text_link == $text_src ) { unset($text_src); } } echo " ${title}, by $revauth   " . ( ($text_link) ? "\t\tPoem Text" : ( ($text_src) ? "\t\tPoem Source" : "" ) ) . "    " . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
"; if ( $first_line ) { echo " First Line: $first_line
"; } if ( $last_line ) { echo " Last Line: $last_line
"; } if( $text ) { echo "Rhymed Lines :
$text
"; } if ( $author_aka ) { echo " Alternate Author Name(s): $author_aka
"; } if ( $variants ) { echo " Variant Title(s): $variants
"; } if ( $subjects ) { echo " Subject(s): $subjects
"; } echo "

"; $i++; } } //end of function function myAuthSearch( $num, $result ){ global $hostname, $username, $password, $database; // mysql_connect($hostname,$username,$password); // @mysql_select_db($database) or die( "Unable to select database"); $i=0; $last_author=""; while ($i < $num) { $pid=mysqli_result($result,$i,"id"); $txt_query="SELECT T.* FROM text T WHERE T.poem_id = $pid"; // echo "$query
"; $txt_result=mysqli_query($con,$query); $txt_num=mysqli_num_rows($txt_result); // echo "$txt_num
"; // die; $author_hold=mysqli_result($result,$i,"author"); $author=mysqli_result($result,$i,"author_fix"); $author_aka=mysqli_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysqli_result($result,$i,"bio_link"); $title=mysqli_result($result,$i,"title"); $first_line=mysqli_result($result,$i,"first_line"); $last_line=mysqli_result($result,$i,"last_line"); $text_link=mysqli_result($result,$i,"text_link"); $recitation_link=mysqli_result($result,$i,"recitation_link"); $rec_by_auth=mysqli_result($result,$i,"rec_by_auth"); $subjects=trim(mysqli_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysqli_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); if ($author_hold != $last_author) { // $query="SELECT COUNT(title) as numpoems FROM poem WHERE (text_link IS NOT NULL OR recitation_link IS NOT NULL) AND author = \"$author_hold\""; $query="SELECT COUNT(title) as numpoems FROM poem WHERE (id IS NOT NULL OR recitation_link IS NOT NULL) AND author = \"$author_hold\""; // echo "$query"; $cresult=mysqli_query($con,$query); if (!$cresult) echo mysql_error(); $numpoems_cnt=mysql_fetch_array($cresult); $numpoems=$numpoems_cnt['numpoems']; echo "
$author   " . ( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
" . ( ($author_aka) ? "Alternate Author Name(s): $author_aka
" : "" ) . " $numpoems poems available by this author

"; $last_author = $author_hold; } unset($text_src); $text_win="_blank"; if ( $txt_num > 0 ){ if ( $text_link ) { $text_src=$text_link; } $text_link="../poem.php?id=$pid"; $text_win="_self"; if ( $text_link == $text_src ) { unset($text_src); } } /* echo "$txt_num
Text: $text_link
Src: $text_src
"; */ echo " $title   " . ( ($text_link) ? "\t\tPoem Text" : ( ($text_src) ? "\t\tPoem Source" : "" ) ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "
"; if ( $first_line ) { echo " First Line: $first_line
"; } if ( $last_line ) { echo " Last Line: $last_line
"; } if ( $variants ) { echo " Variant Title(s): $variants
"; } if ( $subjects ) { echo " Subject(s): $subjects
"; } echo "

"; $i++; } } //end of function function search_transform_term($term){ $term = preg_replace("/(\s)/e", "'{WHITESPACE-'.ord('\$1').'}'", $term); $term = preg_replace("/,/", "{COMMA}", $term); return $term; } function search_split_terms($terms){ /* $terms = preg_replace('!\s+!', ' ', $terms);*/ $terms = str_replace(",", "",$terms); $terms = preg_replace("/\"(.*?)\"/e", "search_transform_term('\$1')", $terms); $terms = preg_split("/\s+|,/", $terms); $out = array(); foreach($terms as $term){ $term = preg_replace("/\{WHITESPACE-([0-9]+)\}/e", "chr(\$1)", $term); $term = preg_replace("/\{COMMA\}/", ",", $term); $out[] = $term; } return $out; } function search_escape_rlike($string){ return preg_replace("/([.\[\]*^\$])/", '\\\$1', $string); } function search_db_escape_terms($terms){ $out = array(); foreach($terms as $term){ $out[] = '[[:<:]]'.AddSlashes(search_escape_rlike($term)).'[[:>:]]'; } return $out; } function putSubject( $subject ){ global $hostname, $username, $password, $database; // mysql_connect($hostname,$username,$password); // @mysql_select_db($database) or die( "Unable to select database"); $subject = ucwords(strtolower($subject)); $subject = str_replace('\\"', "", $subject); $query="SELECT COUNT(subject) as numsubs FROM subcnt WHERE subject = '$subject'"; $sresult=mysqli_query($con,$query); if (!$sresult) echo mysql_error(); $numsubs_cnt=mysql_fetch_array($sresult); $numsubs=$numsubs_cnt['numsubs']; if ( $numsubs == 0 ) { $query="INSERT INTO subcnt SET subject = '$subject', count = 1"; } else { $query="UPDATE subcnt SET count = count + 1 WHERE subject = '$subject'"; } $zresult=mysqli_query($con,$query); if (!$zresult) echo mysql_error(); return 0; } ?> rpc.php0000644€tÆ*€tÆ*0000000416113124665000015050 0ustar axprmkhpdyxpaxprmkhpdyxpreal_escape_string($_POST['queryString']); // Is the string length greater than 0? if(strlen($queryString) >0) { // Run the query: We use LIKE '$queryString%' // The percentage sign is a wild-card, in my example of countries it works like this... // $queryString = 'Uni'; // Returned data = 'United States, United Kindom'; // YOU NEED TO ALTER THE QUERY TO MATCH YOUR DATABASE. // eg: SELECT yourColumnName FROM yourTable WHERE yourColumnName LIKE '$queryString%' LIMIT 10 $query = $db->query("SELECT DISTINCT subject FROM subject WHERE subject LIKE '$queryString%' LIMIT 10"); if($query) { // While there are results loop through them - fetching an Object (i like PHP5 btw!). while ($result = $query ->fetch_object()) { // Format the results, im using
  • for the list, you can change it. // The onClick function fills the textbox with the result. // YOU MUST CHANGE: $result->value to $result->your_colum echo '
  • '.$result->subject.'
    • '; } } else { echo 'ERROR: There was a problem with the query.'; } } else { // Dont do anything. } // There is a queryString. } else { echo 'There should be no direct access to this script!'; } } ?> search.dj.php0000644€tÆ*€tÆ*0000004217014604324136016135 0ustar axprmkhpdyxpaxprmkhpdyxp

    Search Classic and Contemporary Poetry

    "; $kword = str_replace('\'', '\\\'', $kword); echo "$kword
    "; //$kword="O\'Hara"; if (isset($_GET['stype'])) { $stype=$_GET['stype']; } else { $stype="B"; } if (isset($_GET['msub'])) { $msub=$_GET['msub']; } else { $msub="ALL"; } /* force ALL in new split query */ $msub="ALL"; if(isset($_GET['authrec']) && $_GET['authrec'] == 'Yes') { $authrec=True; } else { $authrec=False; } if ($msub == "ALL") { $query="SELECT P.*, E.id AS explainerId, A.id AS analysisId, CONCAT(P.author, ' ', P.title, ' ', P.first_line, ' ', P.last_line, ' ', IFNULL(P.variant,'')) AS kword FROM poem P LEFT JOIN explainer E ON E.poemID = P.id LEFT JOIN author_fix AF ON P.author_fix = AF.author_fix LEFT JOIN analysis A ON AF.id = A.authorId WHERE (P.id IS NOT NULL"; } else { //$query="SELECT DISTINCT P.*, CONCAT(P.author, ' ', P.title, ' ', P.first_line, ' ', IFNULL(P.variant,'')) AS kword FROM poem P LEFT JOIN subject S ON S.poem_id = P.id LEFT JOIN mastersub M ON M.subject = S.subject WHERE M.msub = '$msub' AND (P.text_link IS NOT NULL"; $query="SELECT DISTINCT P.*, CONCAT(P.author, ' ', P.title, ' ', P.first_line, ' ', P.last_line, ' ', IFNULL(P.variant,'')) AS kword FROM poem P LEFT JOIN subject S ON S.poem_id = P.id LEFT JOIN mastersub M ON M.subject = S.subject WHERE M.msub = '$msub' AND (P.id IS NOT NULL"; } if ($authrec) { $query.=" AND P.recitation_link IS NOT NULL)"; } else { $query.=" OR P.recitation_link IS NOT NULL)"; } $condition= ""; $authonly = False; if ( $author ) { /* $condition.= " AND P.author LIKE '%$author%'"; */ $authonly = True; $terms = search_split_terms($author); $terms_db = search_db_escape_terms($terms); $parts = array(); foreach($terms_db as $term_db){ $parts[] = "P.author RLIKE '$term_db'"; } $parts = implode(' AND ', $parts); $condition.= "AND ( ($parts)"; $parts = array(); foreach($terms_db as $term_db){ $parts[] = "P.author_aka RLIKE '$term_db'"; } $parts = implode(' AND ', $parts); $condition.= "OR ($parts) )"; /* echo "$condition"; */ } if ( $title ) { $condition.= " AND (P.title LIKE '%$title%' OR IFNULL(P.variant,'') LIKE '%$title%')"; $authonly = False; } if ( $kword ) { $condition.= " AND CONCAT(P.author, ' ', P.title, ' ', P.first_line, ' ', P.last_line, ' ', IFNULL(P.variant,'')) LIKE '%$kword%'"; $authonly = False; } // echo "$condition
    "; if ( $kword && ($stype == "B") ) { $terms = search_split_terms($kword); $terms_db = search_db_escape_terms($terms); $parts = array(); foreach($terms_db as $term_db){ $parts[] = "P.author RLIKE '$term_db'"; } $parts = implode(' AND ', $parts); $condition.= "OR ( ($parts)"; $parts = array(); foreach($terms_db as $term_db){ $parts[] = "P.author_aka RLIKE '$term_db'"; } $parts = implode(' AND ', $parts); $condition.= "OR ($parts) )"; //covers title $condition.= " OR (P.title LIKE '%$kword%' OR IFNULL(P.variant,'') LIKE '%$kword%')"; // echo "$condition
    "; } if ( $subject ) { if (preg_match('/[\'\.^�$%&*()}{@#~?><>,|=_+�-]/', $subject)) { // one or more of the 'special characters' found in $string $condition.= " AND P.subjects LIKE '%$subject%'"; } else { $condition.= " AND P.subjects REGEXP '[[:<:]]" . $subject . "[[:>:]]' = 1"; } // $condition.= " AND P.subjects REGEXP '[[:<:]]" . $subject . "[[:>:]]' = 1"; // $condition.= " AND P.subjects LIKE '%$subject%'"; // $condition.= " AND P.subjects LIKE '$subject%'"; $authonly = False; } $query.= "$condition"; if ($authonly) { $query.= " ORDER BY P.author, P.title"; } else { $query.= " ORDER BY P.title, P.author"; } # echo "$query"; # die; $result=mysqli_query($con, $query); $num=mysqli_num_rows($result); # mysqli_close($con); $back_to_search_url = "./"; if($subject) { $back_to_search_url = "./subject-discovery-2/"; } echo "
    Search Results

    "; echo "Back to search

    "; // echo "
    Search Results

    "; // echo "Back to search

    "; echo " "; echo "
    "; echo "

    Discover our Poem Explanations and Poet Analyses!


    "; // echo "

    Discover our poem explanations - click here!


    "; echo "Searching...
    "; if ( $author ) echo " Author: $author
    "; if ( $title ) echo " Title: $title
    "; if ( $subject ) echo "Subject: $subject
    "; if ( $kword ) echo "Keyword: $kword
    "; /* if ( $msub ) echo "Category: $msub
    ";*/ if ( $authrec ) echo "Recitations only
    "; echo "Matches Found: $num
    "; echo "
    "; if ( $num == 0 ) { echo "No Results Found.
    "; } if ( $num > 0 && $subject ) { putSubject($subject); } if ($authonly) { myAuthSearch( $num, $result ); } else { myAllSearch( $num, $result, $con ); } echo "     		"; ?>
    "; mysqli_close($con); function myAllSearch( $num, $result, $con ){ $i=0; while ($i < $num) { $pid=mysqli_result($result,$i,"id"); $txt_query="SELECT T.* FROM text T WHERE T.poem_id = $pid"; // echo "$query
    "; $txt_result=mysqli_query($con, $txt_query); $txt_num=mysqli_num_rows($txt_result); // echo "$txt_num
    "; // die; $ref_query="SELECT R.* FROM reference R WHERE R.poem_id = $pid"; // echo "$query
    "; $ref_result=mysqli_query($con, $ref_query); $ref_num=mysqli_num_rows($ref_result); // echo "$ref_num
    "; // die; $author=mysqli_result($result,$i,"author_fix"); $author_aka=mysqli_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysqli_result($result,$i,"bio_link"); $poem_id=mysqli_result($result,$i,"id"); $title=mysqli_result($result,$i,"title"); $first_line=mysqli_result($result,$i,"first_line"); $last_line=mysqli_result($result,$i,"last_line"); $text_link=mysqli_result($result,$i,"text_link"); $recitation_link=mysqli_result($result,$i,"recitation_link"); $rec_by_auth=mysqli_result($result,$i,"rec_by_auth"); $subjects=trim(mysqli_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysqli_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); $explainer=mysqli_result($result,$i,"explainerId"); $analysis=mysqli_result($result,$i,"analysisId"); if (strpos($bio_link, 'wikipedia.org') !== false) { $bio_link = "http://www.poetryexplorer.net/bio.php?id=$bio_link&mvr=$revauth"; } unset($expl_link); if (!empty($explainer)) { $expl_link = "http://www.poetryexplorer.net/exp.php?id=$poem_id"; } unset($analysis_link); if (!empty($analysis)) { $analysis_link = "http://www.poetryexplorer.net/analysis.php?id=$poem_id"; } /* if ( $subjects === "" ) { unset($subjects) ; } */ /* original 2012OCT17 $author   " . ( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
    $title   " . ( ($text_link) ? "\t\tPoem Text" : "" ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "
    */ unset($mblext); if(isMobileDevice()){ $mblext="_m"; } else { $mblext=""; } $text_src=$text_link; unset($text_link); $text_win="_blank"; if ( $txt_num > 0 ){ // if ( $text_link ) { // $text_src=$text_link; // } $text_link="../poem$mblext.php?id=$pid"; $text_win="_self"; // if ( isset($text_src) && $text_link == $text_src ) { // unset($text_src); // } } unset($text_ref); $text_rwin="_blank"; if ( $ref_num > 0 ){ $text_ref="../reference$mblext.php?id=$pid"; $text_rwin="_self"; } // echo "$txt_num
    Text: $text_link
    Src: $text_src
    "; // 20151123 ${title}, by $revauth   " . ( ($text_link) ? "\t\tPoem Text" : "" ) . "    " . ( ($text_src) ? "\t\tPoem Source" : "" ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
    // with new page bio ${title}, by $revauth   " . ( ($text_link) ? "\t\tPoem Text" : ( ($text_src) ? "\t\tPoem Source" : "" ) ) . "    " . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
    echo " ${title}, by $revauth   " . ( ($text_link) ? "\t\tPoem Text" : ( ($text_src) ? "\t\tPoem Full Text" : ( ($text_ref) ? "\t\tPoem Source" : "" ) ) ) . "    " .( isset($expl_link) ? "\t\tPoem Explanation" : "" ) . "    " .( isset($analysis_link) ? "\t\tPoet Analysis" : "" ) . "    " . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " . ( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
    "; if ( $first_line ) { echo " First Line: $first_line
    "; } if ( $last_line ) { echo " Last Line: $last_line
    "; } if ( $author_aka ) { echo " Alternate Author Name(s): $author_aka
    "; } if ( $variants ) { echo " Variant Title(s): $variants
    "; } if ( $subjects ) { echo " Subject(s): $subjects
    "; } echo "

    "; $i++; } } //end of function function myAuthSearch( $num, $result ){ global $hostname, $username, $password, $database; $con = @mysqli_connect($hostname,$username,$password,$database); //mysql_connect($hostname,$username,$password); //@mysql_select_db($database) or die( "Unable to select database"); $i=0; $last_author=""; while ($i < $num) { $pid=mysqli_result($result,$i,"id"); $txt_query="SELECT T.* FROM text T WHERE T.poem_id = $pid"; // echo "$query
    "; $txt_result=mysqli_query($con, $txt_query); $txt_num=mysqli_num_rows($txt_result); // echo "$txt_num
    "; // die; $author_hold=mysqli_result($result,$i,"author"); $author=mysqli_result($result,$i,"author_fix"); $author_aka=mysqli_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysqli_result($result,$i,"bio_link"); $title=mysqli_result($result,$i,"title"); $first_line=mysqli_result($result,$i,"first_line"); $last_line=mysqli_result($result,$i,"last_line"); $text_link=mysqli_result($result,$i,"text_link"); $recitation_link=mysqli_result($result,$i,"recitation_link"); $rec_by_auth=mysqli_result($result,$i,"rec_by_auth"); $subjects=trim(mysqli_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysqli_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); if ($author_hold != $last_author) { // $query="SELECT COUNT(title) as numpoems FROM poem WHERE (text_link IS NOT NULL OR recitation_link IS NOT NULL) AND author = \"$author_hold\""; $query="SELECT COUNT(title) as numpoems FROM poem WHERE (id IS NOT NULL OR recitation_link IS NOT NULL) AND author = \"$author_hold\""; // echo "$query"; $cresult=mysqli_query($con, $query); if (!$cresult) echo mysqli_error(); $numpoems_cnt=mysqli_fetch_array($cresult); $numpoems=$numpoems_cnt['numpoems']; echo "
    $author   " . ( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
    " . ( ($author_aka) ? "Alternate Author Name(s): $author_aka
    " : "" ) . " $numpoems poems available by this author

    "; $last_author = $author_hold; } unset($text_src); $text_win="_blank"; if ( $txt_num > 0 ){ if ( $text_link ) { $text_src=$text_link; } $text_link="../poem.php?id=$pid"; $text_win="_self"; if ( $text_link == $text_src ) { unset($text_src); } } /* echo "$txt_num
    Text: $text_link
    Src: $text_src
    "; */ echo " $title   " . ( ($text_link) ? "\t\tPoem Text" : ( isset($text_src) ? "\t\tPoem Source" : "" ) ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "
    "; if ( $first_line ) { echo " First Line: $first_line
    "; } if ( $last_line ) { echo " Last Line: $last_line
    "; } if ( $variants ) { echo " Variant Title(s): $variants
    "; } if ( $subjects ) { echo " Subject(s): $subjects
    "; } echo "

    "; $i++; } } //end of function function search_transform_term($term){ $term = preg_replace("/(\s)/e", "'{WHITESPACE-'.ord('\$1').'}'", $term); $term = preg_replace("/,/", "{COMMA}", $term); return $term; } function search_split_terms($terms){ /* $terms = preg_replace('!\s+!', ' ', $terms);*/ $terms = str_replace(",", "",$terms); // $terms = preg_replace("/\"(.*?)\"/e", "search_transform_term('\$1')", $terms); $terms = preg_replace_callback("/\"(.*?)\"", "search_transform_term('\$1')", $terms); $terms = preg_split("/\s+|,/", $terms); $out = array(); foreach($terms as $term){ // $term = preg_replace("/\{WHITESPACE-([0-9]+)\}/e", "chr(\$1)", $term); $term = preg_replace_callback("/\{WHITESPACE-([0-9]+)\}", "chr(\$1)", $term); $term = preg_replace("/\{COMMA\}/", ",", $term); $out[] = $term; } return $out; } function search_escape_rlike($string){ return preg_replace("/([.\[\]*^\$])/", '\\\$1', $string); } function search_db_escape_terms($terms){ $out = array(); foreach($terms as $term){ $out[] = '[[:<:]]'.AddSlashes(search_escape_rlike($term)).'[[:>:]]'; } return $out; } function putSubject( $subject ){ global $hostname, $username, $password, $database; $con = @mysqli_connect($hostname,$username,$password,$database); // mysql_connect($hostname,$username,$password); // @mysql_select_db($database) or die( "Unable to select database"); $subject = ucwords(strtolower($subject)); $subject = str_replace('\\"', "", $subject); $query="SELECT COUNT(subject) as numsubs FROM subcnt WHERE subject = '$subject'"; $sresult=mysqli_query($con, $query); if (!$sresult) echo mysqli_error(); $numsubs_cnt=mysqli_fetch_array($sresult); $numsubs=$numsubs_cnt['numsubs']; if ( $numsubs == 0 ) { $query="INSERT INTO subcnt SET subject = '$subject', count = 1"; } else { $query="UPDATE subcnt SET count = count + 1 WHERE subject = '$subject'"; } $zresult=mysqli_query($con, $query); if (!$zresult) echo mysqli_error($con); return 0; } ?> search.php0000644€tÆ*€tÆ*0000004303514673336714015555 0ustar axprmkhpdyxpaxprmkhpdyxp

    Search Classic and Contemporary Poetry

    "; if ( $kword && ($stype == "B") ) { $terms = search_split_terms($kword); $terms_db = search_db_escape_terms($terms); $parts = array(); foreach($terms_db as $term_db){ $parts[] = "P.author RLIKE '$term_db'"; } $parts = implode(' AND ', $parts); $condition.= "OR ( ($parts)"; $parts = array(); foreach($terms_db as $term_db){ $parts[] = "P.author_aka RLIKE '$term_db'"; } $parts = implode(' AND ', $parts); $condition.= "OR ($parts) )"; //covers title $condition.= " OR (P.title LIKE '%$kword%' OR IFNULL(P.variant,'') LIKE '%$kword%')"; // echo "$condition
    "; } if ( $subject ) { if (preg_match('/[\'\.^�$%&*()}{@#~?><>,|=_+�-]/', $subject)) { // one or more of the 'special characters' found in $string $condition.= " AND P.subjects LIKE '%$subject%'"; } else { $condition.= " AND P.subjects REGEXP '[[:<:]]" . $subject . "[[:>:]]' = 1"; } // $condition.= " AND P.subjects REGEXP '[[:<:]]" . $subject . "[[:>:]]' = 1"; // $condition.= " AND P.subjects LIKE '%$subject%'"; // $condition.= " AND P.subjects LIKE '$subject%'"; $authonly = False; } $query.= "$condition"; if ($authonly) { $query.= " ORDER BY P.author, P.title"; } else { $query.= " ORDER BY P.title, P.author"; } # echo "$query"; # die; $result=mysqli_query($con, $query); $num=mysqli_num_rows($result); # mysqli_close($con); $back_to_search_url = "./"; if($subject) { $back_to_search_url = "./subject-discovery-2/"; } echo "
    Search Results

    "; echo "Back to search

    "; // echo "
    Search Results

    "; // echo "Back to search

    "; echo " "; echo "
    "; echo "

    Discover our Poem Explanations and Poet Analyses!


    "; // echo "

    Discover our poem explanations - click here!


    "; echo "Searching...
    "; $authorShow = str_replace('\\\'', '\'', $author); $titleShow = str_replace('\\\'', '\'', $title); $kwordShow = str_replace('\\\'', '\'', $kword); $subjectShow = str_replace('\\\'', '\'', $subject); if ( $author ) echo " Author: $authorShow
    "; if ( $title ) echo " Title: $titleShow
    "; if ( $subject ) echo "Subject: $subjectShow
    "; if ( $kword ) echo "Keyword: $kwordShow
    "; /* if ( $msub ) echo "Category: $msub
    ";*/ if ( $authrec ) echo "Recitations only
    "; echo "Matches Found: $num
    "; echo "
    "; if ( $num == 0 ) { echo "No Results Found.
    "; } if ( $num > 0 && $subject ) { putSubject($subject); } if ($authonly) { myAuthSearch( $num, $result ); } else { myAllSearch( $num, $result, $con ); } echo "     		"; ?>
    "; mysqli_close($con); function myAllSearch( $num, $result, $con ){ $i=0; while ($i < $num) { $pid=mysqli_result($result,$i,"id"); $txt_query="SELECT T.* FROM text T WHERE T.poem_id = $pid"; // echo "$query
    "; $txt_result=mysqli_query($con, $txt_query); $txt_num=mysqli_num_rows($txt_result); // echo "$txt_num
    "; // die; $ref_query="SELECT R.* FROM reference R WHERE R.poem_id = $pid"; // echo "$query
    "; $ref_result=mysqli_query($con, $ref_query); $ref_num=mysqli_num_rows($ref_result); // echo "$ref_num
    "; // die; $author=mysqli_result($result,$i,"author_fix"); $author_aka=mysqli_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysqli_result($result,$i,"bio_link"); $poem_id=mysqli_result($result,$i,"id"); $title=mysqli_result($result,$i,"title"); $first_line=mysqli_result($result,$i,"first_line"); $last_line=mysqli_result($result,$i,"last_line"); $text_link=mysqli_result($result,$i,"text_link"); $recitation_link=mysqli_result($result,$i,"recitation_link"); $rec_by_auth=mysqli_result($result,$i,"rec_by_auth"); $subjects=trim(mysqli_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysqli_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); $explainer=mysqli_result($result,$i,"explainerId"); $analysis=mysqli_result($result,$i,"analysisId"); if (strpos($bio_link, 'wikipedia.org') !== false) { $bio_link = "http://www.poetryexplorer.net/bio.php?id=$bio_link&mvr=$revauth"; } unset($expl_link); if (!empty($explainer)) { $expl_link = "http://www.poetryexplorer.net/exp.php?id=$poem_id"; } unset($analysis_link); if (!empty($analysis)) { $analysis_link = "http://www.poetryexplorer.net/analysis.php?id=$poem_id"; } /* if ( $subjects === "" ) { unset($subjects) ; } */ /* original 2012OCT17 $author   " . ( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
    $title   " . ( ($text_link) ? "\t\tPoem Text" : "" ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "
    */ unset($mblext); if(isMobileDevice()){ $mblext="_m"; } else { $mblext=""; } $text_src=$text_link; unset($text_link); $text_win="_blank"; if ( $txt_num > 0 ){ // if ( $text_link ) { // $text_src=$text_link; // } $text_link="../poem$mblext.php?id=$pid"; $text_win="_self"; // if ( isset($text_src) && $text_link == $text_src ) { // unset($text_src); // } } unset($text_ref); $text_rwin="_blank"; if ( $ref_num > 0 ){ $text_ref="../reference$mblext.php?id=$pid"; $text_rwin="_self"; } if (!isset($text_link )) $text_link = null; echo " ${title}, by $revauth   " . ( isset($text_link) ? "\t\tPoem Text" : ( ($text_src) ? "\t\tPoem Full Text" : ( isset($text_ref) ? "\t\tPoem Source" : "" ) ) ) . "    " .( isset($expl_link) ? "\t\tPoem Explanation" : "" ) . "    " .( isset($analysis_link) ? "\t\tPoet Analysis" : "" ) . "    " . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " . ( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
    "; if ( $first_line ) { echo " First Line: $first_line
    "; } if ( $last_line ) { echo " Last Line: $last_line
    "; } if ( $author_aka ) { echo " Alternate Author Name(s): $author_aka
    "; } if ( $variants ) { echo " Variant Title(s): $variants
    "; } if ( $subjects ) { echo " Subject(s): $subjects
    "; } echo "

    "; $i++; } } //end of function function myAuthSearch( $num, $result ){ global $hostname, $username, $password, $database; $con = @mysqli_connect($hostname,$username,$password,$database); //mysql_connect($hostname,$username,$password); //@mysql_select_db($database) or die( "Unable to select database"); $i=0; $last_author=""; while ($i < $num) { $pid=mysqli_result($result,$i,"id"); $txt_query="SELECT T.* FROM text T WHERE T.poem_id = $pid"; // echo "$query
    "; $txt_result=mysqli_query($con, $txt_query); $txt_num=mysqli_num_rows($txt_result); // echo "$txt_num
    "; // die; $author_hold=mysqli_result($result,$i,"author"); $author=mysqli_result($result,$i,"author_fix"); $author_aka=mysqli_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysqli_result($result,$i,"bio_link"); $title=mysqli_result($result,$i,"title"); $first_line=mysqli_result($result,$i,"first_line"); $last_line=mysqli_result($result,$i,"last_line"); $text_link=mysqli_result($result,$i,"text_link"); $recitation_link=mysqli_result($result,$i,"recitation_link"); $rec_by_auth=mysqli_result($result,$i,"rec_by_auth"); $subjects=trim(mysqli_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysqli_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = empty($revauth) ? "" : case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); if ($author_hold != $last_author) { // $query="SELECT COUNT(title) as numpoems FROM poem WHERE (text_link IS NOT NULL OR recitation_link IS NOT NULL) AND author = \"$author_hold\""; $query="SELECT COUNT(title) as numpoems FROM poem WHERE (id IS NOT NULL OR recitation_link IS NOT NULL) AND author = \"$author_hold\""; // echo "$query"; $cresult=mysqli_query($con, $query); if (!$cresult) echo mysqli_error(); $numpoems_cnt=mysqli_fetch_array($cresult); $numpoems=$numpoems_cnt['numpoems']; echo "
    $author   " . ( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
    " . ( ($author_aka) ? "Alternate Author Name(s): $author_aka
    " : "" ) . " $numpoems poems available by this author

    "; $last_author = $author_hold; } //unset($text_src); $text_src = null; $text_win="_blank"; if ( $txt_num > 0 ){ if ( $text_link ) { $text_src=$text_link; } $text_link="../poem.php?id=$pid"; $text_win="_self"; if ( $text_link == $text_src ) { unset($text_src); } } /* echo "$txt_num
    Text: $text_link
    Src: $text_src
    "; */ echo " $title   " . ( ($text_link) ? "\t\tPoem Text" : ( isset($text_src) ? "\t\tPoem Source" : "" ) ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "
    "; if ( $first_line ) { echo " First Line: $first_line
    "; } if ( $last_line ) { echo " Last Line: $last_line
    "; } if ( $variants ) { echo " Variant Title(s): $variants
    "; } if ( $subjects ) { echo " Subject(s): $subjects
    "; } echo "

    "; $i++; } } //end of function function search_transform_term($term){ $term = preg_replace("/(\s)/e", "'{WHITESPACE-'.ord('\$1').'}'", $term); $term = preg_replace("/,/", "{COMMA}", $term); return $term; } function search_split_terms($terms){ /* $terms = preg_replace('!\s+!', ' ', $terms);*/ $terms = str_replace(",", "",$terms); // $terms = preg_replace("/\"(.*?)\"/e", "search_transform_term('\$1')", $terms); // $terms = preg_replace_callback("/\"(.*?)\"", "search_transform_term('\$1')", $terms); $terms = preg_replace_callback("~/\"(.*?)\"~", "search_transform_term", $terms); $terms = preg_split("/\s+|,/", $terms); $out = array(); foreach($terms as $term){ // $term = preg_replace("/\{WHITESPACE-([0-9]+)\}/e", "chr(\$1)", $term); // $term = preg_replace_callback("/\{WHITESPACE-([0-9]+)\}", "chr(\$1)", $term); $term = preg_replace_callback("~/\{WHITESPACE-([0-9]+)\}~", "chr", $term); $term = preg_replace("/\{COMMA\}/", ",", $term); $out[] = $term; } return $out; } function search_escape_rlike($string){ return preg_replace("/([.\[\]*^\$])/", '\\\$1', $string); } function search_db_escape_terms($terms){ $out = array(); foreach($terms as $term){ $out[] = '[[:<:]]'.AddSlashes(search_escape_rlike($term)).'[[:>:]]'; } return $out; } function putSubject( $subject ){ global $hostname, $username, $password, $database; $con = @mysqli_connect($hostname,$username,$password,$database); // mysql_connect($hostname,$username,$password); // @mysql_select_db($database) or die( "Unable to select database"); $subject = ucwords(strtolower($subject)); $subject = str_replace('\\"', "", $subject); $query="SELECT COUNT(subject) as numsubs FROM subcnt WHERE subject = '$subject'"; $sresult=mysqli_query($con, $query); if (!$sresult) echo mysqli_error(); $numsubs_cnt=mysqli_fetch_array($sresult); $numsubs=$numsubs_cnt['numsubs']; if ( $numsubs == 0 ) { $query="INSERT INTO subcnt SET subject = '$subject', count = 1"; } else { $query="UPDATE subcnt SET count = count + 1 WHERE subject = '$subject'"; } $zresult=mysqli_query($con, $query); if (!$zresult) echo mysqli_error($con); return 0; } // echo "$txt_num
    Text: $text_link
    Src: $text_src
    "; // 20151123 ${title}, by $revauth   " . ( ($text_link) ? "\t\tPoem Text" : "" ) . "    " . ( ($text_src) ? "\t\tPoem Source" : "" ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
    // with new page bio ${title}, by $revauth   " . ( ($text_link) ? "\t\tPoem Text" : ( ($text_src) ? "\t\tPoem Source" : "" ) ) . "    " . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
    ?> searchX.php0000644€tÆ*€tÆ*0000003351113124665100015663 0ustar axprmkhpdyxpaxprmkhpdyxp

    Search Classic and Contemporary Poetry

    "; if ( $kword && ($stype == "B") ) { $terms = search_split_terms($kword); $terms_db = search_db_escape_terms($terms); $parts = array(); foreach($terms_db as $term_db){ $parts[] = "P.author RLIKE '$term_db'"; } $parts = implode(' AND ', $parts); $condition.= "OR ( ($parts)"; $parts = array(); foreach($terms_db as $term_db){ $parts[] = "P.author_aka RLIKE '$term_db'"; } $parts = implode(' AND ', $parts); $condition.= "OR ($parts) )"; //covers title $condition.= " OR (P.title LIKE '%$kword%' OR IFNULL(P.variant,'') LIKE '%$kword%')"; // echo "$condition
    "; } if ( $subject ) { if (preg_match('/[\'^£$%&*()}{@#~?><>,|=_+¬-]/', $subject)) { // one or more of the 'special characters' found in $string $condition.= " AND P.subjects LIKE '%$subject%'"; } else { $condition.= " AND P.subjects REGEXP '[[:<:]]" . $subject . "[[:>:]]' = 1"; } // $condition.= " AND P.subjects REGEXP '[[:<:]]" . $subject . "[[:>:]]' = 1"; // $condition.= " AND P.subjects LIKE '%$subject%'"; // $condition.= " AND P.subjects LIKE '$subject%'"; $authonly = False; } $query.= "$condition"; if ($authonly) { $query.= " ORDER BY P.author, P.title"; } else { $query.= " ORDER BY P.title, P.author"; } # echo "$query"; die; $result=mysql_query($query); $num=mysql_numrows($result); # mysql_close(); echo "
    Search Results

    "; echo "Back to search

    "; echo "Searching...
    "; if ( $author ) echo " Author: $author
    "; if ( $title ) echo " Title: $title
    "; if ( $subject ) echo "Subject: $subject
    "; if ( $kword ) echo "Keyword: $kword
    "; /* if ( $msub ) echo "Category: $msub
    ";*/ if ( $authrec ) echo "Recitations only
    "; echo "Matches Found: $num
    "; echo "
    "; if ( $num == 0 ) { echo "No Results Found.
    "; } if ( $num > 0 && $subject ) { putSubject($subject); } if ($authonly) { myAuthSearch( $num, $result ); } else { myAllSearch( $num, $result ); } mysql_close(); function myAllSearch( $num, $result ){ $i=0; while ($i < $num) { $pid=mysql_result($result,$i,"id"); $txt_query="SELECT T.* FROM text T WHERE T.poem_id = $pid"; // echo "$query
    "; $txt_result=mysql_query($txt_query); $txt_num=mysql_numrows($txt_result); // echo "$txt_num
    "; // die; $author=mysql_result($result,$i,"author_fix"); $author_aka=mysql_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysql_result($result,$i,"bio_link"); $title=mysql_result($result,$i,"title"); $first_line=mysql_result($result,$i,"first_line"); $last_line=mysql_result($result,$i,"last_line"); $text_link=mysql_result($result,$i,"text_link"); $recitation_link=mysql_result($result,$i,"recitation_link"); $rec_by_auth=mysql_result($result,$i,"rec_by_auth"); $subjects=trim(mysql_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysql_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); /* if ( $subjects === "" ) { unset($subjects) ; } */ /* original 2012OCT17 $author   " . ( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
    $title   " . ( ($text_link) ? "\t\tPoem Text" : "" ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "
    */ unset($text_src); $text_win="_blank"; if ( $txt_num > 0 ){ if ( $text_link ) { $text_src=$text_link; } $text_link="../poem.php?id=$pid"; $text_win="_self"; if ( $text_link == $text_src ) { unset($text_src); } } /* echo "$txt_num
    Text: $text_link
    Src: $text_src
    "; */ echo " ${title}, by $revauth   " . ( ($text_link) ? "\t\tPoem Text" : "" ) . "    " . ( ($text_src) ? "\t\tPoem Source" : "" ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
    "; if ( $first_line ) { echo " First Line: $first_line
    "; } if ( $last_line ) { echo " Last Line: $last_line
    "; } if ( $author_aka ) { echo " Alternate Author Name(s): $author_aka
    "; } if ( $variants ) { echo " Variant Title(s): $variants
    "; } if ( $subjects ) { echo " Subject(s): $subjects
    "; } echo "

    "; $i++; } } //end of function function myAuthSearch( $num, $result ){ global $hostname, $username, $password, $database; mysql_connect($hostname,$username,$password); @mysql_select_db($database) or die( "Unable to select database"); $i=0; $last_author=""; while ($i < $num) { $pid=mysql_result($result,$i,"id"); $txt_query="SELECT T.* FROM text T WHERE T.poem_id = $pid"; // echo "$query
    "; $txt_result=mysql_query($txt_query); $txt_num=mysql_numrows($txt_result); // echo "$txt_num
    "; // die; $author_hold=mysql_result($result,$i,"author"); $author=mysql_result($result,$i,"author_fix"); $author_aka=mysql_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysql_result($result,$i,"bio_link"); $title=mysql_result($result,$i,"title"); $first_line=mysql_result($result,$i,"first_line"); $last_line=mysql_result($result,$i,"last_line"); $text_link=mysql_result($result,$i,"text_link"); $recitation_link=mysql_result($result,$i,"recitation_link"); $rec_by_auth=mysql_result($result,$i,"rec_by_auth"); $subjects=trim(mysql_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysql_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); if ($author_hold != $last_author) { // $query="SELECT COUNT(title) as numpoems FROM poem WHERE (text_link IS NOT NULL OR recitation_link IS NOT NULL) AND author = \"$author_hold\""; $query="SELECT COUNT(title) as numpoems FROM poem WHERE (id IS NOT NULL OR recitation_link IS NOT NULL) AND author = \"$author_hold\""; // echo "$query"; $cresult=mysql_query($query); if (!$cresult) echo mysql_error(); $numpoems_cnt=mysql_fetch_array($cresult); $numpoems=$numpoems_cnt['numpoems']; echo "
    $author   " . ( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
    " . ( ($author_aka) ? "Alternate Author Name(s): $author_aka
    " : "" ) . " $numpoems poems available by this author

    "; $last_author = $author_hold; } unset($text_src); $text_win="_blank"; if ( $txt_num > 0 ){ if ( $text_link ) { $text_src=$text_link; } $text_link="../poem.php?id=$pid"; $text_win="_self"; if ( $text_link == $text_src ) { unset($text_src); } } /* echo "$txt_num
    Text: $text_link
    Src: $text_src
    "; */ echo " $title   " . ( ($text_link) ? "\t\tPoem Text" : "" ) . "    " . ( ($text_src) ? "\t\tPoem Source" : "" ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "
    "; if ( $first_line ) { echo " First Line: $first_line
    "; } if ( $last_line ) { echo " Last Line: $last_line
    "; } if ( $variants ) { echo " Variant Title(s): $variants
    "; } if ( $subjects ) { echo " Subject(s): $subjects
    "; } echo "

    "; $i++; } } //end of function function search_transform_term($term){ $term = preg_replace("/(\s)/e", "'{WHITESPACE-'.ord('\$1').'}'", $term); $term = preg_replace("/,/", "{COMMA}", $term); return $term; } function search_split_terms($terms){ /* $terms = preg_replace('!\s+!', ' ', $terms);*/ $terms = str_replace(",", "",$terms); $terms = preg_replace("/\"(.*?)\"/e", "search_transform_term('\$1')", $terms); $terms = preg_split("/\s+|,/", $terms); $out = array(); foreach($terms as $term){ $term = preg_replace("/\{WHITESPACE-([0-9]+)\}/e", "chr(\$1)", $term); $term = preg_replace("/\{COMMA\}/", ",", $term); $out[] = $term; } return $out; } function search_escape_rlike($string){ return preg_replace("/([.\[\]*^\$])/", '\\\$1', $string); } function search_db_escape_terms($terms){ $out = array(); foreach($terms as $term){ $out[] = '[[:<:]]'.AddSlashes(search_escape_rlike($term)).'[[:>:]]'; } return $out; } function putSubject( $subject ){ global $hostname, $username, $password, $database; mysql_connect($hostname,$username,$password); @mysql_select_db($database) or die( "Unable to select database"); $subject = ucwords(strtolower($subject)); $subject = str_replace('\\"', "", $subject); $query="SELECT COUNT(subject) as numsubs FROM subcnt WHERE subject = '$subject'"; $sresult=mysql_query($query); if (!$sresult) echo mysql_error(); $numsubs_cnt=mysql_fetch_array($sresult); $numsubs=$numsubs_cnt['numsubs']; if ( $numsubs == 0 ) { $query="INSERT INTO subcnt SET subject = '$subject', count = 1"; } else { $query="UPDATE subcnt SET count = count + 1 WHERE subject = '$subject'"; } $zresult=mysql_query($query); if (!$zresult) echo mysql_error(); return 0; } ?> search_adv.php0000644€tÆ*€tÆ*0000002052113124665030016364 0ustar axprmkhpdyxpaxprmkhpdyxp
    Search Results

    "; echo "Back to search

    "; echo "Searching...
    "; if ( $msub ) echo "Category: $msub
    "; echo "Matches Found: $num
    "; echo "
    "; if ( $num == 0 ) { echo "No Results Found.
    "; } if ($authonly) { myAuthSearch( $num, $result ); } else { myAllSearch( $num, $result ); } mysql_close(); function myAllSearch( $num, $result ){ $i=0; while ($i < $num) { $pid=mysql_result($result,$i,"id"); $txt_query="SELECT T.* FROM text T WHERE T.poem_id = $pid"; // echo "$query
    "; $txt_result=mysql_query($txt_query); $txt_num=mysql_numrows($txt_result); // echo "$txt_num
    "; // die; $author=mysql_result($result,$i,"author"); $author_aka=mysql_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysql_result($result,$i,"bio_link"); $title=mysql_result($result,$i,"title"); $first_line=mysql_result($result,$i,"first_line"); $last_line=mysql_result($result,$i,"last_line"); $text_link=mysql_result($result,$i,"text_link"); $recitation_link=mysql_result($result,$i,"recitation_link"); $rec_by_auth=mysql_result($result,$i,"rec_by_auth"); $subjects=trim(mysql_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysql_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); /* if ( $subjects === "" ) { unset($subjects) ; } */ /* original 2012OCT17 $author   " . ( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
    $title   " . ( ($text_link) ? "\t\tPoem Text" : "" ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "
    */ unset($text_src); $text_win="_blank"; if ( $txt_num > 0 ){ if ( $text_link ) { $text_src=$text_link; } $text_link="../poem.php?id=$pid"; $text_win="_self"; if ( $text_link == $text_src ) { unset($text_src); } } /* echo "$txt_num
    Text: $text_link
    Src: $text_src
    "; */ echo " ${title}, by $revauth   " . ( ($text_link) ? "\t\tPoem Text" : "" ) . "    " . ( ($text_src) ? "\t\tPoem Source" : "" ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
    "; if ( $first_line ) { echo " First Line: $first_line
    "; } if ( $last_line ) { echo " Last Line: $last_line
    "; } if ( $author_aka ) { echo " Alternate Author Name(s): $author_aka
    "; } if ( $variants ) { echo " Variant Title(s): $variants
    "; } if ( $subjects ) { echo " Subject(s): $subjects
    "; } echo "

    "; $i++; } } //end of function function myAuthSearch( $num, $result ){ global $hostname, $username, $password, $database; mysql_connect($hostname,$username,$password); @mysql_select_db($database) or die( "Unable to select database"); $i=0; $last_author=""; while ($i < $num) { $author=mysql_result($result,$i,"author"); $bio_link=mysql_result($result,$i,"bio_link"); $title=mysql_result($result,$i,"title"); $first_line=mysql_result($result,$i,"first_line"); $last_line=mysql_result($result,$i,"last_line"); $text_link=mysql_result($result,$i,"text_link"); $recitation_link=mysql_result($result,$i,"recitation_link"); $rec_by_auth=mysql_result($result,$i,"rec_by_auth"); $subjects=trim(mysql_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); if ($author != $last_author) { $query="SELECT COUNT(title) as numpoems FROM poem WHERE (text_link IS NOT NULL OR recitation_link IS NOT NULL) AND author = '$author'"; $cresult=mysql_query($query); if (!$cresult) echo mysql_error(); $numpoems_cnt=mysql_fetch_array($cresult); $numpoems=$numpoems_cnt['numpoems']; /* echo "$query"; */ echo "
    $author   " . ( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
    $numpoems poems available by this author

    "; $last_author = $author; } echo " $title   " . ( ($text_link) ? "\t\tPoem Text" : "" ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "
    "; if ( $first_line ) { echo " First Line: $first_line
    "; } if ( $last_line ) { echo " First Line: $last_line
    "; } if ( $subjects ) { echo " Subjects: $subjects
    "; } echo "

    "; $i++; } } //end of function function search_transform_term($term){ $term = preg_replace("/(\s)/e", "'{WHITESPACE-'.ord('\$1').'}'", $term); $term = preg_replace("/,/", "{COMMA}", $term); return $term; } function search_split_terms($terms){ /* $terms = preg_replace('!\s+!', ' ', $terms);*/ $terms = str_replace(",", "",$terms); $terms = preg_replace("/\"(.*?)\"/e", "search_transform_term('\$1')", $terms); $terms = preg_split("/\s+|,/", $terms); $out = array(); foreach($terms as $term){ $term = preg_replace("/\{WHITESPACE-([0-9]+)\}/e", "chr(\$1)", $term); $term = preg_replace("/\{COMMA\}/", ",", $term); $out[] = $term; } return $out; } function search_escape_rlike($string){ return preg_replace("/([.\[\]*^\$])/", '\\\$1', $string); } function search_db_escape_terms($terms){ $out = array(); foreach($terms as $term){ $out[] = '[[:<:]]'.AddSlashes(search_escape_rlike($term)).'[[:>:]]'; } return $out; } ?> search_beta.php0000644€tÆ*€tÆ*0000003537213124665047016547 0ustar axprmkhpdyxpaxprmkhpdyxp

    Search Classic and Contemporary Poetry

    "; if ( $kword && ($stype == "B") ) { $terms = search_split_terms($kword); $terms_db = search_db_escape_terms($terms); $parts = array(); foreach($terms_db as $term_db){ $parts[] = "P.author RLIKE '$term_db'"; } $parts = implode(' AND ', $parts); $condition.= "OR ( ($parts)"; $parts = array(); foreach($terms_db as $term_db){ $parts[] = "P.author_aka RLIKE '$term_db'"; } $parts = implode(' AND ', $parts); $condition.= "OR ($parts) )"; //covers title $condition.= " OR (P.title LIKE '%$kword%' OR IFNULL(P.variant,'') LIKE '%$kword%')"; // echo "$condition
    "; } if ( $subject ) { if (preg_match('/[\'\.^£$%&*()}{@#~?><>,|=_+¬-]/', $subject)) { // one or more of the 'special characters' found in $string $condition.= " AND P.subjects LIKE '%$subject%'"; } else { $condition.= " AND P.subjects REGEXP '[[:<:]]" . $subject . "[[:>:]]' = 1"; } // $condition.= " AND P.subjects REGEXP '[[:<:]]" . $subject . "[[:>:]]' = 1"; // $condition.= " AND P.subjects LIKE '%$subject%'"; // $condition.= " AND P.subjects LIKE '$subject%'"; $authonly = False; } $query.= "$condition"; if ($authonly) { $query.= " ORDER BY P.author, P.title"; } else { $query.= " ORDER BY P.title, P.author"; } # echo "$query"; # die; $result=mysql_query($query); $num=mysql_numrows($result); # mysql_close(); echo "
    Search Results

    "; echo "Back to search

    "; echo " "; echo "
    "; echo "Searching...
    "; if ( $author ) echo " Author: $author
    "; if ( $title ) echo " Title: $title
    "; if ( $subject ) echo "Subject: $subject
    "; if ( $kword ) echo "Keyword: $kword
    "; /* if ( $msub ) echo "Category: $msub
    ";*/ if ( $authrec ) echo "Recitations only
    "; echo "Matches Found: $num
    "; echo "
    "; if ( $num == 0 ) { echo "No Results Found.
    "; } if ( $num > 0 && $subject ) { putSubject($subject); } if ($authonly) { myAuthSearch( $num, $result ); } else { myAllSearch( $num, $result ); } echo "     		"; ?>
    "; mysql_close(); function myAllSearch( $num, $result ){ $i=0; while ($i < $num) { $pid=mysql_result($result,$i,"id"); $txt_query="SELECT T.* FROM text T WHERE T.poem_id = $pid"; // echo "$query
    "; $txt_result=mysql_query($txt_query); $txt_num=mysql_numrows($txt_result); // echo "$txt_num
    "; // die; $author=mysql_result($result,$i,"author_fix"); $author_aka=mysql_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysql_result($result,$i,"bio_link"); $title=mysql_result($result,$i,"title"); $first_line=mysql_result($result,$i,"first_line"); $last_line=mysql_result($result,$i,"last_line"); $text_link=mysql_result($result,$i,"text_link"); $recitation_link=mysql_result($result,$i,"recitation_link"); $rec_by_auth=mysql_result($result,$i,"rec_by_auth"); $subjects=trim(mysql_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysql_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $revauthARR = explode(", ", $author); $tmp = array_reverse($revauthARR); $revauth = implode(" ", $tmp); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); if (strpos($bio_link, 'wikipedia.org') !== false) { $bio_link = "http://www.poetryexplorer.net/bio.php?id=$bio_link&mvr=$revauth"; } /* if ( $subjects === "" ) { unset($subjects) ; } */ /* original 2012OCT17 $author   " . ( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
    $title   " . ( ($text_link) ? "\t\tPoem Text" : "" ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "
    */ unset($text_src); $text_win="_blank"; if ( $txt_num > 0 ){ if ( $text_link ) { $text_src=$text_link; } $text_link="../poem.php?id=$pid"; $text_win="_self"; if ( $text_link == $text_src ) { unset($text_src); } } /* echo "$txt_num
    Text: $text_link
    Src: $text_src
    "; */ // 20151123 ${title}, by $revauth   " . ( ($text_link) ? "\t\tPoem Text" : "" ) . "    " . ( ($text_src) ? "\t\tPoem Source" : "" ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
    echo " ${title}, by $revauth   " . ( ($text_link) ? "\t\tPoem Text" : ( ($text_src) ? "\t\tPoem Source" : "" ) ) . "    " . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "    " .( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
    "; if ( $first_line ) { echo " First Line: $first_line
    "; } if ( $last_line ) { echo " Last Line: $last_line
    "; } if ( $author_aka ) { echo " Alternate Author Name(s): $author_aka
    "; } if ( $variants ) { echo " Variant Title(s): $variants
    "; } if ( $subjects ) { echo " Subject(s): $subjects
    "; } echo "

    "; $i++; } } //end of function function myAuthSearch( $num, $result ){ global $hostname, $username, $password, $database; mysql_connect($hostname,$username,$password); @mysql_select_db($database) or die( "Unable to select database"); $i=0; $last_author=""; while ($i < $num) { $pid=mysql_result($result,$i,"id"); $txt_query="SELECT T.* FROM text T WHERE T.poem_id = $pid"; // echo "$query
    "; $txt_result=mysql_query($txt_query); $txt_num=mysql_numrows($txt_result); // echo "$txt_num
    "; // die; $author_hold=mysql_result($result,$i,"author"); $author=mysql_result($result,$i,"author_fix"); $author_aka=mysql_result($result,$i,"author_aka"); $author_aka=substr($author_aka, 0, -1); $bio_link=mysql_result($result,$i,"bio_link"); $title=mysql_result($result,$i,"title"); $first_line=mysql_result($result,$i,"first_line"); $last_line=mysql_result($result,$i,"last_line"); $text_link=mysql_result($result,$i,"text_link"); $recitation_link=mysql_result($result,$i,"recitation_link"); $rec_by_auth=mysql_result($result,$i,"rec_by_auth"); $subjects=trim(mysql_result($result,$i,"subjects")); $subjects=substr($subjects, 0, -1); $variants=trim(mysql_result($result,$i,"variant")); $variants=substr($variants, 0, -1); $tmpAKA = explode(";", $author_aka); $author_aka = implode("; ", $tmpAKA); $revauth = case_revauth($revauth); $title = case_title($title); $author = case_author($author); $author_aka = case_authoraka($author_aka); $first_line = case_firstline($first_line); $last_line = case_firstline($last_line); $subjects = case_subject($subjects); $variants = case_variant($variants); if ($author_hold != $last_author) { // $query="SELECT COUNT(title) as numpoems FROM poem WHERE (text_link IS NOT NULL OR recitation_link IS NOT NULL) AND author = \"$author_hold\""; $query="SELECT COUNT(title) as numpoems FROM poem WHERE (id IS NOT NULL OR recitation_link IS NOT NULL) AND author = \"$author_hold\""; // echo "$query"; $cresult=mysql_query($query); if (!$cresult) echo mysql_error(); $numpoems_cnt=mysql_fetch_array($cresult); $numpoems=$numpoems_cnt['numpoems']; echo "
    $author   " . ( ($bio_link) ? "\t\tPoet's Biography" : "" ) . "
    " . ( ($author_aka) ? "Alternate Author Name(s): $author_aka
    " : "" ) . " $numpoems poems available by this author

    "; $last_author = $author_hold; } unset($text_src); $text_win="_blank"; if ( $txt_num > 0 ){ if ( $text_link ) { $text_src=$text_link; } $text_link="../poem.php?id=$pid"; $text_win="_self"; if ( $text_link == $text_src ) { unset($text_src); } } /* echo "$txt_num
    Text: $text_link
    Src: $text_src
    "; */ echo " $title   " . ( ($text_link) ? "\t\tPoem Text" : ( ($text_src) ? "\t\tPoem Source" : "" ) ) . "    " . ( ($recitation_link) ? "\t\t" . ( ( $rec_by_auth ) ? "Recitation by Author" : "Recitation" ) . "" : "" ) . "
    "; if ( $first_line ) { echo " First Line: $first_line
    "; } if ( $last_line ) { echo " Last Line: $last_line
    "; } if ( $variants ) { echo " Variant Title(s): $variants
    "; } if ( $subjects ) { echo " Subject(s): $subjects
    "; } echo "

    "; $i++; } } //end of function function search_transform_term($term){ $term = preg_replace("/(\s)/e", "'{WHITESPACE-'.ord('\$1').'}'", $term); $term = preg_replace("/,/", "{COMMA}", $term); return $term; } function search_split_terms($terms){ /* $terms = preg_replace('!\s+!', ' ', $terms);*/ $terms = str_replace(",", "",$terms); $terms = preg_replace("/\"(.*?)\"/e", "search_transform_term('\$1')", $terms); $terms = preg_split("/\s+|,/", $terms); $out = array(); foreach($terms as $term){ $term = preg_replace("/\{WHITESPACE-([0-9]+)\}/e", "chr(\$1)", $term); $term = preg_replace("/\{COMMA\}/", ",", $term); $out[] = $term; } return $out; } function search_escape_rlike($string){ return preg_replace("/([.\[\]*^\$])/", '\\\$1', $string); } function search_db_escape_terms($terms){ $out = array(); foreach($terms as $term){ $out[] = '[[:<:]]'.AddSlashes(search_escape_rlike($term)).'[[:>:]]'; } return $out; } function putSubject( $subject ){ global $hostname, $username, $password, $database; mysql_connect($hostname,$username,$password); @mysql_select_db($database) or die( "Unable to select database"); $subject = ucwords(strtolower($subject)); $subject = str_replace('\\"', "", $subject); $query="SELECT COUNT(subject) as numsubs FROM subcnt WHERE subject = '$subject'"; $sresult=mysql_query($query); if (!$sresult) echo mysql_error(); $numsubs_cnt=mysql_fetch_array($sresult); $numsubs=$numsubs_cnt['numsubs']; if ( $numsubs == 0 ) { $query="INSERT INTO subcnt SET subject = '$subject', count = 1"; } else { $query="UPDATE subcnt SET count = count + 1 WHERE subject = '$subject'"; } $zresult=mysql_query($query); if (!$zresult) echo mysql_error(); return 0; } ?> searchreplacedb.php0000644€tÆ*€tÆ*0000000000014655236716017401 0ustar axprmkhpdyxpaxprmkhpdyxpsend_comm.php0000644€tÆ*€tÆ*0000000307013124301601016220 0ustar axprmkhpdyxpaxprmkhpdyxp sideer.php0000644€tÆ*€tÆ*0000000101014703551220015527 0ustar axprmkhpdyxpaxprmkhpdyxp
    "; } ?>
    simple_html_dom.php0000644€tÆ*€tÆ*0000015314213154234563017455 0ustar axprmkhpdyxpaxprmkhpdyxpsize is the "real" number of bytes the dom was created from. * but for most purposes, it's a really good estimation. * Paperg - Added the forceTagsClosed to the dom constructor. Forcing tags closed is great for malformed html, but it CAN lead to parsing errors. * Allow the user to tell us how much they trust the html. * Paperg add the text and plaintext to the selectors for the find syntax. plaintext implies text in the innertext of a node. text implies that the tag is a text node. * This allows for us to find tags based on the text they contain. * Create find_ancestor_tag to see if a tag is - at any level - inside of another specific tag. * Paperg: added parse_charset so that we know about the character set of the source document. * NOTE: If the user's system has a routine called get_last_retrieve_url_contents_content_type availalbe, we will assume it's returning the content-type header from the * last transfer or curl_exec, and we will parse that and use it in preference to any other method of charset detection. * * Found infinite loop in the case of broken html in restore_noise. Rewrote to protect from that. * PaperG (John Schlick) Added get_display_size for "IMG" tags. * * Licensed under The MIT License * Redistributions of files must retain the above copyright notice. * * @author S.C. Chen * @author John Schlick * @author Rus Carroll * @version 1.5 ($Rev: 210 $) * @package PlaceLocalInclude * @subpackage simple_html_dom */ /** * All of the Defines for the classes below. * @author S.C. Chen */ define('HDOM_TYPE_ELEMENT', 1); define('HDOM_TYPE_COMMENT', 2); define('HDOM_TYPE_TEXT', 3); define('HDOM_TYPE_ENDTAG', 4); define('HDOM_TYPE_ROOT', 5); define('HDOM_TYPE_UNKNOWN', 6); define('HDOM_QUOTE_DOUBLE', 0); define('HDOM_QUOTE_SINGLE', 1); define('HDOM_QUOTE_NO', 3); define('HDOM_INFO_BEGIN', 0); define('HDOM_INFO_END', 1); define('HDOM_INFO_QUOTE', 2); define('HDOM_INFO_SPACE', 3); define('HDOM_INFO_TEXT', 4); define('HDOM_INFO_INNER', 5); define('HDOM_INFO_OUTER', 6); define('HDOM_INFO_ENDSPACE',7); define('DEFAULT_TARGET_CHARSET', 'UTF-8'); define('DEFAULT_BR_TEXT', "\r\n"); define('DEFAULT_SPAN_TEXT', " "); define('MAX_FILE_SIZE', 600000); // helper functions // ----------------------------------------------------------------------------- // get html dom from file // $maxlen is defined in the code as PHP_STREAM_COPY_ALL which is defined as -1. function file_get_html($url, $use_include_path = false, $context=null, $offset = -1, $maxLen=-1, $lowercase = true, $forceTagsClosed=true, $target_charset = DEFAULT_TARGET_CHARSET, $stripRN=true, $defaultBRText=DEFAULT_BR_TEXT, $defaultSpanText=DEFAULT_SPAN_TEXT) { // We DO force the tags to be terminated. $dom = new simple_html_dom(null, $lowercase, $forceTagsClosed, $target_charset, $stripRN, $defaultBRText, $defaultSpanText); // For sourceforge users: uncomment the next line and comment the retreive_url_contents line 2 lines down if it is not already done. $contents = file_get_contents($url, $use_include_path, $context, $offset); // Paperg - use our own mechanism for getting the contents as we want to control the timeout. //$contents = retrieve_url_contents($url); if (empty($contents) || strlen($contents) > MAX_FILE_SIZE) { return false; } // The second parameter can force the selectors to all be lowercase. $dom->load($contents, $lowercase, $stripRN); return $dom; } // get html dom from string function str_get_html($str, $lowercase=true, $forceTagsClosed=true, $target_charset = DEFAULT_TARGET_CHARSET, $stripRN=true, $defaultBRText=DEFAULT_BR_TEXT, $defaultSpanText=DEFAULT_SPAN_TEXT) { $dom = new simple_html_dom(null, $lowercase, $forceTagsClosed, $target_charset, $stripRN, $defaultBRText, $defaultSpanText); if (empty($str) || strlen($str) > MAX_FILE_SIZE) { $dom->clear(); return false; } $dom->load($str, $lowercase, $stripRN); return $dom; } // dump html dom tree function dump_html_tree($node, $show_attr=true, $deep=0) { $node->dump($node); } /** * simple html dom node * PaperG - added ability for "find" routine to lowercase the value of the selector. * PaperG - added $tag_start to track the start position of the tag in the total byte index * * @package PlaceLocalInclude */ class simple_html_dom_node { public $nodetype = HDOM_TYPE_TEXT; public $tag = 'text'; public $attr = array(); public $children = array(); public $nodes = array(); public $parent = null; // The "info" array - see HDOM_INFO_... for what each element contains. public $_ = array(); public $tag_start = 0; private $dom = null; function __construct($dom) { $this->dom = $dom; $dom->nodes[] = $this; } function __destruct() { $this->clear(); } function __toString() { return $this->outertext(); } // clean up memory due to php5 circular references memory leak... function clear() { $this->dom = null; $this->nodes = null; $this->parent = null; $this->children = null; } // dump node's tree function dump($show_attr=true, $deep=0) { $lead = str_repeat(' ', $deep); echo $lead.$this->tag; if ($show_attr && count($this->attr)>0) { echo '('; foreach ($this->attr as $k=>$v) echo "[$k]=>\"".$this->$k.'", '; echo ')'; } echo "\n"; if ($this->nodes) { foreach ($this->nodes as $c) { $c->dump($show_attr, $deep+1); } } } // Debugging function to dump a single dom node with a bunch of information about it. function dump_node($echo=true) { $string = $this->tag; if (count($this->attr)>0) { $string .= '('; foreach ($this->attr as $k=>$v) { $string .= "[$k]=>\"".$this->$k.'", '; } $string .= ')'; } if (count($this->_)>0) { $string .= ' $_ ('; foreach ($this->_ as $k=>$v) { if (is_array($v)) { $string .= "[$k]=>("; foreach ($v as $k2=>$v2) { $string .= "[$k2]=>\"".$v2.'", '; } $string .= ")"; } else { $string .= "[$k]=>\"".$v.'", '; } } $string .= ")"; } if (isset($this->text)) { $string .= " text: (" . $this->text . ")"; } $string .= " HDOM_INNER_INFO: '"; if (isset($node->_[HDOM_INFO_INNER])) { $string .= $node->_[HDOM_INFO_INNER] . "'"; } else { $string .= ' NULL '; } $string .= " children: " . count($this->children); $string .= " nodes: " . count($this->nodes); $string .= " tag_start: " . $this->tag_start; $string .= "\n"; if ($echo) { echo $string; return; } else { return $string; } } // returns the parent of node // If a node is passed in, it will reset the parent of the current node to that one. function parent($parent=null) { // I am SURE that this doesn't work properly. // It fails to unset the current node from it's current parents nodes or children list first. if ($parent !== null) { $this->parent = $parent; $this->parent->nodes[] = $this; $this->parent->children[] = $this; } return $this->parent; } // verify that node has children function has_child() { return !empty($this->children); } // returns children of node function children($idx=-1) { if ($idx===-1) { return $this->children; } if (isset($this->children[$idx])) { return $this->children[$idx]; } return null; } // returns the first child of node function first_child() { if (count($this->children)>0) { return $this->children[0]; } return null; } // returns the last child of node function last_child() { if (($count=count($this->children))>0) { return $this->children[$count-1]; } return null; } // returns the next sibling of node function next_sibling() { if ($this->parent===null) { return null; } $idx = 0; $count = count($this->parent->children); while ($idx<$count && $this!==$this->parent->children[$idx]) { ++$idx; } if (++$idx>=$count) { return null; } return $this->parent->children[$idx]; } // returns the previous sibling of node function prev_sibling() { if ($this->parent===null) return null; $idx = 0; $count = count($this->parent->children); while ($idx<$count && $this!==$this->parent->children[$idx]) ++$idx; if (--$idx<0) return null; return $this->parent->children[$idx]; } // function to locate a specific ancestor tag in the path to the root. function find_ancestor_tag($tag) { global $debug_object; if (is_object($debug_object)) { $debug_object->debug_log_entry(1); } // Start by including ourselves in the comparison. $returnDom = $this; while (!is_null($returnDom)) { if (is_object($debug_object)) { $debug_object->debug_log(2, "Current tag is: " . $returnDom->tag); } if ($returnDom->tag == $tag) { break; } $returnDom = $returnDom->parent; } return $returnDom; } // get dom node's inner html function innertext() { if (isset($this->_[HDOM_INFO_INNER])) return $this->_[HDOM_INFO_INNER]; if (isset($this->_[HDOM_INFO_TEXT])) return $this->dom->restore_noise($this->_[HDOM_INFO_TEXT]); $ret = ''; foreach ($this->nodes as $n) $ret .= $n->outertext(); return $ret; } // get dom node's outer text (with tag) function outertext() { global $debug_object; if (is_object($debug_object)) { $text = ''; if ($this->tag == 'text') { if (!empty($this->text)) { $text = " with text: " . $this->text; } } $debug_object->debug_log(1, 'Innertext of tag: ' . $this->tag . $text); } if ($this->tag==='root') return $this->innertext(); // trigger callback if ($this->dom && $this->dom->callback!==null) { call_user_func_array($this->dom->callback, array($this)); } if (isset($this->_[HDOM_INFO_OUTER])) return $this->_[HDOM_INFO_OUTER]; if (isset($this->_[HDOM_INFO_TEXT])) return $this->dom->restore_noise($this->_[HDOM_INFO_TEXT]); // render begin tag if ($this->dom && $this->dom->nodes[$this->_[HDOM_INFO_BEGIN]]) { $ret = $this->dom->nodes[$this->_[HDOM_INFO_BEGIN]]->makeup(); } else { $ret = ""; } // render inner text if (isset($this->_[HDOM_INFO_INNER])) { // If it's a br tag... don't return the HDOM_INNER_INFO that we may or may not have added. if ($this->tag != "br") { $ret .= $this->_[HDOM_INFO_INNER]; } } else { if ($this->nodes) { foreach ($this->nodes as $n) { $ret .= $this->convert_text($n->outertext()); } } } // render end tag if (isset($this->_[HDOM_INFO_END]) && $this->_[HDOM_INFO_END]!=0) $ret .= 'tag.'>'; return $ret; } // get dom node's plain text function text() { if (isset($this->_[HDOM_INFO_INNER])) return $this->_[HDOM_INFO_INNER]; switch ($this->nodetype) { case HDOM_TYPE_TEXT: return $this->dom->restore_noise($this->_[HDOM_INFO_TEXT]); case HDOM_TYPE_COMMENT: return ''; case HDOM_TYPE_UNKNOWN: return ''; } if (strcasecmp($this->tag, 'script')===0) return ''; if (strcasecmp($this->tag, 'style')===0) return ''; $ret = ''; // In rare cases, (always node type 1 or HDOM_TYPE_ELEMENT - observed for some span tags, and some p tags) $this->nodes is set to NULL. // NOTE: This indicates that there is a problem where it's set to NULL without a clear happening. // WHY is this happening? if (!is_null($this->nodes)) { foreach ($this->nodes as $n) { $ret .= $this->convert_text($n->text()); } // If this node is a span... add a space at the end of it so multiple spans don't run into each other. This is plaintext after all. if ($this->tag == "span") { $ret .= $this->dom->default_span_text; } } return $ret; } function xmltext() { $ret = $this->innertext(); $ret = str_ireplace('', '', $ret); return $ret; } // build node's text with tag function makeup() { // text, comment, unknown if (isset($this->_[HDOM_INFO_TEXT])) return $this->dom->restore_noise($this->_[HDOM_INFO_TEXT]); $ret = '<'.$this->tag; $i = -1; foreach ($this->attr as $key=>$val) { ++$i; // skip removed attribute if ($val===null || $val===false) continue; $ret .= $this->_[HDOM_INFO_SPACE][$i][0]; //no value attr: nowrap, checked selected... if ($val===true) $ret .= $key; else { switch ($this->_[HDOM_INFO_QUOTE][$i]) { case HDOM_QUOTE_DOUBLE: $quote = '"'; break; case HDOM_QUOTE_SINGLE: $quote = '\''; break; default: $quote = ''; } $ret .= $key.$this->_[HDOM_INFO_SPACE][$i][1].'='.$this->_[HDOM_INFO_SPACE][$i][2].$quote.$val.$quote; } } $ret = $this->dom->restore_noise($ret); return $ret . $this->_[HDOM_INFO_ENDSPACE] . '>'; } // find elements by css selector //PaperG - added ability for find to lowercase the value of the selector. function find($selector, $idx=null, $lowercase=false) { $selectors = $this->parse_selector($selector); if (($count=count($selectors))===0) return array(); $found_keys = array(); // find each selector for ($c=0; $c<$count; ++$c) { // The change on the below line was documented on the sourceforge code tracker id 2788009 // used to be: if (($levle=count($selectors[0]))===0) return array(); if (($levle=count($selectors[$c]))===0) return array(); if (!isset($this->_[HDOM_INFO_BEGIN])) return array(); $head = array($this->_[HDOM_INFO_BEGIN]=>1); // handle descendant selectors, no recursive! for ($l=0; $l<$levle; ++$l) { $ret = array(); foreach ($head as $k=>$v) { $n = ($k===-1) ? $this->dom->root : $this->dom->nodes[$k]; //PaperG - Pass this optional parameter on to the seek function. $n->seek($selectors[$c][$l], $ret, $lowercase); } $head = $ret; } foreach ($head as $k=>$v) { if (!isset($found_keys[$k])) { $found_keys[$k] = 1; } } } // sort keys ksort($found_keys); $found = array(); foreach ($found_keys as $k=>$v) $found[] = $this->dom->nodes[$k]; // return nth-element or array if (is_null($idx)) return $found; else if ($idx<0) $idx = count($found) + $idx; return (isset($found[$idx])) ? $found[$idx] : null; } // seek for given conditions // PaperG - added parameter to allow for case insensitive testing of the value of a selector. protected function seek($selector, &$ret, $lowercase=false) { global $debug_object; if (is_object($debug_object)) { $debug_object->debug_log_entry(1); } list($tag, $key, $val, $exp, $no_key) = $selector; // xpath index if ($tag && $key && is_numeric($key)) { $count = 0; foreach ($this->children as $c) { if ($tag==='*' || $tag===$c->tag) { if (++$count==$key) { $ret[$c->_[HDOM_INFO_BEGIN]] = 1; return; } } } return; } $end = (!empty($this->_[HDOM_INFO_END])) ? $this->_[HDOM_INFO_END] : 0; if ($end==0) { $parent = $this->parent; while (!isset($parent->_[HDOM_INFO_END]) && $parent!==null) { $end -= 1; $parent = $parent->parent; } $end += $parent->_[HDOM_INFO_END]; } for ($i=$this->_[HDOM_INFO_BEGIN]+1; $i<$end; ++$i) { $node = $this->dom->nodes[$i]; $pass = true; if ($tag==='*' && !$key) { if (in_array($node, $this->children, true)) $ret[$i] = 1; continue; } // compare tag if ($tag && $tag!=$node->tag && $tag!=='*') {$pass=false;} // compare key if ($pass && $key) { if ($no_key) { if (isset($node->attr[$key])) $pass=false; } else { if (($key != "plaintext") && !isset($node->attr[$key])) $pass=false; } } // compare value if ($pass && $key && $val && $val!=='*') { // If they have told us that this is a "plaintext" search then we want the plaintext of the node - right? if ($key == "plaintext") { // $node->plaintext actually returns $node->text(); $nodeKeyValue = $node->text(); } else { // this is a normal search, we want the value of that attribute of the tag. $nodeKeyValue = $node->attr[$key]; } if (is_object($debug_object)) {$debug_object->debug_log(2, "testing node: " . $node->tag . " for attribute: " . $key . $exp . $val . " where nodes value is: " . $nodeKeyValue);} //PaperG - If lowercase is set, do a case insensitive test of the value of the selector. if ($lowercase) { $check = $this->match($exp, strtolower($val), strtolower($nodeKeyValue)); } else { $check = $this->match($exp, $val, $nodeKeyValue); } if (is_object($debug_object)) {$debug_object->debug_log(2, "after match: " . ($check ? "true" : "false"));} // handle multiple class if (!$check && strcasecmp($key, 'class')===0) { foreach (explode(' ',$node->attr[$key]) as $k) { // Without this, there were cases where leading, trailing, or double spaces lead to our comparing blanks - bad form. if (!empty($k)) { if ($lowercase) { $check = $this->match($exp, strtolower($val), strtolower($k)); } else { $check = $this->match($exp, $val, $k); } if ($check) break; } } } if (!$check) $pass = false; } if ($pass) $ret[$i] = 1; unset($node); } // It's passed by reference so this is actually what this function returns. if (is_object($debug_object)) {$debug_object->debug_log(1, "EXIT - ret: ", $ret);} } protected function match($exp, $pattern, $value) { global $debug_object; if (is_object($debug_object)) {$debug_object->debug_log_entry(1);} switch ($exp) { case '=': return ($value===$pattern); case '!=': return ($value!==$pattern); case '^=': return preg_match("/^".preg_quote($pattern,'/')."/", $value); case '$=': return preg_match("/".preg_quote($pattern,'/')."$/", $value); case '*=': if ($pattern[0]=='/') { return preg_match($pattern, $value); } return preg_match("/".$pattern."/i", $value); } return false; } protected function parse_selector($selector_string) { global $debug_object; if (is_object($debug_object)) {$debug_object->debug_log_entry(1);} // pattern of CSS selectors, modified from mootools // Paperg: Add the colon to the attrbute, so that it properly finds like google does. // Note: if you try to look at this attribute, yo MUST use getAttribute since $dom->x:y will fail the php syntax check. // Notice the \[ starting the attbute? and the @? following? This implies that an attribute can begin with an @ sign that is not captured. // This implies that an html attribute specifier may start with an @ sign that is NOT captured by the expression. // farther study is required to determine of this should be documented or removed. // $pattern = "/([\w-:\*]*)(?:\#([\w-]+)|\.([\w-]+))?(?:\[@?(!?[\w-]+)(?:([!*^$]?=)[\"']?(.*?)[\"']?)?\])?([\/, ]+)/is"; $pattern = "/([\w-:\*]*)(?:\#([\w-]+)|\.([\w-]+))?(?:\[@?(!?[\w-:]+)(?:([!*^$]?=)[\"']?(.*?)[\"']?)?\])?([\/, ]+)/is"; preg_match_all($pattern, trim($selector_string).' ', $matches, PREG_SET_ORDER); if (is_object($debug_object)) {$debug_object->debug_log(2, "Matches Array: ", $matches);} $selectors = array(); $result = array(); //print_r($matches); foreach ($matches as $m) { $m[0] = trim($m[0]); if ($m[0]==='' || $m[0]==='/' || $m[0]==='//') continue; // for browser generated xpath if ($m[1]==='tbody') continue; list($tag, $key, $val, $exp, $no_key) = array($m[1], null, null, '=', false); if (!empty($m[2])) {$key='id'; $val=$m[2];} if (!empty($m[3])) {$key='class'; $val=$m[3];} if (!empty($m[4])) {$key=$m[4];} if (!empty($m[5])) {$exp=$m[5];} if (!empty($m[6])) {$val=$m[6];} // convert to lowercase if ($this->dom->lowercase) {$tag=strtolower($tag); $key=strtolower($key);} //elements that do NOT have the specified attribute if (isset($key[0]) && $key[0]==='!') {$key=substr($key, 1); $no_key=true;} $result[] = array($tag, $key, $val, $exp, $no_key); if (trim($m[7])===',') { $selectors[] = $result; $result = array(); } } if (count($result)>0) $selectors[] = $result; return $selectors; } function __get($name) { if (isset($this->attr[$name])) { return $this->convert_text($this->attr[$name]); } switch ($name) { case 'outertext': return $this->outertext(); case 'innertext': return $this->innertext(); case 'plaintext': return $this->text(); case 'xmltext': return $this->xmltext(); default: return array_key_exists($name, $this->attr); } } function __set($name, $value) { global $debug_object; if (is_object($debug_object)) {$debug_object->debug_log_entry(1);} switch ($name) { case 'outertext': return $this->_[HDOM_INFO_OUTER] = $value; case 'innertext': if (isset($this->_[HDOM_INFO_TEXT])) return $this->_[HDOM_INFO_TEXT] = $value; return $this->_[HDOM_INFO_INNER] = $value; } if (!isset($this->attr[$name])) { $this->_[HDOM_INFO_SPACE][] = array(' ', '', ''); $this->_[HDOM_INFO_QUOTE][] = HDOM_QUOTE_DOUBLE; } $this->attr[$name] = $value; } function __isset($name) { switch ($name) { case 'outertext': return true; case 'innertext': return true; case 'plaintext': return true; } //no value attr: nowrap, checked selected... return (array_key_exists($name, $this->attr)) ? true : isset($this->attr[$name]); } function __unset($name) { if (isset($this->attr[$name])) unset($this->attr[$name]); } // PaperG - Function to convert the text from one character set to another if the two sets are not the same. function convert_text($text) { global $debug_object; if (is_object($debug_object)) {$debug_object->debug_log_entry(1);} $converted_text = $text; $sourceCharset = ""; $targetCharset = ""; if ($this->dom) { $sourceCharset = strtoupper($this->dom->_charset); $targetCharset = strtoupper($this->dom->_target_charset); } if (is_object($debug_object)) {$debug_object->debug_log(3, "source charset: " . $sourceCharset . " target charaset: " . $targetCharset);} if (!empty($sourceCharset) && !empty($targetCharset) && (strcasecmp($sourceCharset, $targetCharset) != 0)) { // Check if the reported encoding could have been incorrect and the text is actually already UTF-8 if ((strcasecmp($targetCharset, 'UTF-8') == 0) && ($this->is_utf8($text))) { $converted_text = $text; } else { $converted_text = iconv($sourceCharset, $targetCharset, $text); } } // Lets make sure that we don't have that silly BOM issue with any of the utf-8 text we output. if ($targetCharset == 'UTF-8') { if (substr($converted_text, 0, 3) == "\xef\xbb\xbf") { $converted_text = substr($converted_text, 3); } if (substr($converted_text, -3) == "\xef\xbb\xbf") { $converted_text = substr($converted_text, 0, -3); } } return $converted_text; } /** * Returns true if $string is valid UTF-8 and false otherwise. * * @param mixed $str String to be tested * @return boolean */ static function is_utf8($str) { $c=0; $b=0; $bits=0; $len=strlen($str); for($i=0; $i<$len; $i++) { $c=ord($str[$i]); if($c > 128) { if(($c >= 254)) return false; elseif($c >= 252) $bits=6; elseif($c >= 248) $bits=5; elseif($c >= 240) $bits=4; elseif($c >= 224) $bits=3; elseif($c >= 192) $bits=2; else return false; if(($i+$bits) > $len) return false; while($bits > 1) { $i++; $b=ord($str[$i]); if($b < 128 || $b > 191) return false; $bits--; } } } return true; } /* function is_utf8($string) { //this is buggy return (utf8_encode(utf8_decode($string)) == $string); } */ /** * Function to try a few tricks to determine the displayed size of an img on the page. * NOTE: This will ONLY work on an IMG tag. Returns FALSE on all other tag types. * * @author John Schlick * @version April 19 2012 * @return array an array containing the 'height' and 'width' of the image on the page or -1 if we can't figure it out. */ function get_display_size() { global $debug_object; $width = -1; $height = -1; if ($this->tag !== 'img') { return false; } // See if there is aheight or width attribute in the tag itself. if (isset($this->attr['width'])) { $width = $this->attr['width']; } if (isset($this->attr['height'])) { $height = $this->attr['height']; } // Now look for an inline style. if (isset($this->attr['style'])) { // Thanks to user gnarf from stackoverflow for this regular expression. $attributes = array(); preg_match_all("/([\w-]+)\s*:\s*([^;]+)\s*;?/", $this->attr['style'], $matches, PREG_SET_ORDER); foreach ($matches as $match) { $attributes[$match[1]] = $match[2]; } // If there is a width in the style attributes: if (isset($attributes['width']) && $width == -1) { // check that the last two characters are px (pixels) if (strtolower(substr($attributes['width'], -2)) == 'px') { $proposed_width = substr($attributes['width'], 0, -2); // Now make sure that it's an integer and not something stupid. if (filter_var($proposed_width, FILTER_VALIDATE_INT)) { $width = $proposed_width; } } } // If there is a width in the style attributes: if (isset($attributes['height']) && $height == -1) { // check that the last two characters are px (pixels) if (strtolower(substr($attributes['height'], -2)) == 'px') { $proposed_height = substr($attributes['height'], 0, -2); // Now make sure that it's an integer and not something stupid. if (filter_var($proposed_height, FILTER_VALIDATE_INT)) { $height = $proposed_height; } } } } // Future enhancement: // Look in the tag to see if there is a class or id specified that has a height or width attribute to it. // Far future enhancement // Look at all the parent tags of this image to see if they specify a class or id that has an img selector that specifies a height or width // Note that in this case, the class or id will have the img subselector for it to apply to the image. // ridiculously far future development // If the class or id is specified in a SEPARATE css file thats not on the page, go get it and do what we were just doing for the ones on the page. $result = array('height' => $height, 'width' => $width); return $result; } // camel naming conventions function getAllAttributes() {return $this->attr;} function getAttribute($name) {return $this->__get($name);} function setAttribute($name, $value) {$this->__set($name, $value);} function hasAttribute($name) {return $this->__isset($name);} function removeAttribute($name) {$this->__set($name, null);} function getElementById($id) {return $this->find("#$id", 0);} function getElementsById($id, $idx=null) {return $this->find("#$id", $idx);} function getElementByTagName($name) {return $this->find($name, 0);} function getElementsByTagName($name, $idx=null) {return $this->find($name, $idx);} function parentNode() {return $this->parent();} function childNodes($idx=-1) {return $this->children($idx);} function firstChild() {return $this->first_child();} function lastChild() {return $this->last_child();} function nextSibling() {return $this->next_sibling();} function previousSibling() {return $this->prev_sibling();} function hasChildNodes() {return $this->has_child();} function nodeName() {return $this->tag;} function appendChild($node) {$node->parent($this); return $node;} } /** * simple html dom parser * Paperg - in the find routine: allow us to specify that we want case insensitive testing of the value of the selector. * Paperg - change $size from protected to public so we can easily access it * Paperg - added ForceTagsClosed in the constructor which tells us whether we trust the html or not. Default is to NOT trust it. * * @package PlaceLocalInclude */ class simple_html_dom { public $root = null; public $nodes = array(); public $callback = null; public $lowercase = false; // Used to keep track of how large the text was when we started. public $original_size; public $size; protected $pos; protected $doc; protected $char; protected $cursor; protected $parent; protected $noise = array(); protected $token_blank = " \t\r\n"; protected $token_equal = ' =/>'; protected $token_slash = " />\r\n\t"; protected $token_attr = ' >'; // Note that this is referenced by a child node, and so it needs to be public for that node to see this information. public $_charset = ''; public $_target_charset = ''; protected $default_br_text = ""; public $default_span_text = ""; // use isset instead of in_array, performance boost about 30%... protected $self_closing_tags = array('img'=>1, 'br'=>1, 'input'=>1, 'meta'=>1, 'link'=>1, 'hr'=>1, 'base'=>1, 'embed'=>1, 'spacer'=>1); protected $block_tags = array('root'=>1, 'body'=>1, 'form'=>1, 'div'=>1, 'span'=>1, 'table'=>1); // Known sourceforge issue #2977341 // B tags that are not closed cause us to return everything to the end of the document. protected $optional_closing_tags = array( 'tr'=>array('tr'=>1, 'td'=>1, 'th'=>1), 'th'=>array('th'=>1), 'td'=>array('td'=>1), 'li'=>array('li'=>1), 'dt'=>array('dt'=>1, 'dd'=>1), 'dd'=>array('dd'=>1, 'dt'=>1), 'dl'=>array('dd'=>1, 'dt'=>1), 'p'=>array('p'=>1), 'nobr'=>array('nobr'=>1), 'b'=>array('b'=>1), 'option'=>array('option'=>1), ); function __construct($str=null, $lowercase=true, $forceTagsClosed=true, $target_charset=DEFAULT_TARGET_CHARSET, $stripRN=true, $defaultBRText=DEFAULT_BR_TEXT, $defaultSpanText=DEFAULT_SPAN_TEXT) { if ($str) { if (preg_match("/^http:\/\//i",$str) || is_file($str)) { $this->load_file($str); } else { $this->load($str, $lowercase, $stripRN, $defaultBRText, $defaultSpanText); } } // Forcing tags to be closed implies that we don't trust the html, but it can lead to parsing errors if we SHOULD trust the html. if (!$forceTagsClosed) { $this->optional_closing_array=array(); } $this->_target_charset = $target_charset; } function __destruct() { $this->clear(); } // load html from string function load($str, $lowercase=true, $stripRN=true, $defaultBRText=DEFAULT_BR_TEXT, $defaultSpanText=DEFAULT_SPAN_TEXT) { global $debug_object; // prepare $this->prepare($str, $lowercase, $stripRN, $defaultBRText, $defaultSpanText); // strip out cdata $this->remove_noise("''is", true); // strip out comments $this->remove_noise("''is"); // Per sourceforge http://sourceforge.net/tracker/?func=detail&aid=2949097&group_id=218559&atid=1044037 // Script tags removal now preceeds style tag removal. // strip out

    add( 'error', $error ); unset( $error ); } if ( $wp_error->has_errors() ) { $error_list = array(); $messages = ''; foreach ( $wp_error->get_error_codes() as $code ) { $severity = $wp_error->get_error_data( $code ); foreach ( $wp_error->get_error_messages( $code ) as $error_message ) { if ( 'message' === $severity ) { $messages .= '

    ' . $error_message . '

    '; } else { $error_list[] = $error_message; } } } if ( ! empty( $error_list ) ) { $errors = ''; if ( count( $error_list ) > 1 ) { $errors .= '
      '; foreach ( $error_list as $item ) { $errors .= '
    • ' . $item . '
      • '; } $errors .= '
    '; } else { $errors .= '

    ' . $error_list[0] . '

    '; } /** * Filters the error messages displayed above the login form. * * @since 2.1.0 * * @param string $errors Login error messages. */ $errors = apply_filters( 'login_errors', $errors ); wp_admin_notice( $errors, array( 'type' => 'error', 'id' => 'login_error', 'paragraph_wrap' => false, ) ); } if ( ! empty( $messages ) ) { /** * Filters instructional messages displayed above the login form. * * @since 2.5.0 * * @param string $messages Login messages. */ $messages = apply_filters( 'login_messages', $messages ); wp_admin_notice( $messages, array( 'type' => 'info', 'id' => 'login-message', 'additional_classes' => array( 'message' ), 'paragraph_wrap' => false, ) ); } } } // End of login_header(). /** * Outputs the footer for the login page. * * @since 3.1.0 * * @global bool|string $interim_login Whether interim login modal is being displayed. String 'success' * upon successful login. * * @param string $input_id Which input to auto-focus. */ function login_footer( $input_id = '' ) { global $interim_login; // Don't allow interim logins to navigate away from the page. if ( ! $interim_login ) { ?>

    %s', esc_url( home_url( '/' ) ), sprintf( /* translators: %s: Site title. */ _x( '← Go to %s', 'site' ), get_bloginfo( 'title', 'display' ) ) ); /** * Filters the "Go to site" link displayed in the login page footer. * * @since 5.7.0 * * @param string $link HTML link to the home URL of the current site. */ echo apply_filters( 'login_site_html_link', $html_link ); ?>

    ', '
    ' ); } ?> . ?>
    'language-switcher-locales', 'name' => 'wp_lang', 'selected' => determine_locale(), 'show_available_translations' => false, 'explicit_option_en_us' => true, 'languages' => $languages, ); /** * Filters default arguments for the Languages select input on the login screen. * * The arguments get passed to the wp_dropdown_languages() function. * * @since 5.9.0 * * @param array $args Arguments for the Languages select input on the login screen. */ wp_dropdown_languages( apply_filters( 'login_language_dropdown_args', $args ) ); ?>
    0 ) { update_option( 'admin_email_lifespan', time() + $remind_interval ); } $redirect_to = add_query_arg( 'admin_email_remind_later', 1, $redirect_to ); wp_safe_redirect( $redirect_to ); exit; } if ( ! empty( $_POST['correct-admin-email'] ) ) { if ( ! check_admin_referer( 'confirm_admin_email', 'confirm_admin_email_nonce' ) ) { wp_safe_redirect( wp_login_url() ); exit; } /** * Filters the interval for redirecting the user to the admin email confirmation screen. * * If `0` (zero) is returned, the user will not be redirected. * * @since 5.3.0 * * @param int $interval Interval time (in seconds). Default is 6 months. */ $admin_email_check_interval = (int) apply_filters( 'admin_email_check_interval', 6 * MONTH_IN_SECONDS ); if ( $admin_email_check_interval > 0 ) { update_option( 'admin_email_lifespan', time() + $admin_email_check_interval ); } wp_safe_redirect( $redirect_to ); exit; } login_header( __( 'Confirm your administration email' ), '', $errors ); /** * Fires before the admin email confirm form. * * @since 5.3.0 * * @param WP_Error $errors A `WP_Error` object containing any errors generated by using invalid * credentials. Note that the error object may not contain any errors. */ do_action( 'admin_email_confirm', $errors ); ?>

    administration email for this website is still correct.' ); ?> %s', /* translators: Hidden accessibility text. */ __( '(opens in a new tab)' ) ); printf( '%s%s', esc_url( $admin_email_help_url ), __( 'Why is this important?' ), $accessibility_text ); ?>

    ' . esc_html( $admin_email ) . '' ); ?>

    0 ) : ?>
    'confirm_admin_email', 'remind_me_later' => wp_create_nonce( 'remind_me_later_nonce' ), ), $remind_me_link ); ?>
    HashPassword( wp_unslash( $_POST['post_password'] ) ), $expire, COOKIEPATH, COOKIE_DOMAIN, $secure ); wp_safe_redirect( wp_get_referer() ); exit; case 'logout': check_admin_referer( 'log-out' ); $user = wp_get_current_user(); wp_logout(); if ( ! empty( $_REQUEST['redirect_to'] ) && is_string( $_REQUEST['redirect_to'] ) ) { $redirect_to = $_REQUEST['redirect_to']; $requested_redirect_to = $redirect_to; } else { $redirect_to = add_query_arg( array( 'loggedout' => 'true', 'wp_lang' => get_user_locale( $user ), ), wp_login_url() ); $requested_redirect_to = ''; } /** * Filters the log out redirect URL. * * @since 4.2.0 * * @param string $redirect_to The redirect destination URL. * @param string $requested_redirect_to The requested redirect destination URL passed as a parameter. * @param WP_User $user The WP_User object for the user that's logging out. */ $redirect_to = apply_filters( 'logout_redirect', $redirect_to, $requested_redirect_to, $user ); wp_safe_redirect( $redirect_to ); exit; case 'lostpassword': case 'retrievepassword': if ( $http_post ) { $errors = retrieve_password(); if ( ! is_wp_error( $errors ) ) { $redirect_to = ! empty( $_REQUEST['redirect_to'] ) ? $_REQUEST['redirect_to'] : 'wp-login.php?checkemail=confirm'; wp_safe_redirect( $redirect_to ); exit; } } if ( isset( $_GET['error'] ) ) { if ( 'invalidkey' === $_GET['error'] ) { $errors->add( 'invalidkey', __( 'Error: Your password reset link appears to be invalid. Please request a new link below.' ) ); } elseif ( 'expiredkey' === $_GET['error'] ) { $errors->add( 'expiredkey', __( 'Error: Your password reset link has expired. Please request a new link below.' ) ); } } $lostpassword_redirect = ! empty( $_REQUEST['redirect_to'] ) ? $_REQUEST['redirect_to'] : ''; /** * Filters the URL redirected to after submitting the lostpassword/retrievepassword form. * * @since 3.0.0 * * @param string $lostpassword_redirect The redirect destination URL. */ $redirect_to = apply_filters( 'lostpassword_redirect', $lostpassword_redirect ); /** * Fires before the lost password form. * * @since 1.5.1 * @since 5.1.0 Added the `$errors` parameter. * * @param WP_Error $errors A `WP_Error` object containing any errors generated by using invalid * credentials. Note that the error object may not contain any errors. */ do_action( 'lost_password', $errors ); login_header( __( 'Lost Password' ), wp_get_admin_notice( __( 'Please enter your username or email address. You will receive an email message with instructions on how to reset your password.' ), array( 'type' => 'info', 'additional_classes' => array( 'message' ), ) ), $errors ); $user_login = ''; if ( isset( $_POST['user_login'] ) && is_string( $_POST['user_login'] ) ) { $user_login = wp_unslash( $_POST['user_login'] ); } ?>

    %s', esc_url( wp_registration_url() ), __( 'Register' ) ); echo esc_html( $login_link_separator ); /** This filter is documented in wp-includes/general-template.php */ echo apply_filters( 'register', $registration_url ); } ?>

    get_error_code() === 'expired_key' ) { wp_redirect( site_url( 'wp-login.php?action=lostpassword&error=expiredkey' ) ); } else { wp_redirect( site_url( 'wp-login.php?action=lostpassword&error=invalidkey' ) ); } exit; } $errors = new WP_Error(); // Check if password is one or all empty spaces. if ( ! empty( $_POST['pass1'] ) ) { $_POST['pass1'] = trim( $_POST['pass1'] ); if ( empty( $_POST['pass1'] ) ) { $errors->add( 'password_reset_empty_space', __( 'The password cannot be a space or all spaces.' ) ); } } // Check if password fields do not match. if ( ! empty( $_POST['pass1'] ) && trim( $_POST['pass2'] ) !== $_POST['pass1'] ) { $errors->add( 'password_reset_mismatch', __( 'Error: The passwords do not match.' ) ); } /** * Fires before the password reset procedure is validated. * * @since 3.5.0 * * @param WP_Error $errors WP Error object. * @param WP_User|WP_Error $user WP_User object if the login and reset key match. WP_Error object otherwise. */ do_action( 'validate_password_reset', $errors, $user ); if ( ( ! $errors->has_errors() ) && isset( $_POST['pass1'] ) && ! empty( $_POST['pass1'] ) ) { reset_password( $user, $_POST['pass1'] ); setcookie( $rp_cookie, ' ', time() - YEAR_IN_SECONDS, $rp_path, COOKIE_DOMAIN, is_ssl(), true ); login_header( __( 'Password Reset' ), wp_get_admin_notice( __( 'Your password has been reset.' ) . ' ' . __( 'Log in' ) . '', array( 'type' => 'info', 'additional_classes' => array( 'message', 'reset-pass' ), ) ) ); login_footer(); exit; } wp_enqueue_script( 'utils' ); wp_enqueue_script( 'user-profile' ); login_header( __( 'Reset Password' ), wp_get_admin_notice( __( 'Enter your new password below or generate one.' ), array( 'type' => 'info', 'additional_classes' => array( 'message', 'reset-pass' ), ) ), $errors ); ?>

    %s', esc_url( wp_registration_url() ), __( 'Register' ) ); echo esc_html( $login_link_separator ); /** This filter is documented in wp-includes/general-template.php */ echo apply_filters( 'register', $registration_url ); } ?>

    'info', 'additional_classes' => array( 'message', 'register' ), ) ), $errors ); ?>

    %s', esc_url( wp_lostpassword_url() ), __( 'Lost your password?' ) ); /** This filter is documented in wp-login.php */ echo apply_filters( 'lost_password_html_link', $html_link ); ?>

    add( 'confirm', sprintf( /* translators: %s: Link to the login page. */ __( 'Check your email for the confirmation link, then visit the login page.' ), wp_login_url() ), 'message' ); } elseif ( 'registered' === $_GET['checkemail'] ) { $errors->add( 'registered', sprintf( /* translators: %s: Link to the login page. */ __( 'Registration complete. Please check your email, then visit the login page.' ), wp_login_url() ), 'message' ); } /** This action is documented in wp-login.php */ $errors = apply_filters( 'wp_login_errors', $errors, $redirect_to ); login_header( __( 'Check your email' ), '', $errors ); login_footer(); break; case 'confirmaction': if ( ! isset( $_GET['request_id'] ) ) { wp_die( __( 'Missing request ID.' ) ); } if ( ! isset( $_GET['confirm_key'] ) ) { wp_die( __( 'Missing confirm key.' ) ); } $request_id = (int) $_GET['request_id']; $key = sanitize_text_field( wp_unslash( $_GET['confirm_key'] ) ); $result = wp_validate_user_request_key( $request_id, $key ); if ( is_wp_error( $result ) ) { wp_die( $result ); } /** * Fires an action hook when the account action has been confirmed by the user. * * Using this you can assume the user has agreed to perform the action by * clicking on the link in the confirmation email. * * After firing this action hook the page will redirect to wp-login a callback * redirects or exits first. * * @since 4.9.6 * * @param int $request_id Request ID. */ do_action( 'user_request_action_confirmed', $request_id ); $message = _wp_privacy_account_request_confirmed_message( $request_id ); login_header( __( 'User action confirmed.' ), $message ); login_footer(); exit; case 'login': default: $secure_cookie = ''; $customize_login = isset( $_REQUEST['customize-login'] ); if ( $customize_login ) { wp_enqueue_script( 'customize-base' ); } // If the user wants SSL but the session is not SSL, force a secure cookie. if ( ! empty( $_POST['log'] ) && ! force_ssl_admin() ) { $user_name = sanitize_user( wp_unslash( $_POST['log'] ) ); $user = get_user_by( 'login', $user_name ); if ( ! $user && strpos( $user_name, '@' ) ) { $user = get_user_by( 'email', $user_name ); } if ( $user ) { if ( get_user_option( 'use_ssl', $user->ID ) ) { $secure_cookie = true; force_ssl_admin( true ); } } } if ( isset( $_REQUEST['redirect_to'] ) && is_string( $_REQUEST['redirect_to'] ) ) { $redirect_to = $_REQUEST['redirect_to']; // Redirect to HTTPS if user wants SSL. if ( $secure_cookie && str_contains( $redirect_to, 'wp-admin' ) ) { $redirect_to = preg_replace( '|^http://|', 'https://', $redirect_to ); } } else { $redirect_to = admin_url(); } $reauth = empty( $_REQUEST['reauth'] ) ? false : true; $user = wp_signon( array(), $secure_cookie ); if ( empty( $_COOKIE[ LOGGED_IN_COOKIE ] ) ) { if ( headers_sent() ) { $user = new WP_Error( 'test_cookie', sprintf( /* translators: 1: Browser cookie documentation URL, 2: Support forums URL. */ __( 'Error: Cookies are blocked due to unexpected output. For help, please see this documentation or try the support forums.' ), __( 'https://developer.wordpress.org/advanced-administration/wordpress/cookies/' ), __( 'https://wordpress.org/support/forums/' ) ) ); } elseif ( isset( $_POST['testcookie'] ) && empty( $_COOKIE[ TEST_COOKIE ] ) ) { // If cookies are disabled, the user can't log in even with a valid username and password. $user = new WP_Error( 'test_cookie', sprintf( /* translators: %s: Browser cookie documentation URL. */ __( 'Error: Cookies are blocked or not supported by your browser. You must enable cookies to use WordPress.' ), __( 'https://developer.wordpress.org/advanced-administration/wordpress/cookies/#enable-cookies-in-your-browser' ) ) ); } } $requested_redirect_to = isset( $_REQUEST['redirect_to'] ) && is_string( $_REQUEST['redirect_to'] ) ? $_REQUEST['redirect_to'] : ''; /** * Filters the login redirect URL. * * @since 3.0.0 * * @param string $redirect_to The redirect destination URL. * @param string $requested_redirect_to The requested redirect destination URL passed as a parameter. * @param WP_User|WP_Error $user WP_User object if login was successful, WP_Error object otherwise. */ $redirect_to = apply_filters( 'login_redirect', $redirect_to, $requested_redirect_to, $user ); if ( ! is_wp_error( $user ) && ! $reauth ) { if ( $interim_login ) { $message = '

    ' . __( 'You have logged in successfully.' ) . '

    '; $interim_login = 'success'; login_header( '', $message ); ?> exists() && $user->has_cap( 'manage_options' ) ) { $admin_email_lifespan = (int) get_option( 'admin_email_lifespan' ); /* * If `0` (or anything "falsey" as it is cast to int) is returned, the user will not be redirected * to the admin email confirmation screen. */ /** This filter is documented in wp-login.php */ $admin_email_check_interval = (int) apply_filters( 'admin_email_check_interval', 6 * MONTH_IN_SECONDS ); if ( $admin_email_check_interval > 0 && time() > $admin_email_lifespan ) { $redirect_to = add_query_arg( array( 'action' => 'confirm_admin_email', 'wp_lang' => get_user_locale( $user ), ), wp_login_url( $redirect_to ) ); } } if ( ( empty( $redirect_to ) || 'wp-admin/' === $redirect_to || admin_url() === $redirect_to ) ) { // If the user doesn't belong to a blog, send them to user admin. If the user can't edit posts, send them to their profile. if ( is_multisite() && ! get_active_blog_for_user( $user->ID ) && ! is_super_admin( $user->ID ) ) { $redirect_to = user_admin_url(); } elseif ( is_multisite() && ! $user->has_cap( 'read' ) ) { $redirect_to = get_dashboard_url( $user->ID ); } elseif ( ! $user->has_cap( 'edit_posts' ) ) { $redirect_to = $user->has_cap( 'read' ) ? admin_url( 'profile.php' ) : home_url(); } wp_redirect( $redirect_to ); exit; } wp_safe_redirect( $redirect_to ); exit; } $errors = $user; // Clear errors if loggedout is set. if ( ! empty( $_GET['loggedout'] ) || $reauth ) { $errors = new WP_Error(); } if ( empty( $_POST ) && $errors->get_error_codes() === array( 'empty_username', 'empty_password' ) ) { $errors = new WP_Error( '', '' ); } if ( $interim_login ) { if ( ! $errors->has_errors() ) { $errors->add( 'expired', __( 'Your session has expired. Please log in to continue where you left off.' ), 'message' ); } } else { // Some parts of this script use the main login form to display a message. if ( isset( $_GET['loggedout'] ) && $_GET['loggedout'] ) { $errors->add( 'loggedout', __( 'You are now logged out.' ), 'message' ); } elseif ( isset( $_GET['registration'] ) && 'disabled' === $_GET['registration'] ) { $errors->add( 'registerdisabled', __( 'Error: User registration is currently not allowed.' ) ); } elseif ( str_contains( $redirect_to, 'about.php?updated' ) ) { $errors->add( 'updated', __( 'You have successfully updated WordPress! Please log back in to see what’s new.' ), 'message' ); } elseif ( WP_Recovery_Mode_Link_Service::LOGIN_ACTION_ENTERED === $action ) { $errors->add( 'enter_recovery_mode', __( 'Recovery Mode Initialized. Please log in to continue.' ), 'message' ); } elseif ( isset( $_GET['redirect_to'] ) && is_string( $_GET['redirect_to'] ) && str_contains( $_GET['redirect_to'], 'wp-admin/authorize-application.php' ) ) { $query_component = wp_parse_url( $_GET['redirect_to'], PHP_URL_QUERY ); $query = array(); if ( $query_component ) { parse_str( $query_component, $query ); } if ( ! empty( $query['app_name'] ) ) { /* translators: 1: Website name, 2: Application name. */ $message = sprintf( 'Please log in to %1$s to authorize %2$s to connect to your account.', get_bloginfo( 'name', 'display' ), '' . esc_html( $query['app_name'] ) . '' ); } else { /* translators: %s: Website name. */ $message = sprintf( 'Please log in to %s to proceed with authorization.', get_bloginfo( 'name', 'display' ) ); } $errors->add( 'authorize_application', $message, 'message' ); } } /** * Filters the login page errors. * * @since 3.6.0 * * @param WP_Error $errors WP Error object. * @param string $redirect_to Redirect destination URL. */ $errors = apply_filters( 'wp_login_errors', $errors, $redirect_to ); // Clear any stale cookies. if ( $reauth ) { wp_clear_auth_cookie(); } login_header( __( 'Log In' ), '', $errors ); if ( isset( $_POST['log'] ) ) { $user_login = ( 'incorrect_password' === $errors->get_error_code() || 'empty_password' === $errors->get_error_code() ) ? esc_attr( wp_unslash( $_POST['log'] ) ) : ''; } $rememberme = ! empty( $_POST['rememberme'] ); $aria_describedby = ''; $has_errors = $errors->has_errors(); if ( $has_errors ) { $aria_describedby = ' aria-describedby="login_error"'; } if ( $has_errors && 'message' === $errors->get_error_data() ) { $aria_describedby = ' aria-describedby="login-message"'; } wp_enqueue_script( 'user-profile' ); ?>

    class="input" value="" size="20" autocapitalize="off" autocomplete="username" required="required" />

    class="input password-input" value="" size="20" autocomplete="current-password" spellcheck="false" required="required" />

    />

    %s', esc_url( wp_registration_url() ), __( 'Register' ) ); /** This filter is documented in wp-includes/general-template.php */ echo apply_filters( 'register', $registration_url ); echo esc_html( $login_link_separator ); } $html_link = sprintf( '%s', esc_url( wp_lostpassword_url() ), __( 'Lost your password?' ) ); /** * Filters the link that allows the user to reset the lost password. * * @since 6.1.0 * * @param string $html_link HTML link to the lost password form. */ echo apply_filters( 'lost_password_html_link', $html_link ); ?>

    get_error_code() === 'invalid_username' ) { $login_script .= 'd.value = "";'; } } $login_script .= 'd.focus(); d.select();'; $login_script .= '} catch( er ) {}'; $login_script .= '}, 200);'; $login_script .= "}\n"; // End of wp_attempt_focus(). /** * Filters whether to print the call to `wp_attempt_focus()` on the login screen. * * @since 4.8.0 * * @param bool $print Whether to print the function call. Default true. */ if ( apply_filters( 'enable_login_autofocus', true ) && ! $error ) { $login_script .= "wp_attempt_focus();\n"; } // Run `wpOnload()` if defined. $login_script .= "if ( typeof wpOnload === 'function' ) { wpOnload() }"; wp_print_inline_script_tag( $login_script ); if ( $interim_login ) { ob_start(); ?> Writing * * @package WordPress */ /** Make sure that the WordPress bootstrap has run before continuing. */ require __DIR__ . '/wp-load.php'; /** This filter is documented in wp-admin/options.php */ if ( ! apply_filters( 'enable_post_by_email_configuration', true ) ) { wp_die( __( 'This action has been disabled by the administrator.' ), 403 ); } $mailserver_url = get_option( 'mailserver_url' ); if ( 'mail.example.com' === $mailserver_url || empty( $mailserver_url ) ) { wp_die( __( 'This action has been disabled by the administrator.' ), 403 ); } /** * Fires to allow a plugin to do a complete takeover of Post by Email. * * @since 2.9.0 */ do_action( 'wp-mail.php' ); // phpcs:ignore WordPress.NamingConventions.ValidHookName.UseUnderscores /** Get the POP3 class with which to access the mailbox. */ require_once ABSPATH . WPINC . '/class-pop3.php'; /** Only check at this interval for new messages. */ if ( ! defined( 'WP_MAIL_INTERVAL' ) ) { define( 'WP_MAIL_INTERVAL', 5 * MINUTE_IN_SECONDS ); } $last_checked = get_transient( 'mailserver_last_checked' ); if ( $last_checked ) { wp_die( __( 'Slow down cowboy, no need to check for new mails so often!' ) ); } set_transient( 'mailserver_last_checked', true, WP_MAIL_INTERVAL ); $time_difference = get_option( 'gmt_offset' ) * HOUR_IN_SECONDS; $phone_delim = '::'; $pop3 = new POP3(); if ( ! $pop3->connect( get_option( 'mailserver_url' ), get_option( 'mailserver_port' ) ) || ! $pop3->user( get_option( 'mailserver_login' ) ) ) { wp_die( esc_html( $pop3->ERROR ) ); } $count = $pop3->pass( get_option( 'mailserver_pass' ) ); if ( false === $count ) { wp_die( esc_html( $pop3->ERROR ) ); } if ( 0 === $count ) { $pop3->quit(); wp_die( __( 'There does not seem to be any new mail.' ) ); } // Always run as an unauthenticated user. wp_set_current_user( 0 ); for ( $i = 1; $i <= $count; $i++ ) { $message = $pop3->get( $i ); $bodysignal = false; $boundary = ''; $charset = ''; $content = ''; $content_type = ''; $content_transfer_encoding = ''; $post_author = 1; $author_found = false; $post_date = null; $post_date_gmt = null; foreach ( $message as $line ) { // Body signal. if ( strlen( $line ) < 3 ) { $bodysignal = true; } if ( $bodysignal ) { $content .= $line; } else { if ( preg_match( '/Content-Type: /i', $line ) ) { $content_type = trim( $line ); $content_type = substr( $content_type, 14, strlen( $content_type ) - 14 ); $content_type = explode( ';', $content_type ); if ( ! empty( $content_type[1] ) ) { $charset = explode( '=', $content_type[1] ); $charset = ( ! empty( $charset[1] ) ) ? trim( $charset[1] ) : ''; } $content_type = $content_type[0]; } if ( preg_match( '/Content-Transfer-Encoding: /i', $line ) ) { $content_transfer_encoding = trim( $line ); $content_transfer_encoding = substr( $content_transfer_encoding, 27, strlen( $content_transfer_encoding ) - 27 ); $content_transfer_encoding = explode( ';', $content_transfer_encoding ); $content_transfer_encoding = $content_transfer_encoding[0]; } if ( 'multipart/alternative' === $content_type && str_contains( $line, 'boundary="' ) && '' === $boundary ) { $boundary = trim( $line ); $boundary = explode( '"', $boundary ); $boundary = $boundary[1]; } if ( preg_match( '/Subject: /i', $line ) ) { $subject = trim( $line ); $subject = substr( $subject, 9, strlen( $subject ) - 9 ); // Captures any text in the subject before $phone_delim as the subject. if ( function_exists( 'iconv_mime_decode' ) ) { $subject = iconv_mime_decode( $subject, 2, get_option( 'blog_charset' ) ); } else { $subject = wp_iso_descrambler( $subject ); } $subject = explode( $phone_delim, $subject ); $subject = $subject[0]; } /* * Set the author using the email address (From or Reply-To, the last used) * otherwise use the site admin. */ if ( ! $author_found && preg_match( '/^(From|Reply-To): /', $line ) ) { if ( preg_match( '|[a-z0-9_.-]+@[a-z0-9_.-]+(?!.*<)|i', $line, $matches ) ) { $author = $matches[0]; } else { $author = trim( $line ); } $author = sanitize_email( $author ); if ( is_email( $author ) ) { $userdata = get_user_by( 'email', $author ); if ( ! empty( $userdata ) ) { $post_author = $userdata->ID; $author_found = true; } } } if ( preg_match( '/Date: /i', $line ) ) { // Of the form '20 Mar 2002 20:32:37 +0100'. $ddate = str_replace( 'Date: ', '', trim( $line ) ); // Remove parenthesized timezone string if it exists, as this confuses strtotime(). $ddate = preg_replace( '!\s*\(.+\)\s*$!', '', $ddate ); $ddate_timestamp = strtotime( $ddate ); $post_date = gmdate( 'Y-m-d H:i:s', $ddate_timestamp + $time_difference ); $post_date_gmt = gmdate( 'Y-m-d H:i:s', $ddate_timestamp ); } } } // Set $post_status based on $author_found and on author's publish_posts capability. if ( $author_found ) { $user = new WP_User( $post_author ); $post_status = ( $user->has_cap( 'publish_posts' ) ) ? 'publish' : 'pending'; } else { // Author not found in DB, set status to pending. Author already set to admin. $post_status = 'pending'; } $subject = trim( $subject ); if ( 'multipart/alternative' === $content_type ) { $content = explode( '--' . $boundary, $content ); $content = $content[2]; // Match case-insensitive Content-Transfer-Encoding. if ( preg_match( '/Content-Transfer-Encoding: quoted-printable/i', $content, $delim ) ) { $content = explode( $delim[0], $content ); $content = $content[1]; } $content = strip_tags( $content, '


    ' ); } $content = trim( $content ); /** * Filters the original content of the email. * * Give Post-By-Email extending plugins full access to the content, either * the raw content, or the content of the last quoted-printable section. * * @since 2.8.0 * * @param string $content The original email content. */ $content = apply_filters( 'wp_mail_original_content', $content ); if ( false !== stripos( $content_transfer_encoding, 'quoted-printable' ) ) { $content = quoted_printable_decode( $content ); } if ( function_exists( 'iconv' ) && ! empty( $charset ) ) { $content = iconv( $charset, get_option( 'blog_charset' ), $content ); } // Captures any text in the body after $phone_delim as the body. $content = explode( $phone_delim, $content ); $content = empty( $content[1] ) ? $content[0] : $content[1]; $content = trim( $content ); /** * Filters the content of the post submitted by email before saving. * * @since 1.2.0 * * @param string $content The email content. */ $post_content = apply_filters( 'phone_content', $content ); $post_title = xmlrpc_getposttitle( $content ); if ( '' === trim( $post_title ) ) { $post_title = $subject; } $post_category = array( get_option( 'default_email_category' ) ); $post_data = compact( 'post_content', 'post_title', 'post_date', 'post_date_gmt', 'post_author', 'post_category', 'post_status' ); $post_data = wp_slash( $post_data ); $post_ID = wp_insert_post( $post_data ); if ( is_wp_error( $post_ID ) ) { echo "\n" . $post_ID->get_error_message(); } // The post wasn't inserted or updated, for whatever reason. Better move forward to the next email. if ( empty( $post_ID ) ) { continue; } /** * Fires after a post submitted by email is published. * * @since 1.2.0 * * @param int $post_ID The post ID. */ do_action( 'publish_phone', $post_ID ); echo "\n

    " . __( 'Author:' ) . ' ' . esc_html( $post_author ) . '

    '; echo "\n

    " . __( 'Posted title:' ) . ' ' . esc_html( $post_title ) . '

    '; if ( ! $pop3->delete( $i ) ) { echo '

    ' . sprintf( /* translators: %s: POP3 error. */ __( 'Oops: %s' ), esc_html( $pop3->ERROR ) ) . '

    '; $pop3->reset(); exit; } else { echo '

    ' . sprintf( /* translators: %s: The message ID. */ __( 'Mission complete. Message %s deleted.' ), '' . $i . '' ) . '

    '; } } $pop3->quit(); wp-settings.php0000644€tÆ*€tÆ*0000007014614655235527016577 0ustar axprmkhpdyxpaxprmkhpdyxpinit(); // Load multisite-specific files. if ( is_multisite() ) { require ABSPATH . WPINC . '/ms-functions.php'; require ABSPATH . WPINC . '/ms-default-filters.php'; require ABSPATH . WPINC . '/ms-deprecated.php'; } // Define constants that rely on the API to obtain the default value. // Define must-use plugin directory constants, which may be overridden in the sunrise.php drop-in. wp_plugin_directory_constants(); /** * @since 3.9.0 * * @global array $wp_plugin_paths */ $GLOBALS['wp_plugin_paths'] = array(); // Load must-use plugins. foreach ( wp_get_mu_plugins() as $mu_plugin ) { $_wp_plugin_file = $mu_plugin; include_once $mu_plugin; $mu_plugin = $_wp_plugin_file; // Avoid stomping of the $mu_plugin variable in a plugin. /** * Fires once a single must-use plugin has loaded. * * @since 5.1.0 * * @param string $mu_plugin Full path to the plugin's main file. */ do_action( 'mu_plugin_loaded', $mu_plugin ); } unset( $mu_plugin, $_wp_plugin_file ); // Load network activated plugins. if ( is_multisite() ) { foreach ( wp_get_active_network_plugins() as $network_plugin ) { wp_register_plugin_realpath( $network_plugin ); $_wp_plugin_file = $network_plugin; include_once $network_plugin; $network_plugin = $_wp_plugin_file; // Avoid stomping of the $network_plugin variable in a plugin. /** * Fires once a single network-activated plugin has loaded. * * @since 5.1.0 * * @param string $network_plugin Full path to the plugin's main file. */ do_action( 'network_plugin_loaded', $network_plugin ); } unset( $network_plugin, $_wp_plugin_file ); } /** * Fires once all must-use and network-activated plugins have loaded. * * @since 2.8.0 */ do_action( 'muplugins_loaded' ); if ( is_multisite() ) { ms_cookie_constants(); } // Define constants after multisite is loaded. wp_cookie_constants(); // Define and enforce our SSL constants. wp_ssl_constants(); // Create common globals. require ABSPATH . WPINC . '/vars.php'; // Make taxonomies and posts available to plugins and themes. // @plugin authors: warning: these get registered again on the init hook. create_initial_taxonomies(); create_initial_post_types(); wp_start_scraping_edited_file_errors(); // Register the default theme directory root. register_theme_directory( get_theme_root() ); if ( ! is_multisite() && wp_is_fatal_error_handler_enabled() ) { // Handle users requesting a recovery mode link and initiating recovery mode. wp_recovery_mode()->initialize(); } // Load active plugins. foreach ( wp_get_active_and_valid_plugins() as $plugin ) { wp_register_plugin_realpath( $plugin ); $_wp_plugin_file = $plugin; include_once $plugin; $plugin = $_wp_plugin_file; // Avoid stomping of the $plugin variable in a plugin. /** * Fires once a single activated plugin has loaded. * * @since 5.1.0 * * @param string $plugin Full path to the plugin's main file. */ do_action( 'plugin_loaded', $plugin ); } unset( $plugin, $_wp_plugin_file ); // Load pluggable functions. require ABSPATH . WPINC . '/pluggable.php'; require ABSPATH . WPINC . '/pluggable-deprecated.php'; // Set internal encoding. wp_set_internal_encoding(); // Run wp_cache_postload() if object cache is enabled and the function exists. if ( WP_CACHE && function_exists( 'wp_cache_postload' ) ) { wp_cache_postload(); } /** * Fires once activated plugins have loaded. * * Pluggable functions are also available at this point in the loading order. * * @since 1.5.0 */ do_action( 'plugins_loaded' ); // Define constants which affect functionality if not already defined. wp_functionality_constants(); // Add magic quotes and set up $_REQUEST ( $_GET + $_POST ). wp_magic_quotes(); /** * Fires when comment cookies are sanitized. * * @since 2.0.11 */ do_action( 'sanitize_comment_cookies' ); /** * WordPress Query object * * @since 2.0.0 * * @global WP_Query $wp_the_query WordPress Query object. */ $GLOBALS['wp_the_query'] = new WP_Query(); /** * Holds the reference to {@see $wp_the_query}. * Use this global for WordPress queries * * @since 1.5.0 * * @global WP_Query $wp_query WordPress Query object. */ $GLOBALS['wp_query'] = $GLOBALS['wp_the_query']; /** * Holds the WordPress Rewrite object for creating pretty URLs * * @since 1.5.0 * * @global WP_Rewrite $wp_rewrite WordPress rewrite component. */ $GLOBALS['wp_rewrite'] = new WP_Rewrite(); /** * WordPress Object * * @since 2.0.0 * * @global WP $wp Current WordPress environment instance. */ $GLOBALS['wp'] = new WP(); /** * WordPress Widget Factory Object * * @since 2.8.0 * * @global WP_Widget_Factory $wp_widget_factory */ $GLOBALS['wp_widget_factory'] = new WP_Widget_Factory(); /** * WordPress User Roles * * @since 2.0.0 * * @global WP_Roles $wp_roles WordPress role management object. */ $GLOBALS['wp_roles'] = new WP_Roles(); /** * Fires before the theme is loaded. * * @since 2.6.0 */ do_action( 'setup_theme' ); // Define the template related constants and globals. wp_templating_constants(); wp_set_template_globals(); // Load the default text localization domain. load_default_textdomain(); $locale = get_locale(); $locale_file = WP_LANG_DIR . "/$locale.php"; if ( ( 0 === validate_file( $locale ) ) && is_readable( $locale_file ) ) { require $locale_file; } unset( $locale_file ); /** * WordPress Locale object for loading locale domain date and various strings. * * @since 2.1.0 * * @global WP_Locale $wp_locale WordPress date and time locale object. */ $GLOBALS['wp_locale'] = new WP_Locale(); /** * WordPress Locale Switcher object for switching locales. * * @since 4.7.0 * * @global WP_Locale_Switcher $wp_locale_switcher WordPress locale switcher object. */ $GLOBALS['wp_locale_switcher'] = new WP_Locale_Switcher(); $GLOBALS['wp_locale_switcher']->init(); // Load the functions for the active theme, for both parent and child theme if applicable. foreach ( wp_get_active_and_valid_themes() as $theme ) { if ( file_exists( $theme . '/functions.php' ) ) { include $theme . '/functions.php'; } } unset( $theme ); /** * Fires after the theme is loaded. * * @since 3.0.0 */ do_action( 'after_setup_theme' ); // Create an instance of WP_Site_Health so that Cron events may fire. if ( ! class_exists( 'WP_Site_Health' ) ) { require_once ABSPATH . 'wp-admin/includes/class-wp-site-health.php'; } WP_Site_Health::get_instance(); // Set up current user. $GLOBALS['wp']->init(); /** * Fires after WordPress has finished loading but before any headers are sent. * * Most of WP is loaded at this stage, and the user is authenticated. WP continues * to load on the {@see 'init'} hook that follows (e.g. widgets), and many plugins instantiate * themselves on it for all sorts of reasons (e.g. they need a user, a taxonomy, etc.). * * If you wish to plug an action once WP is loaded, use the {@see 'wp_loaded'} hook below. * * @since 1.5.0 */ do_action( 'init' ); // Check site status. if ( is_multisite() ) { $file = ms_site_check(); if ( true !== $file ) { require $file; die(); } unset( $file ); } /** * This hook is fired once WP, all plugins, and the theme are fully loaded and instantiated. * * Ajax requests should use wp-admin/admin-ajax.php. admin-ajax.php can handle requests for * users not logged in. * * @link https://developer.wordpress.org/plugins/javascript/ajax * * @since 3.0.0 */ do_action( 'wp_loaded' ); wp-signup.php0000644€tÆ*€tÆ*0000010312114655235527016232 0ustar axprmkhpdyxpaxprmkhpdyxpis_404 = false; /** * Fires before the Site Sign-up page is loaded. * * @since 4.4.0 */ do_action( 'before_signup_header' ); /** * Prints styles for front-end Multisite Sign-up pages. * * @since MU (3.0.0) */ function wpmu_signup_stylesheet() { ?>
    ' . __( 'Site Name (subdirectory only):' ) . ''; } else { echo ''; } $errmsg_blogname = $errors->get_error_message( 'blogname' ); $errmsg_blogname_aria = ''; if ( $errmsg_blogname ) { $errmsg_blogname_aria = 'wp-signup-blogname-error '; echo '

    ' . $errmsg_blogname . '

    '; } if ( ! is_subdomain_install() ) { echo '
    ' . $current_network->domain . $current_network->path . '
    '; } else { $site_domain = preg_replace( '|^www\.|', '', $current_network->domain ); echo '
    .' . esc_html( $site_domain ) . '
    '; } if ( ! is_user_logged_in() ) { if ( ! is_subdomain_install() ) { $site = $current_network->domain . $current_network->path . __( 'sitename' ); } else { $site = __( 'domain' ) . '.' . $site_domain . $current_network->path; } printf( '

    (%s) %s

    ', /* translators: %s: Site address. */ sprintf( __( 'Your address will be %s.' ), $site ), __( 'Must be at least 4 characters, letters and numbers only. It cannot be changed, so choose carefully!' ) ); } // Site Title. ?> get_error_message( 'blog_title' ); $errmsg_blog_title_aria = ''; if ( $errmsg_blog_title ) { $errmsg_blog_title_aria = ' aria-describedby="wp-signup-blog-title-error"'; echo '

    ' . $errmsg_blog_title . '

    '; } echo ''; ?>

    'WPLANG', 'id' => 'site-language', 'selected' => $lang, 'languages' => $languages, 'show_available_translations' => false, ) ); ?>

    /> />

    ' . __( 'Username:' ) . ''; $errmsg_username = $errors->get_error_message( 'user_name' ); $errmsg_username_aria = ''; if ( $errmsg_username ) { $errmsg_username_aria = 'wp-signup-username-error '; echo '

    ' . $errmsg_username . '

    '; } ?>

    ' . __( 'Email Address:' ) . ''; $errmsg_email = $errors->get_error_message( 'user_email' ); $errmsg_email_aria = ''; if ( $errmsg_email ) { $errmsg_email_aria = 'wp-signup-email-error '; echo '

    ' . $errmsg_email . '

    '; } ?>

    get_error_message( 'generic' ); if ( $errmsg_generic ) { echo '

    ' . $errmsg_generic . '

    '; } /** * Fires at the end of the new user account registration form. * * @since 3.0.0 * * @param WP_Error $errors A WP_Error object containing 'user_name' or 'user_email' errors. */ do_action( 'signup_extra_fields', $errors ); } /** * Validates user sign-up name and email. * * @since MU (3.0.0) * * @return array Contains username, email, and error messages. * See wpmu_validate_user_signup() for details. */ function validate_user_form() { return wpmu_validate_user_signup( $_POST['user_name'], $_POST['user_email'] ); } /** * Shows a form for returning users to sign up for another site. * * @since MU (3.0.0) * * @param string $blogname The new site name * @param string $blog_title The new site title. * @param WP_Error|string $errors A WP_Error object containing existing errors. Defaults to empty string. */ function signup_another_blog( $blogname = '', $blog_title = '', $errors = '' ) { $current_user = wp_get_current_user(); if ( ! is_wp_error( $errors ) ) { $errors = new WP_Error(); } $signup_defaults = array( 'blogname' => $blogname, 'blog_title' => $blog_title, 'errors' => $errors, ); /** * Filters the default site sign-up variables. * * @since 3.0.0 * * @param array $signup_defaults { * An array of default site sign-up variables. * * @type string $blogname The site blogname. * @type string $blog_title The site title. * @type WP_Error $errors A WP_Error object possibly containing 'blogname' or 'blog_title' errors. * } */ $filtered_results = apply_filters( 'signup_another_blog_init', $signup_defaults ); $blogname = $filtered_results['blogname']; $blog_title = $filtered_results['blog_title']; $errors = $filtered_results['errors']; /* translators: %s: Network title. */ echo '

    ' . sprintf( __( 'Get another %s site in seconds' ), get_network()->site_name ) . '

    '; if ( $errors->has_errors() ) { echo '

    ' . __( 'There was a problem, please correct the form below and try again.' ) . '

    '; } ?>

    add another site to your account. There is no limit to the number of sites you can have, so create to your heart’s content, but write responsibly!' ), $current_user->display_name ); ?>

    ID ); if ( ! empty( $blogs ) ) { ?>

      userblog_id ); echo '
    • ' . $home_url . '
      • '; } ?>

    has_errors() ) { signup_another_blog( $blogname, $blog_title, $errors ); return false; } $public = (int) $_POST['blog_public']; $blog_meta_defaults = array( 'lang_id' => 1, 'public' => $public, ); // Handle the language setting for the new site. if ( ! empty( $_POST['WPLANG'] ) ) { $languages = signup_get_available_languages(); if ( in_array( $_POST['WPLANG'], $languages, true ) ) { $language = wp_unslash( sanitize_text_field( $_POST['WPLANG'] ) ); if ( $language ) { $blog_meta_defaults['WPLANG'] = $language; } } } /** * Filters the new site meta variables. * * Use the {@see 'add_signup_meta'} filter instead. * * @since MU (3.0.0) * @deprecated 3.0.0 Use the {@see 'add_signup_meta'} filter instead. * * @param array $blog_meta_defaults An array of default blog meta variables. */ $meta_defaults = apply_filters_deprecated( 'signup_create_blog_meta', array( $blog_meta_defaults ), '3.0.0', 'add_signup_meta' ); /** * Filters the new default site meta variables. * * @since 3.0.0 * * @param array $meta { * An array of default site meta variables. * * @type int $lang_id The language ID. * @type int $blog_public Whether search engines should be discouraged from indexing the site. 1 for true, 0 for false. * } */ $meta = apply_filters( 'add_signup_meta', $meta_defaults ); $blog_id = wpmu_create_blog( $domain, $path, $blog_title, $current_user->ID, $meta, get_current_network_id() ); if ( is_wp_error( $blog_id ) ) { return false; } confirm_another_blog_signup( $domain, $path, $blog_title, $current_user->user_login, $current_user->user_email, $meta, $blog_id ); return true; } /** * Shows a message confirming that the new site has been created. * * @since MU (3.0.0) * @since 4.4.0 Added the `$blog_id` parameter. * * @param string $domain The domain URL. * @param string $path The site root path. * @param string $blog_title The site title. * @param string $user_name The username. * @param string $user_email The user's email address. * @param array $meta Any additional meta from the {@see 'add_signup_meta'} filter in validate_blog_signup(). * @param int $blog_id The site ID. */ function confirm_another_blog_signup( $domain, $path, $blog_title, $user_name, $user_email = '', $meta = array(), $blog_id = 0 ) { if ( $blog_id ) { switch_to_blog( $blog_id ); $home_url = home_url( '/' ); $login_url = wp_login_url(); restore_current_blog(); } else { $home_url = 'http://' . $domain . $path; $login_url = 'http://' . $domain . $path . 'wp-login.php'; } $site = sprintf( '%2$s', esc_url( $home_url ), $blog_title ); ?>

    Log in as “%3$s” using your existing password.' ), sprintf( '%s', esc_url( $home_url ), untrailingslashit( $domain . $path ) ), esc_url( $login_url ), $user_name ); ?>

    $user_name, 'user_email' => $user_email, 'errors' => $errors, ); /** * Filters the default user variables used on the user sign-up form. * * @since 3.0.0 * * @param array $signup_user_defaults { * An array of default user variables. * * @type string $user_name The user username. * @type string $user_email The user email address. * @type WP_Error $errors A WP_Error object with possible errors relevant to the sign-up user. * } */ $filtered_results = apply_filters( 'signup_user_init', $signup_user_defaults ); $user_name = $filtered_results['user_name']; $user_email = $filtered_results['user_email']; $errors = $filtered_results['errors']; ?>

    site_name ); ?>

    /> />

    has_errors() ) { signup_user( $user_name, $user_email, $errors ); return false; } if ( 'blog' === $_POST['signup_for'] ) { signup_blog( $user_name, $user_email ); return false; } /** This filter is documented in wp-signup.php */ wpmu_signup_user( $user_name, $user_email, apply_filters( 'add_signup_meta', array() ) ); confirm_user_signup( $user_name, $user_email ); return true; } /** * Shows a message confirming that the new user has been registered and is awaiting activation. * * @since MU (3.0.0) * * @param string $user_name The username. * @param string $user_email The user's email address. */ function confirm_user_signup( $user_name, $user_email ) { ?>

    you must activate it.' ); ?>

    ' . $user_email . '' ); ?>

    $user_name, 'user_email' => $user_email, 'blogname' => $blogname, 'blog_title' => $blog_title, 'errors' => $errors, ); /** * Filters the default site creation variables for the site sign-up form. * * @since 3.0.0 * * @param array $signup_blog_defaults { * An array of default site creation variables. * * @type string $user_name The user username. * @type string $user_email The user email address. * @type string $blogname The blogname. * @type string $blog_title The title of the site. * @type WP_Error $errors A WP_Error object with possible errors relevant to new site creation variables. * } */ $filtered_results = apply_filters( 'signup_blog_init', $signup_blog_defaults ); $user_name = $filtered_results['user_name']; $user_email = $filtered_results['user_email']; $blogname = $filtered_results['blogname']; $blog_title = $filtered_results['blog_title']; $errors = $filtered_results['errors']; if ( empty( $blogname ) ) { $blogname = $user_name; } ?>

    has_errors() ) { signup_user( $user_name, $user_email, $user_errors ); return false; } $result = wpmu_validate_blog_signup( $_POST['blogname'], $_POST['blog_title'] ); $domain = $result['domain']; $path = $result['path']; $blogname = $result['blogname']; $blog_title = $result['blog_title']; $errors = $result['errors']; if ( $errors->has_errors() ) { signup_blog( $user_name, $user_email, $blogname, $blog_title, $errors ); return false; } $public = (int) $_POST['blog_public']; $signup_meta = array( 'lang_id' => 1, 'public' => $public, ); // Handle the language setting for the new site. if ( ! empty( $_POST['WPLANG'] ) ) { $languages = signup_get_available_languages(); if ( in_array( $_POST['WPLANG'], $languages, true ) ) { $language = wp_unslash( sanitize_text_field( $_POST['WPLANG'] ) ); if ( $language ) { $signup_meta['WPLANG'] = $language; } } } /** This filter is documented in wp-signup.php */ $meta = apply_filters( 'add_signup_meta', $signup_meta ); wpmu_signup_blog( $domain, $path, $blog_title, $user_name, $user_email, $meta ); confirm_blog_signup( $domain, $path, $blog_title, $user_name, $user_email, $meta ); return true; } /** * Shows a message confirming that the new site has been registered and is awaiting activation. * * @since MU (3.0.0) * * @param string $domain The domain or subdomain of the site. * @param string $path The path of the site. * @param string $blog_title The title of the new site. * @param string $user_name The user's username. * @param string $user_email The user's email address. * @param array $meta Any additional meta from the {@see 'add_signup_meta'} filter in validate_blog_signup(). */ function confirm_blog_signup( $domain, $path, $blog_title, $user_name = '', $user_email = '', $meta = array() ) { ?>

    {$blog_title}" ) ?>

    you must activate it.' ); ?>

    ' . $user_email . '' ); ?>

    '; _e( 'Greetings Network Administrator!' ); echo ' '; switch ( $active_signup ) { case 'none': _e( 'The network currently disallows registrations.' ); break; case 'blog': _e( 'The network currently allows site registrations.' ); break; case 'user': _e( 'The network currently allows user registrations.' ); break; default: _e( 'The network currently allows both site and user registrations.' ); break; } echo ' '; /* translators: %s: URL to Network Settings screen. */ printf( __( 'To change or disable registration go to your Options page.' ), esc_url( network_admin_url( 'settings.php' ) ) ); echo '
    '; } $newblogname = isset( $_GET['new'] ) ? strtolower( preg_replace( '/^-|-$|[^-a-zA-Z0-9]/', '', $_GET['new'] ) ) : null; $current_user = wp_get_current_user(); if ( 'none' === $active_signup ) { _e( 'Registration has been disabled.' ); } elseif ( 'blog' === $active_signup && ! is_user_logged_in() ) { $login_url = wp_login_url( network_site_url( 'wp-signup.php' ) ); /* translators: %s: Login URL. */ printf( __( 'You must first log in, and then you can create a new site.' ), $login_url ); } else { $stage = isset( $_POST['stage'] ) ? $_POST['stage'] : 'default'; switch ( $stage ) { case 'validate-user-signup': if ( 'all' === $active_signup || ( 'blog' === $_POST['signup_for'] && 'blog' === $active_signup ) || ( 'user' === $_POST['signup_for'] && 'user' === $active_signup ) ) { validate_user_signup(); } else { _e( 'User registration has been disabled.' ); } break; case 'validate-blog-signup': if ( 'all' === $active_signup || 'blog' === $active_signup ) { validate_blog_signup(); } else { _e( 'Site registration has been disabled.' ); } break; case 'gimmeanotherblog': validate_another_blog_signup(); break; case 'default': default: $user_email = isset( $_POST['user_email'] ) ? $_POST['user_email'] : ''; /** * Fires when the site sign-up form is sent. * * @since 3.0.0 */ do_action( 'preprocess_signup_form' ); if ( is_user_logged_in() && ( 'all' === $active_signup || 'blog' === $active_signup ) ) { signup_another_blog( $newblogname ); } elseif ( ! is_user_logged_in() && ( 'all' === $active_signup || 'user' === $active_signup ) ) { signup_user( $newblogname, $user_email ); } elseif ( ! is_user_logged_in() && ( 'blog' === $active_signup ) ) { _e( 'Sorry, new registrations are not allowed at this time.' ); } else { _e( 'You are logged in already. No need to register again!' ); } if ( $newblogname ) { $newblog = get_blogaddress_by_name( $newblogname ); if ( 'blog' === $active_signup || 'all' === $active_signup ) { printf( /* translators: %s: Site address. */ '

    ' . __( 'The site you were looking for, %s, does not exist, but you can create it now!' ) . '

    ', '' . $newblog . '' ); } else { printf( /* translators: %s: Site address. */ '

    ' . __( 'The site you were looking for, %s, does not exist.' ) . '

    ', '' . $newblog . '' ); } } break; } } ?>
    '1' ) ); } // Always run as an unauthenticated user. wp_set_current_user( 0 ); /** * Response to a trackback. * * Responds with an error or success XML message. * * @since 0.71 * * @param int|bool $error Whether there was an error. * Default '0'. Accepts '0' or '1', true or false. * @param string $error_message Error message if an error occurred. Default empty string. */ function trackback_response( $error = 0, $error_message = '' ) { header( 'Content-Type: text/xml; charset=' . get_option( 'blog_charset' ) ); if ( $error ) { echo '\n"; echo "\n"; echo "1\n"; echo "$error_message\n"; echo ''; die(); } else { echo '\n"; echo "\n"; echo "0\n"; echo ''; } } if ( ! isset( $_GET['tb_id'] ) || ! $_GET['tb_id'] ) { $post_id = explode( '/', $_SERVER['REQUEST_URI'] ); $post_id = (int) $post_id[ count( $post_id ) - 1 ]; } $trackback_url = isset( $_POST['url'] ) ? $_POST['url'] : ''; $charset = isset( $_POST['charset'] ) ? $_POST['charset'] : ''; // These three are stripslashed here so they can be properly escaped after mb_convert_encoding(). $title = isset( $_POST['title'] ) ? wp_unslash( $_POST['title'] ) : ''; $excerpt = isset( $_POST['excerpt'] ) ? wp_unslash( $_POST['excerpt'] ) : ''; $blog_name = isset( $_POST['blog_name'] ) ? wp_unslash( $_POST['blog_name'] ) : ''; if ( $charset ) { $charset = str_replace( array( ',', ' ' ), '', strtoupper( trim( $charset ) ) ); } else { $charset = 'ASCII, UTF-8, ISO-8859-1, JIS, EUC-JP, SJIS'; } // No valid uses for UTF-7. if ( str_contains( $charset, 'UTF-7' ) ) { die; } // For international trackbacks. if ( function_exists( 'mb_convert_encoding' ) ) { $title = mb_convert_encoding( $title, get_option( 'blog_charset' ), $charset ); $excerpt = mb_convert_encoding( $excerpt, get_option( 'blog_charset' ), $charset ); $blog_name = mb_convert_encoding( $blog_name, get_option( 'blog_charset' ), $charset ); } // Escape values to use in the trackback. $title = wp_slash( $title ); $excerpt = wp_slash( $excerpt ); $blog_name = wp_slash( $blog_name ); if ( is_single() || is_page() ) { $post_id = $posts[0]->ID; } if ( ! isset( $post_id ) || ! (int) $post_id ) { trackback_response( 1, __( 'I really need an ID for this to work.' ) ); } if ( empty( $title ) && empty( $trackback_url ) && empty( $blog_name ) ) { // If it doesn't look like a trackback at all. wp_redirect( get_permalink( $post_id ) ); exit; } if ( ! empty( $trackback_url ) && ! empty( $title ) ) { /** * Fires before the trackback is added to a post. * * @since 4.7.0 * * @param int $post_id Post ID related to the trackback. * @param string $trackback_url Trackback URL. * @param string $charset Character set. * @param string $title Trackback title. * @param string $excerpt Trackback excerpt. * @param string $blog_name Site name. */ do_action( 'pre_trackback_post', $post_id, $trackback_url, $charset, $title, $excerpt, $blog_name ); header( 'Content-Type: text/xml; charset=' . get_option( 'blog_charset' ) ); if ( ! pings_open( $post_id ) ) { trackback_response( 1, __( 'Sorry, trackbacks are closed for this item.' ) ); } $title = wp_html_excerpt( $title, 250, '…' ); $excerpt = wp_html_excerpt( $excerpt, 252, '…' ); $comment_post_id = (int) $post_id; $comment_author = $blog_name; $comment_author_email = ''; $comment_author_url = $trackback_url; $comment_content = "$title\n\n$excerpt"; $comment_type = 'trackback'; $dupe = $wpdb->get_results( $wpdb->prepare( "SELECT * FROM $wpdb->comments WHERE comment_post_ID = %d AND comment_author_url = %s", $comment_post_id, $comment_author_url ) ); if ( $dupe ) { trackback_response( 1, __( 'There is already a ping from that URL for this post.' ) ); } $commentdata = array( 'comment_post_ID' => $comment_post_id, ); $commentdata += compact( 'comment_author', 'comment_author_email', 'comment_author_url', 'comment_content', 'comment_type' ); $result = wp_new_comment( $commentdata ); if ( is_wp_error( $result ) ) { trackback_response( 1, $result->get_error_message() ); } $trackback_id = $wpdb->insert_id; /** * Fires after a trackback is added to a post. * * @since 1.2.0 * * @param int $trackback_id Trackback ID. */ do_action( 'trackback_post', $trackback_id ); trackback_response( 0 ); } xmlrpc.php0000644€tÆ*€tÆ*0000000625614655235526015620 0ustar axprmkhpdyxpaxprmkhpdyxp'; ?> WordPress https://wordpress.org/ serve_request(); exit; /** * logIO() - Writes logging info to a file. * * @since 1.2.0 * @deprecated 3.4.0 Use error_log() * @see error_log() * * @global int|bool $xmlrpc_logging Whether to enable XML-RPC logging. * * @param string $io Whether input or output. * @param string $msg Information describing logging reason. */ function logIO( $io, $msg ) { _deprecated_function( __FUNCTION__, '3.4.0', 'error_log()' ); if ( ! empty( $GLOBALS['xmlrpc_logging'] ) ) { error_log( $io . ' - ' . $msg ); } }