NAME

Net::TL1::Alcatel - Perl extension for managing Alcatel network
devices using TL1

SYNOPSIS

use Net::TL1::Alcatel;

$ctag = $obj->rtrvxdsl([{ctag => $ctag}]);
$ctag = $obj->reptopstatxlnecom([{ctag => $ctag}]);
$ctag = $obj->reptopstatxbearer([{ctag => $ctag}]);
$ctag = $obj->reptopstatxline([{ctag => $ctag}]);
$ctag = $obj->rtrvservprov([{ctag => $ctag}]):
$ctag = $obj->rtrvservcurr ([{ctag => $ctag}]):
$ctag = $obj->rtrvinvxdslcpe([{ctag => $ctag}]):
$ctag = $obj->reptopstatatmport([{ctag => $ctag}]):

Methods inherited from Net::TL1 :

$obj = new Net::TL1 ({
  Host => $host,
  [Port => $port],
  [Debug => $val]
});

$obj->Login ({
  Target => $target,
  User => $username,
  Password => $password,
  [ctag => $ctag]
});

$obj->Logout ({Target => $target});

$lines = $obj->Execute($cmd, [@output]);

$bool = $obj->is_error($ctag);
$ctag = $obj->get_ctag;
$lines = $obj->ParseRaw;
($lines, $ctag) = $obj->ParseHeader;
($ref, $data, $status) = $obj->ParseAid($ctag, $line);
$lines = $obj->ParseBody;
$lines = $obj->ParseSimpleOutputLines($ctag);
$lines = $obj->ParseCompoundOutputLines($ctag);

$ctag = $obj->get_newctag;
$ref = $obj->get_hashref([$ctag]);

$obj->read_testfile($filename);
$obj->dumpraw;

$obj->close;

DESCRIPTION

  Transaction Language 1 is a configuration interface to network
  devices used in public networks. Through its very structured but
  human-readable interface it is very suitable to provide the glue for
  netwerk device <-> OSS integration.

  The Net::TL1::Alcatel module provides an interface to the AWS TL1
  gatway product of Alcatel. Several of the TL1 commands are directly
  supported using methods available in the class.

  Each of the methods require a reference to hash be passed with the 
  following keys:
  
    'Target': Name of the network device
    'Rack', 'Shelf', 'Slot'
    Either 'Circuit' or 'FirstCircuit' and 'LastCircuit' to support 
    ranges of ports.
    'ctag': The ctag key is optional. If none is provided then a ctag
    will be randomly assigned.
	
  Please see the Net::TL1 POD documentation for detailed documentation
  of the module.

REQUIRES

Net::TL1

EXPORT

(none)

AUTHOR

Steven Hessing, E<lt>stevenh@xsmail.comE<gt>

SEE ALSO

http://www.tl1.com/

Net::TL1

COPYRIGHT AND LICENSE

Copyright (c) 2005, Steven Hessing. All rights reserved. This
program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.