http://www.netup.ru/UTM5/manuals.php
Нашел описание xml и самого импорта. Я не в ту сторону копал
Сделал все же через xml - скриптом на perl. Выгрузил все, что нужно из старой админки в xml. Конвертнул в текстовый файл с разделителем табуляция, убрал лишние поля и скормил скрипту ниже.
Предварительно конвертнул из cp1251 в utf8.
Потом влил в новую админку.
Все вышло. Жаль не все поля удалось влить. Но реквизиты все перенеслись. Вот простенький скрипт, может кому понадобиться.
Код: Выделить всё
#!/usr/bin/perl
open(DAT,"from_old_utml.txt");
open(DB,">>to_new_utm.xml");
print DB "<?xml version=1.0 encoding=UTF-8?>\n";
print DB "<import>\n";
while (<DAT>) {
($login, $full_name, $passport, $home_tel, $mod_tel, $jur_address, $tax_number, $kpp_number, $work_tel, $act_address) = split (/\t/, $_);
print DB "<users>\n";
print DB "<user>\n";
print DB "<accounts>\n";
print DB "<account>\n";
print DB "<is_bloked>0</is_bloked>\n";
print DB "</account>\n";
print DB "</accounts>\n";
print DB "<login>$login</login>\n";
print DB "<full_name>$full_name</full_name>\n";
print DB "<passport>$passport</passport>\n";
print DB "<home_tel>$home_tel</home_tel>\n";
print DB "<mod_tel>$mod_tel</mod_tel>\n";
print DB "<jur_address>$jur_address</jur_address>\n";
print DB "<tax_number>$tax_number</tax_number>\n";
print DB "<kpp_number>$kpp_number</kpp_number>\n";
print DB "<work_tel>$work_tel</work_tel>\n";
print DB "<act_address>$act_address</act_address>\n";
print DB "<is_juridical>0</is_juridical>\n";
print DB "</user>\n";
print DB "</users>\n";
}
print DB "</import>";
close DAT;
close DB;
Строчку потом поправить надо <?xml version=1.0 encoding=UTF-8?>
на <?xml version="1.0" encoding="UTF-8"?> В окончательном файле.