FS/FS/Auth/legacy.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

package FS::Auth::legacy;
#use base qw( FS::Auth ); #::internal ?

use strict;
use Apache::Htpasswd;

#substitute in?  we're trying to make it go away...
my $htpasswd_file = '/usr/local/etc/freeside/htpasswd';

sub authenticate {
  my($self, $username, $check_password ) = @_;

  Apache::Htpasswd->new( { passwdFile => $htpasswd_file,
                           ReadOnly   => 1,
                         }
    )->htCheckPassword($username, $check_password);
}

sub autocreate { 0; }

#don't support this in legacy?  change in both htpasswd and database like 3.x
# for easier transitioning?  hoping its really only me+employees that have a
# mismatch in htpasswd vs access_user, so maybe that's not necessary
#sub change_password {
#}

1;