root/dev/mods/feed_syndication/settings.php @ 307

<?php
// ////
// ////  //////
// ////  liq's feed syndication mod v1.5
// //////////
// //////////
// //////////
// //////////
// set this to 1 if you are running a master killboard and want
// to even fetch mails not related to your corp / alliance
define(MASTER, 0);

$version = "v1.5";
@set_time_limit(0);
require_once('feed_fetcher.php');
require_once('common/admin/admin_menu.php');
require_once('common/includes/class.corp.php');
require_once('common/includes/class.alliance.php');

$page = new Page("Administration - Feed Syndication " . $version);
$page->setCachable(false);
$page->setAdmin();

$validurl = "/^(http|https):\/\/[a-z0-9]+([\-\.]{1}[a-z0-9]+)*\.[a-z]{2,5}((:[0-9]{1,5})?\/.*)?$/i";
$html .= "<script language=\"JavaScript\">function checkAll(checkname, exby) {for (i = 0; i < checkname.length; i++)checkname[i].checked = exby.checked? true:false}</script>";
$html .= "<table class=kb-subtable>";
// checking for updated versions
/*$versionserver = "http://tomx.org/feed/version.txt";
if (fopen($versionserver, "r"))
{
    $versionfile = fopen($versionserver, "r");
    $remoteversion = fread($versionfile, 4);
    fclose($versionfile);
    if ($remoteversion != $version)
        $html .= '<div class="kl-loss"><b>Your version (' . $version . ') is outdated! </b></div><br>There is a newer version (' . $remoteversion . ') available <a href="http://tomx.org/feed/mod_feed_' . $remoteversion . '.zip"><b>here</b></a>. <br>Please update!<br><br>';
}
else
    $html .= '<div class="kl-loss">Cant retrieve version information from: ' . $versionserver . '</div><br><br>';
 */
if (config::get('fetch_feed_count'))
    $feedcount = config::get('fetch_feed_count');
else
    $feedcount = 3;
// saving urls and options
if ($_POST['submit'] || $_POST['fetch'])
{
    if (ctype_digit($_POST['fetch_feed_count']) && $_POST['fetch_feed_count'] > 0)
    {
        $feedcount = $_POST['fetch_feed_count'];
        config::set('fetch_feed_count', $feedcount);
        for ($i = 99; $i >= $feedcount; $i--)
        {
            config::del('fetch_url_' . $i);
        }
    }
    if ($_POST['fetch_verbose'])
        config::set('fetch_verbose', '1');
    else
        config::set('fetch_verbose', '0');

    if ($_POST['fetch_compress'])
        config::set('fetch_compress', '0');
    else
        config::set('fetch_compress', '1');

    if ($_POST['fetch_comment'])
        config::set('fetch_comment', $_POST['fetch_comment']);
    else
        config::set('fetch_comment', '');

    for ($i = 1; $i <= $feedcount; $i++)
    {
        $url = "fetch_url_" . $i;
        if (preg_match($validurl , $_POST[$url]))
        {
            if ($_POST['friend'] && in_array ($i, $_POST['friend']))
                $friends = "on";
            else $friends = "";
            config::set($url, $_POST[$url] . ':::' . $time[$i] . ':::' . $friends);
            $feed[$i] = $_POST[$url];
        }
        else
            config::set($url, '');
        $feed[$i] = '';
    }
}
$feed = array();
for ($i = 1; $i <= $feedcount; $i++)
{
    $str = config::get('fetch_url_' . $i);
    $tmp = explode(':::', $str);
    $feed[$i] = $tmp[0];
    $time[$i] = $tmp[1];
    if ($tmp[2] == "on")
        $friend[$i] = $tmp[2];
}
// building the request query and fetching of the feeds
if ($_POST['fetch'])
{
    if (CORP_ID && !MASTER)
    {
        $corp = new Corporation(CORP_ID);
        $myid = '&corp=' . urlencode($corp->getName());
    }
    if (ALLIANCE_ID && !MASTER)
    {
        $alli = new Alliance(ALLIANCE_ID);
        $myid = '&alli=' . urlencode($alli->getName());
    }
    for ($i = 1; $i <= $feedcount; $i++)
    {
        $feedfetch = new Fetcher();
        $cfg = "fetch_url_" . $i;
        if (preg_match($validurl , $feed[$i]) && $_POST['fetch_feed'] && in_array ($i, $_POST['fetch_feed']))
        {
            $str = '';
            // if ($time[$i])
            // $str .= '&lastkllid='.$time[$i];
            if ($friend[$i])
                $str .= '&friend=1';
            if ($_POST['fetch_losses'])
                $str .= "&losses=1";
            if (!config::get('fetch_compress'))
                $str .= "&gz=1";
            if ($_POST['range1'] && $_POST['range2'])
            {
                if ($_POST['range1'] > $_POST['range2'])
                {
                    $range1 = $_POST['range2'];
                    $range2 = $_POST['range1'];
                }
                else
                {
                    $range1 = $_POST['range1'];
                    $range2 = $_POST['range2'];
                }
                for ($l = $range1; $l <= $range2; $l++)
                {
                    $html .= "<b>Week: " . $l . "</b><br>";
                    $html .= $feedfetch->grab($feed[$i] . "&year=" . $_POST['year'] . "&week=" . $l, $myid . $str);
                }
            }
            else
                $html .= $feedfetch->grab($feed[$i], $myid . $str);
        }
        config::set($cfg, $feed[$i] . ':::' . $lastkllid . ':::' . $friend[$i]);
        $time[$i] = $lastkllid;
    }
}
// generating the html
$html .= '<form id="options" name="options" method="post" action="?a=settings_feed_syndication">';
$html .= "</table>";

