drupal/modules/archive.module

<?php
// $Id$

/**
 * @file
 * Displays a calendar to navigate old content.
 */

/**
 * Implementation of hook_help().
 */
function archive_help($section) {
  switch ($section) {
    case 'admin/modules#description':
      return t('Displays a calendar to navigate old content.');
  }
}

/**
 * Generates a monthly calendar, for display in the archive block.
 */
function archive_calendar($original = 0) {
  global $user;
  $edit = $_POST['edit'];

  // Extract today's date:
  $start_of_today = mktime(0, 0, 0, date('n', time()), date('d', time()), date('Y', time())) + $user->timezone;
  $end_of_today = mktime(23, 59, 59, date('n', time()), date('d', time()), date('Y', time())) + $user->timezone;

  // Extract the requested date:
  if ($edit['year'] && $edit['month'] && $edit['day']) {
    $year = $edit['year'];
    $month = $edit['month'];
    $day = $edit['day'];

    $requested = mktime(0, 0, 0, $month, $day, $year) + $user->timezone;
  }
  else if (arg(0) == 'archive' && arg(3)) {
    $year = arg(1);
    $month = arg(2);
    $day = arg(3);

    $requested = mktime(0, 0, 0, $month, $day, $year) + $user->timezone;
  }
  else {
    $year = date('Y', time());
    $month  = date('n', time());
    $day = date('d', time());

    $requested = $end_of_today + $user->timezone;
  }

  $start_of_month = mktime(0, 0, 0, $month, 1, $year);

  // Extract first day of the month:
  $first = date('w', $start_of_month);

  // Extract last day of the month:
  $last = date('t', $start_of_month);

  $end_of_month = mktime(23, 59, 59, $month, $last, $year);

  $cache = cache_get("archive:calendar:$day-$month-$year");

  if (!empty($cache)) {
    return $cache->data;
  }

  // Calculate previous and next months dates and check for shorter months (28/30 days)
  $prevmonth = mktime(23, 59, 59, $month - 1, 1, $year);
  $prev = mktime(23, 59, 59, $month - 1, min(date('t', $prevmonth), $day), $year);
  $nextmonth = mktime(23, 59, 59, $month + 1, 1, $year);
  $next = mktime(23, 59, 59, $month + 1, min(date('t', $nextmonth), $day), $year);

  $result = db_query('SELECT DISTINCT(n.nid), n.created FROM {node} n '. node_access_join_sql() .' WHERE n.status = 1 AND n.created > %d AND n.created < %d AND '. node_access_where_sql() .' ORDER BY n.created', $start_of_month, $end_of_month);

  $days_with_posts = array();
  while ($day_with_post = db_fetch_object($result)) {
    $days_with_posts[] = date('j', $day_with_post->created + $user->timezone);
  }
  $days_with_posts = array_unique($days_with_posts);

  // Generate calendar header:
  $output .= "\n<!-- calendar -->\n";
  $output .= '<div class="calendar">';
  $output .= '<table summary="'. t('A calendar to browse the archives') .".\">\n";
  $output .= ' <caption>'. l('&laquo;', 'archive/'. date('Y/m/d', $prev), array('title' => t('Previous month'))) .' '. format_date($requested, 'custom', 'F') . date(' Y', $requested) .' '. ($nextmonth <= time() ? l('&raquo;', 'archive/'. date('Y/m/d', $next), array('title' => t('Next month'))) : '&nbsp;') ."</caption>\n";

  // First day of week (0 => Sunday, 1 => Monday, ...)
  $weekstart = variable_get('date_first_day', 0);

  // Last day of week
  ($weekstart - 1 == -1) ? $lastday = 6 : $lastday = $weekstart - 1;

  // Generate the days of the week:
  $firstcolumn = mktime(0, 0, 0, 3, 20 + $weekstart, 1994);

  $output .= " <tr class=\"header-week\">\n";
  $days = array(t('Sunday') => t('Su'), t('Monday') => t('Mo'), t('Tuesday') => t('Tu'), t('Wednesday') => t('We'), t('Thursday') => t('Th'), t('Friday') => t('Fr'), t('Saturday') => t('Sa'));
  if ($weekstart) {
    $days = array_merge(array_slice($days, $weekstart), array_slice($days, 0, $weekstart));
  }

  foreach ($days as $fullname => $name) {
    $output .= ' <th abbr="'. $fullname .'">'. $name . "</th>\n";
  }
  $output .= "</tr>\n";

  // Initialize temporary variables:
  $nday = 1;
  $sday = $first;

  // Loop through all the days of the month:
  while ($nday <= $last) {
    // Set up blank days for first week of the month:
    if ($first != $weekstart) {
      $blankdays = ($first - $weekstart + 7) % 7;
      $output .= " <tr class=\"row-week\"><td class=\"day-blank\" colspan=\"$blankdays\">&nbsp;</td>\n";
      $first = $weekstart;
    }
    // Start every week on a new line:
    if ($sday == $weekstart) {
      $output .= " <tr class=\"row-week\">\n";
    }

    // Print one cell:
    $date = mktime(0, 0, 0, $month, $nday, $year) + $user->timezone;
    if (in_array($nday, $days_with_posts)) {
      $daytext = l($nday, "archive/$year/$month/$nday");
      $dayclass = 'day-link';
    }
    else {
      $daytext = $nday;
      $dayclass = 'day-normal';
    }
    if ($date == $requested) {
      $output .= "  <td class=\"day-selected\">$daytext</td>\n";
    }
    else if ($date == $start_of_today) {
      $output .= "  <td class=\"day-today\">$daytext</td>\n";
    }
    else if ($date > $end_of_today) {
      $output .= "  <td class=\"day-future\">$daytext</td>\n";
    }
    else {
      $output .= "  <td class=\"$dayclass\">$daytext</td>\n";
    }

    // Start every week on a new line:
    if ($sday == $lastday) {
      $output .=  " </tr>\n";
    }

    // Update temporary variables:
    $sday++;
    $sday = $sday % 7;
    $nday++;
  }

  // Complete the calendar:
  if ($sday != $weekstart) {
    $end = (7 - $sday + $weekstart) % 7;
    $output .= "  <td class=\"day-blank\" colspan=\"$end\">&nbsp;</td>\n </tr>\n";
  }

  $output .= "</table></div>\n\n";

  cache_set("archive:calendar:$day-$month-$year", $output, CACHE_TEMPORARY);

  return $output;
}

