#!/usr/bin/perl # # Data Associative Net (C) 2002, Y.Makarov, E.Muhutdinov. # http://www.wtg.ru/products/dan/ # ----------------------------------- # Yuri Makarov # Edward Muhutdinov # # # В рамках пректа WTG Zebra. # WTG Zebra (C) XXI, White Tiger Group # http://www.wtg.ru/ # http://www.wtg.ru/zebra/ # ----------------------------------- # E-mail: zebra@wtg.ru # support@wtg.ru # # # Данный скрипт представляет собой интерфейс низкоуровневого доступа к # базе данных, организующей хранение информации согласно модели АС. # # Переход к редактированию модели можно осуществить, добавив в адресную # строку браузера параметр type=1, инициирующий режим модели. В режиме # модели также доступна расширенная информация о категориях свойств, # их ролях и самих свойствах. # # При запуске скрипта в консольном режиме он переходит в интерактивный # диалог с пользователем, предоставляя интерфейс для управления # моделью данных и содержимым АС. use CGI qw(-no_debug); use CGI::Carp qw (fatalsToBrowser); $cgi=new CGI; print $cgi->header(-charset=>"windows-cp1251"); print "\n\nВ разработкеСтраница находится в разработке. Извините за неудобства.\n"; 1;