$html .= "<div class=block-header2>Feeds</div><table>";
for ($i = 1; $i <= $feedcount; $i++)
{
    $html .= "<tr><td width=85px><b>Feed url #" . $i . "</b></td><td><input type=text name=fetch_url_" . $i . " size=50 class=password value=\"";
    if ($feed[$i])
        $html .= $feed[$i];
    $html .= "\"></td>";

    $html .= "<td><input type=checkbox name=friend[] id=friend value=" . $i;
    if ($friend[$i])
        $html .= " checked=\"checked\"";
    $html .= "><b>Friend?</b></td>";

    $html .= "<td><input type=checkbox name=fetch_feed[] id=fetch value=" . $i;
    if ($feed[$i])
        $html .= " checked=\"checked\"";
    $html .= "><b>Fetch?</b><br>";
    $html .= "</td></tr>";
}
$html .= '<tr><td colspan=2><i>Example: http://killboard.eve-d2.com/?a=feed</i></td><td>';
$html .= '<input type="checkbox" name="all" onclick="checkAll(this.form.friend,this)"><i>all/none</i></td><td>';
$html .= '<input type="checkbox" name="all" onclick="checkAll(this.form.fetch,this)"><i>all/none</i>';
$html .= "</td></tr><br></table><br><br><br>";

$html .= "<table><tr><td height=20px width=150px><b>First week:</b></td>";
$html .= '<td><select name="range1">';
$now = date("W");
for ($i = 1; $i <= 52; $i++)
{
    if ($now == $i)
        $html .= '<option selected="selected "value="' . $i . '">' . $i . '</option>';
    else
        $html .= '<option value="' . $i . '">' . $i . '</option>';
}
$html .= '</select>';
$html .= "<i></i></td></tr>";
$html .= "<tr><td height=20px width=150px><b>Last week:</b></td>";
$html .= '<td><select name="range2">';
for ($i = 1; $i <= 52; $i++)
{
    if ($now == $i)
        $html .= '<option selected="selected "value="' . $i . '">' . $i . '</option>';
    else
        $html .= '<option value="' . $i . '">' . $i . '</option>';
}
$html .= '</select>';
$html .= "<i></i></td></tr>";

$html .= "<tr><td height=20px width=150px><b>Year:</b></td>";
$html .= '<td><select name="year">';
$html .= '<option "value="2005">2005</option>';
$html .= '<option "value="2006">2006</option>';
$html .= '<option selected="selected "value="2007">2007</option>';
$html .= '<option "value="2008">2008</option>';
$html .= '<option "value="2009">2009</option>';
$html .= '</select>';
$html .= "</td></tr>";
$html .= "<tr><td height=40px width=150px><b>Get kills instead of losses?</b></td>";
$html .= "<td><input type=checkbox name=fetch_losses id=fetch_losses>";
$html .= "<i> (by default only their kills, your losses, get fetched, when ticked this is inversed)</i></td></tr>";
$html .= "</table><br><br>";
$html .= "<input type=submit id=submit name=fetch value=\"Fetch!\"><br><br>";

$html .= "<div class=block-header2>Options</div><table>";
$html .= "<tr><td height=30px width=150px><b>Number of feeds:</b></td>";
$html .= "<td><input type=text name=fetch_feed_count size=2 maxlength=2 class=password value=\"" . $feedcount . "\"></td></tr>";
$html .= "<tr><td height=50px width=150px><b>Comment for automatically parsed killmails?</b></td>";
$html .= "<td><input type=text size=50 class=password name=fetch_comment id=fetch_comment value=\"";
if (config::get('fetch_comment'))
    $html .= config::get('fetch_comment');
$html .= "\"><br><i> (leave blank for none)</i><br></td></tr>";
$html .= "<tr><td height=30px width=150px><b>Enable compression?</b></td>";
$html .= "<td><input type=checkbox name=fetch_compress id=fetch_compress";
if (!config::get('fetch_compress'))
    $html .= " checked=\"checked\"";
$html .= "><i> (enables GZip compression for feeds that support this feature, for streams that do not support GZip compression regular html mode will be used automatically)</i></td>";
$html .= "</tr>";
$html .= "<tr><td height=30px width=150px><b>Verbose mode?</b></td>";
$html .= "<td><input type=checkbox name=fetch_verbose id=fetch_verbose";
if (config::get('fetch_verbose'))
    $html .= " checked=\"checked\"";
$html .= "><i> (displays advanced feed request information and errormessages when the imported mail is rejected for being malformed, already exists or is not related to your corp or alliance)</i></td>";
$html .= "</tr></table><br><br>";
$html .= "<input type=submit id=submit name=submit value=\"Save\">";
$html .= "</form>";

$page->addContext($menubox->generate());
$page->setContent($html);
$page->generate();

?>