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
RT: CPAN's request tracker (report bugs here)
AnnoCPAN: Annotated CPAN documentation
CPAN Ratings
Search CPAN
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.