<?php

/**

 * EnanoBot - copyright (C) 2008 Dan Fuhry

 * All rights reserved.

 */

/*****************************************************************

 * YOU NEED TO SET THE PATH TO THE REST OF THE EnanoBot FILES HERE.

 * Include a trailing slash.

 * This script MUST be placed in an Enano installation directory.

 *****************************************************************/

define('ENANOBOT_ROOT', './');

// We're authed.

// Load config

require(ENANOBOT_ROOT . 'config.php');

// check config

if ( empty($mysql_host) || empty($mysql_user) || empty($mysql_dbname) )

{

  die("Bad config file - have a look at config-sample.php.\n");

}

$title_append = '';

if ( isset($_GET['channel']) )

  $title_append .= ' - #' . $_GET['channel'];

$title = "Enano IRC logs$title_append";

require('includes/common.php');

// unset($template);

// $template = new template();

// $template->load_theme('oxygen', 'bleu');

$template->header();

$q = $db->sql_query('USE `' . $mysql_dbname . '`;');

if ( !$q )

  $db->_die();

$days_in_month = array(

    1 => 31,

    2 => ( intval(date('Y')) % 4 == 0 ? 29 : 28 ),

    3 => 31,

    4 => 30,

    5 => 31,

    6 => 30,

    7 => 31,

    8 => 31,

    9 => 30,

    10 => 31,

    11 => 30,

    12 => 31

  );

function irc_make_calendar($year = 0, $month = 0, $days_to_link = array())

{

  global $session;

  global $days_in_month, $channel;

  if ( $year < 1970 || $month < 1 || $month > 12 )

  {

    $year = intval(date('Y'));

    $month = intval(date('n'));

  }

  $month = intval($month);

  $year = intval($year);

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

  $next_month = mktime(0, 0, 1, ( $month + 1 ), 1, $year);

  $next_year = mktime(0, 0, 1, $month, 1, ( $year + 1 ) );

  $prev_month = mktime(0, 0, 1, ( $month - 1 ), 1, $year);

  $prev_year = mktime(0, 0, 1, $month, 1, ( $year - 1 ) );

  $a_next_month = '<a href="' . htmlspecialchars($session->append_sid(scriptPath . '/irclogs.php?year=' . date('Y', $next_month) . '&month=' . date('n', $next_month) . '&channel=' . $channel)) . '">&gt;</a>';

  $a_next_year = '<a href="' . htmlspecialchars($session->append_sid(scriptPath . '/irclogs.php?year=' . date('Y', $next_year) . '&month=' . $month . '&channel=' . $channel)) . '">&gt;&gt;</a>';

  $a_prev_month = ( $year == 1970 && $month == 1 ) ? '&lt;' : '<a href="' . htmlspecialchars($session->append_sid(scriptPath . '/irclogs.php?year=' . date('Y', $prev_month) . '&month=' . date('n', $prev_month) . '&channel=' . $channel)) . '">&lt;</a>';

  $a_prev_year  = ( $year == 1970 ) ? '&lt;&lt;' : '<a href="' . htmlspecialchars($session->append_sid(scriptPath . '/irclogs.php?year=' . date('Y', $prev_year) . '&month=' . $month . '&channel=' . $channel)) . '">&lt;&lt;</a>';

  $dow = intval(date('w', $this_month));

  $return = '';

  $return .= '<div class="tblholder" style="display: table; text-align: center;">

          <table border="0" cellspacing="1" cellpadding="6">

            <tr>

              <th colspan="7">' . "$a_prev_year $a_prev_month " . date('F', $this_month) . ' ' . $year . " $a_next_month $a_next_year" . '</th>

            </tr>';

  $return .= '<tr>';

  $class = 'row1';

  for ( $i = 0; $i < $dow; $i++ )

  {

    $class = ( $class == 'row1' ) ? 'row3' : 'row1';

    $return .= '<td class="' . $class . '"></td>';

  }

  if ( $month == 2 )

  {

    $days_in_this_month = ( $year % 4 == 0 ) ? 29 : 28;

  }

  else

  {

    $days_in_this_month = $days_in_month[$month];

  }

  for ( $i = 1; $i <= $days_in_this_month; $i++ )

  {

    if ( $dow == 7 )

    {

      $return .= '</tr>';

      if ( $i < $days_in_this_month )

        $return .= '<tr>';

      $dow = 0;

    }

    $dow++;

    $class = ( $class == 'row1' ) ? 'row3' : 'row1';

    $a = "<span style=\"color: #808080;\">$i</span>";

    if ( in_array($i, $days_to_link) )

    {

      $a = '<a class="wikilink-nonexistent" href="' . htmlspecialchars($session->append_sid(scriptPath . '/irclogs.php?year=' . $year . '&month=' . $month . '&day=' . $i . '&channel=' . $channel)) . '"><b>' . $i . '</b></a>';

    }

    $return .= "<td class=\"$class\">$a</td>";

  }

  while ( $dow < 7 )

  {

    $class = ( $class == 'row1' ) ? 'row3' : 'row1';

    $return .= "<td class=\"$class\"></td>";

    $dow++;

  }

  $return .= '</table></div>';

  return $return;

}

$get_valid_year = isset($_GET['year']);

$get_valid_month = ( isset($_GET['month']) && intval($_GET['month']) > 0 && intval($_GET['month']) < 13 );

$year = ( $get_valid_year ) ? intval($_GET['year']) : intval(date('Y'));

$month = ( $get_valid_month ) ? intval($_GET['month']) : intval(date('n'));

function make_nick_color($username)

{

  if ( $username == '' )

    return '';

  $hash = substr(sha1($username), 0, 6);

  $hash = enano_str_split($hash);

  for ( $i = 0; $i < count($hash); $i++ )

  {

    if ( $i % 2 == 1 )

      continue;

    // call this a cheap hack or whatever, but intval() doesn't accept 0x????

    $digit = eval("return 0x{$hash[$i]};");

    if ( $digit > 0x9 )

      $digit = "9";

    else

      $digit = strval($digit);

    $hash[$i] = $digit;

  }

  $color = implode('', $hash);

  $span = "<span style=\"color: #$color;\">" . htmlspecialchars($username) . "</span>";

  return $span;

}

function irclog_autoparse_links($text)

{

  $sid = md5(microtime());

  preg_match_all('/((https?|ftp|irc):\/\/([^@\s\]"\':]+)?((([a-z0-9-]+\.)*)[a-z0-9-]+)(\/[A-z0-9_%\|~`!\!@#\$\^&\*\(\):;\.,\/-]*(\?(([a-' 

               . 'z0-9_-]+)(=[A-z0-9_%\|~`\!@#\$\^&\*\(\):;\.,\/-\[\]]*)?((&([a-z0-9_-]+)(=[A-z0-9_%\|~`!\!@#\$\^&\*\(\):;\.,\/-]*)?)*))'

               . '?)?)?)/', $text, $matches);

  foreach ( $matches[0] as $i => $match )

  {

    $text = str_replace_once($match, "{AUTOLINK:$sid:$i}", $text);

  }

  $text = htmlspecialchars($text);

  foreach ( $matches[0] as $i => $match )

  {

    $match_short = $match;

    if ( strlen($match) > 75 )

    {

      $match_short = htmlspecialchars(substr($match, 0, 25)) . '...' . htmlspecialchars(substr($match, -25));

    }

    $match = htmlspecialchars($match);

    $text = str_replace_once("{AUTOLINK:$sid:$i}", "<a href=\"$match\">$match_short</a>", $text);

  }

  return $text;

}

function irclog_protect_emails($text)

{

  global $email;

  preg_match_all('/([a-z0-9_-]+@(([a-z0-9-]+\.)*)[a-z0-9-]+)/', $text, $matches);

  foreach ( $matches[0] as $match )

  {

    $text = str_replace_once($match, $email->encryptEmail($match), $text);

  }

  return $text;

}

function irclog_format_row($_, $row)

{

  static $class = 'row1';

  $class = ( $class == 'row1' ) ? 'row3' : 'row1';

  $time = date('H:i', $row['timestamp']);

  $nick = make_nick_color($row['nick']);

  $message = irclog_autoparse_links($row['line']);

  $message = irclog_protect_emails($message);

  $message = RenderMan::smilieyize($message);

  if ( $row['nick'] == '' )

    $message = "<span style=\"color: #808080;\">" . $message . "</span>";

  return "              <tr>

            <td class=\"$class\">$time</td>

            <td class=\"$class\">$nick</td>

            <td class=\"$class\">$message</td>

          </tr>\n";

}

