16 lines
278 B
Perl
16 lines
278 B
Perl
|
#!/usr/bin/perl
|
||
|
|
#
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
use vars qw(%cap_local);
|
||
|
|
|
||
|
|
$caps_local{'paid'} = {
|
||
|
|
type => 'boolean',
|
||
|
|
desc => 'User has paid for their account type.',
|
||
|
|
};
|
||
|
|
$caps_local{'fastserver'} = {
|
||
|
|
type => 'boolean',
|
||
|
|
desc => 'User has access to the faster (paid) servers.',
|
||
|
|
};
|