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.