Темы

1

Perl / организация рассылки 2

« : 04 Июня 2010, 19:05:53 »

т.к. письма отправлять все сразу для сервера нагрузка, надо раз в 10 мин кроном скрипт запускать и порциями по 500 шт отправлять.
вопрос в том куда эти письма и как складывать до отправки?
1. в мускул всовывать по каждому письму (мыло - тело)
2. сохранять в тхт файл (1я строчка мыло, остальное тело).

и все же, чем лучше отправлять?
sendmail, Net::SMTP, Mime::Lite, и т.д.

2

Perl / отправка почты

« : 01 Марта 2010, 11:10:36 »

если отправлять почту стандартным способом

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


 open (MAIL, "|/usr/sbin/sendmail -t -f");
 print MAIL "$text";

при этом если юзер вводит сообщение где в строке только 1 точка

Здрасте
.
перезвоните

я понимаю что это бредово выглядит, но все же.
по почте доходит только

Здрасте
.

как это исправить?

3

Perl / ssl + xml

« : 05 Ноября 2009, 17:36:35 »

помогите пожалуйста с примером
надо соединится через https (ssl) при этом посредством xml передать логин и пароль

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

$doc = qq[



   
        login
        pass
       
            1.0
            en
       
   
    1234

];

use LWP;
$ua = LWP::UserAgent->new;
$ua -> agent("Bond, James Bond/0.07");
$req = HTTP::Request -> new ( POST => \'https://$host:$port\');
$req -> content_type (\'application/xml\');
$req -> content ($doc);

$response = $ua -> request ($req);
if ($response->is_success) { print $response->decoded_content; }
else { print $response->status_line; }

при таком варианте зависает надолго

4

Perl / переменные в CGI

« : 23 Сентября 2009, 23:19:22 »

если не использовать CGI, то получение переменных у нас выглядит так:

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

if ($ENV{\'REQUEST_METHOD\'} eq "POST") { read(STDIN, $buffer, $ENV{\'CONTENT_LENGTH\'}); }
else { $buffer=$ENV{\'QUERY_STRING\'}; }
и что б получить все что там передали можно воспользоваться print $buffer;

но используя CGI этот немер не проходит.
даже если

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


use CGI;
$a1=param(\'a1\');
$a1=param(\'a2\');
$a1=param(\'a3\');
if ($ENV{\'REQUEST_METHOD\'} eq "POST") { read(STDIN, $buffer, $ENV{\'CONTENT_LENGTH\'}); }
else { $buffer=$ENV{\'QUERY_STRING\'}; }

$buffer = NULL

вообщем для логирования полных запросов надо узнать все что передали скрипту

5

Perl / sendmail

« : 11 Июля 2008, 13:48:49 »

Чем лучше отправлять почту что б не нагружать сервер?
и что б генерировало правильные заголовки

6

Perl / Своя ошибка 404

« : 06 Июля 2008, 02:54:02 »

Столкнулся с такой проблемой как перенасыщение старыми страницами.
к примеру было action=view, стало step=view
и что б сообщить ему что страницы action уже не существует, я так думаю, надо выдать ему ошибку 404 nbgf
if ($FORM{\'action\'}) { print "Status: 404 Not Found\\n"; exit; }

было бы совсем не плохо, так же для людей пришедших с того же поисковика по неправильной ссылке. сообщить что сайт работает и начало находится в начале :-)
но как не пробовал - никак не выходит...
Возможно есть какое то решение?

7

JavaScript & JScript / select & AJAX

« : 03 Июня 2008, 14:52:47 »

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

8

Perl / регулярные выражения

« : 18 Июня 2007, 19:02:14 »

возможно ли вообще решить такую задачу как поиск с необязательными парраметрами

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

$text[1]="подарок, есть 10 штук";
$text[2]="подарок[15], есть 7 штук";
foreach (@text) {
  if (m/подарок, есть (.*) штук/) { $pod=1; $kol=$1; }
  if (m/подарок\\[(.*)\\], есть (.*) штук/) { $pod=$1; $kol=$2; }
}

9

Perl / вывод ссылок заполненых дат sql

« : 07 Июня 2007, 13:46:52 »

здравствуйте. вот такой вопросец, есть база с полем data 0000-00-00
нужно показать все даты в виде календаря и что б заполненные даты подсвечивались
с базы я могу их вытащить таким способом:

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

SELECT data FROM baza WHERE data LIKE \'$2007%\' GROUP BY DATA
печать календаря идет так:

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

@mdays = qw(31 28 31 30 31 30 31 31 30 31 30 31);
for $newmon (1..12) { print "$newmon ";
  for $newday (1..$mdays[$newmon]) { print "$newday "; }
  print "\\n";
}

можно конечно сделать на каждый день проверку, но думаю это не совсем оптимально

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

$count = $dbh->selectrow_array("SELECT COUNT(*) FROM baza WHERE data LIKE \'2007-$mm-$dd%\'");

10

Perl / LWP и тайм аут браузера

« : 07 Марта 2007, 16:43:49 »

use LWP::Simple;
$file = get("$url");
написал простой скриптик, который загружает указаный файл на сервер, но если файл долго грузится, то браузер выдает ошибку по тайм ауту.
возможно ли сделать что б писалось % загрузки?

11

Perl / почему не работает замена

« : 10 Января 2007, 01:27:38 »

обьясните пожалуйста почему:

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


@row_ary=();
@row_ary=$dbh->selectrow_array("SELECT t.id, t.tema, p1.text, t.cat_id FROM ... ");
$row_ary[2] =~ s/(.{5}).*/$1/;

print $row_ary[2];

= больше 5 символов

12

Perl / внутренние скрипты и куки

« : 07 Августа 2006, 14:49:06 »

вот такая вот проблемка возникла.
у меня сайт начинается с индех скрипта, а дальше по мере надобности я подгружаю дополнительные скрипты, типа так:

if ($req eq "desk") { &htmlup; &menu4; &vfirm; &html1; require "./desk/desk.cgi"; &html2; &vforum; &htmlend; }

все было бы хорошо, но вот если таким же способом подключать форум, то куки не отправляются, ибо в &htmlup; стоит print "Content-type: text/html\\n\\n";

тоесть index.cgi отвечает только за внешний вид (если можно так сказать

13

Perl / мучения с нулем

« : 12 Июля 2006, 17:10:54 »

если надо постаить ноль перед датой, то это решается так:

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


(undef,undef,undef,$mday,$mon,$year,undef) = localtime(time);
if ($mday < 10) { $mday="0$mday"; }
if ($mon < 10) { $mon="0$mon"; }
$data="$mday.$mon.$year";

но вот у меня чуть подругому, юзер сам должен стаить дату, а я ноль никак не могу всавить перед ним:

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

$stdey=$VOTE{stdey}; if ($stday < 10) { $stday="0$stday"; }
print "$stdey
"; #вот не хочет он 01 выдавать....

for ($stdey=1;$stdey<=31;$stdey++) { print "$stdey"; }

14

Perl / Организация авторизации

« : 22 Июня 2006, 14:52:40 »

долго думал и искал способ безопасной авторизации и вот выношу на ваше обозрение следующее:

1. естественно идет сверка логина и пароля с данными на сервере
2. при каждой авторизации запускается код генирации случайного пароля, тоесть он будет все время новый.
3. логин и случайный пароль забиваются в хеш на сервере и в куки пользователю.

естественно что далее уже куки будут сверятся с временным паролем по логину.

очень прошу высказать ваше мнение.
кто знает способ луше также прошу поделиться

15

Perl / хочу понять в определиении значений

« : 21 Февраля 2006, 17:43:00 »

все работает, но хочу узнать как сделать правильно что б небыло записи "Use of uninitialized value in string eq"
лазил, лазил везде и не нахожу такого.

собственно $kat может быть или не быть

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


if   ($kat eq "pt") { $razdel="111"; }
elsif ($kat eq "dt") { $razdel="222"; }
print "$razdel";