#!/usr/bin/perl

use strict;

unless ($ARGV[0]) {
    die "Syntax:\n\t $0 VEID[:INTERFACE] [VEID[:INTERFACE]] ...\n";
}

my $velist='';
my %ve=();
my $i;

for ($i=0;$i<=$#ARGV;$i++) {
    unless ($ARGV[$i]=~/(^\d+)(\:(\d+))?$/) {
        die "Did not understand parameter: ".$ARGV[$i]."\n";
    }
    $velist.=" -v ".$1;
    $ve{$1}=defined $3?$3:'*';
}

my $pipe;
open $pipe,'/usr/sbin/vznetstat '.$velist.' |' or die 'Cant open pipe';

while(<$pipe>) {
    if (/^(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)/) {
        if ($ve{$1} ne '*') {
            next if ($ve{$1} != int($2));
        }
        # ID:INTERFACE:IN[bytes]:OUT[bytes]
        print "$1:$2:$3:$5\n";
    }
}

close $pipe;