qmHandleのインストール

qmailでメールキューを削除したい場合に利用。perlスクリプト。
動作としてはqmail-sendを停止してqueueディレクトリ配下を削除し、qmail-sendを起動しなおす。
デフォルトとの差分は以下。

$ diff -u qmHandle.sv20090430 qmHandle
--- qmHandle.sv20090430 2007-07-20 14:03:45.000000000 +0900
+++ qmHandle    2009-04-30 11:03:57.000000000 +0900
@@ -26,8 +26,8 @@
 # ### Be sure to uncomment only ONE of each variable declarations ###

 # For instance, this is if you have DJB's daemontools
-my ($stopqmail) = '/usr/local/bin/svc -d /service/qmail-deliver';
-my ($startqmail) = '/usr/local/bin/svc -u /service/qmail-deliver';
+my ($stopqmail) = '/usr/local/bin/svc -d /service/qmail-send';
+my ($startqmail) = '/usr/local/bin/svc -u /service/qmail-send';

 # While this is if you have a Debian GNU/Linux with its qmail package
 #my ($stopqmail) = '/etc/init.d/qmail stop';
@@ -47,7 +47,7 @@
 #####
 # Enter here the system command which returns qmail PID. The following
 # should work on most Unixes:
-my ($pidcmd) = 'pidof qmail-send';
+my ($pidcmd) = '/sbin/pidof qmail-send';

 ####################  USER CONFIGURATION END  ####################

$

qmHandleのサイト

http://sourceforge.net/projects/qmhandle
http://qmhandle.sourceforge.net/