diff options
| author | fukachan <fukachan> | 2002-03-20 03:20:45 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-03-20 03:20:45 +0000 |
| commit | 27a7186cd4920dec8c1b23b70570fc3972157282 (patch) | |
| tree | 1995f586db7bcea6af6d8bae6379d80de761d5e4 /fml | |
| parent | b1c661215b1e72d29e28e048c6a57c5f87aa5cbe (diff) | |
| download | fml8-27a7186cd4920dec8c1b23b70570fc3972157282.tar.gz fml8-27a7186cd4920dec8c1b23b70570fc3972157282.tar.bz2 fml8-27a7186cd4920dec8c1b23b70570fc3972157282.zip | |
implement hints()
It is useful to switch process behabiour based on this hints. This
function is used in CGI processes typically to verify whether the
current process runs in admin mode or user mode ? et.al.
Diffstat (limited to 'fml')
| -rw-r--r-- | fml/lib/FML/Process/Utils.pm | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/fml/lib/FML/Process/Utils.pm b/fml/lib/FML/Process/Utils.pm index 857ea07f..b21ef74d 100644 --- a/fml/lib/FML/Process/Utils.pm +++ b/fml/lib/FML/Process/Utils.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Utils.pm,v 1.14 2002/03/17 06:24:32 fukachan Exp $ +# $FML: Utils.pm,v 1.15 2002/03/18 15:22:36 fukachan Exp $ # package FML::Process::Utils; @@ -442,6 +442,25 @@ sub article_id_max } +=head2 hints() + +return hints as HASH_REF. +It is useful to switch process behabiour based on this hints. +This function is used in CGI processes typically to verify +whether the current process runs in admin mode or user mode ? et.al. + +=cut + + +sub hints +{ + my ($curproc) = @_; + my $main_cf = $curproc->{ __parent_args }->{ main_cf }; + + return $main_cf->{ _hints }; +} + + =head1 AUTHOR Ken'ichi Fukamachi |