#!/usr/bin/perl -w
# ======================================================================
# Project:             Seti@Home
# Project Leader:      Peter Wise
# ----------------------------------------------------------------------
# Program name:        GetStats
# Program state:       pre-alpha
# Program notes:       Pull stats on a seti user using XML interface
#
# Program filename:    getstats.pl
# ----------------------------------------------------------------------
# Version  Author      Date       Comment
# ~~~~~~~~ ~~~~~~~~~~~ ~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# 1.0      P.J.Wise    10/02/2003 Initial version
#
# ----------------------------------------------------------------------
# CVS:
#    ID:        $Id: getstats.pl,v 1.1 2003/02/10 02:32:04 peter Exp $
#    Author:    $Author: peter $
#    Date:      $Date: 2003/02/10 02:32:04 $
#    Revision:  $Revision: 1.1 $
#
# ----------------------------------------------------------------------
# Notes:
# ~~~~~~
# 
# ======================================================================
use strict;
use LWP::Simple qw/get/;
use XML::Simple;
use Data::Dumper;

#Config

my $TARGET_NAME= $ARGV[0] || 'YourTeamNameHere';
my $TARGET_URL = "http://setiathome.ssl.berkeley.edu/fcgi-bin/fcgi?cmd=team_lookup_xml&name=$TARGET_NAME";

$= = 20;
my ($nnn,$ccc,$rrr);
format STDOUT_TOP =
                Stats
Pos.  Name                             Results
-------------------------------------------------------------------
.
format STDOUT =
@>>   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  @>>>>>>>
$ccc, $nnn, $rrr
.



#print "Getting data from server...";
if ( my $data = get($TARGET_URL)){
        #print "Done\nProcessing...";

        my $ref_data = XMLin($data);
        #print "Done\n\n";
        my $members = $ref_data->{topmembers}{member};
        my $count = 0;
        foreach my $name (sort {$members->{$b}{numresults}<=>$members->{$a}{numresults}} keys %$members){
                $count++;
                $nnn = $name;
                $ccc = $count;
                $rrr = $members->{$name}{numresults};

                write();

        }
}else{
        print "Failed\n";
}