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