diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2012-07-03 22:43:49 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2012-07-03 22:43:49 -0700 |
| commit | e185be2238bfd1fb2ca6f36b80c9ad93281fe635 (patch) | |
| tree | 93b1e0fb726694a7acc1e03afdd6aef026f13405 /FS/FS/Mason.pm | |
| parent | e4a77af2829e919d29de26e3f15f416b41bd5199 (diff) | |
remove addl_comp_root.pl support
Diffstat (limited to 'FS/FS/Mason.pm')
| -rw-r--r-- | FS/FS/Mason.pm | 23 |
1 files changed, 1 insertions, 22 deletions
diff --git a/FS/FS/Mason.pm b/FS/FS/Mason.pm index 9bd0cc305..f3b594256 100644 --- a/FS/FS/Mason.pm +++ b/FS/FS/Mason.pm @@ -514,28 +514,7 @@ sub mason_interps { RT::LoadConfig(); } - # A hook supporting strange legacy ways people (well, SG) have added stuff on - - my @addl_comp_root = (); - my $addl_comp_root_file = '%%%FREESIDE_CONF%%%/addl_comp_root.pl'; - if ( -e $addl_comp_root_file ) { - warn "reading $addl_comp_root_file\n"; - my $text = slurp( $addl_comp_root_file ); - my @addl = eval $text; - if ( @addl && ! $@ ) { - @addl_comp_root = @addl; - } elsif ($@) { - warn "error parsing $addl_comp_root_file: $@\n"; - } - } - - my $fs_comp_root = - scalar(@addl_comp_root) - ? [ - [ 'freeside'=>'%%%FREESIDE_DOCUMENT_ROOT%%%' ], - @addl_comp_root, - ] - : '%%%FREESIDE_DOCUMENT_ROOT%%%'; + my $fs_comp_root = '%%%FREESIDE_DOCUMENT_ROOT%%%'; my %interp = ( request_class => $request_class, |