#!/usr/bin/perl
#$Id: set_current,v 1.4 2011/11/09 13:53:44 sofc Exp $
use RFC::Rig;
use strict;
use warnings;
my $rig = RFC::Rig->new(shift);
$rig->check_run;
my $current = shift;
my $device = shift;
if ($device)
{
    print $rig->current($current,$device);
}
else
{
    print $rig->current($current);
}
print "\n";
