Чистка майлдиров клиентов

[shurutov]

#!/usr/bin/perl -w

for ($i=0; $i<26; $i++)
{

@basedir=("/mailboxes/a",
"/mailboxes/b",
"/mailboxes/c",
"/mailboxes/d",
"/mailboxes/e",
"/mailboxes/f",
"/mailboxes/g",
"/mailboxes/h",
"/mailboxes/i",
"/mailboxes/j",
"/mailboxes/k",
"/mailboxes/l",
"/mailboxes/m",
"/mailboxes/n",
"/mailboxes/o",
"/mailboxes/p",
"/mailboxes/q",
"/mailboxes/r",
"/mailboxes/s",
"/mailboxes/t",
"/mailboxes/u",
"/mailboxes/v",
"/mailboxes/w",
"/mailboxes/x",
"/mailboxes/y",
"/mailboxes/z",
);
@bt=("cur","new","tmp",".Spam/new",".Spam/cur");

for ($ii=0; $ii<5; $ii++)
{
@files=glob "$basedir[$i]/*";
foreach (@files)
{
@mailfile=glob $_."/Maildir/".$bt[$ii]."/*";
foreach (@mailfile)
{
if ((time-(stat($_))[9])>2678400)
#2678400 - Месяц
#8035200)
{
# print $_."\n";
qx(rm $_);
}
}
};
}
}
Вот это чмудовище, доставшееся в наследство, сегодня мне майлсервер загнуло...
Народ сильно не пинайте, я знаю что это кривятина... Уж0с. Бля. Просто худею с автора сего произведения. :( Сколько еще открытий чудных мне сеть приподнесет...

[Император]

Просто худею с автора сего произведения. :( Сколько еще открытий чудных мне сеть приподнесет...
Самый прикол в том, что ты такой умный использовал скрипт мудака его написавшего :lol:

[wilkomsoon]

Ну хотя бы warnings включил...

[squirL]

автор скрипта, в начале которого не стоит use strict - младший помошник черпальщика в холерных бараках...

[storinger]

автор скрипта, в начале которого не стоит use strict - младший помошник черпальщика в холерных бараках...

Ну не надо.
Я вот практически никогда strict не ставлю.
А от бараков, уверяю тебя, далёк.

[shurutov]

Император Нехороший человек... :(:):D

[wilkomsoon]

Ну не надо.
Я вот практически никогда strict не ставлю.
А от бараков, уверяю тебя, далёк.
Ну уж нет. Пускай компилятор проверяет оченьмногиевещи.

[squirL]

Ну не надо.
Я вот практически никогда strict не ставлю.
А от бараков, уверяю тебя, далёк.
и оччень зря.