--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/irclogs.php Wed May 07 23:56:26 2008 -0400
@@ -0,0 +1,329 @@
+<?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)) . '">></a>';
+ $a_next_year = '<a href="' . htmlspecialchars($session->append_sid(scriptPath . '/irclogs.php?year=' . date('Y', $next_year) . '&month=' . $month . '&channel=' . $channel)) . '">>></a>';
+ $a_prev_month = ( $year == 1970 && $month == 1 ) ? '<' : '<a href="' . htmlspecialchars($session->append_sid(scriptPath . '/irclogs.php?year=' . date('Y', $prev_month) . '&month=' . date('n', $prev_month) . '&channel=' . $channel)) . '"><</a>';
+ $a_prev_year = ( $year == 1970 ) ? '<<' : '<a href="' . htmlspecialchars($session->append_sid(scriptPath . '/irclogs.php?year=' . date('Y', $prev_year) . '&month=' . $month . '&channel=' . $channel)) . '"><<</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")) . '">< 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")) . '">< 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();
+