Gazelle/sections/tools/data/economic_stats.php

<?php

/*
Tools necessary for economic management

1. Current overall stats (!economy)

2. Statistical traffic trends in a graph
  a. All time / 1 year (whichever is smaller)
  b. 1 month
  c. 1 week
  d. 1 day

3. Freeleech analysis
  a. total download average during freeleech vs. normal conditions
  b. total stats of a freeleech - uploaded torrents, upload amount, download amount, snatches, etc.

4. Traffic trends over an account's life, on average
  a. at one week, one month, whatever (selectable range in weeks) - averages (up/down/ratio)
  b. given a selected timespan, average ratio (users who are 4-5 months old have X ratio)
  c. average date at which >50% of accounts with ratios >1 reach 1.0 and never dip below, stockpiling buffer

5. Raw numbers
  a. total torrents, seeders, leechers
  b. average seeds/leechs per torrent
  c. average snatches/user
  d. average seeding torrents/user
  e. users on ratio watch

6. Distribution graph of seedership vs. torrent percentage
  a. graph showing that the top 1% of torrents has 50% of seeders or whatever the numbers might be

7. Effects of economic changes
  a. number of users changed by ratio being changed
  b. project effects with intelligent mathematical analysis of a 24, 48 or 72 hour freeleech
*/

if (!check_perms('site_view_flow')) {
    error(403);
}

View::show_header('Economy');

