Страница 1 из 1
OTRS Mysql
Добавлено: 05 ноя 2020, 14:32
qweqweqweqwe
Всем привет! Подскажите, пожалуйста, есть определенный скрипт проверки праздничных дней, он работает, но есть потребность в том, чтобы не вводить или менять в программе каждый раз логин и пароль, а чтобы он подтягивался из config.pm, никто, случайно, не знает как это можно реализовать и с помощью чего?
Код
Код: Выделить всё
use strict;
use warnings;
use feature 'say';
use v5.14;
use DBI;
my $dsn = "DBI:mysql:otrs";
my $username = 'root';
my $password = '12345678';
my %attr = ( PrintError=>0, # отключение отчетов об ошибках с помощью warn()
RaiseError=>1 # report error via die()
);
my $dbh = DBI->connect($dsn,$username,$password,\%attr);
query_links($dbh);
sub query_links{
my ($dbh) = @_;
my $sql = "SELECT *
FROM otrs.x_holidays_rf;";
my $sth = $dbh->prepare($sql);
$sth->execute();
while(my @row = $sth->fetchrow_array()){
printf("%s\t%s\n",$row[0],$row[1]);
}
$sth->finish();
}
$dbh->disconnect();
Re: OTRS Mysql
Добавлено: 05 ноя 2020, 15:59
alexus
qweqweqweqwe писал(а): ↑05 ноя 2020, 14:32
Всем привет! Подскажите, пожалуйста, есть определенный скрипт проверки праздничных дней, он работает, но есть потребность в том, чтобы не вводить или менять в программе каждый раз логин и пароль, а чтобы он подтягивался из config.pm, никто, случайно, не знает как это можно реализовать и с помощью чего?
Добрый день! Ищите аналогичные скрипты OTRS, которые обращаются в Config
Re: OTRS Mysql
Добавлено: 06 ноя 2020, 06:10
qweqweqweqwe
Искал, но они все завязаны на многих переменных, не могу понять, как можно написать это просто, не копируя тонну кода
Re: OTRS Mysql
Добавлено: 11 ноя 2020, 12:01
qweqweqweqwe
Написал простую прогу, выводящую параметр на печать, однако он ругается на
Код: Выделить всё
use strict;
use warnings;
use feature 'say';
use Kernel::System::ObjectManager
use DBI;
package Kernel::Config;
local $Kernel::OM = Kernel::System::ObjectManager->new();
my $ComfigObject1 = $Kernel::OM->Get('Kernel::Config');
my $Self1 = $ComfigObject1->Get('Database');
say "$Self1";
Can't locate Kernel/System/ObjectManager.pm in @INC (you may need to install the Kernel::System::ObjectManager module) (@INC contains: /etc/perl /usr/local/lib/x86_64-linux-gnu/perl/5.30.0 /usr/local/share/perl/5.30.0 /usr/lib/x86_64-linux-gnu/perl5/5.30 /usr/share/perl5 /usr/lib/x86_64-linux-gnu/perl/5.30 /usr/share/perl/5.30 /usr/local/lib/site_perl /usr/lib/x86_64-linux-gnu/perl-base) at test3.pl line 9.
BEGIN failed--compilation aborted at test3.pl line 9.
-rw-rw---- 1 otrs www-data 20231 Mar 24 2020 ObjectManager.pm
Подскажите, в чем может быть проблема?
Re: OTRS Mysql
Добавлено: 11 ноя 2020, 13:51
alexus
qweqweqweqwe писал(а): ↑11 ноя 2020, 12:01
Написал простую прогу, выводящую параметр на печать, однако он ругается на
Can't locate Kernel/System/ObjectManager.pm in @INC (you may need to install the Kernel::System::ObjectManager module) (@INC contains: /etc/perl /usr/local/lib/x86_64-linux-gnu/perl/5.30.0 /usr/local/share/perl/5.30.0 /usr/lib/x86_64-linux-gnu/perl5/5.30 /usr/share/perl5 /usr/lib/x86_64-linux-gnu/perl/5.30 /usr/share/perl/5.30 /usr/local/lib/site_perl /usr/lib/x86_64-linux-gnu/perl-base) at test3.pl line 9.
BEGIN failed--compilation aborted at test3.pl line 9.
Подскажите, в чем может быть проблема?
Очевидно же в логе ошибок всё. При вызове скрипта не идёт поиск среди папок OTRS. Попробуйте скрипт под юзером otrs запустить