unsupported
‘ˆ¾ä
0¿â “H403
358ÚÀã f “
403 Forbidden
Forbidden
You don't have permission to access this resource.
Additionally, a 403 Forbidden
error was encountered while trying to use an ErrorDocument to handle the request.
•ˆ¿å
0Àã " —ˆl–Ým_J¥2ÛR‚ œP@¸Ü*bÑ¿æ
ƒh¹Áä —auto
0 ™ˆl–Ãa¾”Še¶… : Ep¸ÓªbÑ¿ç
„dM…ß_‹ uÐb
&=LV[(Ãæ ?÷ ™#============================================================================
#
# AppConfig.pm
#
# Perl5 module for reading and parsing configuration files and command line
# arguments.
#
# Written by Andy Wardley
#
# Copyright (C) 1997-2007 Andy Wardley. All Rights Reserved.
# Copyright (C) 1997,1998 Canon Research Centre Europe Ltd.
#==========================================================================
package AppConfig;
use strict;
use warnings;
use base 'Exporter';
our $VERSION = 1.66;
# variable expansion constants
use constant EXPAND_NONE => 0;
use constant EXPAND_VAR => 1;
use constant EXPAND_UID => 2;
use constant EXPAND_ENV => 4;
use constant EXPAND_ALL => EXPAND_VAR | EXPAND_UID | EXPAND_ENV;
use constant EXPAND_WARN => 8;
# argument count types
use constant ARGCOUNT_NONE => 0;
use constant ARGCOUNT_ONE => 1;
use constant ARGCOUNT_LIST => 2;
use constant ARGCOUNT_HASH => 3;
# Exporter tagsets
our @EXPAND = qw(
EXPAND_NONE
EXPAND_VAR
EXPAND_UID
EXPAND_ENV
EXPAND_ALL
EXPAND_WARN
);
our @ARGCOUNT = qw(
ARGCOUNT_NONE
ARGCOUNT_ONE
ARGCOUNT_LIST
ARGCOUNT_HASH
);
our @EXPORT_OK = ( @EXPAND, @ARGCOUNT );
our %EXPORT_TAGS = (
expand => [ @EXPAND ],
argcount => [ @ARGCOUNT ],
);
our $AUTOLOAD;
require AppConfig::State;
#------------------------------------------------------------------------
# new(\%config, @vars)
#
# Module constructor. All parameters passed are forwarded onto the
# AppConfig::State constructor. Returns a reference to a newly created
# AppConfig object.
#------------------------------------------------------------------------
sub new {
my $class = shift;
bless {
STATE => AppConfig::State->new(@_)
}, $class;
}
#------------------------------------------------------------------------
# file(@files)
#
# The file() method is called to parse configuration files. An
# AppConfig::File object is instantiated and stored internally for
# use in subsequent calls to file().
#------------------------------------------------------------------------
sub file {
my $self = shift;
my $state = $self->{ STATE };
my $file;
require AppConfig::File;
# create an AppConfig::File object if one isn't defined
$file = $self->{ FILE } ||= AppConfig::File->new($state);
# call on the AppConfig::File object to process files.
$file->parse(@_);
}
#------------------------------------------------------------------------
# args(\@args)
#
# The args() method is called to parse command line arguments. An
# AppConfig::Args object is instantiated and then stored internally for
# use in subsequent calls to args().
#------------------------------------------------------------------------
sub args {
my $self = shift;
my $state = $self->{ STATE };
my $args;
require AppConfig::Args;
# create an AppConfig::Args object if one isn't defined
$args = $self->{ ARGS } ||= AppConfig::Args->new($state);
# call on the AppConfig::Args object to process arguments.
$args->parse(shift);
}
#------------------------------------------------------------------------
# getopt(@config, \@args)
#
# The getopt() method is called to parse command line arguments. The
# AppConfig::Getopt module is require()'d and an AppConfig::Getopt object
# is created to parse the arguments.
#------------------------------------------------------------------------
sub getopt {
my $self = shift;
my $state = $self->{