Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Стандарт окошко авториз в Перл / 2 сообщений из 2, страница 1 из 1
03.07.2003, 00:56
    #32197854
Real_Линуксоид
Real_Линуксоид
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Стандарт окошко авториз в Перл
Как собств говоря сие окошко вызвать ?
Если на ПХП это выглядит примерно так
if ($q->Exist($PHP_AUTH_USER)==0)
{
header( 'WWW-Authenticate: Basic realm="admin"' );
header( 'HTTP/1.0 401 Unauthorized' );
exit;
}
то как на Перле ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.07.2003, 03:01
    #32197875
ScableR
ScableR
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Стандарт окошко авториз в Перл
Точно не могу сказать, как это может получиться. Просто я уже давно ушел в другой стан - стан программинга на пхп.... Ну, а если конкретно по теме, то вот:\r
Почтай, там написан такой код для перенаправления на другой урл:\r
Код: plaintext
print  "Location:http://url.com\\n\\n" ;
\r
Это аналог пхповского\r
Код: plaintext
header( "Location:http://url.com" );
\r
Так что соответственно правь код, и принтуй... Тока не забудь, что до этих принтов не должно ничего выводиться :)....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / Стандарт окошко авториз в Перл / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 441ms
Закрыть
start [/forum/topic.php?fid=23&tablet=1&tid=1480536]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 149ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 215ms
total:  441ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]