Steven Hessing > Net-TL1-0.05 > Net::TL1::Alcatel

Download:
Net-TL1-0.05.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  2
Open  0
View/Report Bugs
Module Version: 0.03   Source  

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.
syntax highlighting: