Курс валют

<?php
/**
 * Implementation of hook_perm().
 */
function currencies_perm() {
  return array('access cur block settings');
}
 
/**
 * Implementation of hook_menu().
 */
function currencies_menu() {
  $items = array();
  $items['admin/settings/cur-block'] = array(
    'title' => 'Currency block settings',
    'description' => 'Currency block settings.',
    'page callback' => 'drupal_get_form',
    'page arguments' => array('currencies_settings'),
    'access arguments' => array('access cur block settings'),
  );
  return $items;
}
 
/**
 * Implementation of hook_block().
 */
 function currencies_block($op = 'list', $delta = 0, $edit = array()) {
  switch ($op) {
    case 'list':
      $blocks[0] = array(
        'info'       => t('Currencies block'),
      );
      return $blocks;
    case 'view':
      switch ($delta) {
        case 0:
          $block['subject'] = t('Currencies block');
          break;
      }
      return $block;
  }
}
 
/**
 * A block content function.
 */
 
  // Получаем текущие курсы валют в rss-формате с сайта www.cbr.ru 
 
  $content = get_content(); 
 
  // Разбираем содержимое, при помощи регулярных выражений 
 
  $pattern = "#<Valute ID=\"([^\"]+)[^>]+>[^>]+>([^<]+)[^>]+>[^>]+>[^>]+>[^>]+>[^>]+>[^>]+>([^<]+)[^>]+>[^>]+>([^<]+)#i"; 
 
  preg_match_all($pattern, $content, $out, PREG_SET_ORDER); 
 
  $dollar = ""; 
 
  $euro = ""; 
 
  foreach($out as $cur) 
 
  { 
 
    if($cur[2] == 840) $dollar = str_replace(",",".",$cur[4]); 
 
    if($cur[2] == 978) $euro   = str_replace(",",".",$cur[4]); 
 
  } 
 
  echo "Доллар - ".$dollar."<br>"; 
 
  echo "Евро - ".$euro."<br>"; 
 
  function get_content() 
 
  { 
 
    // Формируем сегодняшнюю дату 
 
    $date = date("d/m/Y"); 
 
    // Формируем ссылку 
 
    $link = "http://www.cbr.ru/scripts/XML_daily.asp?date_req=$date"; 
 
    // Загружаем HTML-страницу 
 
    $fd = fopen($link, "r"); 
 
    $text=""; 
 
    if (!$fd) echo "Запрашиваемая страница не найдена"; 
 
    else 
 
    { 
 
      // Чтение содержимого файла в переменную $text 
 
      while (!feof ($fd)) $text .= fgets($fd, 4096); 
 
    } 
 
    // Закрыть открытый файловый дескриптор 
 
    fclose ($fd); 
 
    return $text; 
 
  }