| Esquema :: rdbms :: aus :: usuário Manipular usuários e grupos no esquema AUS. |
Baixe Agora |
Esquema :: rdbms :: aus :: usuário Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- Tyler MacDonald
- Site do editor:
- http://search.cpan.org/~crakrjack/
Esquema :: rdbms :: aus :: usuário Tag
Esquema :: rdbms :: aus :: usuário Descrição
Manipular usuários e grupos no esquema AUS. Schema :: RDBMS :: AUS :: O usuário é um módulo Perl que permite manipular usuários e grupos no AUS Schema.Synopsis Use Schema :: RDBMS :: AUS :: usuário; Use o DBIX :: Transaction; Meu $ DBH = DBIX :: Transaction-> Connect ('DBI: pg:'); Se (meu usuário $ User = Schema :: RDBMS :: AUS :: User-> Login ('Usuário', 'Pass', _DBH => $ DBH)) {Imprimir "ID do usuário é $ User -> {ID} "; $ user-> clear_flag (" never_logged_in ");} $ user-> troca_password ($ old, $ new); meu $ Group = Schema :: RDBMS :: AUS :: usuário-> cria (nome =>" revendedores " ", is_group => 1); $ user-> add_to_group (grupo $ Group); $ user-> salvar; $ Group-> set_flag (" back_room ", 1, 1); $ Group-> Salvar; $ User-> Atualizar if ($ user-> permissão ('back_room')) {Imprimir "Usuário $ User -> {NAME} é permitido na sala dos fundos. ";} etc ... Um esquema :: RDBMS :: OUS :: OUS :: O usuário representa um usuário ou um grupo no esquema de autenticação, usuários e sessões (AUS). A maior parte do resto do esquema é gerenciada por meio de um usuário. Requisitos: · Perl.
Esquema :: rdbms :: aus :: usuário Software Relacionado