1 package FS::Auth::legacy;
2 #use base qw( FS::Auth ); #::internal ?
7 #substitute in? we're trying to make it go away...
8 my $htpasswd_file = '/usr/local/etc/freeside/htpasswd';
11 my($self, $username, $check_password ) = @_;
13 Apache::Htpasswd->new( { passwdFile => $htpasswd_file,
16 )->htCheckPassword($username, $check_password);
21 #don't support this in legacy? change in both htpasswd and database like 3.x
22 # for easier transitioning? hoping its really only me+employees that have a
23 # mismatch in htpasswd vs access_user, so maybe that's not necessary
24 #sub change_password {