Revize 2123
Přidáno uživatelem Ondřej Fibich před asi 11 roky(ů)
| freenetis/branches/1.1/application/vendors/axo_doc/utils/find_all_axo.pl | ||
|---|---|---|
|
$parsed_count = $parsed_count + 1;
|
||
|
|
||
|
# For each ACL method call
|
||
|
while ($source =~ m/acl_check_(edit|new|delete|confirm|view)\s*\(\s*["']([^"']+)["']\s*,\s*["']([^"']+)["']\s*(,)?/g)
|
||
|
while ($source =~ m/acl_check_(edit|new|delete|confirm|view)\s*\(\s*((["']([^"']+)["'])|(get_class\s*\(\s*[\$]{1}this\s*\)\s*))\s*,\s*["']([^"']+)["']\s*(,)?/g)
|
||
|
{
|
||
|
# get values from the matched regex
|
||
|
my ($action, $axo_section, $axo_value, $is_own) = ($1, $2, $3, defined($4));
|
||
|
my ($action, $axo_section, $axo_value, $is_own) = ($1, $2, $6, defined($7));
|
||
|
# section this
|
||
|
if ($axo_section =~ m/get_class\s*\(\s*[\$]{1}this\s*\)\s*/g) {
|
||
|
my $old = $axo_section;
|
||
|
$axo_section = ucfirst($file_name) . "_Controller";
|
||
|
print STDERR $old . " >> " . $axo_section . "\n";
|
||
|
}
|
||
|
# increase counter
|
||
|
$parsed_acl_call_count = $parsed_acl_call_count + 1;
|
||
|
# unique treatment
|
||
Také k dispozici: Unified diff
Opravy:
- oprava prohledavani volanych AXO (nerespektovalo se volani s get_class namisto radneho jmena controlleru)