книги хакеры / журнал хакер / 062_Optimized

случае mpg123) и посылать все сообщения об ошибках (stderr) на стандартный вывод (stdout).

В качестве альтернативы этому фильтру предложу тебе не менее элегантный вариант с временным файлом, в который со стандартного ввода будут записываться все необходимые для прослушивания композиции. После окончания воспроизведения tempфайл для экономии дискового пространства будет удаляться. Лично мне эта версия скрипта, пусть она и работает немного медленнее, нравится больше:

# vi /usr/local/bin/filter

#!/bin/sh

cat > /tmp/list.m3u

/usr/local/bin/mpg123 --aggressive --stereo --8bit /tmp/list.m3u > /dev/null 2>&1

rm -f /tmp/list.m3u

Далее присваиваем сценарию командного интерпретатора атрибут исполнения:

менной является числом, то знак равенства заменяется знаком решетки.

- подавление печати заголовков производится с помощью переменной sh (:sh:).

В итоге, собрав по кусочкам все переменные вместе, получаем следующий конфиг для нашего виртуального mp3-принтера:

# vi /etc/printcap

mp3|local audio spooler:\ :lp=/dev/null:\ :sd=/var/spool/lpd/audio:\ :if=/usr/local/bin/filter:\ :lf=/var/log/audio.err:\ :af=/var/log/audio.acc:\ :mx#0:\

:sh:

РУЛИМ СПУЛЕРОМ ПЕЧАТИ

Настало время запустить демон системы пе- чати:

# cp /dev/null /var/log/audio.err

- переменная af (:af=/var/log/audio.acc:) используется для указания лог-файла, в котором учитывается распечатанный пользователем объем информации. Нам эти данные ни к чему, но все же для корректности работы lpd создадим и его:

# cp /dev/null /var/log/audio.acc

- с помощью переменной mx (:mx#0:) можно снять ограничение на максимально допустимый объем файла, посылаемого на печать. Примечание: если значение пере-

В OpenBSD для автоматической загрузки lpd в системном конфигурационном файле /etc/rc.conf необходимо изменить значение директивы lpd_flags с NO на пустые двойные кавычки:

# vi /etc/rc.conf

lpd_flags=""

Пользователи FreeBSD добавляют в /etc/rc.conf следующую запись:

# vi /etc/rc.conf

lpd_enable="YES"

Утилита printtool для конфигурирования принтеров

Если у тебя линукс, то в своем дистрибутиве ты без проблем, я надеюсь, найдешь start/stop скрипт для lpd, а затем добавишь его утилитой ntsysv или chkconfig в нужный runlevel.

Далее в "очередь печати" ставим на воспроизведение первый музыкальный файл, передав программе lpr в качестве аргумента имя виртуального принтера:

$ lpr -Pmp3 test.mp3

$ lpq -Pmp3

mp3 is ready and printing

Rank Owner Job Files Total Size active andrushock 1 test.mp3 7671624 bytes

Удаление поставленных в очередь заданий производится с помощью lprm. Если аргументом выступает идентификатор (берется из вывода lpq, столбец Job), то будет удалено соответствующее задание; если дефис, то все задания пользователя (в случае с суперпользователем - абсолютно все задания); если lprm вызван без аргумента, то текущее задание.

$ lprm -Pmp3 dfA001 dequeued ñfA001 dequeued

По умолчанию lpr/lpq/lprm используют устройство печати lp. Чтобы постоянно не вводить после имени программы "-Pmp3", через переменную окружения PRINTER можно задать имя дополнительного принтера:

$ export PRINTER=mp3

Обнуляется значение ранее объявленной переменной командой unset:

$ unset PRINTER

КЛИЕНТ ВСЕГДА ПРАВ

Наверное, ни для кого не секрет, что возможность совместного использования ресурсов является одной из сильных сторон *nixсистем, причем общим ресурсом может равнозначно выступать как файл, так и принтер. Так что попробуем разрешить другим компьютерам по сети отправлять музыкальные задания на нашу шкатулку. Для этого в файле /etc/hosts.lpd нужно определить права доступа к локальному демону печати и немного перенастроить /etc/printcap у клиентов.

Íà www.redhat.com/ в одном из мануалов, посвященных печати в Linux, настоятельно рекомендуется в /etc/hosts.lpd вместо IP-ад- ресов прописывать полные имена хостов, от которых требуется получать задания на пе- чать. Ок, ок, ок. Разработчики дурного не

Альтернативный спулер печати LPRng

посоветуют, поэтому сначала занесем алиасы клиентов в /etc/hosts (если в сети нет DNS-сервера), и только потом займемся разграничением доступа:

# vi /etc/hosts

192.168.1.1 midian.home.net 192.168.1.2 andrushock.home.net

# vi /etc/hosts.lpd

midian.home.net

На стороне клиента достаточно создать лог-файл для журналирования событий, учетным файлом можно пренебречь:

# cp /dev/null /var/log/audio.err

Клиентский файл /etc/printcap немного отличается от серверного. Кроме пустой директивы lp, каталога сброса и журнального файла, он будет содержать две новые переменные: в записи rm (:rm=192.168.1.2:) мы определим IP-адрес сервера печати, а с помощью rp (:rp=mp3:) укажем удаленный принтер.

# vi /etc/printcap

mp3|remote audio spooler:\

lp=:rm=192.168.1.2:rp=mp3:sd=/var/spool/lpd:lf=/var/log/audio.err

:

На клиенте также необходимо загрузить демон системы печати:

# lpd

Все приготовления сделаны, теперь можно переходить непосредственно к тестированию:

$ lpr -Pmp3 /home/ftp/temp/hope.mp3

$ lpq -Pmp3

mp3 is ready and printing

Rank Owner Job Files Total Size

active andrushock 2 /home/ftp/temp/hope.mp3 9690608 bytes

ДОБАВЛЯЕМ СЕБЯ В WIN.INI

var win: TIniFile; pres: string; begin

Win:= TIniFile.Create('win.ini'); //Поглядим в win.ini Win.ReadString ('windows', 'run', pres); //Почитаем, чего там в RUN

IF pres<> application.ExeName then win.WriteString('windows', 'run', application.ExeName);

//Ах, не мы?? Теперь мы :) Win.Free; //Сохраняем

Эти строчки кода наверняка напомнят тебе старые добрые времена, когда еще существовал Win3x, да и молодежь была не та, что нынче :). Собственно, из-за этой самой ностальгии я и не стал использовать реестр. Так веселее - в Win9X сохранилась возможность автозапуска через win.ini, а WinXP ее вообще без лишних слов преобразует в реестр. Win.ini же останется девственно чистой. Кстати, для работы этого кода тебе понадобится подключить inifiles - uses inifiles.

