Форум программистов [Powered by Invision Power Board]

Код

#!/usr/bin/perl -w
#use strict;
use DBI;
use CGI;
use CGI qw (:standart);
use CGI qw(:cgi);
use CGI::Carp qw(fatalsToBrowser);

my $ps=param('p1');
my $file = param('price');

$ps=~s/\0//g;
$ps=~s/\.\.//g;

if ($ps ne 'password') {
print "Content-type: text/html\n\n";
print "<html><h1>Неверно введен пароль</h1></html>\n";
exit;
}

if ($file eq '') {
print "Content-type: text/html\n\n";
print "<html><h1>Вы не выбрали файл для загрузки!</h1></html>\n";
exit;
}

##########Загрузка файла на сервер для последующего его чтения и заливки содержимого в БД
my $file_name =$file;
open (FILE, ">/.1/share/elpr.ru/data/temp/$file_name") || die "Can not open file! $file_name!";
binmode FILE;
flock (FILE, 2);
print FILE while (<$file>);
close FILE; 
close $file_name;


########Чтение загруженного файла и заливка его в БД
open FF, "</.1/share/elpr.ru/data/temp/$file_name";
my @n=<FF>;
close FF;


my $dbh=DBI->connect("DBI:mysql:elpr", "elpr", "passw") or die "Error: $DBI::errstr\n";
my $sth=$dbh->do("SET NAMES 'cp1251'");

########## Очистака предыдущего наполнения таблицы
$sql="TRUNCATE TABLE price_new";
$sth=$dbh->do($sql);

foreach $i (@n) {
$u=$u+1;
@m=split(";",$i); 
$m[1]=~s/[\/"']/ /imgx;
$m[2]=~s/[\/"']/ /imgx;
$m[5]=~s/[\/"']/ /imgx;
my $sql="insert into price_new (category,name,body,producer,price_new,description) values (\'$m[0]\',\'$m[1]\',\'$m[2]\',\'$m[3]\',\'$m[4]\',\'$m[5]\')";
$sth=$dbh->do($sql); #Для операций которые не возвращают значение
defined $sth or die $dbh->errstr;
}

$sql="create table temp SELECT price\.category,price\.name,price\.body,price\.producer,price\.price,price\.description,price\.image FROM price LEFT OUTER JOIN price_new ON \(price\.name = price_new\.name\) and \(price\.category = price_new\.category\) and \(price\.\`price\` = price_new\.\`price_new\`\) WHERE \(ISNULL\(price_new\.name\)\) and \(ISNULL\(price_new\.category\)\) and \(ISNULL\(price_new\.\`price_new\`\)\)";
$sth=$dbh->do($sql);

$sql="delete from price where price\.name in \(select temp\.name from temp\)";
$sth=$dbh->do($sql);

$sql="INSERT INTO price \(price\.category, price\.name, price\.body, price\.producer,price\.\`price\`, price\.description, price\.image) SELECT price_new\.category, price_new\.name, price_new\.body, price_new\.producer,price_new\.\`price_new\`, price_new\.description, price_new\.image FROM  price_new LEFT OUTER JOIN price ON \(price_new\.name=price\.name\) and \(price_new\.category=price\.category\) and \(price_new\.\`price_new\`=price\.\`price\`\) WHERE \(ISNULL\(price\.name\)\) and \(ISNULL\(price\.category\)\) and \(ISNULL\(price\.\`price\`\)\)";
$sth=$dbh->do($sql);

$sql="drop table temp";
$sth=$dbh->do($sql);

####Удаление файла из каталога TEMP.Он нам больше не нужен, т.к. мы его уже залили в БД
unlink("/.1/share/elpr.ru/data/temp/$file_name") or die "Can't unlink $file_name: $!";


$dbh->disconnect;

print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title></title>\n";
print "</head>\n";
print "<body>\n";
print "Все готово!!!\n";
print "$u\n";
print "</body>\n";
print "</html>\n";