Хелпзонович

lja:
Так и не выкупают, уже второй месяц :( Может, кто-нибудь подскажет нормальную сеть 468 с выкупом?

mediatime:
Я бы еще пообщался с украинцами на предмен, местного диалекта.

Пример:
У нас карта для оплаты сотового называется "карта оплаты" или "карта экспресс оплаты", а у них просто "пополняха".
То есть, когда я заходил в магазин и попрасил: "Дайте карту оплаты Билайна", они сначало непоняли, что мне нужно.
Возможно и у Вас есть такого рода слова в запросах.

При продвижении я уже с этим сталкивался.
Допустим был у меня форум о любви. Запрос на русском "я по тебе скучаю"
на их нем будет "я за тобой скучаю". хоть и бред, но это есть !!!

Так что надеюсь мой совет вы поняли.

alexxxxx:
C phpmailer-ом пока разбираюсь, но однако вижу, что это не то,ч то мне нужно. Потому что я хочу сам выбирать, какой именно файл отсылать в аттач. Ну и естественно, файл должен на сервере лежать.

Хелпзонович, а ваш скрипт так может?

alexxxxx:

Хелпзонович, что-то ошибка в [sub sendInstr{] строке получается.
Я наверное что-то не правильно делаю, ты не мог бы скинуть на мыло или в личку весь скрипт, просто я же не проф.програмер РНР.
Скачал phpmailer - буду сейчас тестить.

alexxxxx:

Народ, а не знает ли кто, как можно отправлять с сервера файлы на мыло? Может, через SSH как можно или еще как?

sub sendInstr{
my $to = shift;
my $from = shift;
my $subject = shift;
my $body = shift;
my @files = @_;

$sendmail = '/usr/sbin/sendmail';
open (SENDMAIL, "|$sendmail -t") or die "Cannot open sendmail";

$boundary = "8-nanqwk-89105645-123895";
$txt = "--" . $boundary . "\n";
$txt .= "Content-type: text/html; charset=windows-1251\nContent-Disposition: inline\n\n$body\n";
foreach $file (@files) {
$filecontents = "";
$file =~ /([^\\\/]*)$/i;
$filename = $1;
if ($file =~ /\.gif$/i) { $ctype = "image/gif"; }
elsif ($file =~ /\.jpe?g$/i) { $ctype = "image/jpeg"; }
elsif ($file =~ /\.s?html$/i) { $ctype = "text/html"; }
elsif ($file =~ /\.txt$/i) { $ctype = "text/plain"; }
elsif ($file =~ /\.ini$/i) { $ctype = "text/plain"; }
elsif ($file =~ /\.doc$/i) { $ctype = "application/x-msword"; }
else { $ctype = "application/octet-stream"; }


$encoding = ($ctype =~ m%^text/% ? "Quoted-printable" : "BASE64");

$txt .= "--" . $boundary . "\n";
$txt .= "Content-type: $ctype; name=\"$filename\"\n";
$txt .= "Content-transfer-encoding: $encoding\n";
$txt .= "Content-description: $filename\n";
$txt .= "Content-disposition: attachment; filename=\"$filename\"\n\n";
open (FILE, $file) or die "cannot open file $file";
binmode FILE unless $ctype =~ m#^text/# and $encoding =~ /Quoted[_\-]print/i;
while ($bytesread=read(FILE,$buffer,1024)) { $filecontents .= $buffer; }
$filecontents = &encode_base64($filecontents) if ($encoding =~ /base64/i);
$txt .= $filecontents;
close (FILE);
$txt .= "\n\n";
}

$txt .= "--" . $boundary . "--";
print SENDMAIL qq~To: $to
From: $from
Reply-To: $from
Subject: $subject
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="$boundary"

$txt
~;
close (SENDMAIL) or warn "Sendmail close error";
}

Зингельшухер:
Я сразу сказал что говорю на вскидку и что это трёп

т.е это зарание не проверенный а стало быть и не обязательно рабочий вариант...