Сообщения

1

Веб-технологии / сохранить Smtp-исходник письма

« : 25 Октября 2005, 09:48:35 »

Добрый день.

Пишу на VBScript, отправляю письмо с помощью объекта CDO.Message. Мне необходимо вместо реальной отсылки сохранить SMTP-исходник письма в файл (проще, в строку). Как это сделать?

Заранее спасибо за помощь.

2

Perl / сложный вопрос: perl+xsl+кодировка

« : 07 Июля 2005, 18:08:39 »

Есть perl-овый скрипт, который выводит результат xsl-трансформации на экран.

В xsl\'е указан метод вывода:


В получающемся html-коде есть строка:


В perl-скрипте для xsl-трансформации используются модули:
my $parser=XML::LibXML->new();
my $xslt=XML::LibXSLT->new();

И при всём этом браузер определяет кодировку неверно, как Western European (ISO) вместо Cyrillic (Windows).

Почему так получается и что надо сделать, чтобы кодировка была правильной? Помогите, пожалуйста!

3

JavaScript & JScript / вопросы по работе с датами

« : 04 Июля 2005, 17:25:53 »

commander:
Дальше продолжать или этого достаточно?

Я так понимаю, что этот код даёт номер текущей недели, верно? Значит, для предыдущей надо вычитать единицу. Но как быть с первой неделей года?

4

JavaScript & JScript / вопросы по работе с датами

« : 04 Июля 2005, 15:35:01 »

Добрый день.

Что-то никак не могу сообразить, как определять:
- порядковый номер предыдущей недели (по ISO-8601)
- дату понедельника предыдущей недели
- дату воскресенья предыдущей недели

Помогите, пожалуйста.

5

Perl / запись в файл + редирект

« : 27 Января 2005, 11:59:21 »

Green Kakadu:
select не нужен, т.к. вы все равно используете дескриптор. Т.е. можете просто смело убрать
select(NEW);
и все должно быть нормально

Спасибо огромное!

6

Perl / запись в файл + редирект

« : 27 Января 2005, 10:34:52 »

Возникла следующая проблема.

Пользователь заполняет форму -> запускается скрипт.

В скрипте:

1. выполняется upload файла:

Код: [Выделить]


@parts = split(/\\\\/,$filename);
$file=@parts[(scalar @parts) - 1];
open (UFILE,">$imgurl$file");
binmode(UFILE);
flock(UFILE,2);
while ($bytesread=read($filename,$buffer,1024)) { print UFILE $buffer; }
close(UFILE);
close $filename;


2. редактируется некий текстовый файл:

Код: [Выделить]


open (OLD,"< $old");
open (NEW,"> $new");
select(NEW);
while()
{
...
print NEW $_;
}
close(OLD);
close(NEW);
rename($new,$old);


3. выполняется редирект

Код: [Выделить]


print "Status: 302\\n";
print "Location: $url\\n\\n";


В результате в error_log появляется ошибка "Premature end of script headers".

Что в данном случае не так?
Как в одном скрипте сделать запись в файл и сразу после этого - редирект? Или это невозможно в принципе?

7

Perl / помогите найти ошибку

« : 05 Сентября 2004, 19:55:57 »

Проблема решилась принудительной конвертацией массива @errors в utf. И ведь знала же, что DOM требует utf, знала...

Всем спасибо за помощь.

8

Perl / помогите найти ошибку

« : 03 Сентября 2004, 18:02:47 »

Для проверки пишу:
print &CGI::header();
print $xmlpage->toString();
Выводится не до конца сформированный xml. Текст просто обрывается в произвольном месте, как будто что-то прервало вывод xml в поток.

9

Perl / помогите найти ошибку

« : 03 Сентября 2004, 16:32:32 »

Код скрипта:

use XML::LibXML;
my $parser=XML::LibXML->new();

my $xmlpage=$parser->parse_string("");
my $root=$xmlpage->getDocumentElement();

my @errors=();
# здесь идёт заполнение массива @errors

if (scalar(@errors)>0)
{
  my $elist=$xmlpage->createElement("Errors");
  foreach my $erdescr (@errors)
  {
    my $error=$xmlpage->createElement("Error");
    $error->setAttributeNode($xmlpage->createAttribute("Descr",$erdescr));
    $elist->appendChild($error);
  }
  $root->appendChild($elist);
}

Что не так в этом коде?
У меня почему-то в результате $xmlpage выглядит как невалидный xml, точнее даже создаётся такое ощущение, что он не до конца сформирован.

Очень рассчитываю на вашу помощь.