#!/usr/bin/perl -w
#
# grabrank.pl
#
# Kod ten jest darmowym oprogramowaniem; mona go rozpowszechnia i/lub
# modyfikowa na warunkach takich, jak samego Perla
#

use strict;
use LWP::Simple;
my $time=time(  );

# cieka do lokalnego RRDTOOL.
my $rrd = '/usr/local/bin/rrdtool';

# Pobranie strony Amazon.com dotyczcej Mac OS X Hacks
my $data = get("http://www.amazon.com/exec/obidos/ASIN/0596004605/");
$data =~ /Amazon.com Sales Rank: <\/b> (.*) <\/span><br>/;
my $salesrank=$1; # i ranking sprzeday ju jest nasz!

# Pozbywamy si przecinkw.
$salesrank =~ s/,//g;

# Aktualizacja bazy danych rrdtool.
`$rrd update salesrank.rrd $time:$salesrank`;

# Aktualizacja naszego wykresu.
my $cmd= "$rrd graph osxhacks.png --imgformat PNG --units-exponent ".
         "0 DEF:myrank=salesrank.rrd:rank:AVERAGE LINE1:myrank#FF0000:".
         "'Mac OS X Hacks' --start ".($time-31*86400)." --end $time";
`$cmd`; # tadam! ju gotowe.

