/**
 * 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;
 
  }