FS/bin/freeside-adduser

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use vars qw($opt_s $opt_g $opt_n);
   5 use Fcntl qw(:flock);
   6 use Getopt::Std;
   7
   8 my $FREESIDE_CONF = "%%%FREESIDE_CONF%%%";
   9
  10 getopts("g:");
  11 my $user = shift or die &usage;
  12 my $password = shift;
  13
  14 use FS::UID qw(adminsuidsetup);
  15 use FS::CurrentUser;
  16 use FS::access_user;
  17 use FS::access_usergroup;
  18
  19 $FS::CurrentUser::upgrade_hack = 1;
  20 #adminsuidsetup $rootuser;
  21 adminsuidsetup $user;
  22
  23 my $access_user = new FS::access_user {
  24   'username'  => $user,
  25   'first'     => 'Firstname', # $opt_f ||
  26   'last'      => 'Lastname',  # $opt_l ||
  27 };
  28 $access_user->change_password_fields($password) if length($password);
  29 my $au_error = $access_user->insert;
  30 die $au_error if $au_error;
  31
  32 if ( $opt_g ) {
  33
  34   my $access_usergroup = new FS::access_usergroup {
  35     'usernum'  => $access_user->usernum,
  36     'groupnum' => $opt_g,
  37   };
  38   my $aug_error = $access_usergroup->insert;
  39   die $aug_error if $aug_error;
  40
  41 }
  42
  43 ###
  44
  45 sub usage {
  46   die "Usage:\n\n  freeside-adduser [ -g groupnum ] username [ password ]"
  47 }
  48
  49 =head1 NAME
  50
  51 freeside-adduser - Command line interface to add (freeside) users.
  52
  53 =head1 SYNOPSIS
  54
  55   freeside-adduser [ -g groupnum ] username [ password ]
  56
  57 =head1 DESCRIPTION
  58
  59 Adds a user to the Freeside billing system.  This is for adding users (internal
  60 sales/tech folks) to the web interface, not for adding customer accounts.
  61
  62 This functionality is now available in the web interface as well, under
  63 B<Configuration | Employees | View/Edit employees>.
  64
  65   -g: initial groupnum
  66
  67 =head1 SEE ALSO
  68
  69 Base Freeside documentation
  70
  71 =cut
  72