Нет ответов в данной теме

[_marlik (WMID 373541370263 )]

Люди, Братья по Перлразуму!!! Помогите. Ситуация такая, генерирую сессию, номер сессии кладу в скрытое поле отправляю на оплату пользователя, в результате получается что номер сесии почему-то не вынимается скриптом, мало того получается четыре сессии в результате, ну количество понятно почему, только что-то идет не так, чего-то не допонимаю наверно, кто нибудь настраивал Перлом оплату?

Да и еще такой глюк в браузере юзера все равно видать куда тебя пересылают, загон!!!

Вот код для мыслителей

##########################################################################################################

#!/usr/bin/perl -w
use strict;
use CGI::Carp ;
use CGI::Session;
use CGI ;
my $cgi = new CGI;

sub gen_sid{
my $sess_ID = new CGI::Session(}) || die;
$sess_ID -> expire();
my $id = $sess_ID->id();
$sess_ID -> param();
$sess_ID -> close();
return ;
}

sub payment{
my $sid = gen_sid();
print<<TT;
<center>
<form id= >
<input type=>
<input type=>
<input type=>
<input type=>
<input type=>
<font color=><b>Press a badge for payment 1\$ </b></font>
<input type=
</center>
</form>
TT
}



sub get_pay{
my $sid = $cgi -> param();
if($sid){
my $sess_ID = new CGI::Session(}) || die;
$sess_ID -> param();
$sess_ID -> close();
exit(0);
}
}



print $cgi->header(-charset => );

if(defined $cgi->param()){
print ;
}elsif(defined $cgi->param()){
print print ;
}elsif(defined $cgi->param()){
get_pay();
}else {
payment();
}

##########################################################################################################

Спасибо если кто ответит...