削除するファイルのリストを作成するために mailq でシェル スクリプトを実行していますが、パーミッションが原因でシェル スクリプトを使用してそれらを削除することはできません (root パーミッションを使用すると、スクリプトは機能しますが、常に root パーミッションの root パスワードをユーザー)。ファイルの出力リストを perl に送信してファイルを削除したいのですが、その Perl プログラムにはルート権限があります。
シェルスクリプトは次のとおりです。
#!/usr/bin/ksh
WORKFILE="/tmp/check.mq"
MAILLIST="yagyavalkbhatt@yahoo.com"
mailq|grep -B1 -i temporarily |grep -iv deferred |egrep -i 'jan|feb|mar|apr|may|june|jul|aug|sept|oct|nov|dec' |awk -F" " '{print $1}' |awk '{print substr($0,10,14)}'|tee $WORKFILE |awk '{print "*" $1}'|tee mail.mq
mailq|grep -B1 -i unknown |egrep -i 'jan|feb|mar|apr|may|june|jul|aug|sept|oct|nov|dec' |awk -F" " '{print $1}' |awk '{print substr($0,10,14)}'|tee $WORKFILE |awk '{print "*" $1}'|tee mail.mq
mailq|grep -B1 -i lookup |grep -iv deferred |egrep -i 'jan|feb|mar|apr|may|june|jul|aug|sept|oct|nov|dec' |awk -F" " '{print $1}' |awk '{print substr($0,10,14)}'|tee $WORKFILE |awk '{print "*" $1}'|tee mail.mq
cat mail.mq | while read file; do rm /var/spool/mqueue/$file;done
find . -type f -name "mail.mq" |rm -rf mail.mq
次のような出力が作成されます。
*##### where ##### is a unique 5 numbers to identify files in the mailq.
どのユーザーからもルート権限でこれらのファイルを削除する方法を知りたいです。