if ( $get_valid_year && $get_valid_month && isset($_GET['day']) && isset($_GET['channel']) )

{

  $days_in_this_month = $days_in_month[$month];

  if ( $month == 2 && $year !== intval(date('n')) )

    $days_in_this_month = ( $year % 4 == 0 ) ? 29 : 28;

  $day = intval($_GET['day']);

  if ( $day < 1 || $day > $days_in_this_month )

  {

    $day = intval(date('j'));

  }

  // mode is view logs, and we have the date on which to display them

  $channel = $db->escape($_GET['channel']);

  if ( !preg_match('/^[a-z0-9_-]+$/i', $channel) )

    die('Channel contains XSS attempt');

  $datekey = $year . '-' . 

      ( $month < 10 ? "0$month" : $month ) . '-' . 

      ( $day < 10 ? "0$day" : $day );

  $q = $db->sql_query("SELECT * FROM irclog WHERE day='$datekey' AND channel = '#$channel' ORDER BY timestamp ASC;");

  if ( !$q )

    $db->_die();

  echo '<p><a href="' . htmlspecialchars($session->append_sid(scriptPath . "/irclogs.php?year=$year&month=$month&channel=$channel")) . '">&lt; Back to date listings</a></p>';

  if ( $db->numrows() < 1 )

  {

    echo '<p>No chat logs for today.</p>';

  }

  else

  {

    $count = $db->numrows();

    $start = ( isset($_GET['start']) ) ? intval($_GET['start']) : 0;

    // ($q, $tpl_text, $num_results, $result_url, $start = 0, $perpage = 10, $callers = Array(), $header = '', $footer = '')

    $html = paginate($q, '{id}', $count, $session->append_sid(scriptPath . "/irclogs.php?year=$year&month=$month&day=$day&channel=$channel&start=%s"), $start, 100, array('id' => 'irclog_format_row'), '<p>All times are UTC.</p><div class="tblholder"><table border="0" cellspacing="1" cellpadding="4">', '</table></div>');

    echo $html;

  }

}

else if ( isset($_GET['channel']) )

{

  // show log calendar

  $channel = $db->escape($_GET['channel']);

  if ( !preg_match('/^[a-z0-9_-]+$/i', $channel) )

    die('Channel contains XSS attempt');

  echo "<h3>Chat logs for #$channel</h3>";

  echo '<p><a href="' . htmlspecialchars($session->append_sid(scriptPath . "/irclogs.php")) . '">&lt; Back to channel list</a></p>';

  $year = strval($year);

  $month = strval($month);

  if ( $month < 10 )

    $month = "0" . $month;

  $q = $db->sql_query("SELECT day FROM irclog WHERE day LIKE '$year-$month-__' AND channel = '#$channel' GROUP BY day ORDER BY timestamp ASC;");

  if ( !$q )

    $db->_die();

  $days = array();

  while ( $row = $db->fetchrow() )

  {

    if ( !preg_match('/^[0-9]+-[0-9]+-([0-9]+)$/', $row['day'], $match) )

    {

      continue;

    }

    $days[] = intval($match[1]);

  }

  echo irc_make_calendar($year, $month, $days);

}

else

{

  // list channels

  $q = $db->sql_query("SELECT channel FROM irclog GROUP BY channel;");

  if ( !$q )

    $db->_die();

  echo '<h3>List of available channels</h3>';

  if ( $row = $db->fetchrow() )

  {

    echo '<p>';

    do

    {

      $channel = preg_replace('/^#/', '', $row['channel']);

      echo '<a href="' . htmlspecialchars($session->append_sid(scriptPath . "/irclogs.php?channel={$channel}")) . '">' . $row['channel'] . '</a><br />';

    }

    while ( $row = $db->fetchrow() );

    echo '</p>';

  }

  else

  {

    echo '<p>No channels logged.</p>';

  }

}

$q = $db->sql_query('USE enano_www;');

if ( !$q )

  $db->_die();

$template->footer();