Perfsonar_ps :: Cliente :: Status :: Ma Um módulo que fornece métodos para interagir com os servidores MA MA
Baixe Agora

Perfsonar_ps :: Cliente :: Status :: Ma Classificação e resumo

Perfsonar_ps :: Cliente :: Status :: Ma Tag

servidor Módulo Perl. status Status Ma Servers. Status dos servidores. MA

Perfsonar_ps :: Cliente :: Status :: Ma Descrição

Um módulo que fornece métodos para interagir com os servidores MA MA PerfsUr_ps :: Cliente :: Status :: MA é um módulo Perl que permite interagir com o status MA através de sua interface de serviços da Web. A API fornecida é idêntica à API para interagir com o banco de dados MA diretamente. Assim, um cliente escrito para ler ou atualizar um status ma pode ser facilmente modificado para interagir diretamente com seu banco de dados subjacente, permitindo interações mais eficientes, se necessário. O módulo deve ser tratado como um objeto, onde cada instância do objeto representa uma conexão para um único banco de dados. Cada método pode então ser invocado no objeto para o banco de dados específico.Synopsisuse perfursonar_ps :: STATUS :: MA; MA; Meu $ status_client = New PerfSuSar_ps :: Cliente :: Status :: MA ("http: // localhost: 4801 / AXIS / SERVIÇOS / STATUS "); se (não definido $ status_client) {imprimir "problema criação de cliente para status ma \ n"; saída (-1); } meu (status $, $ res) = $ status_client-> aberto; if ($ status! = 0) {Imprimir "problema de abertura do problema Ma: $ res \ n"; saída (-1); } ($ status, $ res) = $ status_client-> getall (); se ($ status! = 0) {print "problema Obtendo o banco de dados completo: $ res \ n"; saída (-1); } Meu @Links = (); foreça meu ID $ (teclas% {$ res}) {imprimir "ID do link: $ id \ n"; foreach meu link $ (@ {$ res -> {$ ID}}) {imprimir "\ t". $ link-> getstarttime. "-". $ link-> getendtime. "\ n"; Imprimir "\ T nível de conhecimento:". $ Link-> Recebimento. "\ n"; Imprimir "\ T-Operstatus:". $ link-> getoperstatus. "\ n"; Imprimir "\ T-AdminStatus:". $ link-> getadminstatus. "\ n"; } Push @Links, $ ID;} ($ status, $ res) = $ status_client-> getlinkstatus (\ @ links, ""); if ($ status! = 0) {print "problema Obter o status do link mais recente: $ res \ n"; saída (-1); } foreach meu ID $ (keys% {$ res}) {imprimir "ID do link: $ id \ n"; foreach meu link $ (@ {$ res -> {$ ID}}) {print "-operstatus:". $ link-> getoperstatus. "\ n"; Imprimir "-Adminstatus:". $ link-> getadminstatus. "\ n"; }} ($ status, $ res) = $ status_client-> getlinkhistory (\ @ links); if ($ status! = 0) {Imprimir "Problema Obtendo Histórico de Link: $ res \ N"; saída (-1); } foreach meu ID $ (keys% {$ res}) {imprimir "ID do link: $ id \ n"; foreach meu link $ (@ {$ res -> {$ ID}}) {print "-operstatus:". $ link-> getoperstatus. "\ n"; Imprimir "-Adminstatus:". $ link-> getadminstatus. "\ n"; }} Requisitos: · Perl.

Perfsonar_ps :: Cliente :: Status :: Ma Software Relacionado