AUT. Uma estrutura de autorização com backends flexíveis e UIS.
Baixe Agora

AUT. Classificação e resumo

AUT. Tag

estrutura Módulo Perl. perl autorização Framework de autorização

AUT. Descrição

Uma estrutura de autorização com backends flexíveis e UIS. AUT é uma estrutura de autorização baseada em perl com backends flexíveis e uis.synopsis usa aut; use aut :: ui :: console; use aut :: backend :: conf; usar config :: frontend; Use config :: backend :: ini; Use rigoroso; Meu $ CFG = NOVO CONFIG :: FRONTEND (Novo Config :: Backend :: ini (". - Accounts.ini")); Meu $ backend = novo aut :: backend :: conf ($ cfg); Meu $ UI = NOVO AUT :: UI :: Console (); My $ AUT = NOVO AUT (backend => $ backend, ui => $ ui, rsA_bits => 512, níveis => , adminlevel => "admin"); meu $ bilhete = $ AUT-> Ticket_Get ("admin", "Testpass"); if (não $ ticket-> válido ()) {$ ticket = NOVO AUT :: ticket ("admin", "testpass"); $ ticket-> set_rights ("admin"); $ aut-> ticket_create ($ bilhete); } $ ticket = $ aut-> login (); Imprimir "Conta:", $ Ticket-> Conta () " "; imprimir" direitos: ", $ ticket-> Direitos ()" "; if ($ ui-> is_admin ($ ticket) {$ aut-> admin ($ ticket);} else {$ ui-> message_ok (_t (" você não tem direitos de administrador "." Você não pode administrar contas. ");} Imprimir" conta: ", $ ticket-> conta ()" "; imprimir" direitos: ", $ ticket-> Direitos ()" "; $ aut-> troca_pass ($ ticket); requisitos: · Pitão

AUT. Software Relacionado