Исходное сообщение
"qmail очередь" Отправлено tian, 30-Мрт-06 16:23
Можно руками, но лучше скриптом. Лови, может поможет, когда столкнулся с этим, пришлось накатать его, не руками же убивать сотни писем... Он убивает ВСЕ из очереди. Если нужны конкретные письма - придется подрихтовать его. #! /usr/bin/perl $FIND="/usr/bin/find"; $PS="/usr/bin/ps"; $RM="/usr/bin/rm"; $QUEUEDIR="/home/qmail/queue"; print "WARNING: Clear all messages in the queue of qmail ?"; $a=<STDIN>; $a=~s/\n//g; if ($a ne "yes") { print "Aborted...\n"; exit 1; } @m=`$PS -Af`; foreach $value (@m) {     if ($value=~/\s+qmail/) {         print "You must stopped qmail processor first...\n";         print "Aborted...\n";         exit 1;     } } print "WARNING: Really you want clear all messages in the queue of qmail ?"; $a=<STDIN>; $a=~s/\n//g; if ($a ne "yes") { print "Aborted...\n"; exit 1; } undef (@m); @m=`$FIND $QUEUEDIR`; $num=0; print "Please wait...\n"; foreach $value (@m) {     if ($value=~/\/lock/) { next; }     `$RM -f $value`;     $num++; } print "In the queue deleted $num messages\n"; exit 0;

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> Можно руками, но лучше скриптом. Лови, может поможет, когда столкнулся с этим, > пришлось накатать его, не руками же убивать сотни писем... > Он убивает ВСЕ из очереди. Если нужны конкретные письма - придется подрихтовать > его. > #! /usr/bin/perl > $FIND="/usr/bin/find"; > $PS="/usr/bin/ps"; > $RM="/usr/bin/rm"; > $QUEUEDIR="/home/qmail/queue"; > print "WARNING: Clear all messages in the queue of qmail ?"; > $a=<STDIN>; > $a=~s/\n//g; > if ($a ne "yes") { print "Aborted...\n"; exit 1; } > @m=`$PS -Af`; > foreach $value (@m) { > if ($value=~/\s+qmail/) { > print "You must stopped > qmail processor first...\n"; > print "Aborted...\n"; > exit 1; > } > } > print "WARNING: Really you want clear all messages in the queue of > qmail ?"; > $a=<STDIN>; > $a=~s/\n//g; > if ($a ne "yes") { print "Aborted...\n"; exit 1; } > undef (@m); > @m=`$FIND $QUEUEDIR`; > $num=0; > print "Please wait...\n"; > foreach $value (@m) { > if ($value=~/\/lock/) { next; } > `$RM -f $value`; > $num++; > } > print "In the queue deleted $num messages\n"; > exit 0;
	Введите код, изображенный на картинке: