FS/FS/AccessRight.pm

   1 package FS::AccessRight;
   2
   3 use strict;
   4 use vars qw(@rights); # %rights);
   5 use Tie::IxHash;
   6
   7 =head1 NAME
   8
   9 FS::AccessRight - Access control rights.
  10
  11 =head1 SYNOPSIS
  12
  13   use FS::AccessRight;
  14
  15 =head1 DESCRIPTION
  16
  17 Access control rights - Permission to perform specific actions that can be
  18 assigned to users and/or groups.
  19
  20 =cut
  21
  22 #@rights = (
  23 #  'Reports' => [
  24 #    '_desc' => 'Access to high-level reporting',
  25 #  ],
  26 #  'Configuration' => [
  27 #    '_desc' => 'Access to configuration',
  28 #
  29 #    'Settings' => {},
  30 #
  31 #    'agent' => [
  32 #      '_desc' => 'Master access to reseller configuration',
  33 #      'agent_type'  => {},
  34 #      'agent'       => {},
  35 #    ],
  36 #
  37 #    'export_svc_pkg' => [
  38 #      '_desc' => 'Access to export, service and package configuration',
  39 #      'part_export' => {},
  40 #      'part_svc'    => {},
  41 #      'part_pkg'    => {},
  42 #      'pkg_class'   => {},
  43 #    ],
  44 #
  45 #    'billing' => [
  46 #      '_desc' => 'Access to billing configuration',
  47 #      'payment_gateway'  => {},
  48 #      'part_bill_event'  => {},
  49 #      'prepay_credit'    => {},
  50 #      'rate'             => {},
  51 #      'cust_main_county' => {},
  52 #    ],
  53 #
  54 #    'dialup' => [
  55 #      '_desc' => 'Access to dialup configuraiton',
  56 #      'svc_acct_pop' => {},
  57 #    ],
  58 #
  59 #    'broadband' => [
  60 #      '_desc' => 'Access to broadband configuration',
  61 #      'router'     => {},
  62 #      'addr_block' => {},
  63 #    ],
  64 #
  65 #    'misc' => [
  66 #      'part_referral'      => {},
  67 #      'part_virtual_field' => {},
  68 #      'msgcat'             => {},
  69 #      'inventory_class'    => {},
  70 #    ],
  71 #
  72 #  },
  73 #
  74 #);
  75 #
  76 ##turn it into a more hash-like structure, but ordered via IxHash
  77
  78 #well, this is what we have for now.  could be ordered better, could be lots of
  79 # things better, but this ACL system does 99% of what folks need and the UI
  80 # isn't *that* bad
  81 @rights = (
  82   'New customer',
  83   'View customer',
  84   #'View Customer | View tickets',
  85   'Edit customer',
  86   'Cancel customer',
  87   'Delete customer',
  88
  89   'Order customer package',
  90   'Change customer package',
  91   'Edit customer package dates',
  92   'Customize customer package',
  93   'Suspend customer package',
  94   'Unsuspend customer package',
  95   'Cancel customer package immediately',
  96   'Cancel customer package later',
  97
  98   'Provision service',
  99   'Unprovision service',
 100   #legacy link stuff
 101
 102   'Post payment',
 103   'Process payment',
 104   'Post credit',
 105   #more financial stuff
 106
 107 );
 108
 109 sub rights {
 110   @rights;
 111 }
 112