#!/usr/bin/perl -w
use strict; $|++; use HTML::TableExtract; use Getopt::Long; use Time::Local;
###############################################################################
#    Generates a list of Xbox 360 achievements sorted by time achieved.       #
#                                                                             #
#     v1.0: 2007-07-16, morbus@disobey.com, email me if you use/modify.       #
###############################################################################
# This script requires you to download all the relevant data from xbox.com    #
# yourself - I currently use OS X's Automator.app to do this. The relevant    #
# URLs are those that include "ViewAchievementDetails" in the path and        #
# compares your gamerscore with another ("compareTo" in the URL too).         #
#                                                                             #
#       perl x360a.pl x360a_data/* > x360a_morbus_iff_else.html               #
###############################################################################
# changes (2007-06-01, version 1.0):                                          #
#   - initial public release.                                                 #
###############################################################################
use POSIX qw(strftime); use Net::SMTP_auth; use HTML::Entities; use LWP::Simple;

my $data; while (<>) { $data .= $_; } # suck the achievement data.
my %te_config  = (keep_html => 1, strip_html_on_match => 0); # we use classes to get at the table we want.
my $te = HTML::TableExtract->new( attribs => { class => 'XbcProfileTable XbcAchievementsDetailsTable' }, %te_config);
$te->parse($data); # all games played by downloaded gamertags.

my @achievements; # master data lookup.
my $processed; # prevents duplicates.
# start the loop to collect everything.
foreach my $ts ($te->table_states) {
  my @gtcol; # maps column to gamer tag.
  my $game; # name of the game being searched.
  foreach my $r ($ts->rows) {

    # header row; grab gamertags and game.
    if (@$r[0] && @$r[0] =~ /XbcProfileTitle/) {
      @$r[0] =~ /<span class="XbcLiveText">(.*) <\/span>/; $game = $1;
      @$r[1] =~ /GamerTag=.*">(.*)<\/a><\/h3>/; $gtcol[1] = $1;
      @$r[2] =~ /GamerTag=.*">(.*)<\/a><\/h3>/; $gtcol[2] = $1;
    }

    # achievement row; look for success.
    if (@$r[0] && @$r[0] =~ /XbcAchievementsTitle/) {
      @$r[0] =~ /<p><strong class="XbcAchievementsTitle">(.*)<\/strong><\/p>/; my $a_title = $1;
      @$r[0] =~ /<\/p><\/div><p>(.*)<\/p><\/div>/; my $a_description = $1; # unexciting, no?

      # look for per-player achievements.
      for (my $col = 1; $col <= 2; $col++) {
        if (@$r[$col] =~ /xbcDisplayDate/) {
          @$r[$col] =~ /<img src="(http:\/\/tiles.*)" \/><\/div>/; my $a_tile = $1;
          @$r[$col] =~ /<\/div><p><strong>(\d+) <img/; my $a_points = $1;
          @$r[$col] =~ /_xbcDisplayDate\((\d+), (\d+), (\d+), (\d+), (\d+)\)/;

          # if we've already processed this game for this gamertag, skip
          # this row and achievement so we don't get duplicate results.
          if ($processed->{$gtcol[$col]}->{$game}) { next; }

          my $time = timegm(0, $5, $4, $2, $1, $3); # store in epoch UTC.
          push (@achievements, {
            description => HTML::Entities::decode($a_description),
            game        => HTML::Entities::decode($game),
            gamertag    => $gtcol[$col],
            points      => $a_points,
            tile_url    => $a_tile,
            tile_file   => $a_tile =~ /http:\/\/tiles.xbox.com\/tiles\/..\/..\/(.*)/,
            title       => HTML::Entities::decode($a_title),
            time        => $time,
            time_f      => strftime "%a %b %e %H:%M:%S %Y", gmtime($time),
          });
        }
      }
    }
  }

  # record games already processed.
  $processed->{$gtcol[1]}->{$game}++;
  $processed->{$gtcol[2]}->{$game}++;
}

# sort our achievements by date.
@achievements = sort { $b->{'time'} <=> $a->{'time'} } @achievements;

