| Proc :: Daemontools. DAEMONTOOLSÀÇ ±â´ÉÀ»À§ÇÑ PERL ÀÎÅÍÆäÀ̽º |
Áö±Ý ´Ù¿î·Îµå |
Proc :: Daemontools. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Bruno Negrao
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~bnegrao/
Proc :: Daemontools. ű×
Proc :: Daemontools. ¼³¸í
DaemontoolsÀÇ ±â´ÉÀ»À§ÇÑ Perl ÀÎÅÍÆäÀ̽º PROC :: DAEMONTOOLS´Â DAEMONTOOLS.SYNOPSIS »ç¿ë PROC :: DAEMONTOOLS »ç¿ëÀ»À§ÇÑ PERL ÀÎÅÍÆäÀ̽ºÀÔ´Ï´Ù. MY $ SVC = NEW PROC :: DAEMONTOOLS; # ±âº» µð·ºÅ丮°¡ °¡Á¤Çϰųª $ SVC = NEW PROC :: DAEMONTOOLS (DAEMONTOOLS_DIR => "/ nigh defaul-dir", service_dir => "/ ÀϺΠ- nigh default-dir", daemon => "daemon-name "¿É¼Ç : ±âº» µ¥¸ó); if ($ svc-> is_up ()) {print $ svc-> daemon () "! ";} MY $ DAEMON ="QMAIL-SEND "; ¿ì¸®´Â ($ svc-> is_up ($ daemon)) {if ($ svc-> down ($ daemon)) ÀÎ °æ¿ì ±âº» µ¥¸ó ´ë½Å $ µ¥¸óÀ» ÁßÁöÇÏ·Á°íÇÕ´Ï´Ù. {Àμâ "È®ÀÎ, $ daemonÀÌ ¸ØÃè½À´Ï´Ù. ";} else {print"ops, $ daemonÀº ¾ÆÁ÷ ¸ØÃßÁö ¾Ê¾Ò½À´Ï´Ù. ¾î¼¸é ±â´Ù¸®°íÀÖÀ» ¼öµµ ÀÖ½À´Ï´Ù. "¾î¸° ¾ÆÀÌ°¡ Á¾·á ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¾Æ¸¶µµ ´ç½ÅÀº ÀÚ½ÅÀ» Á×ÀÌ°í ½ÍÀ» °ÍÀÔ´Ï´Ù. ";}} # ÀÌÁ¦ ¿ì¸®´Â ($ svc-> À§·Î ($ daemon) {print"È®ÀÎ, $ daemonÀÌ ½ÃÀ۵DZ⸦ ¹Ù¶ø´Ï´Ù. ".} # ±âº» µ¥¸óÀ» qmail-smtpd $ svc-> µ¥¸ó ("qmail-smtpd ")·Î ¼³Á¤Çϵµ·Ï ¼³Á¤ÇÕ´Ï´Ù. # svstat°¡ ±×°Í¿¡ ´ëÇØ ¾Ë·ÁÁÝ´Ï´Ù :"ÇöÀç »óÅ "¸¦ ÀμâÇϽʽÿÀ. $ svc -> daemon (). "" "svstat °¡º¸°í ÇÑ °ÍÀº". $ svc-> status () "ÀÔ´Ï´Ù." "; ¿ä±¸ »çÇ× : ¡¤ Perl.
Proc :: Daemontools. °ü·Ã ¼ÒÇÁÆ®¿þ¾î