#!/usr/bin/perl

use warnings;
use strict;

my $line;
my $data;
my $min = 200;
my $max = 0;

while(defined($line = <>)) {
    my ($date,$value) = split /\s+/, $line;
    $max = $value if $value > $max;
    $min = $value if $value < $min;

    push @$data, [$date,$value];
}

$min-=10;
$max+=10;


print <<"XMLHEAD";
<graph caption='Adições diárias de palavras'
       numVDivLines='7' 
       xAxisName='Dia'
       yAxisMinValue='$min' yAxisName='Palavras'
       yAxisMaxValue='$max'
       decimalPrecision='0' formatNumberScale='0'
       showNames='1' showValues='0' 
       showAlternateHGridColor='1' AlternateHGridColor='ff5904'
       divLineColor='ff5904' divLineAlpha='20' alternateHGridAlpha='5' >
XMLHEAD

my $i = 4;
for (@$data) {
    if ($i % 4 == 0) {
	     my $v = $_->[0];
	     $v =~ s!/\d+$!!g;
      print "  <set name='$v' value='$_->[1]' hoverText='$_->[0]'/>\n";
    } else {
      print "  <set name='' value='$_->[1]' hoverText='$_->[0]'/>\n";
    }
    $i++;
}
print "</graph>\n";