print <<EVIL_HEREDOC_HEADER_OF_ORMS_BY_GORE;
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xml:lang="en">
<head>
  <title>Xbox 360 Game Achievements</title>
  <meta http-equiv="content-type" content="text/html; charset=utf-8" />
  <script type="text/javascript" src="http://www.disobey.com/misc/jquery.js"></script>
  <script type="text/javascript" src="http://www.disobey.com/sites/all/jquery/jquery.tablesorter.js"></script>
  <script type="text/javascript">
    \$(document).ready(function() {
      \$("table").tableSorter({
        sortDir:       1,              // sort descending first.
        sortColumn:    'date',         // initial column to sort on.
        sortClassAsc:  'sortUp',       // class name for asc sorting action.
        sortClassDesc: 'sortDown',     // class name for desc sorting action.
        headerClass:   'headers',      // class name for headers (th).
        stripingRowClass: ['even','odd'], stripRowsOnStartUp: true,
      });
    });
  </script>

  <style type="text/css">
    td.date { width:150px; }
    td.points:before { content:"+"; }
    td.tile { height:64px;width:64px; }
    td .title { font-size:1.4em;font-weight:bold; }
    td.points { font-size:1.9em;font-weight:bold;width:60px; }
    td { text-align:center; } td.achievement { text-align: left; }

    body { font-size:0.9em;margin:1em;font-family:arial,sans-serif; }
    table { border:1px;margin-left:5px;margin-right:5px;padding:2px;width:98% }
    th { border:1px solid rgb(196,196,196);background-color:rgb(248,248,248); }
    h1, h2, h3 { background-color:transparent;color:#001080; } .odd { background-color:#edf3fe; }
    p { font-size:1.1em; margin-left:5px; } tr, td { border:1px solid rgb(235,235,235);border-top:0px; }
    .headers { background-color:rgb(248,248,248);color:#333;padding:5px;text-align:left;cursor:pointer; }
    th.sortUp { background-color:rgb(234,234,234); } th.sortUp:before { content:"\\002191   ";font-size: 1.2em; }
    th.sortDown { background-color:rgb(234,234,234); } th.sortDown:before { content:"\\002193   ";font-size: 1.2em; }
  </style>
</head>
<body>

<h1>Xbox 360 Game Achievements</h1>

<p>The below contains a listing of all Xbox 360 achievements attained by
gamertag <a href="http://profile.mygamercard.net/Morbus+Iff+Else">Morbus Iff
Else</a>. It was <a href="http://www.disobey.com/d/code/x360a.pl">created
by a Perl script from Morbus Iff</a> which scans downloaded achievement lists
from Xbox.com (how you actually download them is up to you). Currently, the
<a href="http://www.xbox.com/en-US/community/developer/">Xbox Community
Developer Program</a> is not accepting new tools, nor does it provide this
type of data at the API level (or so I'm told).</p>

<table><tr><th class="game">Game</th><th class="tile">Tile</th><th class="points">Points</th><th class="comment">Achievement</th><th class="date">Date</th></tr>
EVIL_HEREDOC_HEADER_OF_ORMS_BY_GORE

foreach my $achievement (@achievements) {
  if ($achievement->{'gamertag'} ne 'Morbus Iff Else') { next; }

  unless (-e "x360a_tiles/$achievement->{tile_file}") {
    # store the tiles locally so we don't leech of xbox.com.
    getstore($achievement->{'tile_url'}, "x360a_tiles/$achievement->{tile_file}");
  }

  print "<tr><td class=\"game\">$achievement->{game}</td>";
  print "<td class=\"tile\"><img src=\"x360a_tiles/$achievement->{tile_file}\" /></td>";
  print "<td class=\"points\">$achievement->{points}</td>";
  print "<td class=\"achievement\"><span class=\"title\">$achievement->{title}</span><br /><span class=\"description\">$achievement->{description}</span></td>";
  print "<td class=\"date\">". strftime("%Y-%m-%d %H:%M:%S", gmtime($achievement->{'time'})) ."</td></tr>\n";
} print "</table></body></html>";