Гляделка для очереди почтовика : Супермаг Плюс (Супермаг 2000)

Вот, сегодня подправил просмоторщик почтовых пакетов .
Все желающие могут забрать его отсюда

в архиве лежит сама программулина и файлик для задания ip-адресов компутеров на которых расположен почтовик для конкретной БД
формат файла: набор строк следующего вида
<имя БД, как в TNS>=<ip-адрес>
Для работы требуется наличие OCI (клиентская частьOracle).

Программа, позволяет посмотреть очередь виртуальных пакетов (с указанием наличия ошибки), сортировка виртуальных пакетов по любому из столбцов (к сожалению *11 иногда выскакивает ошибка типа "Invalid pointer operator" ), автообновление с указанием периода (правая кнопка мыши на кнопке "обновить"), просмотр объектов в вирт. пакете, просмотр физ. пакетов. При указанном ip-адресе почтовика и наличии административного доступа по сети к компу со службой почтовика, программа показывает статус службы и позволяет, запустить/остановить службу.

В программе используются операторы типа SELECT, никаких действий с БД не производит.

Готов к конструктивной критике и предложениям по расширению функционала.

У меня на 9м оракле при запуске
Статус службы почтовика
OpenSCManager: ошибка: 1722
Сервер RPC не доступен.

а так вроде запускается

у меня сейчас 120 магазинов часть из которых на диалапе
и я уже давно использую пару таких скриптов:

Для удаления успешно принятых пакетов,
которых может в день быть несколько сотен
delete from smpostpackages
where uploadfailed=0 and deliveryack is not null


просмотр где пакеты с ошибками
SELECT DISTINCT P.VIRTPACK VIRTPACK, L.TITLE BASE, F.FPID PACK
FROM SMPOSTPACKAGES P,SMPOSTFAILRP F,SMPOSTLOCATIONS L
WHERE F.FPID=P.ID AND P.TARGET=L.ID

Для повторной отправки пакета, с указанием id пакета вручную
из пердыдущего примера
(полезно в централизованных пакетах не повторяя на все магазины)
CLEAR SCREEN
SET SERVEROUTPUT ON
DECLARE
VP NUMBER(6) NOT NULL := '&virtpack';
BEGIN
DELETE FROM (SELECT A.* FROM SMPOSTFAILRP A, SMPOSTPACKAGES S
WHERE A.FPID=S.ID
AND S.VIRTPACK=TO_NUMBER(VP));
COMMIT;
UPDATE SMPOSTPACKAGES
SET UPLOADFAILED=0,
DELIVERYACK=NULL,
LASTSTARTED=NULL
WHERE VIRTPACK=TO_NUMBER(VP)
AND UPLOADFAILED=1;
COMMIT;
END;

При старте пишет "почтовый модуль yf 192.168.100.255"
При попытке посмотреть статус почтовика
---------------------------
Postviewer
---------------------------
MatrixPostVirt: Cannot perform this operation on a closed dataset.
---------------------------
OK
---------------------------
В меню "Выход" не выходит, только крестиком закрылась... Как-то не это... Даже не бета...
*11

необходим полный доступ к адм. ресурсам по сети к компу со службой почтовика

Совершенно верно, глубокая альфа

Поднимая тему, разработка остановилась? А то Punctilio вон предлагает... Я бы внес все таки изменение параметров и удаление пакетов. Просто возникла идея мне писать это, а изобретать велосипед не хочется, да и времени мало.

olegon, нет разработка не остановилась, идёт подвправка ошибок, но без внесения нового функционала.
Из того что запланировано: Удаление пакетов, список объектов в очереди либо фильтр пакетов по объектам.
Про изменение параметров надо будет подумать.

А что там думать-то :) Мелочь для разработки, а рулить еще удобнее будет.

olegon, как бы это попроще объяснить то, не хочу я выкладывать утилы, которые будут делать изменения в таблицах СуперМага, вдруг ошибку какую допущу - сам у себя разберусь, а как быть с теми кто необдуманно этим воспользуется?