version 1.19, 2009/01/30 16:13:04
|
version 1.20, 2009/02/05 12:32:26
|
Line 438 sub group_changes {
|
Line 438 sub group_changes {
|
|
|
sub get_fixed_privs { |
sub get_fixed_privs { |
my $fixedprivs = { |
my $fixedprivs = { |
communication => {sgm => 1}, |
email => {sgm => 1}, |
discussion => {vgb => 1}, |
discussion => {vgb => 1}, |
chat => {pgc => 1}, |
chat => {pgc => 1}, |
files => {rgf => 1}, |
files => {rgf => 1}, |
Line 453 sub get_fixed_privs {
|
Line 453 sub get_fixed_privs {
|
sub get_tool_privs { |
sub get_tool_privs { |
my ($gpterm) = @_; |
my ($gpterm) = @_; |
my $toolprivs = { |
my $toolprivs = { |
communication => { |
email => { |
sgm => 'Send '.$gpterm.' message', |
sgm => 'Send '.$gpterm.' message', |
sgb => 'Broadcast message', |
sgb => 'Broadcast message', |
}, |
}, |