FS/FS/Auth/external.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

packages FS::Auth::external;
#use base qw( FS::Auth );

use strict;

sub autocreate {
  my $username = shift;
  my $access_user = new FS::access_user {
    'username' => $username,
    #'_password' => #XXX something random so a switch to internal auth doesn't
                    #let people on?
  };
  my $error = $access_user->insert;
  #die $error if $error;
}

1;