Сэрыыыыы! Очень нужна ваща помощь. Без вас я умер.

[Blizzard]

Народ. Есть что-то типа мини инет магазина.
Так вот, есть форма где есть вот такой скрол выбор:

выберете   
value="выставление резерва" class="navig">выставление резерва   
class="navig">выписка счета   заявка на доставку   
value="сборка компьтера" class="navig">сборка компьютера   Выбрать   



Так вот мне надо очень простую вещь, только как это сделать я незнаю
Все заказы отправляются на mail1@mail.ru, а надо что бы если человек выберает "выписка счета", то заказ отправлялся бы

на mail2@mail.ru. Все остальное на mail1@mail.ru.

Магазин состоит всего из 2-ух файлов. Прилигаю их вам.
Помогите пожалуйста. Очень надо. Я, чем смогу, помогу вам.

p.s Позиции в корзину кладуться так:

nt/68ext&ue=188.30&posue=188.30">

Корзина вызывается так:

false; " class="information">посмотреть корзину

[Blizzard]

Блин! Сюда эти файлы никак не могу прикрепить (
Скачать их можно отсюда. Не поленитесь плззз...

http://www.ultrabook.ru/download/const4.txt
http://www.ultrabook.ru/download/reg4.txt

[Mog.]

В reg4 есть my $Mail_admin_TO=\'dostavka@bbb.ru\';   - убери эту строку и вместо неё вставь две
$m1=\'mail1@mail.ru\';
$m2=\'mail2@mail.ru\';

дальше, после строки
my $naznachenie = $Objekt->param("naznachenie");
пишешь строку
if($naznachenie eq "выписка счета"){$Mail_admin_TO="$m2"} else {$Mail_admin_TO="$m1"}

должно помочь

[Blizzard]

Неа. Не помогло (
Пишет:

Software error:
Global symbol "$Mail_admin_TO" requires explicit package name at /www/comp/vcgi/ultrashop/reg4.pl line 74.
Global symbol "$m2" requires explicit package name at /www/comp/vcgi/ultrashop/reg4.pl line 74.
Global symbol "$Mail_admin_TO" requires explicit package name at /www/comp/vcgi/ultrashop/reg4.pl line 74.
Global symbol "$m1" requires explicit package name at /www/comp/vcgi/ultrashop/reg4.pl line 74.
Global symbol "$Mail_admin_TO" requires explicit package name at /www/comp/vcgi/ultrashop/reg4.pl line 261.
Execution of /www/comp/vcgi/ultrashop/reg4.pl aborted due to compilation errors.

[NeoNox]

Перед этим блоком объяви переменные.
my ($Mail_admin_TO, $m2, $m1);

[mike]

Blizzard:
Неа. Не помогло (

Тогда не убирай $Main_admin_TO совсем, а убери только инициализацию:

my $Mail_admin_TO;
my $m1=\'mail1@mail.ru\';
my $m2=\'mail2@mail.ru\';

[Mog.]

Или убери(закомментируй) строку
use strict;

[NeoNox]

moderator
Mog. давайте только те советы в которых вы уверены. Иначе не стоит ничего советовать.
perldoc perlstyle
You should also always run under use strict or know the reason why not.

[Mog.]

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

[NeoNox]

Mog. use strict это не только стиль программирования. Это требования(!) во всех более-менее серьезных проектах.
Назови мне примеры модулей на CPAN без use strict.
А для новичков - это возможность наступать на грабли как можно реже и писать код оптимальным образом.
Кстати, я с удовольствием прочитаю новый perlstyle от Mog. - подключайся к разработкам http://lists.perl.org/showlist.cgi?name=perl5-porters.
Я считаю тему исчерпаной. Если есть вопросы - в приват.