PHP http::proceed方法代码示例

 /**
  * fetch the content of one url
  *
  * @param string the link to fetch
  * @param array of strings optional headers (eg, 'array("Content-Type: text/xml")')
  * @param string optional data to send
  * @param string cookie, if any
  * @return the actual content, of FALSE on error
  */
 function fetch($url, $headers = '', $data = '', $cookie = '')
 {
     global $context;
     // use the http library
     return http::proceed($url, $headers, $data, $cookie);
 }

 /**
  * ping back links referenced in some text
  *
  * This is the client implementation of
  * [link=trackback]http://www.movabletype.org/docs/mttrackback.html[/link]
  * and [link=pingback]http://www.hixie.ch/specs/pingback/pingback[/link] specifications.
  *
  * This function is triggered by publishing scripts, either [script]articles/publish.php[/script],
  * [script]services/blog.php[/script], [script]agents/messages.php[/script] or [script]agents/uploads.php[/script].
  *
  * @see articles/publish.php
  * @see services/blog.php
  * @see agents/messages.php
  * @see agents/uploads.php
  *
  * It is used to efficiently link pages across a set of web sites according to the following mechanism:
  * - The list of external links is built for this page
  * - Only the 7 first links are kept from the list; others are stripped
  * - If links do not exist, create additional records in the table used for links
  * - Each link (actually, only the 7 most recent) is checked, to see if it's trackback- or pingback-enabled or not
  * - Each trackback-/pingback-enabled link is activated, providing the full URL of the anchor page
  *
  * We are claiming to support most of the trackback client interface here, as described in the [link=trackback]http://www.movabletype.org/docs/mttrackback.html[/link] specification.
  * A foreign page is considered as being trackback-enabled if it has a special RDF section
  * linking its reference (i.e., URL) to a Trackback Ping URL.
  *
  * Note that YACS also implements the server part of the trackback specification in [script]links/trackback.php[/script],
  * which supports POST REST calls.
  *
  * @see links/trackback.php
  *
  * We are claiming to fully support the pingback client interface here, as described in the [link=pingback]http://www.hixie.ch/specs/pingback/pingback[/link] specification.
  * A foreign page is considered to be pingback-enabled if it has a meta link to a Pingback Ping URL.
  *
  * Note that YACS also implements the server part of the pingback specification in [script]services/ping.php[/script],
  * which supports XML-RPC calls.
  *
  * @see services/ping.php
  *
  * This function transforms every YACS codes into HTML before extracting links,
  * and before submitting the excerpt to remote site.
  *
  * @param string the referencing text that has to be scanned
  * @param string the local anchor of the referencing text (e.g., 'article:124')
  * @return array list($links, $advertised, $skipped)
  *
  * @link http://www.movabletype.org/docs/mttrackback.html TrackBack Technical Specification
  * @link http://www.hixie.ch/specs/pingback/pingback Pingback specification
  */
 public static function ping($text, $anchor)
 {
     global $context;
     // render all codes
     if (is_callable(array('Codes', 'beautify'))) {
         $text = Codes::beautify($text);
     }
     // suppress all links not coming from anchors (eg, <img src=...)
     $text = strip_tags($text, '<a>');
     // extract all links from the text, including those that have been encoded by YACS
     preg_match_all('/((http:\\/\\/|http%3A%2F%2F)[^ <"]+)/i', $text, $links);
     // nothing to do
     if (!@count($links[1])) {
         return;
     }
     // process each link only once
     $unique_links = array();
     foreach ($links[1] as $url) {
         // decode raw url encoding, if any
         $url = rawurldecode($url);
         // strip the clicking indirection, if any
         $url = rawurldecode(preg_replace('/^' . preg_quote($context['url_to_home'] . $context['url_to_root'] . 'links/click.php?url=', '/') . '/i', '', $url));
         $unique_links[$url] = 1;
     }
     // analyze found links
     $links_processed = array();
     $links_advertised = array();
     $links_skipped = array();
     foreach ($unique_links as $url => $dummy) {
         // analyze no more than 7 links
         if (@count($links_processed) >= 7) {
             break;
         }
         // skip links that point to ourself, and not to an article
         if (preg_match('/^' . preg_quote($context['url_to_home'], '/') . '\\b/i', $url) && !preg_match('/\\/article(-|s\\/view.php)/i', $url)) {
             $links_skipped[] = $url;
             continue;
         }
         // skip invalid links
         if (($content = http::proceed($url)) === FALSE) {
             $links_skipped[] = $url;
             continue;
         }
         // we will use the content to locate pingback and trackback interfaces
         $pages[$url] = $content;
         // ensure enough execution time
         Safe::set_time_limit(30);
         // stats
         $links_processed[] = $url;
     }
     // locate the anchor object for this text, we need its url
//.........这里部分代码省略.........

 /**
  * the URL to stop and to leave a meeting
  *
  * @see overlays/events/stop.php
  *
  * @return string the URL to redirect the user from the meeting, or NULL on error
  */
 function get_stop_url()
 {
     global $context;
     // almost random passwords
     $this->initialize_passwords();
     // parameters to end the meeting
     $parameters = array();
     $parameters[] = 'meetingID=' . urlencode($this->attributes['id']);
     $parameters[] = 'password=' . urlencode($this->moderator_password);
     $url = $this->build_link('end', $parameters);
     // we don't care about the return code
     http::proceed($url);
     // back to the yacs page
     if (is_callable(array($this->anchor, 'get_url'))) {
         return $context['url_to_home'] . $context['url_to_root'] . $this->anchor->get_url();
     }
     // this should not happen
     return NULL;
 }

         continue;
     }
 }
 // do we have a suitable copy in staging repository?
 $staged = 'scripts/staging/' . $file;
 if (is_readable($context['path_to_root'] . $staged) && ($result = Scripts::hash($staged))) {
     // used staged file
     $context['text'] .= sprintf(i18n::s('Using staged file %s'), $file) . BR . "\n";
     $staging_files++;
     continue;
 }
 // download the updated script from the reference server
 $context['text'] .= sprintf(i18n::s('Staging %s'), $file) . BR . "\n";
 // get the file -- reference server have to be installed at the root
 $url = 'http://' . $context['reference_server'] . '/scripts/fetch.php?script=' . $file;
 if (!($content = http::proceed($url))) {
     $context['text'] .= sprintf(i18n::s('Impossible to read %s.'), $url) . BR . "\n";
     $errors++;
     continue;
 }
 // ensure enough execution time
 Safe::set_time_limit(30);
 // save it in the staging store
 if (!Safe::file_put_contents('scripts/staging/' . $file, $content)) {
     $context['text'] .= '<p>' . sprintf(i18n::s('Impossible to write to %s.'), 'scripts/staging/' . $file) . "</p>\n";
     $errors++;
     continue;
 }
 // ensure we have an exact copy by comparing hashes
 $staging_hash = Scripts::hash('scripts/staging/' . $file);
 if ($attributes[1] != $staging_hash[1]) {

 /**
  * the URL to start and to join the meeting
  *
  * @see overlays/events/start.php
  *
  * @return string the URL to redirect the user to the meeting, or NULL on error
  */
 function get_start_url()
 {
     global $context;
     // almost random passwords
     $this->initialize_passwords();
     // link to authenticate
     $url = 'https://my.dimdim.com/api/auth/login';
     // parameters to authenticate
     $parameters = array();
     $parameters['account'] = $this->attributes['account'];
     $parameters['password'] = $this->attributes['password'];
     $parameters['group'] = 'all';
     // encode in json
     $data = array('request' => Safe::json_encode($parameters));
     // do authenticate
     if ($response = http::proceed($url, '', $data)) {
         // successful authentication
         $output = Safe::json_decode($response);
         if (isset($output['result']) && $output['result']) {
             // remember the authentication token
             $fields = array('token' => $output['response']['authToken']);
             $this->set_values($fields);
             // link to create a meeting
             $url = 'https://my.dimdim.com/api/conf/start_meeting';
             // provide authentication token
             $headers = 'X-Dimdim-Auth-Token: ' . $this->attributes['token'] . CRLF;
             // parameters to create a meeting
             $parameters = array();
             $parameters['authToken'] = $this->attributes['token'];
             $parameters['account'] = $this->attributes['account'];
             $parameters['clientId'] = Surfer::get_id();
             $parameters['displayName'] = Surfer::get_name();
             $parameters['meetingName'] = $this->anchor->get_title();
             $parameters['roomName'] = $this->anchor->get_title();
             $parameters['meetingLengthMinutes'] = $this->attributes['duration'];
             $parameters['attendeeKey'] = $this->attendee_password;
             $parameters['assistantEnabled'] = 'false';
             // disable some features
             $parameters['displayDialInfo'] = 'false';
             // message displayed within the BigBlueButton session
             $welcome = '';
             // meeting title
             if (is_object($this->anchor)) {
                 $welcome .= sprintf(i18n::s('%s: %s'), i18n::s('Title'), $this->anchor->get_title()) . "\n";
             }
             // meeting date
             if (isset($this->attributes['date_stamp'])) {
                 $welcome .= sprintf(i18n::s('%s: %s'), i18n::s('Date'), Skin::build_date($this->attributes['date_stamp'], 'standalone')) . "\n";
             }
             // meeting duration
             if (isset($this->attributes['duration'])) {
                 $welcome .= sprintf(i18n::s('%s: %s'), i18n::s('Duration'), $this->attributes['duration'] . ' ' . i18n::s('minutes')) . "\n";
             }
             // build a link to the owner page, if any
             if (is_object($this->anchor) && ($user = Users::get($this->anchor->get_value('owner_id')))) {
                 $welcome .= sprintf(i18n::s('%s: %s'), i18n::s('Chairman'), $user['full_name']) . "\n";
             }
             // welcome message
             $parameters['agenda'] = $welcome;
             // return URL
             if (is_callable(array($this->anchor, 'get_url'))) {
                 $parameters['returnurl'] = $context['url_to_home'] . $context['url_to_root'] . $this->anchor->get_url();
             }
             // encode in json
             $data = array('request' => Safe::json_encode($parameters));
             // do the transaction
             if ($response = http::proceed($url, $headers, $data)) {
                 // successful transaction
                 $output = Safe::json_decode($response);
                 if (isset($output['result']) && $output['result']) {
                     // redirect to the target page
                     return 'https://my.dimdim.com/redirect?clientId=' . urlencode(Surfer::get_id()) . '&account=' . urlencode($this->attributes['account']);
                 }
             }
         }
     }
     // don't know where to go
     return NULL;
 }

// if the current skin has been set to 'foo', YACS includes skins/foo/skin.php
// then the static class Skin is available to format output components (lists, links, etc.)
load_skin('tools');
// content of the target web object
$input = '';
// maybe we have a cookie string to process
$cookie = '';
if (isset($_REQUEST['cookie']) && strlen($_REQUEST['cookie'])) {
    $cookie = $_REQUEST['cookie'];
}
// we have an URL to scan
$reference = '';
if (isset($_REQUEST['reference']) && strlen($_REQUEST['reference'])) {
    $reference = $_REQUEST['reference'];
    // fetch the object through the web
    if (!($input = http::proceed($reference, '', '', $cookie))) {
        // the standard way to localize string throughout YACS is to invoke i18n::s() -- see i18n/i18n.php
        Logger::error(sprintf(i18n::s('error while fetching %s'), $reference) . ' (' . http::get_error() . ')');
    }
    // the user has submitted some content to crunch
} elseif (isset($_REQUEST['input']) && strlen($_REQUEST['input'])) {
    $input = $_REQUEST['input'];
}
// the path to this page
$context['path_bar'] = array('tools/' => i18n::s('Tools'));
// the title of the page
// in YACS templates, it is placed into $context['title']
$context['page_title'] = i18n::s('Fat Index');
// the splash message
$context['text'] .= '<p>' . i18n::s('This script strips tags and white space to evaluate the amount of useful bytes. Then it computes the fat index as follows:') . '</p>' . "\n" . '<dl><dd>' . i18n::s('FAT Index = 10 log( Raw Bytes / Useful Bytes )') . '</dd></dl>' . "\n";
// we at least ask for registration

$count = 0;
foreach ($copy as $file) {
    // content of the updated file
    $content = '';
    // expected location in staging repository
    $local_reference = $context['path_to_root'] . 'scripts/staging/' . $file;
    // don't execute PHP scripts, just get them
    if (preg_match('/\\.php$/i', $file)) {
        $remote_reference = 'http://' . $context['reference_server'] . '/scripts/fetch.php?script=' . urlencode($file);
    } else {
        $remote_reference = 'http://' . $context['reference_server'] . '/scripts/reference/' . $file;
    }
    // get the file locally
    if (file_exists($local_reference)) {
        $content = Safe::file_get_contents($local_reference);
    } elseif (($content = http::proceed($remote_reference)) === FALSE) {
        $local['error_en'] = 'Unable to get ' . $file;
        $local['error_fr'] = 'Impossible d\'obtenir ' . $file;
        echo i18n::user('error') . "<br />\n";
    }
    // we have something in hand
    if ($content) {
        // create missing directories where applicable
        Safe::make_path(dirname($file));
        // create backups, if possible
        if (file_exists($context['path_to_root'] . $file)) {
            Safe::unlink($context['path_to_root'] . $file . '.bak');
            Safe::rename($context['path_to_root'] . $file, $context['path_to_root'] . $file . '.bak');
        }
        // update the target file
        if (!Safe::file_put_contents($file, $content)) {

                     $response = 'Thanks for the ping';
                     Links::clear($fields);
                 }
             }
         }
         break;
         // ping an external reference to some page on this site
     // ping an external reference to some page on this site
     case 'weblogUpdates.ping':
         list($label, $url) = $parameters['params'];
         // caller has been banned
         if ($_SERVER['REMOTE_HOST'] && ($server = Servers::get($_SERVER['REMOTE_HOST']) && $server['process_ping'] != 'Y')) {
             $response = array('flerror' => 49, 'message' => 'Access denied');
         } elseif (preg_match('/\\b(127\\.0\\.0\\.1|localhost)\\b/', $url)) {
             $response = array('flerror' => 1, 'message' => 'We don\'t accept local references ' . $url);
         } elseif (($content = http::proceed($url)) === FALSE && ($content = http::proceed($url . '/')) === FALSE) {
             $response = array('flerror' => 1, 'message' => 'Cannot read source address ' . $url);
         } else {
             $response = Servers::ping(strip_tags($label), $url);
             if ($response) {
                 Logger::remember('services/ping.php: failing ping', $response, 'debug');
                 $response = array('flerror' => 1, 'message' => $response);
             } else {
                 $response = array('flerror' => 0, 'message' => 'Thanks for the ping');
             }
         }
         break;
     default:
         $response = array('faultCode' => 1, 'faultString' => 'Do not know how to process ' . $parameters['methodName']);
         Logger::remember('services/ping.php: ping unsupported methodName', $parameters, 'debug');
 }

    Safe::header('Status: 401 Unauthorized', TRUE, 401);
    echo i18n::s('You are not allowed to perform this operation.');
    // we reject requests not originating from this server
} elseif (!isset($_SERVER['HTTP_REFERER']) || strncmp($_SERVER['HTTP_REFERER'], $context['url_to_home'], strlen($context['url_to_home']))) {
    Safe::header('Status: 400 Bad Request', TRUE, 400);
    echo i18n::s('You are not allowed to perform this operation.');
    // process the provided url
} elseif (isset($_REQUEST['url']) && $_REQUEST['url']) {
    // read raw content
    $raw_data = file_get_contents("php://input");
    // save the raw request if debug mode
    if (isset($context['with_debug']) && $context['with_debug'] == 'Y') {
        Logger::remember('services/proxy.php: proxy request', $raw_data, 'debug');
    }
    // forward the request, and process the response
    $response = http::proceed($_REQUEST['url']);
    // save response headers if debug mode
    if (isset($context['with_debug']) && $context['with_debug'] == 'Y') {
        Logger::remember('services/proxy.php: proxy response headers', http::get_headers(), 'debug');
    }
    // transmit response headers
    $headers = explode("\n", http::get_headers());
    for ($index = 1; $index < count($headers); $index++) {
        // assume we will provide our own encoding
        if (!strncmp($headers[$index], 'Content-Encoding', strlen('Content-Encoding'))) {
            continue;
        }
        // only one header per type
        $replace = TRUE;
        // maybe several cookies can be set
        if (!strncmp($headers[$index], 'Set-Cookie', strlen('Set-Cookie'))) {

// stop crawlers
if (Surfer::is_crawler()) {
    Safe::header('Status: 401 Unauthorized', TRUE, 401);
    Logger::error(i18n::s('You are not allowed to perform this operation.'));
    // process uploaded data
} elseif (isset($_SERVER['REQUEST_METHOD']) && $_SERVER['REQUEST_METHOD'] == 'POST') {
    // save the request if debug mode
    if (isset($context['debug_trackback']) && $context['debug_trackback'] == 'Y') {
        Logger::remember('links/trackback.php: trackback request', $_REQUEST, 'debug');
    }
    // do we have a valid target to track?
    if (!$anchor || !is_object($anchor)) {
        $response = array('faultCode' => 1, 'faultString' => 'Nothing to track');
    } elseif (Links::have($source, $anchor->get_reference())) {
        $response = array('faultCode' => 1, 'faultString' => 'The source has already been registered');
    } elseif (($content = http::proceed($source)) === FALSE) {
        $response = array('faultCode' => 1, 'faultString' => 'Cannot read source address ' . $source);
    } else {
        // ensure enough execution time
        Safe::set_time_limit(30);
        // we are coming from this form -- stop robots
        if (strpos($_SERVER['HTTP_REFERER'], $context['script_url']) !== FALSE) {
            if (Surfer::may_be_a_robot()) {
                $response = array('faultCode' => 1, 'faultString' => 'Please prove you are not a robot');
            }
            // remote call -- get network address a.b.c.d of caller
        } elseif (!isset($_SERVER['REMOTE_ADDR']) || !($ip = preg_replace('/[^0-9.]/', '', $_SERVER['REMOTE_ADDR']))) {
            $response = array('faultCode' => 1, 'faultString' => 'Invalid request');
        } elseif (!($items = @parse_url($source)) || !isset($items['host'])) {
            $response = array('faultCode' => 1, 'faultString' => 'Invalid request');
        } elseif ($items['host'] != $ip && is_callable('gethostbyname') && gethostbyname($items['host']) != $ip) {

 /**
  * remember an action once it's done
  *
  * @see articles/delete.php
  * @see articles/edit.php
  *
  * @param string the action 'insert', 'update' or 'delete'
  * @param array the hosting record
  * @param string reference of the hosting record (e.g., 'article:123')
  * @return FALSE on error, TRUE otherwise
  */
 function remember($action, $host, $reference)
 {
     global $context;
     // set default values for this editor
     Surfer::check_default_editor($this->attributes);
     // add a notification to the anchor page
     $comments = array();
     // on page creation
     if ($action == 'insert') {
         // expose all of the anchor interface to the contained overlay
         $this->anchor = Anchors::get($reference);
         // embed an object referenced by address
         if ($this->attributes['embed_type'] == 'href') {
             // ask some oEmbed provider to tell us more about this
             if ($this->attributes['embed_href'] && ($fields = $this->oembed($this->attributes['embed_href']))) {
                 // we do want a photo, right?
                 if (preg_match('/\\.(gif|jpg|jpeg|png)$/i', $this->attributes['embed_href'])) {
                     $fields['type'] = 'photo';
                 }
                 // because deviant-art returns non-standard type 'file' ???
                 if (isset($fields['url']) && preg_match('/\\.(gif|jpg|jpeg|png)$/i', $fields['url'])) {
                     $fields['type'] = 'photo';
                 }
                 // save meta data in the overlay itself
                 $fields['id'] = $host['id'];
                 $this->set_values($fields);
                 // notify this contribution
                 switch ($this->attributes['type']) {
                     case 'link':
                         $comments[] = sprintf(i18n::s('%s has shared a link'), Surfer::get_name());
                         break;
                     case 'photo':
                         $comments[] = sprintf(i18n::s('%s has shared a photo'), Surfer::get_name());
                         break;
                     case 'rich':
                         $comments[] = sprintf(i18n::s('%s has shared some information'), Surfer::get_name());
                         break;
                     case 'video':
                         $comments[] = sprintf(i18n::s('%s has shared a video'), Surfer::get_name());
                         break;
                     default:
                         // default label is the link itself
                         $label = $this->attributes['embed_href'];
                         // fetch page title if possible
                         if ($this->attributes['embed_href'] && ($content = http::proceed($this->attributes['embed_href']))) {
                             if (preg_match('/<title>(.*)<\\/title>/siU', $content, $matches)) {
                                 $label = trim(strip_tags(preg_replace('/\\s+/', ' ', $matches[1])));
                             }
                         }
                         // update the record
                         $fields = array();
                         $fields['type'] = 'link';
                         $fields['label'] = $label;
                         $this->set_values($fields);
                         $comments[] = sprintf(i18n::s('%s has shared a link'), Surfer::get_name());
                         break;
                 }
             }
             // uploaded files are turned to comments automatically in articles/article.php
         }
     }
     // add a comment if allowed
     if ($comments && !$this->anchor->has_option('no_comments')) {
         include_once $context['path_to_root'] . 'comments/comments.php';
         $fields = array();
         $fields['anchor'] = $reference;
         $fields['description'] = join(BR, $comments);
         $fields['type'] = 'notification';
         Comments::post($fields);
     }
     // job done
     return TRUE;
 }

 /**
  * process one single HTTP request
  *
  * This function removes any PHPSESSID data in the query string, if any
  *
  * @return void
  *
  * @see agents/referrals_hook.php
  */
 public static function check_request()
 {
     global $context;
     // don't bother with HEAD requests
     if (isset($_SERVER['REQUEST_METHOD']) && $_SERVER['REQUEST_METHOD'] == 'HEAD') {
         return;
     }
     // the target url
     if (!isset($_SERVER['REQUEST_URI']) || !($url = $_SERVER['REQUEST_URI'])) {
         return;
     }
     // only remember viewed pages and index pages
     if (!preg_match('/\\/(index|view).php/', $url)) {
         return;
     }
     // continue only if we have a referer
     if (!isset($_SERVER['HTTP_REFERER']) || !($referer = $_SERVER['HTTP_REFERER'])) {
         return;
     }
     // do not memorize cache referrals
     if (preg_match('/cache:/i', $referer)) {
         return;
     }
     // block pernicious attacks
     $referer = strip_tags($referer);
     // only remember external referrals
     if (preg_match('/\\b' . preg_quote(str_replace('www.', '', $context['host_name']), '/') . '\\b/i', $referer)) {
         return;
     }
     // stop crawlers
     if (Surfer::is_crawler()) {
         return;
     }
     // avoid banned sources
     include_once $context['path_to_root'] . 'servers/servers.php';
     if (preg_match(Servers::get_banned_pattern(), $referer)) {
         return;
     }
     // normalize the referral, extract keywords, and domain
     list($referer, $domain, $keywords) = Referrals::normalize($referer);
     // if a record exists for this url
     $query = "SELECT id FROM " . SQL::table_name('referrals') . " AS referrals" . " WHERE referrals.url LIKE '" . SQL::escape($url) . "' AND referrals.referer LIKE '" . SQL::escape($referer) . "'";
     if (!($item = SQL::query_first($query))) {
         return;
     }
     // update figures
     if (isset($item['id'])) {
         $query = "UPDATE " . SQL::table_name('referrals') . " SET" . " hits=hits+1," . " stamp='" . gmstrftime('%Y-%m-%d %H:%M:%S') . "'" . " WHERE id = " . $item['id'];
         // create a new record
     } else {
         // ensure the referer is accessible
         if (($content = http::proceed($referer)) === FALSE) {
             return;
         }
         // we have to find a reference to ourself in this page
         if (strpos($content, $context['url_to_home']) === FALSE) {
             return;
         }
         $query = "INSERT INTO " . SQL::table_name('referrals') . " SET" . " url='" . SQL::escape($url) . "'," . " referer='" . SQL::escape($referer) . "'," . " domain='" . SQL::escape($domain) . "'," . " keywords='" . SQL::escape($keywords) . "'," . " hits=1," . " stamp='" . gmstrftime('%Y-%m-%d %H:%M:%S') . "'";
     }
     // actual database update
     if (SQL::query($query) === FALSE) {
         return;
     }
     // prune with a probability of 1/100
     if (rand(1, 100) != 50) {
         return;
     }
     // purge oldest records -- 100 days = 8640000 seconds
     $query = "DELETE FROM " . SQL::table_name('referrals') . " WHERE stamp < '" . gmstrftime('%Y-%m-%d %H:%M:%S', time() - 8640000) . "'";
     SQL::query($query);
 }

 /**
  * the URL to stop and to leave a meeting
  *
  * @see overlays/events/stop.php
  *
  * @return string the URL to redirect the user from the meeting, or NULL on error
  */
 function get_stop_url()
 {
     global $context;
     // export pad content
     $url = 'http://' . $this->get_hostname() . '/ep/pad/export/' . $this->attributes['meeting_id'] . '/latest?format=html';
     // we don't care about the return code
     if (($result = http::proceed($url)) && preg_match('|\\<body[^>]*>(.*)</body[^>]*>|isU', $result, $matches)) {
         // put the text of the pad in a comment
         include_once $context['path_to_root'] . 'comments/comments.php';
         $fields = array();
         $fields['anchor'] = $this->anchor->get_reference();
         $fields['description'] = i18n::s('Resulting text') . '<div style="border: 2px solid #ccc; margin: 1em; padding: 1em;">' . $matches[1] . '</div>';
         $fields['type'] = 'notification';
         Comments::post($fields);
     }
     // back to the yacs page
     if (is_callable(array($this->anchor, 'get_url'))) {
         return $context['url_to_home'] . $context['url_to_root'] . $this->anchor->get_url();
     }
     // this should not happen
     return NULL;
 }