HH :: UNISPOOL :: CONFIG
التحميل الان

HH :: UNISPOOL :: CONFIG الترتيب والملخص

HH :: UNISPOOL :: CONFIG العلامات

الوحدة النمطية بيرل ترتيب تكوين يونيسبول هولاندهاوس unispool.

HH :: UNISPOOL :: CONFIG وصف

Hollandhouse التكوين UniSpool HH :: UNISPOOL :: CONFIG هو وحدة بيرل تدير ملفات تكوين UniSpool "Hollandhouse". يمكن قراءة الملفات، مكتوبة، تم إنشاؤها من الصفر و Diff-ed.synopsis الاستخدام الصارم؛ استخدام HH :: UNISPOOL :: التكوين؛ استخدم HH :: UNISPOOL :: CONFIG :: OS؛ استخدم HH :: UNISPOOL :: CONFIG :: الدخول :: مرشح؛ استخدم HH :: UniSpool :: Config :: الدخول :: استخدم HH :: UNISPOOL :: CONFIG :: إدخال :: جهاز :: 5؛ استخدم HH :: UniSpool :: Config :: الدخول :: Device :: 6؛ استخدم HH :: UNISPOOL :: CONFIG :: إدخال :: Remotesystem :: 8؛ # قراءة وكتابة التكوين بلدي $ conf1 = hh :: unispool :: config-> new_from_file ('t / config.sample')؛ $ conf1-> الكتابة ('t / config.sample.1.out')؛ # اقرأ مرة أخرى، وتعديل تكوين قليلا وفيلم بلدي $ conf2 = hh :: unispool :: config-> new_from_file ('t / config.sample')؛ $ conf2-> delete_system ('foobar.bar.org')؛ بلدي Diff = $ CONF1-> DIFF ($ CONF2)؛ إذا كان ($ Diff) {print stderr "\ Nthis الإخراج متوقع \ n"؛ طباعة Stderr "الاختلافات \ N"؛ طباعة Stderr $ فرق؛ طباعة Stderr "\ Nthis الإخراج كان من المتوقع \ n"؛ } # # إنشاء تكوين من نقطة الصفر بلدي $ conf3 = hh :: unispool :: config-> جديد ()؛ # إنشاء عامل تصفية وإضافته إلى التكوين بلدي $ FLT = HH :: UNISPOOL :: CONFIG :: FILDER:> جديد ({name => 'cat'، file => '/ usr / bin / cat' ،})؛ $ conf3-> add_filter ($ flt)؛ # إنشاء نظام _network_ وإضافته إلى التكوين بلدي SYSN $ = HH :: UNISPOOL :: CONFIG :: إدخال :: SYSTEM-> جديد ({name => '_network_'،})؛ $ conf3-> add_system ($ sysn)؛ # إضافة نوع 8 عن بعد إلى _network_ بلدي rsys = hh :: unispool :: config :: إدخال :: Remotesystem :: 8-> جديد ({name => 'foo'، OS => HH :: UNISPOOL :: التكوين :: OS-> جديد ({OS => 'Solaris'})، Remote_node_name => 'foo.bar.org'،})؛ $ sysn-> add_remote_system ($ rsys)؛ # إضافة جهاز من النوع 5 إلى _network_ بلدي dev = hh :: unispool :: config :: device :: الجهاز :: 5-> جديد ({name => 'LP'، filter_name => "LP"، Remote_system_name => 'foo'، الوصف => 'LP'،})؛ $ sysn-> add_device ($ dev)؛ # إنشاء نظام FOO.BAR.ORG وإضافته إلى التكوين بلدي SYSF $ = HH :: UNISPOOL :: CONFIG :: SYSTEM-> جديد ({name => 'foo.bar.org'، local_system_name = > 'foo'، network_name => 'foo.bar.org'، OS => HH :: UNISPOOL :: CONFIG :: OS-> جديد ({OS => 'Solaris'})، اكتب => 'cs'، })؛ $ conf3-> add_system ($ sysf)؛ # إضافة نوع 6 نوع إلى fo.bar.org $ dev = hh :: unispool :: config :: إدخال :: الجهاز :: 6-> جديد ({name => 'LP1'، filter_name => 'cat'، Remote_node_name => 'lp1.foo.bar.org'، الوصف => 'LP1'،})؛ SYSF-> Add_Device ($ dev)؛ # إضافة نوع آخر 6 أنواع 6 إلى foo.bar.org $ dev = hh :: unispool :: config :: إدخال :: الجهاز :: 6-> جديد ({name => 'lp2'، filter_name => 'cat'، Remote_node_name => 'lp2.foo.bar.org'، الوصف => 'LP2'،})؛ SYSF-> Add_Device ($ dev)؛ # إضافة نوع آخر 3 نوع 3 إلى foo.bar.org $ dev = hh :: unispool :: config :: إدخال :: الجهاز :: 3-> جديد ({name => 'LP'، filter_name => 'cat'، member_device_name => ، الوصف => 'LP'،})؛ SYSF-> Add_Device ($ dev)؛ # كتابة التكوين $ conf3-> الكتابة ('t / config.sample.3.out')؛ متطلبات: perl.

HH :: UNISPOOL :: CONFIG برامج ذات صلة