FS/FS/Auth/external.pm

   1 packages FS::Auth::external;
   2 #use base qw( FS::Auth );
   3
   4 use strict;
   5
   6 sub autocreate {
   7   my $username = shift;
   8   my $access_user = new FS::access_user {
   9     'username' => $username,
  10     #'_password' => #XXX something random so a switch to internal auth doesn't
  11                     #let people on?
  12   };
  13   my $error = $access_user->insert;
  14   #die $error if $error;
  15 }
  16
  17 1;
  18