HH :: Unispool :: Config Hollandhouse 'Unispool-configuratie
Download nu

HH :: Unispool :: Config Rangschikking & Samenvatting

HH :: Unispool :: Config Tags

Perl-module configuratie UNISPOOL-configuratie Hollandhouse Unispool

HH :: Unispool :: Config Beschrijving

Hollandhouse 'Unispool-configuratie HH :: Unispool :: Config is een PERL-module die Hollandhouse 'Unispool-configuratiebestanden beheert. Bestanden kunnen worden gelezen, geschreven, gegenereerd vanaf nul en diff-ed.Synopsis-gebruik. Gebruik HH :: Unispool :: Config; Gebruik HH :: Unispool :: Config :: OS; Gebruik HH :: Unispool :: Config :: Invoer :: Filter; Gebruik HH :: Unispool :: Config :: Invoer :: Systeem; Gebruik HH :: Unispool :: Config :: Invoer :: Apparaat: 5; Gebruik HH :: Unispool :: Config :: Invoer :: Apparaat :: 6; Gebruik HH :: Unispool :: Config :: Invoer :: Relotesystem :: 8; # Lees en schrijf configuratie My $ conf1 = HH :: Unispool :: config-> new_from_file ('t / config.sample'); $ conf1-> schrijf ('t / config.sample.1.out'); # Lees opnieuw, wijzig een beetje en diff-configuratie My $ conf2 = HH :: Unispool :: config-> new_from_file ('t / config.sample'); $ conf2-> delete_system ('foobar.bar.org'); mijn $ diff = $ conf1-> diff ($ conf2); if ($ DIFF) {Print Stderr "\ NDeS-uitgang wordt verwacht \ N"; Print Stderr "Verschillen \ N"; PRINT STDERR $ DIFF; Print Stderr "\ NTHIS-uitgang werd verwacht \ N"; } # Maak een configuratie van nul aan mijn $ conf3 = HH :: Unispool :: config-> nieuw (); # Maak een filter en voeg het toe aan de configuratie My $ Flt = HH :: Unispool :: Config :: Invoer :: Filter-> NIEUW ({naam => 'Cat', bestand => '/ usr / bin / cat' ,}); $ conf5-> add_filter ($ flt); # Maak het _network_-systeem en voeg het toe aan de configuratie My $ SYNN = HH :: Unispool :: Config :: Invoer :: Systeem-> Nieuw ({naam => '_network_',}); $ conf5-> add_system ($ sysn); # Voeg een Type 8 Remote System toe aan _Network_ My $ RSYS = HH :: Unispool :: Config :: Invoer :: Relotesystem :: 8-> NIEUW ({NAME => 'FOO', OS => HH :: Unispool :: Config :: OS-> NIEUW ({OS => 'Solaris'}), Remote_node_Name => 'foo.bar.org',}); $ sysn-> add_remote_system ($ rsys); # Voeg een type 5 apparaat toe aan _Network_ mijn $ dev = hh :: Unispool :: config :::::: Device :: 5-> NIEUW ({naam => 'LP', filtersnaam => 'Cat', remote_device_name => 'LP', Remote_System_Name => 'foo', beschrijving => 'LP',}); $ sysn-> add_device ($ dev); # Maak de foo.bar.org systeem toevoegen aan de configuratie van mijn $ sysf = HH :: Unispool :: Config :: Entry :: Systeem-> nieuw ({name => 'foo.bar.org', local_system_name = > 'Foo', Network_Name => 'foo.bar.org', OS => HH :: Unispool :: config :: OS-> NIEUW ({OS => 'Solaris'}), Type => 'CS', }); $ Conf3-> add_system ($ sysf); # Voeg een type 6 apparaat om foo.bar.org $ dev = HH :: Unispool :: Config :: Entry :: Device :: 6-> new ({name => 'LP1', FILTER_NAME => 'cat', remote_node_name => 'lp1.foo.bar.org', description => 'LP1',}); $ Sysf-> add_device ($ dev); # Voeg een ander type 6-apparaat om foo.bar.org $ dev = HH :: Unispool :: Config :: Entry :: Device :: 6-> new ({name => 'LP2', FILTER_NAME => 'cat', remote_node_name => 'lp2.foo.bar.org', description => 'LP2'}); $ Sysf-> add_device ($ dev); # Voeg een ander type 3 apparaat om foo.bar.org $ dev = HH :: Unispool :: Config :: Entry :: Device :: 3-> new ({name => 'lp', FILTER_NAME => 'cat', member_device_name => , description => 'lp'}); $ Sysf-> add_device ($ dev); # Schrijf de configuratie $ conf3-> write ( 't / config.sample.3.out'); Vereisten: · Perl

HH :: Unispool :: Config Gerelateerde software