package IIf4fd6f7bd0c522901118296dfcf405dd::Method::CG; use strict; use CGP::CLI; sub inflate { my ($this, $str) = @_; $str; } sub deflate { my ($this, $user) = @_; $user; } sub authorize { my ($this, $login, $passwd) = @_; my $par = { PeerAddr => $this->{cfg}->{PeerAddr}, PeerPort => $this->{cfg}->{PeerPort}, login => $login, password => $passwd, }; my $cli = new CGP::CLI($par); $cli ? $login : undef; } 1; 