При работе скрипта на perl к ipacctd

[GANS]

Местный скрипт вылетает с ошибкой на 13 строку, типа не может выполнить use Mysql; и выдает несколько путей, по которым его действительно нету, она в DBD
как прикрутить умело подскажите пожалуйста
В шельном скрипте, если я всё правильно понял, прописана переменная с указанием пути к бинарнику

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[Alex Keda]

из портов поставить?

[GANS]

Не не, я поставил всё из обновленных портов, (огромное спасибо ресурсу!) postfix закрутился уже (поздно заметил заметки про жалательнее exim), в ipacctd логи идут...
Я про скрипт для перегона в БД: перловый скрипт при запуске не может найти Mysql модуль, если я правильно понял: перловый скрипт использует (13 строчка - use Mysql;) перловый модуль Mysql.pm. Но при запуске он его не находит (выдает пути, по которым его действительно нету, он находится в ещё более глуюже вложеной папке DBD)

[Alex Keda]

Код: Выделить всё

uname -a

Код: Выделить всё

pkg_info | grep ysql

[GANS]

Код: Выделить всё

FreeBSD freeha.xxxx.ru 6.2-RELEASE-p10 FreeBSD 6.2-RELEASE-p10 #0: Mon Feb  4 17:42:22 NOVT 2008     root@freeha.xxxx.ru:/usr/obj/usr/src/sys/serv_GANS  i386

Код: Выделить всё

bsdpan-DBD-mysql-4.006 DBD::mysql - MySQL driver for the Perl5 Database Interface 
courier-authlib-mysql-0.60.2 MySQL support for the Courier authentication library
mysql-client-4.1.22 Multithreaded SQL database (client)
mysql-scripts-4.1.22 Multithreaded SQL database (scripts)
mysql-server-4.1.22 Multithreaded SQL database (server)
p5-DBD-mysql41-4.006 MySQL 4.1 driver for the Perl5 Database Interface (DBI)
php5-mysql-5.2.5_1  The mysql shared extension for php
php5-mysqli-5.2.5_1 The mysqli shared extension for php

+

Код: Выделить всё

bsdpan-DBI-1.602    DBI - Database independent interface for Perl
p5-DBI-1.60.1       The perl5 Database Interface.  Required for DBD::* modules

распаковал порт и перлом доинсталил по дубликату на DBD и DBI
бестолку, начал по ману скрипт менять на DBI команды, все равно: то коннект не найдет, то ещё че...
хотя в lib/perl5/site_perl/5.8.8/mach/DBD есть mysql.pm

[GANS]

Can't locate Mysql.pm in @INC (@INC contains: /usr/local/lib/perl5/5.8.8/BSDPAN /usr/local/lib/perl5/site_perl/5.8.8/mach /usr/local/lib/perl5/site_perl/5.8.8 /usr/local/lib/perl5/site_perl /usr/local/lib/perl5/5.8.8/mach /usr/local/lib/perl5/5.8.8 .) at ./traffic.PL line 13.
BEGIN failed--compilation aborted at ./traffic.PL line 13.

[GANS]

подскажите хоть то ли я установил и туда ли я копаю

сервак перелопатил, теперь он p11, в make впердолил PERL_ARCH=mach(не было) - итог: ноль эмоций в моём направлении

[ProFTP]

может глюк из старым мускулом и новым драйверов

найди файлы которые входяд в тот модуль(и) и загрузи

Код: Выделить всё

require /полный/путь/к/Mysql.pm; 

типо так...

[hizel]

пардон
но

Код: Выделить всё

use Mysql

древность несусветная, так мой дедушка писал

сейчас так

Код: Выделить всё

use DBI;
my $dbh = DBI->connect("DBI:mysql:host=$server;database=$db","$user","$password") or die 'can\'t connect sql server :(';

my $sth = $dbh->prepare('insert octets(time_event,identify_id,up_bytes,up_packets,down_bytes,down_packets) values(FROM_UNIXTIME(?),?,?,?,?,?)') or die 'can\'t prepare sql';

$sth->execute($time_event,$i_id,$in_bytes,$in_packets,$out_bytes,$out_packets);

$dbh->disconnect();
$sth->finish();

общий принцыап должен быть понятен

[Alex Keda]

не стреляйте в музыкантов, они играют как умеют
(я про себя )