if (!$EconomicStats = $Cache->get_value('new_economic_stats')) {
    $DB->query("
      SELECT SUM(Uploaded), SUM(Downloaded), COUNT(ID)
      FROM users_main
      WHERE Enabled = '1'");
    list($TotalUpload, $TotalDownload, $NumUsers) = $DB->next_record();

    $DB->query("
      SELECT SUM(Bounty)
      FROM requests_votes");
    list($TotalBounty) = $DB->next_record();

    $DB->query("
      SELECT SUM(rv.Bounty)
      FROM requests_votes AS rv
        JOIN requests AS r ON r.ID = rv.RequestID
      WHERE TorrentID > 0");
    list($AvailableBounty) = $DB->next_record();

    $DB->query("
      SELECT SUM(Snatched), COUNT(ID)
      FROM torrents");
    list($TotalSnatches, $TotalTorrents) = $DB->next_record(); // This is the total number of snatches for torrents that still exist

    $DB->query("
      SELECT COUNT(uid)
      FROM xbt_snatched");
    list($TotalOverallSnatches) = $DB->next_record();

    if (($PeerStats = $Cache->get_value('stats_peers')) === false) {
        $DB->query("
          SELECT COUNT(fid)
          FROM xbt_files_users
          WHERE remaining = 0");
        list($TotalSeeders) = $DB->next_record();

        $DB->query("
          SELECT COUNT(fid)
          FROM xbt_files_users
          WHERE remaining > 0");
        list($TotalLeechers) = $DB->next_record();
    } else {
        list($TotalLeechers, $TotalSeeders) = $PeerStats;
    }

    $TotalPeers = $TotalLeechers + $TotalSeeders;
    $DB->query("
      SELECT COUNT(ID)
      FROM users_main
      WHERE (
        SELECT COUNT(uid)
        FROM xbt_files_users
        WHERE uid = users_main.ID
        ) > 0");
    list($TotalPeerUsers) = $DB->next_record();

    $Cache->cache_value(
        'new_economic_stats',
        array($TotalUpload, $TotalDownload, $NumUsers, $TotalBounty,
          $AvailableBounty, $TotalSnatches, $TotalTorrents,
          $TotalOverallSnatches, $TotalSeeders, $TotalPeers,
          $TotalPeerUsers),
        3600
    );
} else {
    list($TotalUpload, $TotalDownload, $NumUsers, $TotalBounty, $AvailableBounty,
    $TotalSnatches, $TotalTorrents, $TotalOverallSnatches, $TotalSeeders,
    $TotalPeers, $TotalPeerUsers) = $EconomicStats;
}

$TotalLeechers = $TotalPeers - $TotalSeeders;
?>

<div>
  <div class="box">
    <div class="head">Overall stats</div>
    <div class="pad">

      <ul class="stats nobullet">
        <li>
          <strong>Total upload:</strong>
          <?=Format::get_size($TotalUpload)?>
        </li>

        <li>
          <strong>Total download:</strong>
          <?=Format::get_size($TotalDownload)?>
        </li>

        <li>
          <strong>Total buffer:</strong>
          <?=Format::get_size($TotalUpload - $TotalDownload)?>
        </li>
        <br />

        <li>
          <strong>Mean ratio:</strong>
          <?=Format::get_ratio_html($TotalUpload, $TotalDownload)?>
        </li>

        <li>
          <strong>Mean upload:</strong>
          <?=Format::get_size($TotalUpload / $NumUsers)?>
        </li>

        <li>
          <strong>Mean download:</strong>
          <?=Format::get_size($TotalDownload / $NumUsers)?>
        </li>

        <li>
          <strong>Mean buffer:</strong>
          <?=Format::get_size(($TotalUpload - $TotalDownload) / $NumUsers)?>
        </li>
        <br />

        <li>
          <strong>Total request bounty:</strong>
          <?=Format::get_size($TotalBounty)?>
        </li>

        <li>
          <strong>Available request bounty:</strong>
          <?=Format::get_size($AvailableBounty)?>
        </li>
      </ul>
    </div>
  </div>
  <br />

  <div class="box">
    <div class="head">Swarms and snatches</div>
    <div class="pad">

      <ul class="stats nobullet">
        <li>
          <strong>Total seeders:</strong>
          <?=number_format($TotalSeeders)?>
        </li>

        <li>
          <strong>Total leechers:</strong>
          <?=number_format($TotalLeechers)?>
        </li>

        <li>
          <strong>Total peers:</strong>
          <?=number_format($TotalSeeders + $TotalLeechers)?>
        </li>

        <li>
          <strong>Total snatches:</strong>
          <?=number_format($TotalOverallSnatches)?>
        </li>

        <li>
          <strong>Seeder/leecher ratio:</strong>
          <?=Format::get_ratio_html($TotalSeeders, $TotalLeechers)?>
        </li>

        <li>
          <strong>Seeder/snatch ratio:</strong>
          <?=Format::get_ratio_html($TotalSeeders, $TotalOverallSnatches)?>
        </li>
        <br />

        <li>
          <strong>Mean seeders per torrent:</strong>
          <?=number_format($TotalSeeders / $TotalTorrents, 2)?>
        </li>

        <li>
          <strong>Mean leechers per torrent:</strong>
          <?=number_format($TotalLeechers / $TotalTorrents, 2)?>
        </li>

        <li>
          <strong>Mean snatches per torrent:</strong>
          <?=number_format($TotalSnatches / $TotalTorrents, 2)?>
        </li>
        <br />

        <li>
          <strong>Mean seeding per user:</strong>
          <?=number_format($TotalSeeders / $NumUsers, 2)?>
        </li>

        <li>
          <strong>Mean leeching per user:</strong>
          <?=number_format($TotalLeechers / $NumUsers, 2)?>
        </li>

        <li>
          <strong>Mean snatches per user:</strong>
          <?=number_format($TotalOverallSnatches / $NumUsers, 2)?>
        </li>
        <br />

        <li>
          <strong>Total users in at least 1 swarm:</strong>
          <?=number_format($TotalPeerUsers)?>
        </li>

        <li>
          <strong>Mean seeding per user in at least 1 swarm:</strong>
          <?=number_format($TotalSeeders / $TotalPeerUsers, 2)?>
        </li>

        <li>
          <strong>Mean leeching per user in at least 1 swarm:</strong>
          <?=number_format($TotalLeechers / $TotalPeerUsers, 2)?>
        </li>

        <li>
          <strong>Mean snatches per user in at least 1 swarm:</strong>
          <?=number_format($TotalSnatches / $TotalPeerUsers, 2)?>
        </li>
      </ul>

    </div>
  </div>
</div>
<?php
View::show_footer();