FS/FS/AccessRight.pm

   1 package FS::AccessRight;
   2
   3 use strict;
   4 user 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