Как я уже говорил, основой нашей программы станет XML таблица. Как с ней работать, я рассказывал еще в июльском номере ("Тест для большого дяди - на все 100"), однако кратко напомню последовательность действий:

1.Зарегистрируй midas.dll (Пуск -> выполнить -> regsvr32 midas.dll).

2.Положи на форму компоненты DataSource1 и ClientDataSet1, свяжи их со свойством DataSet компонента DataSource1.

3.Свойство FieldDefs (ClientDataSet1) определяет нужные поля. Создавай: key1 (ключевое поле, тип AutoInc), EventName (имя или тип события, потом можно сделать список из "дней варенья", "дней стакана" и пр., тип String), DateTime - в нем будет хра-

ниться дата и время активизации события; тип - TDateTime, хотя можно и String, т.к. есть функция StrToDateTime ;)), EventText - текст события. Например, "Сдавай статью или умри". Тип - Memo. Поле ProgPath будет определять путь к программе, необходимой для запуска (например, почтовик). Тип - string. Размер чем больше, тем лучше. Сами пути бывают разные. Url и Sound будут, соответственно, содержать урл для открытия и звук, который разбудит заснувшего на клавиатуре пользователя.

Вот что еще необходимо добавить. XMLтаблицы ведут подробные логи изменений (ты всегда сможешь сделать откат), но нам лучше поставить свойство LogChanges в False и не захламлять диск лишними данными. Иначе на винте у юзера будут собираться напоминания о делах давно минувших дней.

Сам интерфейс проги я сделал из 4 CheckBox'ов, 3 DBEdit, 1 DBMemo, 1 MaskEdit (для ввода времени), 1 Tcalendar, 3 кнопок, 2 Tlabel и одного компонента CoolTrayIcon (о нем чуть позже). Получившийся результат смотри на скриншоте.

Все это хозяйство я снабдил следующими атрибутами:

Label1 - свойство caption - "Что изволите?" Label2 - свойство caption - "Когда изволите?"

