Hi there:
I'm about to start working on a TL-1 implementation in Perl (kind of a
Net::Telnet::Cisco thing, but supporting TL-1 in a vendor-neutral fashion).
Probably other modules such as Net::TL1::Foo would provide vendor-specific
support for decoding of proprietary information within the protocol.
I would like to know if any of you is involved in something like this. In
this case, I would like to join efforts.
The resulting module would be distributed as open source in CPAN.
Regards.
-lem
--
--
#!/usr/bin/perl -w
use strict;
$_[$_]=0for 0..7;for$'(grep{s@^..@@}unpack"\1028"x28,join'',split//,
qq{=\37\34 \24(\31??\11\64:1\22\36/\24\2\12\4\b??\1\$\2\15\36}){$/=0
;grep{$_[$/++].=$_}split//,$';length$_[0]&@_&&print pack"\1028",$_
for@_;length$_[3]&@_&&grep{$_&=0}@_;}print"\n";
