httpclient only used in trackbacks, which is not supported in this version, removed
[moodle.git] / blog / lib.php
index 3836845..c484451 100755 (executable)
@@ -1308,62 +1308,6 @@ function blog_get_trackback_rdf_string($blogEntry) {
 }
 
 
-/**
- * Send a trackback to another server
- */
-function blog_send_tb_ping($tb_arr) {
-    // import the http class
-    include_once('class.HttpClient.php');
-
-//     print "debug: in blog_send_tb_ping tb_arr = <br />"; //debug
-//     print_object($tb_arr); //debug
-
-    // Make sure the excerpt is short enough
-    $body = strip_tags($tb_arr['excerpt']);
-    $tb_arr['excerpt'] = substr($body, 0, 255) ."...";
-
-    // extract url
-//    $tb_url = $tb_arr['url'];
-    // extract url -- Daryl Hawes note: isn't this supposed to be tb_url we're extracting here?
-    $tb_url = $tb_arr['tb_url'];
-
-//     print "debug: tb_url:<br />"; //debug
-//     print_object($tb_url); //debug
-    
-    // Did we get a trackback url?
-    if (!$tb_url) {
-        // Couldn't find a Trackback url. Give up.
-        return;
-    }
-
-    // remove it from the array
-    unset($tb_arr['tb_url']);
-
-    // parse the TB url to get the host and path
-    $urlobj = parse_url($tb_url);
-
-//     print "debug: urlobj:<br />";
-//     print_object($urlobj);
-
-    // Create the http client object
-    $http_client = new HttpClient($urlobj['host']);
-
-    $postPath = $urlobj['path'];
-    if ( isset($urlobj['query']) ) {
-        $postPath = $postPath.'?'.$urlobj['query'];
-    }
-
-    // Post the data
-    $status = $http_client->post($postPath, $tb_arr);  
-
-    if ($status == true) {
-        $rsp = $http_client->getContent();
-    } else {
-        $rsp = get_string('error').': '.$http_client->getError();
-    }
-    return $rsp;
-}
-
 /**
  * Return a list of trackbacks for a particular id
  */
@@ -1384,129 +1328,6 @@ function blog_list_trackbacks($postid) {
     return $list;
 }
 
-/**
- * Return a raw count of how many trackbacks an entry has.
- */
-function blog_tb_count($id) {
-    $list = list_trackbacks($id);
-
-    return array_count($list);
-}
-
-/**
- * Display HTML formatted list of trackbacks for the supplied entryid
- * called from tb.php if mode == list, also called by archive.php
- * @param int id the entry in question by id
- */
-function blog_print_trackbacks_for_id($id) {
-    global $CFG;
-    $list = blog_list_trackbacks($id);
-    if (! blog_array_count($list)) {
-        // There are not trackbacks for this entry
-        // To avoid page clutter return without printing anything
-        return;
-    }
-    if ($CFG->slasharguments) {
-               $tburl = $CFG->wwwroot .'/blog/tb.php/'. $id;
-    } else {
-        $tburl = $CFG->wwwroot .'/blog/tb.php?file=/'. $id;
-    }
-    
-    print '<div class="trackbacks">'."\n";
-    print '<h4>'. get_string('trackbacks', 'blog') .'</h4>';
-    // print '<p>'. get_string('tburlis', 'blog') .':'."\n";
-    //print '<!--<a href="'. $tburl .'">-->'."\n";
-    //print $tburl;
-    //print '<!--</a>-->'."\n</p>";
-    print '<ul>';
-/*
-    if (!blog_array_count($list)) {
-        // No trackbacks
-        ?>
-        <li><?php print_string('notrackbacks', 'blog'); ?>.</li>
-        <?php
-    } else {
-*/
-        while (list($row, $data) = each($list)) {
-            $post_title = stripslashes_safe($data['title']);
-            $excerpt = stripslashes_safe($data['excerpt']);
-            $url = stripslashes_safe($data['url']);
-            $blogname = stripslashes_safe($data['blogname']);
-            $added = blog_format_date($data['lastmodified']);
-
-            if ($blogname) {
-                $blogname = ' '. get_string('tbfrom', 'blog') .' '. $blogname;
-            }
-
-            ?><li>
-            <a href="<?php echo $url; ?>"><?php echo $post_title; ?></a>
-            <cite><?php echo $blogname; ?> <?php echo $added; ?></cite>
-            <blockquote cite="<?php echo $url; ?>" title="<?php print_string('tbquotedfrom', 'blog'); ?>
-<?php echo $blogname; ?>">
-            <?php echo $excerpt; ?>
-            </blockquote>
-            </li>
-            <?php
-        }
-//    }
-    print '</ul></div>'."\n";
-
-}
-
-/**
- * Display RSSized list
- *daryl hawes note: what the heck does this do? What is the $list var?
- * it's called from tb.php if mode == rss
- */
-function blog_tb_rss($id) {
-    $list = blog_list_trackbacks($id);
-}
-
-/**
- * Fetch urls in entry and attempt to auto-discover a TB link
- */
-function blog_tb_autodiscover($text) {
-    global $CFG;
-    require_once($CFG->libdir .'/rsslib.php'); //for rss_unhtmlentities()
-    include_once('class.HttpClient.php');
-
-    preg_match_all("/(((http(s?):\/\/)|(www\.))([\-\_\w\.\/\#\?\+\&\=\%\;]+))/i", $text, $matches);
-
-    $tb_urls = array();
-
-//     echo "Debug: blog_tb_autodiscover - matches:<br />"; //debug
-//    print_object($matches[0]); //debug
-
-    foreach($matches[0] as $url) {
-        $contents = HttpClient::quickGet($url);
-
-//             echo "Debug: contents from quick get: $contents<br />"; //debug
-
-        if (preg_match_all("/(<rdf:RDF.*?<\/rdf:RDF>)/si", $contents, $m)) {
-            foreach($m[0] as $rdf) {
-                preg_match("/dc:identifier=\"([^\"]+)\"/", $rdf, $m2);
-                if (rss_unhtmlentities($m2[1]) == $url) {
-                    if (preg_match("/trackback:ping=\"([^\"]+)\"/", $rdf, $m3)) {
-                        if (!in_array($m3[1], $tb_urls)) {
-                            array_push($tb_urls, $m3[1]);
-                        }
-                    }
-                }
-            }
-        }
-    }
-    return $tb_urls;
-}
-
-function blog_tblink($id, $date, &$blogEntry) {
-    $tblist = blog_list_trackbacks($id);
-    $count = blog_array_count($tblist);
-    $post_link = $blogEntry->get_simple_entry_link();
-    $msg = '<a href="'. $post_link .'">'. get_string('trackbacks', 'blog') .'('. $count .')</a>';
-    return $msg;
-}
-
-
 
 /////////////////////// CATEGORY MANAGEMENT ////////////////////////////////////