/**
 * Implementation of hook_block().
 *
 * Generates a calendar for the current month, with links to the archives
 * for each day.
 */
function archive_block($op = 'list', $delta = 0) {
  if ($op == 'list') {
    $blocks[0]['info'] = t('Calendar to browse archives');
    return $blocks;
  }
  else if ($op == 'view' && user_access('access content')) {
    $block['subject'] = t('Browse archives');
    $block['content'] = archive_calendar();
    return $block;
  }
}

/**
 * Implementation of hook_menu().
 */
function archive_menu($may_cache) {
  $items = array();

  if ($may_cache) {
    $items[] = array('path' => 'archive', 'title' => t('archives'),
      'access' => user_access('access content'),
      'callback' => 'archive_page',
      'type' => MENU_SUGGESTED_ITEM);
  }
  return $items;
}

/**
 * Menu callback; lists all nodes posted on a given date.
 */
function archive_page($year = 0, $month = 0, $day = 0) {
  global $user;

  $output = '';
  $op = $_POST['op'];
  $edit = $_POST['edit'];

  if ($op == t('Show')) {
    $year = $edit['year'];
    $month = $edit['month'];
    $day = $edit['day'];
  }

  $date = mktime(0, 0, 0, $month, $day, $year) - $user->timezone;
  $date_end = mktime(0, 0, 0, $month, $day + 1, $year) - $user->timezone;

  // Prepare the values of the form fields.
  $years = drupal_map_assoc(range(2000, 2005));
  $months = array(1 => t('January'), 2 => t('February'), 3 => t('March'), 4 => t('April'), 5 => t('May'), 6 => t('June'), 7 => t('July'), 8 => t('August'), 9 => t('September'), 10 => t('October'), 11 => t('November'), 12 => t('December'));
  $days = drupal_map_assoc(range(0, 31));

  $start = '<div class="container-inline">';
  $start .= form_select('', 'year', ($year ? $year : date('Y')), $years). form_select('', 'month', ($month ? $month : date('m')), $months) . form_select('', 'day', ($day ? $day : date('d')), $days) . form_submit(t('Show'));
  $start .= '</div>';
  $output .= form($start);

  if ($year && $month && $day) {
    // Fetch nodes for the selected date, if one was specified.
    $result = db_query_range('SELECT DISTINCT(n.nid), n.created FROM {node} n '. node_access_join_sql() .' WHERE n.status = 1 AND n.created > %d AND n.created < %d AND '. node_access_where_sql() .' ORDER BY n.created', $date, $date_end, 0, 20);

    while ($nid = db_fetch_object($result)) {
      $output .= node_view(node_load(array('nid' => $nid->nid)), 1);
    }
  }
  print theme('page', $output);
}

?>