ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Yuri Khachaturian                    2:5020/975     13 Aug 2001  17:46:47
 To : All
 Subject : mod_perl
 -------------------------------------------------------------------------------- 
 

 Ответ продублируйте плиз в мыло, а то эхи у меня как то странно ходят :(
 
 Подскажите пожалуйста как сделать чтобы при авторизации под mod_perl можно
 было хранить пароли в БД MySQL в шифрованном виде типа password("passwd")
 как это делает mysql?
 
 Есть:
 
 .htaccess:
 AuthName "URVES.RU ADMIN STAFF"
 AuthType Basic
 
 PerlAuthenHandler Apache::AuthDBI::authen
 
 PerlSetVar Auth_DBI_data_source  
 DBI:mysql:urves:localhost:3306","urves","media"
 PerlSetVar Auth_DBI_username      username
 PerlSetVar Auth_DBI_password      password
 PerlSetVar Auth_DBI_pwd_table     users
 PerlSetVar Auth_DBI_uid_field     login
 PerlSetVar Auth_DBI_pwd_field     passwd
 PerlSetVar Auth_DBI_encrypted     off
 
 >если тут сказать on, то пароли не проходят.
 
 require valid-user
 
 ====
 
 startup.pl
   $ENV{MOD_PERL} or die "not running under mod_perl!";
    
   use Apache::Registry;          
   use Apache::Constants;
    
   use Apache::DBI ();
   use DBI ();
   use Apache::AuthDBI ();
   
   use Carp ();
   $SIG{__WARN__} = \&Carp::cluck;
 
   );
   Apache::DBI->connect_on_init
   (DBI:mysql:urves:localhost:3306","user","passwd",
    {
     PrintError => 1, # warn() on errors
     RaiseError => 0, # don't die on error
     AutoCommit => 1, # commit executes immediately
    }
   );
 
 ====
 -- 
 Cheers, Yuri Khachaturian,
 The Official Gamma Ray fanclub in Russia - http://www.gammaray.ru
 SMS: yukh@email2sms.ru (up to 160 chars)
 --- tin/1.5.6-20000803 ("Dust") (UNIX) (FreeBSD/4.4-PRERELEASE (i386))
  * Origin: Necrosoft Studio (2:5020/975)
 
 

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