HH :: Unispool :: config Hollandhouse 'Configuração Unispool
Baixe Agora

HH :: Unispool :: config Classificação e resumo

HH :: Unispool :: config Tag

Módulo Perl. configuração Configuração UNISPOOL Hollandhouse UNISPOOL

HH :: Unispool :: config Descrição

Configuração Unispool Hollandhouse ' HH :: Unispool :: CONFIG é um módulo Perl que gerencia os arquivos de configuração do HollandHouse 'Unispool. Os arquivos podem ser lidos, escritos, gerados a partir do zero e diff-ed.synopsis usam rigorosos; Use HH :: Unispool :: Config; Use HH :: Unispool :: Config :: OS; Use HH :: Unispool :: Config :: Entrada :: filtro; Use HH :: Unispool :: Config :: Entrada :: Sistema; Use HH :: Unispool :: Config :: Entrada :: Dispositivo :: 5; Use HH :: Unispool :: Config :: Entrada :: Device :: 6; Use HH :: Unispool :: Config :: Entrada :: Remotesystem :: 8; # Leia e escreva configure $ conf1 = hh :: Unispool :: config-> new_from_file ('t / config.sample'); $ conf1-> write ('t / config.sample.1.out'); # Leia novamente, modifique um pouco e diff Config My $ conf2 = hh :: Unispool :: config-> new_from_file ('t / config.sample'); $ conf2-> delete_system ('foobar.bar.org'); meu $ diff = $ conf1-> diff ($ conf2); if ($ diff) {imprimir stderr "\ nThis a saída é esperada \ n"; Imprimir Stderr "Diferenças \ n"; Imprimir stderr $ diff; Imprimir stderr "\ nThis output foi esperado \ n"; } # Crie uma configuração do zero my $ conf3 = HH :: Unispool :: config-> new (); # Crie um filtro e adicione-o à configuração Meu $ FLT = HH :: Unispool :: Entrada :: Filter-> Novo ({Nome => 'Cat', arquivo => '/ usr / bin / gato' }); $ conf3-> add_filter ($ flt); # Crie o sistema _network_ e adicione-o à configuração Meu $ SYSN = HH :: Unispool :: Entrada :: System-> Novo ({Nome => _Network_ ',}); $ conf3-> add_system ($ SYSN); # Adicionar um sistema remoto do tipo 8 para _network_ My $ RSYS = HH :: Unispool :: Entrada :: Remotesystem :: 8-> NOVO ({nome => 'foo', OS => HH :: Unispool :: CONFIG :: OS-> NOVO ({OS => 'Solaris'}), remote_node_name => 'foo.bar.org',}); $ SYSN-> add_remote_system ($ rsys); # Adicionar um dispositivo tipo 5 para _network_ My $ Dev = HH :: Unispool :: Entrada :: Device :: 5-> NOVO ({nome => 'lp', filter_name => 'cat', remote_device_name => 'lp', remote_system_name => 'foo', description => 'lp',}); $ SYSN-> Add_Device ($ DEV); # Crie o sistema Foo.bar.org e adicione-o à configuração Meu $ SYSF = HH :: Unispool :: Entrada :: System-> Novo ({nome => 'foo.bar.org', local_system_name = > 'foo', network_name => 'foo.bar.org', OS => HH :: Unispool :: config :: os-> novo ({OS => 'Solaris'}), tipo => 'cs', }); $ conf3-> add_system ($ sysf); # Adicionar um dispositivo tipo 6 para foo.bar.org $ Dev = HH :: Unispool :: Entrada :: Device :: 6-> NOVO ({nome => 'lp1', filter_name => 'gato', remote_node_name => 'lp1.foo.bar.org', descrição => 'lp1',}); $ Sysf-> Add_Device ($ DEV); # Adicionar outro dispositivo tipo 6 para foo.bar.org $ Dev = HH :: Unispool :: Entrada :: Device :: 6-> NOVO ({nome => 'lp2', filter_name => 'gato', remote_node_name => 'lp2.foo.bar.org', descrição => 'lp2',}); $ Sysf-> Add_Device ($ DEV); # Adicionar outro dispositivo tipo 3 para foo.bar.org $ Dev = HH :: Unispool :: Entrada :: Device :: 3-> NOVO ({nome => 'lp', filter_name => 'gato', membro_device_name => , descrição => 'lp',}); $ Sysf-> Add_Device ($ DEV); # Escreva a configuração $ conf3-> Write ('t / config.sample.3.out'); Requisitos: · Perl.

HH :: Unispool :: config Software Relacionado