>Объясните пожалуйста как написать модуль аутентификации на перл
>и вообще как передаються параметры (логин и пароль скрипту )
>authenticate_program /usr/local/squid/bin/my_auth.pl
За пароль из формы аутентификации, к сожалению ничего не скажу.
т.к. либо ты пользуешь стандартную аутентификацию апача (или на чем там у тебя все держится) либо пишешь свою.
Но вообще есть полезные переменные окружения.
вот их ключи
AUTH_TYPE
DOCUMENT_ROOT
GATEWAY_INTERFACE
HTTPS
HTTP_ACCEPT
HTTP_ACCEPT_CHARSET
HTTP_ACCEPT_ENCODING
HTTP_ACCEPT_LANGUAGE
HTTP_CACHE_CONTROL
HTTP_CONNECTION
HTTP_HOST
HTTP_KEEP_ALIVE
HTTP_USER_AGENT
PATH
QUERY_STRING
REMOTE_ADDR
REMOTE_PORT
REMOTE_USER
REQUEST_METHOD
REQUEST_URI
SCRIPT_FILENAME
SCRIPT_NAME
SERVER_ADDR
SERVER_ADMIN
SERVER_NAME
SERVER_PORT
SERVER_PROTOCOL
SERVER_SIGNATURE
SERVER_SOFTWARE
значение переменно можно получить из хэша %ENV (print $ENV{SOME_KEY};)
А для написания своей аутентификации тебе достаточно обрабатывать данные передаваемые в скрипт для еэтого в модуле CGI.pm есть функция param(PARAM_NAME) просто передаешь в форму логин/пароль, а потом выбираешь этой функцией незадумываясь над тем GET-ом или POST-ом оно тебе попало.
А для получения данных из командной строки существует спец. массив @ARGV, где элементы массива - есть параметры переданные в скрипт 0, 1, 2 и т.д.