#!/usr/bin/perl
use strict;

if (@ARGV <= 0) {
  die "no user specified\n";
}

my $user=$ARGV[0];
my ($total, $up, $down);

my $year     = `date +"%Y"`;
my $mon      = `date +"%m"`;

chomp $year;
chomp $mon;

my $interval = "$year.$mon";
$interval = $interval . "-" . $interval;

$down = `/usr/local/bin/ipastat -qr ${user}-downstream -i \"$interval\" | tail -n 1 | sed -e "s/^[^0-9]*\([0-9]*\).*/\1/g"`;
$up = `/usr/local/bin/ipastat -qr ${user}-upstream -i \"$interval\" | tail -n 1 | sed -e "s/^[^0-9]*\([0-9]*\).*/\1/g"`;
chomp $down;
chomp $up;
$down =~ s/^[^0-9]*//g;
$down =~ s/\ .*$//g;
$up   =~ s/^[^0-9]*//g;
$up   =~ s/\ .*$//g;
print "$down\n$up\n0\n0\n";
print "$interval\n";