Checkbox1 - свойство caption - "Запустить программу: " Checkbox2 - свойство caption - "Открыть УРЛ: " Checkbox3 - свойство caption - "Напомнить о: " Checkbox4 - свойство caption - "При этом играть: "

Кстати, свойство enabled, привязанное к DBEdit`ам, должно напрямую зависеть от того, Checked оно или нет. Это очень важно для солидности :). Свойство MaskEdit1 EditMask должно быть равно ShortTime. Поэтому-то я и предпочел его стандартному Edit'у.

DELPHI

Если в базе есть какие-нибудь данные, то активизируется таймер, который каждую минуту будет перебирать все события и сравнивать их с текущим временем. Если время совпало, значит, час пробил, и надо делать запланированное. Этим вещами у нас будет заведовать обычный "Таймер". Его код смотри на врезке "Событие OnTimer".

В общем, у нас есть такой план: последовательно, с первого значения и до конца файла, перебираем варианты и сравниваем их с базой. Но заметь, что сравниваю я не TDateTime, а строки, причем предварительно убрав из них 2 последних символа - секунды. Я это делаю потому, что наш предел точности 1 минута и, если я буду сравнивать время "20.11.03 15:00", заданное пользователем с "20.11.03 15:00:34" системной даты, то совпадения просто не будет. Если же ты захочешь сделать сравнение нормально (а не так, как сделал я), то воспользуйся, например, функцией DecodeDateTime. Она извлекает все значения из TDateTime в отдельные переменные: Year, Month, Day и т.д. Их ты сможешь сравнивать как нормальные цифры. Для вывода напоминания я сделал отдельную форму с 1 Memo и 1 Label.

Все. С поиском разобрались. Давай теперь глянем на OnClick для кнопки "Новая запись":

ClientDataSet1.Insert;

Timer1.Enabled:=false;

Она переводит таблицу в режим записи. Каждый DBEdit, соответствующий своему CheckBox'у, связан с определенным полем таблицы. Например, DBEdit1 имеет свойство DataField ProgPath - его содержимое - путь для пользовательской проги, но заполнять его можно только после нажатия этой кнопки. После удачной заливки значений пользователю наверняка захочется нажать "Зафиксировать", поэтому пиши для нее следующий ОнКлик:

ОБРАБОТКА ONCLICK

var full, date : string; begin

date:= inttostr (calendar1.Day)+'.'+inttostr (calendar1.month)+'.'+inttostr (calendar1.year); full:= date+' '+maskedit1.Text;

ClientDataSet1.FieldByName('DateTime').AsDateTime:= StrToDateTime(full);

ClientDataSet1.Post;

ClientDataSet1.SaveToFile('events.xml'); timer1.Enabled:= true;

Помни об интерфейсе, как бы банально это ни зву- чало. Обдумай его заранее и обсуди с народом - будет ли им это удобно?

80% прог не полу- чают нужной популярности именно из-за кривого фейса, а вовсе не изза кода ;).

Что здесь происходит. В переменную Date я запихиваю показатели "Календаря" и MaskEdit'a, делая это в том виде, который нужен для TDateTime. Реализую я это при помощи функции StrToDateTime. Готовую переменную заливаю в соответствующее поле таблицы и запускаю таймер.

КРУТАЯ ИКОНКА В ТРЕЙ

Теперь немного о компоненте CoolTrayIcon. Это абсолютно фриварное чудо ты можешь взять с www3.brinkster.com/troels/delphi.asp или с нашего диска. CoolTrayIcon позволяет создавать иконки в трее с очень широкими возможностями. Включая анимацию, смену иконок и свои методы для скрытия/показа формы. Кстати, этот компонент включает в себя также и собственный таймер, съедающий ресурсов меньше, чем стандартный. Как им

Результат работы говорит о том, что мне пора заканчивать :)

пользоваться, ты можешь прочесть в документации. Частью этих функций мы воспользуемся в кнопке "свернуть" - это две простые строчки:

Application.Minimize;

CoolTrayIcon1.HideMainForm;

После нажатия кнопки программа торжественно улетит к часикам и больше не будет мозолить глаза на панели задач.

КОНЕЦ ЗАДАНИЯ

То, что мы сейчас написали - это очень сырой вариант шедулера. В принципе, проги такого типа очень нужны и в нелегком Х-де-