Autenticazione: Ticket Based

• sub login {

  • my ($self, $user, $password) = @_;
  • unless ( $self->_check( $user, $password ) ) {
    • my $ticket = $self->_geticket( $user );
    • return SOAP::Data->name('ticket')->type('string')->value($ticket) ; }
  • return 0;

• }

Note: