(perl/shell-script) Проверка неактивных пользователей почты

[redhot]

Суть проблемы: есть большая организация, соответственно, очень много пользователей электронной почты. Некоторые из них нею не пользуются, их сообщения со страшной силой загромождают дисковое пространство %) Хотелось бы создать скрипт на perl, который проходит по папкам пользователей, и в случаи обнаружения старой почты во входящих (папке new) заносит имя пользователя в текстовый файлик,и все старые сообщения удаляет. Мои познания перла пока-что не настолько сильны, и сам писАть буду долго Если кто-то поможет, буду очень признателен. К тому же, уверен, скрипт пригодится еще многим

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[zg]

эм... нужен перл или шелл подойдёт?

[CrazyPilot]

ИМХО, удалять почту у валидных юзеров - палево. Надо смотреть базу валидных юзверей, и сравнивать с ящиками на фс. Те ящики, которые не могут быть сопоставлены валидным юзерам - херить. (Или еще лучше бэкапить куда-нить и удалять). Скрипт написать не особо сложно, надо знать только откуда брать валидных юзеров (у меня например ldap).

[redhot]

1). shell конечно же, тоже подойдет
2). нет надобности проверки валидности юзеров, нужно лишь пройтись по почтовым папкам и проверить их содержимое способом, описаным выше но если добавится еще и проверка валидности юзеров, то будет дополнительный плюс сейчас же главное - найти неактивных пользователей и удалить их старую почту

[zg]

двинул тему в шелл -)))

ща чё-нить сваяем

[zg]

Например так можно

Код: Выделить всё

#!/bin/sh

TIME=`date -v-1m +"%Y%m%d%H%M"` # One month ago

## create file stamp
touch -afm -t $TIME $0

## find files
find /path/to/maildir -type f \! -newer $0 | grep /new/

[redhot]

zg, да да да, начало очень похоже на то, что надо только еще исключить дубликаты, записать в файл и поудалять %)
*пошел искать доки по shell-программированию

[zg]

дальше я бы сначала сделал вывод найденных файлов в файл, а когда удостоверился, что всё нормально, то

Код: Выделить всё

cat files.txt | xargs rm -f

[redhot]

спасибо!
в файл выводиться нормально, буду думать, как удалять ненужое и исключать дубликаты
кстати, буду признателен за хорошие книги по шелл-программированию (желательно на буржуйском %))

[zg]

man intro

[redhot]

зачем уж так много источников?)) хватило бы RTFM

[Alex Keda]

zg прав. в мане всё есть.
а вот книжков не знаю.
пару лет назад перерыл рынок весь - все продавацы понят что была очень хорошая тоненькая книжка - но не помнят названия, и в наличии её нету.
=================
ещё можно посомтреть стартовые скрипты FreeBSD - там очень интересные решения есть, и писал явно не безграмотный человек ))