Написать perl-скрипт (загрузка фото и запись в БД)
ТЗ: выбрать из базы данные в объект по запосу
SELECT `id`, `cat_id`, `code`, `images` FROM #__yvc WHERE `published`=1 AND `images` LIKE '%:%'
записи будут иметь в поле images такой вид:
IMG_4575.jpg:IMG_4575_gray.jpg|IMG_1859.jpg:IMG_1859_gray.jpg|IMG_1857.jpg:IMG_1857_gray.jpg|IMG_1858.jpg:IMG_1858_gray.jpg|IMG_1860.jpg:IMG_1860_gray.jpg|IMG_1861.jpg:IMG_1861_gray.jpg|IMG_0632.jpg:IMG_0632_gray.jpg
последовательно для каждой записи
- выбрать только имена фото без "_gray"
- скачать фото отсюда
http://www.megacon.su/f/catalogue/[id товара]/[имя фото]
переименовать файл фото по шаблону "%'04d_%s.%s".jpg , где:
- первый параметр -- id_товара
- второй п-р -- тек.дата
- третий п-р -- тек.время, взятое через microtime()
это поможет избежать одинаковых имен файлов
имя файла запомнить(!)
- записать файл сюда
/images/stories/yvcommodity/photos/[id_категории]
где id_категории генерируется по шаблону: "%'05d"
т.е. для категори №21 будет 00021
новые имена файлов для каждой записи разделять "||\n" и сохранять в тоже поле IMAGES товара БД, чтобы на выходе получилось типа (для товара с id=8714)
8714_20111113_144336_31496.jpg||
8714_20111113_144336_36442.jpg||
8714_20111113_144336_40033.jpg||
8714_20111113_144336_42020.jpg||
8714_20111113_144336_44860.jpg||
Операция по загрузке фото должна проводиться без таймаута.