Proc :: Daemontools.

DAEMONTOOLSÀÇ ±â´ÉÀ»À§ÇÑ PERL ÀÎÅÍÆäÀ̽º
Áö±Ý ´Ù¿î·Îµå

Proc :: Daemontools. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î