Сообщения

46

Perl / Sendmail

« : 17 Декабря 2003, 01:01:29 »

Ну пока мне это не надо... Но потом попробую

47

Perl / Sendmail

« : 15 Декабря 2003, 13:48:40 »

NeoNox
Спасибо огромное, всё работает!

48

Perl / Sendmail

« : 15 Декабря 2003, 05:04:16 »

print MAIL "
Content-Type: text/html; charset=\\"koi8-r\\" \\n
Content-Transfer-Encoding: base64\\n\\n
@message";

Даёт тот же эффект.

49

Perl / Sendmail

« : 15 Декабря 2003, 04:16:54 »

Скажите пожалуйста, я отправляю почту стандартным способом:
open(SENDMAIL, "|$mailprog $mailto");
print SENDMAIL "From: $autor\\n";
print SENDMAIL "To: $mailto\\n";
print SENDMAIL "Subject: $subj\\n";
print SENDMAIL "$comments \\n";
close(SENDMAIL);

Но при отправке HTML-кода в почтовом клиенте отображается сам код, а не страница. Как указать почтовому клиенту, что это HTML-пага, а не plain text?

50

Perl / Ksearch 1.4 - проблемы с кодировкой.

« : 06 Ноября 2003, 04:41:31 »

Спасибо. По сайту русского апача я полазил, а слона-то и не приметил

51

Perl / Ksearch 1.4 - проблемы с кодировкой.

« : 05 Ноября 2003, 02:53:08 »

Такой поисковик по сайту, мож кто видел... В общем там результаты поиска выдаются по умолчанию в западноевропейской(iso) кодировке. Не знаю почему, ведь в шаблонах я указывал windows-1251... Приходится кодировку в броузере для каждой страницы менять вручную, а это неудобно. Может кто знает решение(сервер-Russian apache, хостинг виртуальный)? Плз, очень надо!
ЗЫ. Причём по ходу выполнения скрипта с разными запросами совершенно произвольно кодировка меняется на японскую, а иногда и внормальной win-1251 выдаёт...

52

Sanitarium WebLoG / Последние n статей?

« : 16 Сентября 2003, 07:54:18 »

Как вывести на любую страницу сайта последние n статей с помощью Javascript, а лучше через ssi.

53

Perl / Actve perl

« : 03 Сентября 2003, 03:18:53 »

Скачал Active Perl(название архива-ActivePerl-5.6.1.635-MSWin32-x86 - Perl.zip).
Всё установил. Как написано в ридми, я прописал в командной строке
perl -h
ПИшет, что perl не является командой, исполняемой программой. Ось-XP.
PS Аналогичный текст при, скажем,
perl script.pl

54

Perl / Дока?

« : 01 Сентября 2003, 03:09:55 »

Кто-нить подскажет толковую документацию(лучше русскую)-читай электронный  учебник по Perl? В Faq ссылки нерабочие, все 404 выдают или "Невозможно отобразить страницу". Green kakadu где-то кучу ссылок на Perl cookbook давал, только вот они тоже нерабочие.

55

Perl / Запись данных из формы в текстовый файл

« : 01 Сентября 2003, 03:07:31 »

open (KLOP ">>file.txt"); # в конец файла (\'>>file.txt\')
print KLOP "yo";
close (KLOP); # Закрываем файл

56

Perl / -e

« : 29 Августа 2003, 08:04:56 »

glebushka
Всё работает с if (-e("$locate/$name.txt")).
А вчера почему-то не работало.
Спасибо большое!

57

Perl / -e

« : 29 Августа 2003, 07:51:42 »

Так пробовал. Script error выдаёт =(

58

Perl / -e

« : 29 Августа 2003, 03:35:44 »

Такой врпрос.
При регистрации юзверя создаётся файл с его именем(логином). Надо чтобы при  существующем аакаунте
юзверю выдавалось сообщение о том, что его username кто-то забил до него.
Итак:
if (-e,\'$locate/$name.txt\') #Определяем, создал ли кто аккаунт с подобным именем
{print"Такой аккаунт уже существует!"} #Если имя забито-выводим сообщение об этом
else
{open(FILE, ">$locate/$name.txt") or die("Can not open? reason: $!"); #Если аккаунта с аналогичным именем нет-создаём файл
print FILE "$userinfo"; #пишем юзерскую инфу
close(FILE) or die("Can not close FILE, reason: $!"); #Ну и закроем
}

По идее всё должно работать, однако на практике скрипт постоянно пишет, что такой аккаунт уже есть.
Даже если его нет. То есть всё время находит, что файл $locate/$name.txt при любом $name уже существует.
Если кто знает причины или более удачную реализацию-заранее благодарю за помощь.
Хостинг- фатал.ру.