<?php
// $Id$

function archive_help($section) {
  $output = "";

  switch ($section) {
    case 'admin/system/modules#description':
      $output = t("Displays a calendar to navigate old content.");
      break;
    case 'admin/system/modules/archive':
      $output = t("Choose the starting \"day of the week\" for the displayed calendar block.");
      break;
  }

  return $output;
}

function archive_calendar($original = 0) {
  global $user;
  $edit = $_POST["edit"];

  // Extract today's date:
  $offset = time() + $user->timezone;
  $start_of_today = mktime(0, 0, 0, date("n", $offset), date("d", $offset), date("Y", $offset)) + $user->timezone;
  $end_of_today = mktime(23, 59, 59, date("n", $offset), date("d", $offset), date("Y", $offset)) + $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 created FROM {node} WHERE status = 1 AND created > $start_of_month AND created < $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>\n";
  $output .= " <tr><td colspan=\"7\" class=\"header-month\">". l("&laquo;", "archive/". date("Y/m/d", $prev)) ." ". format_date($requested, "custom", "F") . date(" Y", $requested) ." ". ($nextmonth <= time() ? l("&raquo;", "archive/". date("Y/m/d", $next)) : "&nbsp;") ."</td></tr>\n";

  // First day of week (0 => Sunday, 1 => Monday, ...)
  $cday = $weekstart = variable_get("default_firstday", 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\">";
  $days = array(t('Su'), t('Mo'), t('Tu'), t('We'), t('Th'), t('Fr'), t('Sa'));
  for ($i = 0; $i < 7; $i++) {
    $output .= "<td>". $days[$cday] . "</td>";
    $cday = ($cday < 6 ? $cday+1 : 0);
  }
  $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 = "<div>$nday</div>";
      $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, 1);

  return $output;
}

function archive_block($op = "list", $delta = 0) {
  global $date;
  if ($op == "list") {
    $blocks[0]["info"] = t("Calendar to browse archives");
    return $blocks;
  }
  else if (user_access("access content")) {
    switch ($delta) {
      case 0:
        $block["subject"] = t("Browse archives");
        $block["content"] = archive_calendar();
        return $block;
    }
  }
}

function archive_link($type) {

  $links = array();

  if ($type == "page" && user_access("access content")) {
    $links[] = l(t("archives"), "archive", array("title" => t("Read the older content in our archive.")));
  }

  if ($type == "system") {
    if (user_access("access content")) {
      menu("archive", t("archives"), "archive_page", 0, MENU_HIDE);
    }
  }

  return $links;
}

function archive_page() {
  global $date, $month, $year, $meta, $user;

  $op = $_POST["op"];
  $edit = $_POST["edit"];

  if ($op == t("Show")) {
    $year = $edit["year"];
    $month = $edit["month"];
    $day = $edit["day"];
  }
  else {
    $year = arg(1);
    $month = arg(2);
    $day = arg(3);
  }

  $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);

  /*
  ** Fetch nodes for the selected date, or current date if none
  ** selected.
  */

  if ($year && $month && $day) {
    $result = db_query_range("SELECT nid FROM {node} WHERE status = '1' AND created > %d AND created < %d ORDER BY 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);
}

function archive_settings() {

  $output .= form_select(t("First day of week"), "default_firstday", variable_get("default_firstday", 0), array(0 => t("Sunday"), 1 => t("Monday"), 2 => t("Tuesday"), 3 => t("Wednesday"), 4 => t("Thursday"), 5 => t("Friday"), 6 => t("Saturday")), t("The first day of the week.  By changing this value you choose how the calendar block is rendered."));

  return $output;
}

?>