Ver código fonte

removed debug rem

root 1 ano atrás
pai
commit
aeaa52d3de
3 arquivos alterados com 4 adições e 4 exclusões
  1. 1 1
      Readme.en.md
  2. 1 1
      Readme.ru.md
  3. 2 2
      scripts/eyelib/database.pm

+ 1 - 1
Readme.en.md

@@ -8,7 +8,7 @@ libnet-patricia-perl libnetaddr-ip-perl libconfig-tiny-perl libnet-dns-perl libd
 libnet-netmask-perl libtext-iconv-perl libnet-snmp-perl libnet-telnet-perl libdbi-perl \
 libdbd-mysql-perl libparallel-forkmanager-perl libproc-daemon-perl libdatetime-format-dateparse-perl \
 libnetwork-ipv4addr-perl libnet-openssh-perl libfile-tail-perl php-fpm php-db libapache2-mod-fcgid \
-libcrypt-cbc-perl libcryptx-perl
+libcrypt-cbc-perl libcryptx-perl php-pgsql libdbd-pg-perl
 
 2. Download the source code and spread it in catalogs:
 

+ 1 - 1
Readme.ru.md

@@ -8,7 +8,7 @@ libnet-patricia-perl libnetaddr-ip-perl libconfig-tiny-perl libnet-dns-perl libd
 libnet-netmask-perl libtext-iconv-perl libnet-snmp-perl libnet-telnet-perl libdbi-perl \
 libdbd-mysql-perl libparallel-forkmanager-perl libproc-daemon-perl libdatetime-format-dateparse-perl \
 libnetwork-ipv4addr-perl libnet-openssh-perl libfile-tail-perl php-fpm php-db libapache2-mod-fcgid \
-libcrypt-cbc-perl libcryptx-perl
+libcrypt-cbc-perl libcryptx-perl php-pgsql libdbd-pg-perl
 
 2. Качаем исходники и раскидываем по каталогам:
 

+ 2 - 2
scripts/eyelib/database.pm

@@ -203,7 +203,7 @@ if ($config_ref{DBTYPE} eq 'mysql') {
 
 my $table= shift;
 my $data = shift;
-my $fh = File::Temp->new(UNLINK=>0);
+my $fh = File::Temp->new(UNLINK=>1);
 my $fname = $fh->filename;
 binmode($fh,':utf8');
 foreach my $row (@$data) {
@@ -220,7 +220,7 @@ close $fh;
 my $query = qq{ LOAD DATA LOCAL INFILE '$fname' INTO TABLE $table FIELDS TERMINATED BY ',' OPTIONALLY ENCLOSED BY '"' LINES TERMINATED BY '\r\n'; };
 $db->do($query);
 $db->disconnect;
-#File::Temp::cleanup();
+File::Temp::cleanup();
 }
 
 #---------------------------------------------------------------------------------------------------------------