<& comps/header.msn &>
% if($ARGS{send_ok}) {
Ваша анкета отправлена, спасибо за Ваше участие.
% } % if(keys(%errors) > 0) {
При заполнении анкеты произошли ошибки, неправильно заполненные поля выделены цветом.
% } % if(!$ARGS{posted} || ($ARGS{posted} && keys(%errors) > 0)) {
% my $j = 0; % foreach my $field (@fields) { % my $fname = (keys(%$field))[0]; title="<%$errors{$fname}%>"> % $j++; % }
><%$fname%> % if($j != 10) { % } else {
    %} % my $index = 1; % foreach my $fields (@{$field->{$fname}}) { % if($fields->{type} eq 'textarea') { % } elsif($fields->{type} ne 'text') { % my $label_id = int rand(999); % my @options = ref($ARGS{$fields->{name}}) ? @{$ARGS{$fields->{name}}} : $ARGS{$fields->{name}}; % my $checked; % for my $idx (@options) { % if($index == $idx) { $checked = 'checked'; last } % } <% $j == 10 ? '
  • ' : undef %>><% $j == 10 ? '
    • ' : undef %> % } else { % my $value = $ARGS{$fields->{name}}; % if(!$value && $fields->{"check"} eq 'http') { % $value = 'http://'; % } <%$fields->{text}%> % } % $index++; % } % if($j == 10) {
% }
 
* Если у тебя нет блога - заведи. Это обязательное условие.  

% }
<& comps/footer.msn &> <%once> use Encode; <%init> my @fields = $m->comp("subs/form-data.msn"); my %errors; my %data; my $ic = 'utf8'; my $cd = $ARGS{"Submit"}; for (qw(cp1251 koi8-r utf8)) { next unless encode('utf8', decode($_, $cd||'')) eq "Отправить анкету"; $ic = $_; last; } for(keys %ARGS) { $ARGS{$_} = encode("utf8", decode($ic, $ARGS{$_})); } if($ARGS{posted}) { # die Dumper (\%ARGS); foreach my $field (@fields) { my $fname = (keys(%$field))[0]; foreach my $fields (@{$field->{$fname}}) { if(($fields->{type} eq 'radio') or ($fields->{type} eq 'checkbox')) { my @options = ref($ARGS{$fields->{name}}) ? @{$ARGS{$fields->{name}}} : $ARGS{$fields->{name}}; if($fname eq "Отметь страны/регионы, в которых ты был") { $data{$fname} = join ", ", map {$_->{text}} (@{$field->{$fname}})[ map {$_ - 1} @options ]; } else { if(!$options[0]) { $errors{$fname} = "Выберите вариант"; next; } else { $data{$fname} = join ", ", map {$_->{text}} (@{$field->{$fname}})[ map {$_ - 1} @options ]; }} } else { my $value = $ARGS{$fields->{name}}; $value =~ s/\s+$//; $value =~ s/^\s+$//; if($fields->{check} eq 'int') { $value =~ s/^0//; if($value !~ /^\d+$/) { $errors{$fname} = "Поле может содержать только цифры"; next; } else { push @{$data{$fname}}, $value; } } elsif($fields->{"check"} eq 'http') { if($value !~ m!^http://\S{5,}$!) { $errors{$fname} = "Некорретная ссылка"; last; } else { $data{$fname} = $value } } elsif($fields->{"check"} eq 'email') { if($value !~ m!^\S+@\S+\.\S+$!) { $errors{$fname} = "Неправильный адрес электронной почты"; last; } else { $data{$fname} = $value } } else { unless(length($value)) { $errors{$fname} = "Поле не заполнено"; last; } else { $data{$fname} = $value; } } } } } # Особая проверка на дату, кривовато, но что поделать... my $key = "Дата рождения"; my $birth_time; if(!$errors{$key}) { my($day, $mon, $year) = @{$data{$key}}; $mon--; eval qq{ \$birth_time = Time::Local::timelocal(0, 0, 0, \$day, \$mon, \$year); }; if($@) { $errors{$key} = "Ошибочная дата рождения"; } } if(keys(%errors) == 0) { # проверки на непрохождение анкеты # my $age = ((( time() - $birth_time) / 60) / 60) / 24; # if( ($age < 7300 || $age > 10950) || # Возраст от 20 до 30 лет # ($ARGS{education} == 1 or $ARGS{education} == 2) || # Образование: среднее, среднее специально # ($ARGS{digital_photo} == 2) || # Цифровая фотография: нет # ($ARGS{sickness} == 1) || # Хронические заболевания: да # ($ARGS{ready_for_action} == 2) || # Рюкзак, 25 кг на собственном горбу: нет, # ($ARGS{countries} >= 12)) # Страны "больше" австралии # { # # Посылка сообщения о том, что анкета не прошла по критериям # my $msg = $m->comp("comps/sendmail-out-of-restrictions.msn", # from => "escape\@rambler-co.ru", # to => $data{"E-mail адрес"}, # data => \%data, # fields => \@fields # ); # $m->comp("subs/sendmail.msn", # msg => $msg # ); # } my $msg = $m->comp("comps/sendmail.msn", from => "escape\@rambler-co.ru", to => "pobeg\@prt.ru", data => \%data, fields => \@fields ); $m->comp("subs/sendmail.msn", msg => $msg ); $r->header_out('Location', "anket.html?send_ok=1"); $r->status(302); $r->send_http_header; $m->abort; } }