#!/usr/bin/perl

use charger_lib;

$cl = charger_lib->new();
$cl->set_unit(shift || 1);
$cl->set_baud(shift || 9600);
$cl->set_delay(0.07);
$cl->set_debug();

$cmdfile = shift;
if(! defined $cmdfile) {
$cmdfile = "charger.conf";
}

#uncomment this line to see lots of nifty debug info
#$cl->set_debug();

open(FOO,"<$cmdfile") || die "couldn't open $cmdfile";

$line_number = 0;

while($line = <FOO>) {
	$line_number++;
	$cl->parse_config_line($line,$line_number);
}

$errors = $cl->write_config();

print "$errors errors during configuration\n" if($errors) ;