The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

C3000 - A perl wrap for C3000 API This is a simple wrap of C3000 API. For more details, please refer to: meter2cash CONVERGE Business Objects Component Interfaces User Guide

VERSION

Version 1.02

SYNOPSIS

use C3000;
my $hl = C3000->new();
my $value = $hl->accu_LP('ADAS_VAL_RAW', '%', '+A', 'yesterday', 'today');
my $value = $hl->get_single_LP('ADAS_VAL_RAW', '%', '+A', 'yesterday');

Methods

get_LP
save_LP
accu_value
accu_tariff_value
get_variable_name
get_single_value
get_range_value
get_last_time
get_period
get_BV
search_device
search_ADAS_node
search_group
set_ADAS_node
del_paths
del_meters
del_VMs
create_path
get_tariff
get_tariff_id
eval_AMD
convert_VT_DATE
CreateMasterAccount
GetContainerID
GetDataSegmentID
GetTemplateID
exec_jobs
search_AE
search_CT
search_AETempl
search_CTTempl
search_meter_by_proxyattr
search_meter_by_AMD

get_LP

my $rs = get_LP(....);
while(!$rs->EOF){ 
	...
$rs->MoveNext();
}

return a recordset of LoadProfile low function, just ignore it.

save_LP

accu_LP

	return a accumulation value of LoadProfile

	$hl->accu_LP('%', '+A', $dt_yesterday, $dt_today);

	$hl->accu_LP('%', '+A', $dt_yesterday, $dt_today);
	 

search_device

return a recordset of device info fitting criteria 
low function, please refer test file for more details.

convert_VT_DATE

C3000 utils, pass to a DateTime obj and return a VT_DATE variable.

search_meter_by_proxyattr

return a ref of ADAS_ID

AUTHOR

Andy Xiao, <xyf.gmail.com>

BUGS

Please report any bugs or feature requests to bug-c3000 at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=C3000. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

TODO

ACKNOWLEDGEMENTS

LICENSE AND COPYRIGHT

Copyright 2011 Andy Xiao.

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.