Forum Webscript.Ru
Программирование => Perl => Тема начата: KOTOFF от 07 Декабря 2002, 02:35:55
-
Ребят, я в самом начале пути... приходится работать со скриптами, написанными другим... больше просто некому.
Суть:
Есть скрипт заказа, стандартный - клиент его заполняет и он нам отсылается мылом. Задача - вкрячить в него счётчик заказов. Что я делал (касаемо только этого):
Создал файлик sum куда пишутся и откуда читаются номера заказов. В скорипте:
@param = param();
$num = NUM();
...
sub NUM
{
open (NUM,"+ $num = ;
seek (NUM,0,0);
print NUM ++$num;
truncate(NUM, tell(NUM));
close (NUM);
return $num;
}
... далее в мэйлере:
print MAIL "Subject: On-line order $num \\n";
Всё работает, только заказы увеличиваются на 2 а не на 1... что делать? Где я лажаю? :(
Заранее спасибо за помощь!
-
Я разобрался в причине, но устранить её не могу. Дело в том, что скрипт двуступенчатый.
1-я ступень - выбор товара - "отправить" и если что-то выбрано, то
2-я ступень - забиваются координаты - "отправить".
Наверное подпрограммка выполняется дважды... что делать? Помогите пожалуйста!!!
-
Тема закрыта... я разобрался.
Ну тупо-о-о-о-о-ой! Надо было подпрограммку непосредственно перед отправкой мыла исполнять...
Ну чтож... всем спасибо за внимание :)