ru.linux

 
 - RU.LINUX ---------------------------------------------------------------------
 From : Konstantin Voznjuk                   2:5020/400     15 Apr 2003  14:33:33
 To : All
 Subject : [q] SQUID
 -------------------------------------------------------------------------------- 
 

 Помогите плиз разобраться....
 Для идентификиции пользователя применяю небольшой скриптец....
 В конфиге squid этот скриптец прописываю в authenticate_program ну вобщем
 делаю все связаные с этим настройки.... Вобщем вопрос в другом... Когда в
 качестве такого скрипта использую шеловский...
 
 #!/bin/sh
 while read username password;
 do
   echo "OK"
 done
 все работает... Hабираешь любой логин пароль и все отрабатывае... Hо меня не
 устраивает шел а нужен перл.... Пишу по другому примеру:
 #!/usr/bin/perl
 $|=1;
 authentication();
 sub authentication {
   while (<STDIN>) {
     chomp;
     my @login = split(/ /);
     $login[0] = &checkcaseinsensitiv($login[0]);
     $login[1] = &checkcaseinsensitiv($login[1]);
     printlog ($login[0], $login[1]);
     print "OK";
   }
 }
 sub checkcaseinsensitiv() {
     if ($_[0] ne lc($_[0])) {
       $_[0] = lc($_[0]);
     }
   return $_[0];
 }
 sub printlog {
   open(LOGFILE, ">> ./authdebug") || print "failed";
   print LOGFILE "@_ \n";
   close(LOGFILE);
 }
 и нефига не работает... :( При запуске из командной строки отрабатывает
 нормально а когда сквидом.... В логах сквида есть только строка с запросом с
 прочерком в поле имени пользователя в других файлах только то что при
 старте... Клиент страницу не получает в вечном ожидании при дитальном
 разборе процес (один из пяти) идентификации оказываеться подвисшим....
 Пермишины проверял... По крайней мере расскажите как от сквида добиться
 больше информации чего он подвисает...
 squid -NDd 1
 squid -k debug никакого эффекта....
 --- ifmail v.2.15dev4
  * Origin: Adamant ISP news server (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор