>>Пишу так
>>===================================
>>use CGI qw(header cookie);
>>$CGI::HEADERS_ONCE = 1;
>>
>>$cheatcook=new CGI;
>>$Cookies1 = $cheatcook->cookie( -name => "supportusername",
>> -value => "$username",
>> -path => "/",
>> -expires => "10000");
>>$Cookies2 = $cheatcook->cookie( -name => "supportpassword",
>> -value => "$password",
>> -path => "/",
>> -expires => "10000");
>>print $cheatcook->header(-cookie=>[$Cookie1,$Cookie2]);
>>print "\n\n";
>>==========================
>>Не пашет млин =(((
>
>
>Тут есть ошибка .. s не дописано ... Но всеравно исправил и
>он упорно выводит мне это в браузер а не в куку
>
Подправил ...
$expire=time()+31536000;
$Cookies1 = $cheatcook->cookie( -name => "supportusername",
-value => "$name",
-path => "/",
-expires => "$expire");
$Cookies2 = $cheatcook->cookie( -name => "supportpassword",
-value => "$password",
-path => "/",
-expires => "$expire");
print $cheatcook->header(-cookie=>[$Cookies1,$Cookies2]);
Всеравно пишет в браузер ...
|