X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=perl%2FAmanda%2FConfig.pm;h=910ffa00caf67702c039a929206a6d42b70f701b;hb=d28952249e392eb31bc8eecc53f6c477f30c617b;hp=79962b35431c60b3d6b931730dee7f3427a86caf;hpb=fd48f3e498442f0cbff5f3606c7c403d0566150e;p=debian%2Famanda diff --git a/perl/Amanda/Config.pm b/perl/Amanda/Config.pm index 79962b3..910ffa0 100644 --- a/perl/Amanda/Config.pm +++ b/perl/Amanda/Config.pm @@ -1,5 +1,5 @@ # This file was automatically generated by SWIG (http://www.swig.org). -# Version 1.3.39 +# Version 2.0.4 # # Do not make changes to this file unless you know what you are doing--modify # the SWIG interface file instead. @@ -89,6 +89,14 @@ package Amanda::Config; *changer_config_getconf = *Amanda::Configc::changer_config_getconf; *changer_config_name = *Amanda::Configc::changer_config_name; *changer_config_seen = *Amanda::Configc::changer_config_seen; +*lookup_interactivity = *Amanda::Configc::lookup_interactivity; +*interactivity_getconf = *Amanda::Configc::interactivity_getconf; +*interactivity_name = *Amanda::Configc::interactivity_name; +*interactivity_seen = *Amanda::Configc::interactivity_seen; +*lookup_taperscan = *Amanda::Configc::lookup_taperscan; +*taperscan_getconf = *Amanda::Configc::taperscan_getconf; +*taperscan_name = *Amanda::Configc::taperscan_name; +*taperscan_seen = *Amanda::Configc::taperscan_seen; *getconf_unit_divisor = *Amanda::Configc::getconf_unit_divisor; *config_init = *Amanda::Configc::config_init; *config_uninit = *Amanda::Configc::config_uninit; @@ -109,6 +117,7 @@ package Amanda::Config; *taperalgo2str = *Amanda::Configc::taperalgo2str; *find_multiplier = *Amanda::Configc::find_multiplier; *C_string_to_boolean = *Amanda::Configc::C_string_to_boolean; +*amandaify_property_name = *Amanda::Configc::amandaify_property_name; # ------- VARIABLE STUBS -------- @@ -116,6 +125,7 @@ package Amanda::Config; *CNF_ORG = *Amanda::Configc::CNF_ORG; *CNF_CONF = *Amanda::Configc::CNF_CONF; +*CNF_AMDUMP_SERVER = *Amanda::Configc::CNF_AMDUMP_SERVER; *CNF_INDEX_SERVER = *Amanda::Configc::CNF_INDEX_SERVER; *CNF_TAPE_SERVER = *Amanda::Configc::CNF_TAPE_SERVER; *CNF_AUTH = *Amanda::Configc::CNF_AUTH; @@ -135,6 +145,7 @@ package Amanda::Config; *CNF_CHANGERFILE = *Amanda::Configc::CNF_CHANGERFILE; *CNF_LABELSTR = *Amanda::Configc::CNF_LABELSTR; *CNF_AUTOLABEL = *Amanda::Configc::CNF_AUTOLABEL; +*CNF_META_AUTOLABEL = *Amanda::Configc::CNF_META_AUTOLABEL; *CNF_TAPELIST = *Amanda::Configc::CNF_TAPELIST; *CNF_DISKFILE = *Amanda::Configc::CNF_DISKFILE; *CNF_INFOFILE = *Amanda::Configc::CNF_INFOFILE; @@ -153,11 +164,11 @@ package Amanda::Config; *CNF_BUMPDAYS = *Amanda::Configc::CNF_BUMPDAYS; *CNF_TPCHANGER = *Amanda::Configc::CNF_TPCHANGER; *CNF_RUNTAPES = *Amanda::Configc::CNF_RUNTAPES; +*CNF_MAX_DLE_BY_VOLUME = *Amanda::Configc::CNF_MAX_DLE_BY_VOLUME; *CNF_MAXDUMPS = *Amanda::Configc::CNF_MAXDUMPS; *CNF_ETIMEOUT = *Amanda::Configc::CNF_ETIMEOUT; *CNF_DTIMEOUT = *Amanda::Configc::CNF_DTIMEOUT; *CNF_CTIMEOUT = *Amanda::Configc::CNF_CTIMEOUT; -*CNF_TAPEBUFS = *Amanda::Configc::CNF_TAPEBUFS; *CNF_DEVICE_OUTPUT_BUFFER_SIZE = *Amanda::Configc::CNF_DEVICE_OUTPUT_BUFFER_SIZE; *CNF_PRINTER = *Amanda::Configc::CNF_PRINTER; *CNF_AUTOFLUSH = *Amanda::Configc::CNF_AUTOFLUSH; @@ -201,6 +212,14 @@ package Amanda::Config; *CNF_UNRESERVED_TCP_PORT = *Amanda::Configc::CNF_UNRESERVED_TCP_PORT; *CNF_HOLDINGDISK = *Amanda::Configc::CNF_HOLDINGDISK; *CNF_SEND_AMREPORT_ON = *Amanda::Configc::CNF_SEND_AMREPORT_ON; +*CNF_TAPER_PARALLEL_WRITE = *Amanda::Configc::CNF_TAPER_PARALLEL_WRITE; +*CNF_RECOVERY_LIMIT = *Amanda::Configc::CNF_RECOVERY_LIMIT; +*CNF_INTERACTIVITY = *Amanda::Configc::CNF_INTERACTIVITY; +*CNF_TAPERSCAN = *Amanda::Configc::CNF_TAPERSCAN; +*CNF_EJECT_VOLUME = *Amanda::Configc::CNF_EJECT_VOLUME; +*CNF_TMPDIR = *Amanda::Configc::CNF_TMPDIR; +*CNF_REPORT_USE_MEDIA = *Amanda::Configc::CNF_REPORT_USE_MEDIA; +*CNF_REPORT_NEXT_MEDIA = *Amanda::Configc::CNF_REPORT_NEXT_MEDIA; *TAPETYPE_COMMENT = *Amanda::Configc::TAPETYPE_COMMENT; *TAPETYPE_LBL_TEMPL = *Amanda::Configc::TAPETYPE_LBL_TEMPL; *TAPETYPE_BLOCKSIZE = *Amanda::Configc::TAPETYPE_BLOCKSIZE; @@ -208,7 +227,10 @@ package Amanda::Config; *TAPETYPE_LENGTH = *Amanda::Configc::TAPETYPE_LENGTH; *TAPETYPE_FILEMARK = *Amanda::Configc::TAPETYPE_FILEMARK; *TAPETYPE_SPEED = *Amanda::Configc::TAPETYPE_SPEED; -*TAPETYPE_FILE_PAD = *Amanda::Configc::TAPETYPE_FILE_PAD; +*TAPETYPE_PART_SIZE = *Amanda::Configc::TAPETYPE_PART_SIZE; +*TAPETYPE_PART_CACHE_TYPE = *Amanda::Configc::TAPETYPE_PART_CACHE_TYPE; +*TAPETYPE_PART_CACHE_DIR = *Amanda::Configc::TAPETYPE_PART_CACHE_DIR; +*TAPETYPE_PART_CACHE_MAX_SIZE = *Amanda::Configc::TAPETYPE_PART_CACHE_MAX_SIZE; *DUMPTYPE_COMMENT = *Amanda::Configc::DUMPTYPE_COMMENT; *DUMPTYPE_PROGRAM = *Amanda::Configc::DUMPTYPE_PROGRAM; *DUMPTYPE_SRVCOMPPROG = *Amanda::Configc::DUMPTYPE_SRVCOMPPROG; @@ -252,6 +274,10 @@ package Amanda::Config; *DUMPTYPE_SCRIPTLIST = *Amanda::Configc::DUMPTYPE_SCRIPTLIST; *DUMPTYPE_PROPERTY = *Amanda::Configc::DUMPTYPE_PROPERTY; *DUMPTYPE_DATA_PATH = *Amanda::Configc::DUMPTYPE_DATA_PATH; +*DUMPTYPE_ALLOW_SPLIT = *Amanda::Configc::DUMPTYPE_ALLOW_SPLIT; +*DUMPTYPE_MAX_WARNINGS = *Amanda::Configc::DUMPTYPE_MAX_WARNINGS; +*DUMPTYPE_RECOVERY_LIMIT = *Amanda::Configc::DUMPTYPE_RECOVERY_LIMIT; +*DUMPTYPE_DUMP_LIMIT = *Amanda::Configc::DUMPTYPE_DUMP_LIMIT; *INTER_COMMENT = *Amanda::Configc::INTER_COMMENT; *INTER_MAXUSAGE = *Amanda::Configc::INTER_MAXUSAGE; *HOLDING_COMMENT = *Amanda::Configc::HOLDING_COMMENT; @@ -261,12 +287,15 @@ package Amanda::Config; *APPLICATION_COMMENT = *Amanda::Configc::APPLICATION_COMMENT; *APPLICATION_PLUGIN = *Amanda::Configc::APPLICATION_PLUGIN; *APPLICATION_PROPERTY = *Amanda::Configc::APPLICATION_PROPERTY; +*APPLICATION_CLIENT_NAME = *Amanda::Configc::APPLICATION_CLIENT_NAME; *PP_SCRIPT_COMMENT = *Amanda::Configc::PP_SCRIPT_COMMENT; *PP_SCRIPT_PLUGIN = *Amanda::Configc::PP_SCRIPT_PLUGIN; *PP_SCRIPT_PROPERTY = *Amanda::Configc::PP_SCRIPT_PROPERTY; *PP_SCRIPT_EXECUTE_ON = *Amanda::Configc::PP_SCRIPT_EXECUTE_ON; *PP_SCRIPT_EXECUTE_WHERE = *Amanda::Configc::PP_SCRIPT_EXECUTE_WHERE; *PP_SCRIPT_ORDER = *Amanda::Configc::PP_SCRIPT_ORDER; +*PP_SCRIPT_SINGLE_EXECUTION = *Amanda::Configc::PP_SCRIPT_SINGLE_EXECUTION; +*PP_SCRIPT_CLIENT_NAME = *Amanda::Configc::PP_SCRIPT_CLIENT_NAME; *DEVICE_CONFIG_COMMENT = *Amanda::Configc::DEVICE_CONFIG_COMMENT; *DEVICE_CONFIG_TAPEDEV = *Amanda::Configc::DEVICE_CONFIG_TAPEDEV; *DEVICE_CONFIG_DEVICE_PROPERTY = *Amanda::Configc::DEVICE_CONFIG_DEVICE_PROPERTY; @@ -277,6 +306,12 @@ package Amanda::Config; *CHANGER_CONFIG_CHANGERFILE = *Amanda::Configc::CHANGER_CONFIG_CHANGERFILE; *CHANGER_CONFIG_PROPERTY = *Amanda::Configc::CHANGER_CONFIG_PROPERTY; *CHANGER_CONFIG_DEVICE_PROPERTY = *Amanda::Configc::CHANGER_CONFIG_DEVICE_PROPERTY; +*INTERACTIVITY_COMMENT = *Amanda::Configc::INTERACTIVITY_COMMENT; +*INTERACTIVITY_PLUGIN = *Amanda::Configc::INTERACTIVITY_PLUGIN; +*INTERACTIVITY_PROPERTY = *Amanda::Configc::INTERACTIVITY_PROPERTY; +*TAPERSCAN_COMMENT = *Amanda::Configc::TAPERSCAN_COMMENT; +*TAPERSCAN_PLUGIN = *Amanda::Configc::TAPERSCAN_PLUGIN; +*TAPERSCAN_PROPERTY = *Amanda::Configc::TAPERSCAN_PROPERTY; *HOLD_NEVER = *Amanda::Configc::HOLD_NEVER; *HOLD_AUTO = *Amanda::Configc::HOLD_AUTO; *HOLD_REQUIRED = *Amanda::Configc::HOLD_REQUIRED; @@ -311,16 +346,22 @@ package Amanda::Config; *ALGO_LARGESTFIT = *Amanda::Configc::ALGO_LARGESTFIT; *ALGO_SMALLEST = *Amanda::Configc::ALGO_SMALLEST; *ALGO_LAST = *Amanda::Configc::ALGO_LAST; +*EXECUTE_ON_PRE_AMCHECK = *Amanda::Configc::EXECUTE_ON_PRE_AMCHECK; *EXECUTE_ON_PRE_DLE_AMCHECK = *Amanda::Configc::EXECUTE_ON_PRE_DLE_AMCHECK; *EXECUTE_ON_PRE_HOST_AMCHECK = *Amanda::Configc::EXECUTE_ON_PRE_HOST_AMCHECK; +*EXECUTE_ON_POST_AMCHECK = *Amanda::Configc::EXECUTE_ON_POST_AMCHECK; *EXECUTE_ON_POST_DLE_AMCHECK = *Amanda::Configc::EXECUTE_ON_POST_DLE_AMCHECK; *EXECUTE_ON_POST_HOST_AMCHECK = *Amanda::Configc::EXECUTE_ON_POST_HOST_AMCHECK; +*EXECUTE_ON_PRE_ESTIMATE = *Amanda::Configc::EXECUTE_ON_PRE_ESTIMATE; *EXECUTE_ON_PRE_DLE_ESTIMATE = *Amanda::Configc::EXECUTE_ON_PRE_DLE_ESTIMATE; *EXECUTE_ON_PRE_HOST_ESTIMATE = *Amanda::Configc::EXECUTE_ON_PRE_HOST_ESTIMATE; +*EXECUTE_ON_POST_ESTIMATE = *Amanda::Configc::EXECUTE_ON_POST_ESTIMATE; *EXECUTE_ON_POST_DLE_ESTIMATE = *Amanda::Configc::EXECUTE_ON_POST_DLE_ESTIMATE; *EXECUTE_ON_POST_HOST_ESTIMATE = *Amanda::Configc::EXECUTE_ON_POST_HOST_ESTIMATE; +*EXECUTE_ON_PRE_BACKUP = *Amanda::Configc::EXECUTE_ON_PRE_BACKUP; *EXECUTE_ON_PRE_DLE_BACKUP = *Amanda::Configc::EXECUTE_ON_PRE_DLE_BACKUP; *EXECUTE_ON_PRE_HOST_BACKUP = *Amanda::Configc::EXECUTE_ON_PRE_HOST_BACKUP; +*EXECUTE_ON_POST_BACKUP = *Amanda::Configc::EXECUTE_ON_POST_BACKUP; *EXECUTE_ON_POST_DLE_BACKUP = *Amanda::Configc::EXECUTE_ON_POST_DLE_BACKUP; *EXECUTE_ON_POST_HOST_BACKUP = *Amanda::Configc::EXECUTE_ON_POST_HOST_BACKUP; *SEND_AMREPORT_ALL = *Amanda::Configc::SEND_AMREPORT_ALL; @@ -329,6 +370,9 @@ package Amanda::Config; *SEND_AMREPORT_NEVER = *Amanda::Configc::SEND_AMREPORT_NEVER; *DATA_PATH_AMANDA = *Amanda::Configc::DATA_PATH_AMANDA; *DATA_PATH_DIRECTTCP = *Amanda::Configc::DATA_PATH_DIRECTTCP; +*PART_CACHE_TYPE_NONE = *Amanda::Configc::PART_CACHE_TYPE_NONE; +*PART_CACHE_TYPE_DISK = *Amanda::Configc::PART_CACHE_TYPE_DISK; +*PART_CACHE_TYPE_MEMORY = *Amanda::Configc::PART_CACHE_TYPE_MEMORY; *debug_amandad = *Amanda::Configc::debug_amandad; *debug_recovery = *Amanda::Configc::debug_recovery; *debug_amidxtaped = *Amanda::Configc::debug_amidxtaped; @@ -379,8 +423,7 @@ Amanda::Config - access to Amanda configuration parameters print "tape device is ", getconf($CNF_TAPEDEV), "\n"; -This API closely parallels the C API. See F for details on the -configuration parameter constants. +This API closely parallels the C API. =head1 INITIALIZATION @@ -586,6 +629,9 @@ values is straightforward: CONFTYPE_EXECUTE_WHERE Math::BigInt CONFTYPE_SEND_AMREPORT_ON Math::BigInt CONFTYPE_IDENTLIST [ string, .. ] + CONFTYPE_PART_CACHE_TYPE Math::BigInt + CONFTYPE_RECOVERY_LIMIT [ string, .. ] (undef if not specified; + undef in the list means same-host) Note that C and C each return two values, not an array reference. @@ -664,8 +710,15 @@ C takes a string and returns 0 if it matches any of Amanda's names for false, or 1 if matches a name for true. If it can't be interpreted, C is returned. -=cut +C converts a string into Amanda's property style: +all lower-case and with "-" replacing "_". + +=head1 CONSTANTS +This section lists all of the configuration parameter constants defined in this +module. All of these constants are available with the C<:getconf> export tag. + +=cut push @EXPORT_OK, qw(confparm_key_to_string); @@ -689,443 +742,20 @@ sub confparm_key_to_string { return $enumval; } -push @EXPORT_OK, qw($CNF_ORG); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_ORG); - -$_confparm_key_VALUES{"CNF_ORG"} = $CNF_ORG; - -push @EXPORT_OK, qw($CNF_CONF); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_CONF); - -$_confparm_key_VALUES{"CNF_CONF"} = $CNF_CONF; - -push @EXPORT_OK, qw($CNF_INDEX_SERVER); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_INDEX_SERVER); - -$_confparm_key_VALUES{"CNF_INDEX_SERVER"} = $CNF_INDEX_SERVER; - -push @EXPORT_OK, qw($CNF_TAPE_SERVER); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_TAPE_SERVER); - -$_confparm_key_VALUES{"CNF_TAPE_SERVER"} = $CNF_TAPE_SERVER; - -push @EXPORT_OK, qw($CNF_AUTH); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_AUTH); - -$_confparm_key_VALUES{"CNF_AUTH"} = $CNF_AUTH; - -push @EXPORT_OK, qw($CNF_SSH_KEYS); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_SSH_KEYS); - -$_confparm_key_VALUES{"CNF_SSH_KEYS"} = $CNF_SSH_KEYS; - -push @EXPORT_OK, qw($CNF_AMANDAD_PATH); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_AMANDAD_PATH); - -$_confparm_key_VALUES{"CNF_AMANDAD_PATH"} = $CNF_AMANDAD_PATH; - -push @EXPORT_OK, qw($CNF_CLIENT_USERNAME); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_CLIENT_USERNAME); - -$_confparm_key_VALUES{"CNF_CLIENT_USERNAME"} = $CNF_CLIENT_USERNAME; - -push @EXPORT_OK, qw($CNF_CLIENT_PORT); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_CLIENT_PORT); - -$_confparm_key_VALUES{"CNF_CLIENT_PORT"} = $CNF_CLIENT_PORT; - -push @EXPORT_OK, qw($CNF_GNUTAR_LIST_DIR); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_GNUTAR_LIST_DIR); - -$_confparm_key_VALUES{"CNF_GNUTAR_LIST_DIR"} = $CNF_GNUTAR_LIST_DIR; - -push @EXPORT_OK, qw($CNF_AMANDATES); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_AMANDATES); - -$_confparm_key_VALUES{"CNF_AMANDATES"} = $CNF_AMANDATES; - -push @EXPORT_OK, qw($CNF_MAILER); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_MAILER); - -$_confparm_key_VALUES{"CNF_MAILER"} = $CNF_MAILER; - -push @EXPORT_OK, qw($CNF_MAILTO); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_MAILTO); - -$_confparm_key_VALUES{"CNF_MAILTO"} = $CNF_MAILTO; - -push @EXPORT_OK, qw($CNF_DUMPUSER); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DUMPUSER); - -$_confparm_key_VALUES{"CNF_DUMPUSER"} = $CNF_DUMPUSER; - -push @EXPORT_OK, qw($CNF_TAPEDEV); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_TAPEDEV); - -$_confparm_key_VALUES{"CNF_TAPEDEV"} = $CNF_TAPEDEV; - -push @EXPORT_OK, qw($CNF_DEVICE_PROPERTY); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DEVICE_PROPERTY); - -$_confparm_key_VALUES{"CNF_DEVICE_PROPERTY"} = $CNF_DEVICE_PROPERTY; - -push @EXPORT_OK, qw($CNF_PROPERTY); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_PROPERTY); - -$_confparm_key_VALUES{"CNF_PROPERTY"} = $CNF_PROPERTY; - -push @EXPORT_OK, qw($CNF_CHANGERDEV); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_CHANGERDEV); - -$_confparm_key_VALUES{"CNF_CHANGERDEV"} = $CNF_CHANGERDEV; - -push @EXPORT_OK, qw($CNF_CHANGERFILE); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_CHANGERFILE); - -$_confparm_key_VALUES{"CNF_CHANGERFILE"} = $CNF_CHANGERFILE; - -push @EXPORT_OK, qw($CNF_LABELSTR); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_LABELSTR); - -$_confparm_key_VALUES{"CNF_LABELSTR"} = $CNF_LABELSTR; - -push @EXPORT_OK, qw($CNF_AUTOLABEL); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_AUTOLABEL); - -$_confparm_key_VALUES{"CNF_AUTOLABEL"} = $CNF_AUTOLABEL; - -push @EXPORT_OK, qw($CNF_TAPELIST); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_TAPELIST); - -$_confparm_key_VALUES{"CNF_TAPELIST"} = $CNF_TAPELIST; - -push @EXPORT_OK, qw($CNF_DISKFILE); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DISKFILE); - -$_confparm_key_VALUES{"CNF_DISKFILE"} = $CNF_DISKFILE; - -push @EXPORT_OK, qw($CNF_INFOFILE); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_INFOFILE); - -$_confparm_key_VALUES{"CNF_INFOFILE"} = $CNF_INFOFILE; - -push @EXPORT_OK, qw($CNF_LOGDIR); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_LOGDIR); - -$_confparm_key_VALUES{"CNF_LOGDIR"} = $CNF_LOGDIR; - -push @EXPORT_OK, qw($CNF_INDEXDIR); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_INDEXDIR); - -$_confparm_key_VALUES{"CNF_INDEXDIR"} = $CNF_INDEXDIR; - -push @EXPORT_OK, qw($CNF_TAPETYPE); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_TAPETYPE); - -$_confparm_key_VALUES{"CNF_TAPETYPE"} = $CNF_TAPETYPE; - -push @EXPORT_OK, qw($CNF_DUMPCYCLE); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DUMPCYCLE); - -$_confparm_key_VALUES{"CNF_DUMPCYCLE"} = $CNF_DUMPCYCLE; - -push @EXPORT_OK, qw($CNF_RUNSPERCYCLE); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_RUNSPERCYCLE); - -$_confparm_key_VALUES{"CNF_RUNSPERCYCLE"} = $CNF_RUNSPERCYCLE; - -push @EXPORT_OK, qw($CNF_TAPECYCLE); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_TAPECYCLE); - -$_confparm_key_VALUES{"CNF_TAPECYCLE"} = $CNF_TAPECYCLE; - -push @EXPORT_OK, qw($CNF_NETUSAGE); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_NETUSAGE); - -$_confparm_key_VALUES{"CNF_NETUSAGE"} = $CNF_NETUSAGE; - -push @EXPORT_OK, qw($CNF_INPARALLEL); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_INPARALLEL); - -$_confparm_key_VALUES{"CNF_INPARALLEL"} = $CNF_INPARALLEL; - -push @EXPORT_OK, qw($CNF_DUMPORDER); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DUMPORDER); - -$_confparm_key_VALUES{"CNF_DUMPORDER"} = $CNF_DUMPORDER; - -push @EXPORT_OK, qw($CNF_BUMPPERCENT); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_BUMPPERCENT); - -$_confparm_key_VALUES{"CNF_BUMPPERCENT"} = $CNF_BUMPPERCENT; - -push @EXPORT_OK, qw($CNF_BUMPSIZE); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_BUMPSIZE); - -$_confparm_key_VALUES{"CNF_BUMPSIZE"} = $CNF_BUMPSIZE; - -push @EXPORT_OK, qw($CNF_BUMPMULT); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_BUMPMULT); - -$_confparm_key_VALUES{"CNF_BUMPMULT"} = $CNF_BUMPMULT; - -push @EXPORT_OK, qw($CNF_BUMPDAYS); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_BUMPDAYS); - -$_confparm_key_VALUES{"CNF_BUMPDAYS"} = $CNF_BUMPDAYS; - -push @EXPORT_OK, qw($CNF_TPCHANGER); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_TPCHANGER); - -$_confparm_key_VALUES{"CNF_TPCHANGER"} = $CNF_TPCHANGER; - -push @EXPORT_OK, qw($CNF_RUNTAPES); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_RUNTAPES); - -$_confparm_key_VALUES{"CNF_RUNTAPES"} = $CNF_RUNTAPES; - -push @EXPORT_OK, qw($CNF_MAXDUMPS); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_MAXDUMPS); - -$_confparm_key_VALUES{"CNF_MAXDUMPS"} = $CNF_MAXDUMPS; - -push @EXPORT_OK, qw($CNF_ETIMEOUT); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_ETIMEOUT); - -$_confparm_key_VALUES{"CNF_ETIMEOUT"} = $CNF_ETIMEOUT; - -push @EXPORT_OK, qw($CNF_DTIMEOUT); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DTIMEOUT); - -$_confparm_key_VALUES{"CNF_DTIMEOUT"} = $CNF_DTIMEOUT; - -push @EXPORT_OK, qw($CNF_CTIMEOUT); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_CTIMEOUT); - -$_confparm_key_VALUES{"CNF_CTIMEOUT"} = $CNF_CTIMEOUT; - -push @EXPORT_OK, qw($CNF_TAPEBUFS); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_TAPEBUFS); - -$_confparm_key_VALUES{"CNF_TAPEBUFS"} = $CNF_TAPEBUFS; - -push @EXPORT_OK, qw($CNF_DEVICE_OUTPUT_BUFFER_SIZE); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DEVICE_OUTPUT_BUFFER_SIZE); - -$_confparm_key_VALUES{"CNF_DEVICE_OUTPUT_BUFFER_SIZE"} = $CNF_DEVICE_OUTPUT_BUFFER_SIZE; - -push @EXPORT_OK, qw($CNF_PRINTER); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_PRINTER); - -$_confparm_key_VALUES{"CNF_PRINTER"} = $CNF_PRINTER; - -push @EXPORT_OK, qw($CNF_AUTOFLUSH); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_AUTOFLUSH); - -$_confparm_key_VALUES{"CNF_AUTOFLUSH"} = $CNF_AUTOFLUSH; - -push @EXPORT_OK, qw($CNF_RESERVE); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_RESERVE); - -$_confparm_key_VALUES{"CNF_RESERVE"} = $CNF_RESERVE; - -push @EXPORT_OK, qw($CNF_MAXDUMPSIZE); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_MAXDUMPSIZE); - -$_confparm_key_VALUES{"CNF_MAXDUMPSIZE"} = $CNF_MAXDUMPSIZE; - -push @EXPORT_OK, qw($CNF_COLUMNSPEC); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_COLUMNSPEC); - -$_confparm_key_VALUES{"CNF_COLUMNSPEC"} = $CNF_COLUMNSPEC; - -push @EXPORT_OK, qw($CNF_AMRECOVER_DO_FSF); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_AMRECOVER_DO_FSF); - -$_confparm_key_VALUES{"CNF_AMRECOVER_DO_FSF"} = $CNF_AMRECOVER_DO_FSF; - -push @EXPORT_OK, qw($CNF_AMRECOVER_CHECK_LABEL); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_AMRECOVER_CHECK_LABEL); - -$_confparm_key_VALUES{"CNF_AMRECOVER_CHECK_LABEL"} = $CNF_AMRECOVER_CHECK_LABEL; - -push @EXPORT_OK, qw($CNF_AMRECOVER_CHANGER); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_AMRECOVER_CHANGER); - -$_confparm_key_VALUES{"CNF_AMRECOVER_CHANGER"} = $CNF_AMRECOVER_CHANGER; - -push @EXPORT_OK, qw($CNF_TAPERALGO); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_TAPERALGO); - -$_confparm_key_VALUES{"CNF_TAPERALGO"} = $CNF_TAPERALGO; - -push @EXPORT_OK, qw($CNF_FLUSH_THRESHOLD_DUMPED); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_FLUSH_THRESHOLD_DUMPED); - -$_confparm_key_VALUES{"CNF_FLUSH_THRESHOLD_DUMPED"} = $CNF_FLUSH_THRESHOLD_DUMPED; - -push @EXPORT_OK, qw($CNF_FLUSH_THRESHOLD_SCHEDULED); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_FLUSH_THRESHOLD_SCHEDULED); - -$_confparm_key_VALUES{"CNF_FLUSH_THRESHOLD_SCHEDULED"} = $CNF_FLUSH_THRESHOLD_SCHEDULED; - -push @EXPORT_OK, qw($CNF_TAPERFLUSH); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_TAPERFLUSH); - -$_confparm_key_VALUES{"CNF_TAPERFLUSH"} = $CNF_TAPERFLUSH; - -push @EXPORT_OK, qw($CNF_DISPLAYUNIT); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DISPLAYUNIT); - -$_confparm_key_VALUES{"CNF_DISPLAYUNIT"} = $CNF_DISPLAYUNIT; - -push @EXPORT_OK, qw($CNF_KRB5KEYTAB); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_KRB5KEYTAB); - -$_confparm_key_VALUES{"CNF_KRB5KEYTAB"} = $CNF_KRB5KEYTAB; - -push @EXPORT_OK, qw($CNF_KRB5PRINCIPAL); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_KRB5PRINCIPAL); - -$_confparm_key_VALUES{"CNF_KRB5PRINCIPAL"} = $CNF_KRB5PRINCIPAL; - -push @EXPORT_OK, qw($CNF_LABEL_NEW_TAPES); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_LABEL_NEW_TAPES); - -$_confparm_key_VALUES{"CNF_LABEL_NEW_TAPES"} = $CNF_LABEL_NEW_TAPES; - -push @EXPORT_OK, qw($CNF_USETIMESTAMPS); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_USETIMESTAMPS); - -$_confparm_key_VALUES{"CNF_USETIMESTAMPS"} = $CNF_USETIMESTAMPS; - -push @EXPORT_OK, qw($CNF_REP_TRIES); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_REP_TRIES); - -$_confparm_key_VALUES{"CNF_REP_TRIES"} = $CNF_REP_TRIES; - -push @EXPORT_OK, qw($CNF_CONNECT_TRIES); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_CONNECT_TRIES); - -$_confparm_key_VALUES{"CNF_CONNECT_TRIES"} = $CNF_CONNECT_TRIES; - -push @EXPORT_OK, qw($CNF_REQ_TRIES); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_REQ_TRIES); - -$_confparm_key_VALUES{"CNF_REQ_TRIES"} = $CNF_REQ_TRIES; - -push @EXPORT_OK, qw($CNF_DEBUG_AMANDAD); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DEBUG_AMANDAD); - -$_confparm_key_VALUES{"CNF_DEBUG_AMANDAD"} = $CNF_DEBUG_AMANDAD; - -push @EXPORT_OK, qw($CNF_DEBUG_RECOVERY); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DEBUG_RECOVERY); - -$_confparm_key_VALUES{"CNF_DEBUG_RECOVERY"} = $CNF_DEBUG_RECOVERY; - -push @EXPORT_OK, qw($CNF_DEBUG_AMIDXTAPED); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DEBUG_AMIDXTAPED); - -$_confparm_key_VALUES{"CNF_DEBUG_AMIDXTAPED"} = $CNF_DEBUG_AMIDXTAPED; - -push @EXPORT_OK, qw($CNF_DEBUG_AMINDEXD); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DEBUG_AMINDEXD); - -$_confparm_key_VALUES{"CNF_DEBUG_AMINDEXD"} = $CNF_DEBUG_AMINDEXD; - -push @EXPORT_OK, qw($CNF_DEBUG_AMRECOVER); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DEBUG_AMRECOVER); - -$_confparm_key_VALUES{"CNF_DEBUG_AMRECOVER"} = $CNF_DEBUG_AMRECOVER; - -push @EXPORT_OK, qw($CNF_DEBUG_AUTH); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DEBUG_AUTH); - -$_confparm_key_VALUES{"CNF_DEBUG_AUTH"} = $CNF_DEBUG_AUTH; - -push @EXPORT_OK, qw($CNF_DEBUG_EVENT); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DEBUG_EVENT); - -$_confparm_key_VALUES{"CNF_DEBUG_EVENT"} = $CNF_DEBUG_EVENT; - -push @EXPORT_OK, qw($CNF_DEBUG_HOLDING); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DEBUG_HOLDING); - -$_confparm_key_VALUES{"CNF_DEBUG_HOLDING"} = $CNF_DEBUG_HOLDING; - -push @EXPORT_OK, qw($CNF_DEBUG_PROTOCOL); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DEBUG_PROTOCOL); - -$_confparm_key_VALUES{"CNF_DEBUG_PROTOCOL"} = $CNF_DEBUG_PROTOCOL; - -push @EXPORT_OK, qw($CNF_DEBUG_PLANNER); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DEBUG_PLANNER); - -$_confparm_key_VALUES{"CNF_DEBUG_PLANNER"} = $CNF_DEBUG_PLANNER; - -push @EXPORT_OK, qw($CNF_DEBUG_DRIVER); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DEBUG_DRIVER); - -$_confparm_key_VALUES{"CNF_DEBUG_DRIVER"} = $CNF_DEBUG_DRIVER; - -push @EXPORT_OK, qw($CNF_DEBUG_DUMPER); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DEBUG_DUMPER); - -$_confparm_key_VALUES{"CNF_DEBUG_DUMPER"} = $CNF_DEBUG_DUMPER; - -push @EXPORT_OK, qw($CNF_DEBUG_CHUNKER); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DEBUG_CHUNKER); - -$_confparm_key_VALUES{"CNF_DEBUG_CHUNKER"} = $CNF_DEBUG_CHUNKER; - -push @EXPORT_OK, qw($CNF_DEBUG_TAPER); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DEBUG_TAPER); - -$_confparm_key_VALUES{"CNF_DEBUG_TAPER"} = $CNF_DEBUG_TAPER; - -push @EXPORT_OK, qw($CNF_DEBUG_SELFCHECK); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DEBUG_SELFCHECK); - -$_confparm_key_VALUES{"CNF_DEBUG_SELFCHECK"} = $CNF_DEBUG_SELFCHECK; - -push @EXPORT_OK, qw($CNF_DEBUG_SENDSIZE); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DEBUG_SENDSIZE); - -$_confparm_key_VALUES{"CNF_DEBUG_SENDSIZE"} = $CNF_DEBUG_SENDSIZE; - -push @EXPORT_OK, qw($CNF_DEBUG_SENDBACKUP); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_DEBUG_SENDBACKUP); - -$_confparm_key_VALUES{"CNF_DEBUG_SENDBACKUP"} = $CNF_DEBUG_SENDBACKUP; - -push @EXPORT_OK, qw($CNF_RESERVED_UDP_PORT); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_RESERVED_UDP_PORT); - -$_confparm_key_VALUES{"CNF_RESERVED_UDP_PORT"} = $CNF_RESERVED_UDP_PORT; - -push @EXPORT_OK, qw($CNF_RESERVED_TCP_PORT); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_RESERVED_TCP_PORT); - -$_confparm_key_VALUES{"CNF_RESERVED_TCP_PORT"} = $CNF_RESERVED_TCP_PORT; - -push @EXPORT_OK, qw($CNF_UNRESERVED_TCP_PORT); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_UNRESERVED_TCP_PORT); - -$_confparm_key_VALUES{"CNF_UNRESERVED_TCP_PORT"} = $CNF_UNRESERVED_TCP_PORT; +push @EXPORT_OK, qw( $CNF_ORG $CNF_CONF $CNF_AMDUMP_SERVER $CNF_INDEX_SERVER $CNF_TAPE_SERVER $CNF_AUTH $CNF_SSH_KEYS $CNF_AMANDAD_PATH $CNF_CLIENT_USERNAME $CNF_CLIENT_PORT $CNF_GNUTAR_LIST_DIR $CNF_AMANDATES $CNF_MAILER $CNF_MAILTO $CNF_DUMPUSER $CNF_TAPEDEV $CNF_DEVICE_PROPERTY $CNF_PROPERTY $CNF_CHANGERDEV $CNF_CHANGERFILE $CNF_LABELSTR $CNF_AUTOLABEL $CNF_META_AUTOLABEL $CNF_TAPELIST $CNF_DISKFILE $CNF_INFOFILE $CNF_LOGDIR $CNF_INDEXDIR $CNF_TAPETYPE $CNF_DUMPCYCLE $CNF_RUNSPERCYCLE $CNF_TAPECYCLE $CNF_NETUSAGE $CNF_INPARALLEL $CNF_DUMPORDER $CNF_BUMPPERCENT $CNF_BUMPSIZE $CNF_BUMPMULT $CNF_BUMPDAYS $CNF_TPCHANGER $CNF_RUNTAPES $CNF_MAX_DLE_BY_VOLUME $CNF_MAXDUMPS $CNF_ETIMEOUT $CNF_DTIMEOUT $CNF_CTIMEOUT $CNF_DEVICE_OUTPUT_BUFFER_SIZE $CNF_PRINTER $CNF_AUTOFLUSH $CNF_RESERVE $CNF_MAXDUMPSIZE $CNF_COLUMNSPEC $CNF_AMRECOVER_DO_FSF $CNF_AMRECOVER_CHECK_LABEL $CNF_AMRECOVER_CHANGER $CNF_TAPERALGO $CNF_FLUSH_THRESHOLD_DUMPED $CNF_FLUSH_THRESHOLD_SCHEDULED $CNF_TAPERFLUSH $CNF_DISPLAYUNIT $CNF_KRB5KEYTAB $CNF_KRB5PRINCIPAL $CNF_LABEL_NEW_TAPES $CNF_USETIMESTAMPS $CNF_REP_TRIES $CNF_CONNECT_TRIES $CNF_REQ_TRIES $CNF_DEBUG_AMANDAD $CNF_DEBUG_RECOVERY $CNF_DEBUG_AMIDXTAPED $CNF_DEBUG_AMINDEXD $CNF_DEBUG_AMRECOVER $CNF_DEBUG_AUTH $CNF_DEBUG_EVENT $CNF_DEBUG_HOLDING $CNF_DEBUG_PROTOCOL $CNF_DEBUG_PLANNER $CNF_DEBUG_DRIVER $CNF_DEBUG_DUMPER $CNF_DEBUG_CHUNKER $CNF_DEBUG_TAPER $CNF_DEBUG_SELFCHECK $CNF_DEBUG_SENDSIZE $CNF_DEBUG_SENDBACKUP $CNF_RESERVED_UDP_PORT $CNF_RESERVED_TCP_PORT $CNF_UNRESERVED_TCP_PORT $CNF_HOLDINGDISK $CNF_SEND_AMREPORT_ON $CNF_TAPER_PARALLEL_WRITE $CNF_RECOVERY_LIMIT $CNF_INTERACTIVITY $CNF_TAPERSCAN $CNF_EJECT_VOLUME $CNF_TMPDIR $CNF_REPORT_USE_MEDIA $CNF_REPORT_NEXT_MEDIA); +push @{$EXPORT_TAGS{"confparm_key"}}, qw( $CNF_ORG $CNF_CONF $CNF_AMDUMP_SERVER $CNF_INDEX_SERVER $CNF_TAPE_SERVER $CNF_AUTH $CNF_SSH_KEYS $CNF_AMANDAD_PATH $CNF_CLIENT_USERNAME $CNF_CLIENT_PORT $CNF_GNUTAR_LIST_DIR $CNF_AMANDATES $CNF_MAILER $CNF_MAILTO $CNF_DUMPUSER $CNF_TAPEDEV $CNF_DEVICE_PROPERTY $CNF_PROPERTY $CNF_CHANGERDEV $CNF_CHANGERFILE $CNF_LABELSTR $CNF_AUTOLABEL $CNF_META_AUTOLABEL $CNF_TAPELIST $CNF_DISKFILE $CNF_INFOFILE $CNF_LOGDIR $CNF_INDEXDIR $CNF_TAPETYPE $CNF_DUMPCYCLE $CNF_RUNSPERCYCLE $CNF_TAPECYCLE $CNF_NETUSAGE $CNF_INPARALLEL $CNF_DUMPORDER $CNF_BUMPPERCENT $CNF_BUMPSIZE $CNF_BUMPMULT $CNF_BUMPDAYS $CNF_TPCHANGER $CNF_RUNTAPES $CNF_MAX_DLE_BY_VOLUME $CNF_MAXDUMPS $CNF_ETIMEOUT $CNF_DTIMEOUT $CNF_CTIMEOUT $CNF_DEVICE_OUTPUT_BUFFER_SIZE $CNF_PRINTER $CNF_AUTOFLUSH $CNF_RESERVE $CNF_MAXDUMPSIZE $CNF_COLUMNSPEC $CNF_AMRECOVER_DO_FSF $CNF_AMRECOVER_CHECK_LABEL $CNF_AMRECOVER_CHANGER $CNF_TAPERALGO $CNF_FLUSH_THRESHOLD_DUMPED $CNF_FLUSH_THRESHOLD_SCHEDULED $CNF_TAPERFLUSH $CNF_DISPLAYUNIT $CNF_KRB5KEYTAB $CNF_KRB5PRINCIPAL $CNF_LABEL_NEW_TAPES $CNF_USETIMESTAMPS $CNF_REP_TRIES $CNF_CONNECT_TRIES $CNF_REQ_TRIES $CNF_DEBUG_AMANDAD $CNF_DEBUG_RECOVERY $CNF_DEBUG_AMIDXTAPED $CNF_DEBUG_AMINDEXD $CNF_DEBUG_AMRECOVER $CNF_DEBUG_AUTH $CNF_DEBUG_EVENT $CNF_DEBUG_HOLDING $CNF_DEBUG_PROTOCOL $CNF_DEBUG_PLANNER $CNF_DEBUG_DRIVER $CNF_DEBUG_DUMPER $CNF_DEBUG_CHUNKER $CNF_DEBUG_TAPER $CNF_DEBUG_SELFCHECK $CNF_DEBUG_SENDSIZE $CNF_DEBUG_SENDBACKUP $CNF_RESERVED_UDP_PORT $CNF_RESERVED_TCP_PORT $CNF_UNRESERVED_TCP_PORT $CNF_HOLDINGDISK $CNF_SEND_AMREPORT_ON $CNF_TAPER_PARALLEL_WRITE $CNF_RECOVERY_LIMIT $CNF_INTERACTIVITY $CNF_TAPERSCAN $CNF_EJECT_VOLUME $CNF_TMPDIR $CNF_REPORT_USE_MEDIA $CNF_REPORT_NEXT_MEDIA); + foreach (qw( CNF_ORG CNF_CONF CNF_AMDUMP_SERVER CNF_INDEX_SERVER CNF_TAPE_SERVER CNF_AUTH CNF_SSH_KEYS CNF_AMANDAD_PATH CNF_CLIENT_USERNAME CNF_CLIENT_PORT CNF_GNUTAR_LIST_DIR CNF_AMANDATES CNF_MAILER CNF_MAILTO CNF_DUMPUSER CNF_TAPEDEV CNF_DEVICE_PROPERTY CNF_PROPERTY CNF_CHANGERDEV CNF_CHANGERFILE CNF_LABELSTR CNF_AUTOLABEL CNF_META_AUTOLABEL CNF_TAPELIST CNF_DISKFILE CNF_INFOFILE CNF_LOGDIR CNF_INDEXDIR CNF_TAPETYPE CNF_DUMPCYCLE CNF_RUNSPERCYCLE CNF_TAPECYCLE CNF_NETUSAGE CNF_INPARALLEL CNF_DUMPORDER CNF_BUMPPERCENT CNF_BUMPSIZE CNF_BUMPMULT CNF_BUMPDAYS CNF_TPCHANGER CNF_RUNTAPES CNF_MAX_DLE_BY_VOLUME CNF_MAXDUMPS CNF_ETIMEOUT CNF_DTIMEOUT CNF_CTIMEOUT CNF_DEVICE_OUTPUT_BUFFER_SIZE CNF_PRINTER CNF_AUTOFLUSH CNF_RESERVE CNF_MAXDUMPSIZE CNF_COLUMNSPEC CNF_AMRECOVER_DO_FSF CNF_AMRECOVER_CHECK_LABEL CNF_AMRECOVER_CHANGER CNF_TAPERALGO CNF_FLUSH_THRESHOLD_DUMPED CNF_FLUSH_THRESHOLD_SCHEDULED CNF_TAPERFLUSH CNF_DISPLAYUNIT CNF_KRB5KEYTAB CNF_KRB5PRINCIPAL CNF_LABEL_NEW_TAPES CNF_USETIMESTAMPS CNF_REP_TRIES CNF_CONNECT_TRIES CNF_REQ_TRIES CNF_DEBUG_AMANDAD CNF_DEBUG_RECOVERY CNF_DEBUG_AMIDXTAPED CNF_DEBUG_AMINDEXD CNF_DEBUG_AMRECOVER CNF_DEBUG_AUTH CNF_DEBUG_EVENT CNF_DEBUG_HOLDING CNF_DEBUG_PROTOCOL CNF_DEBUG_PLANNER CNF_DEBUG_DRIVER CNF_DEBUG_DUMPER CNF_DEBUG_CHUNKER CNF_DEBUG_TAPER CNF_DEBUG_SELFCHECK CNF_DEBUG_SENDSIZE CNF_DEBUG_SENDBACKUP CNF_RESERVED_UDP_PORT CNF_RESERVED_TCP_PORT CNF_UNRESERVED_TCP_PORT CNF_HOLDINGDISK CNF_SEND_AMREPORT_ON CNF_TAPER_PARALLEL_WRITE CNF_RECOVERY_LIMIT CNF_INTERACTIVITY CNF_TAPERSCAN CNF_EJECT_VOLUME CNF_TMPDIR CNF_REPORT_USE_MEDIA CNF_REPORT_NEXT_MEDIA)) { $_confparm_key_VALUES{$_} = $$_; } +#copy symbols in confparm_key to getconf +push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"confparm_key"}}; -push @EXPORT_OK, qw($CNF_HOLDINGDISK); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_HOLDINGDISK); -$_confparm_key_VALUES{"CNF_HOLDINGDISK"} = $CNF_HOLDINGDISK; +use Amanda::Config::FoldingHash; -push @EXPORT_OK, qw($CNF_SEND_AMREPORT_ON); -push @{$EXPORT_TAGS{"confparm_key"}}, qw($CNF_SEND_AMREPORT_ON); +=pod -$_confparm_key_VALUES{"CNF_SEND_AMREPORT_ON"} = $CNF_SEND_AMREPORT_ON; +Global Parameters: C<$CNF_ORG> C<$CNF_CONF> C<$CNF_AMDUMP_SERVER> C<$CNF_INDEX_SERVER> C<$CNF_TAPE_SERVER> C<$CNF_AUTH> C<$CNF_SSH_KEYS> C<$CNF_AMANDAD_PATH> C<$CNF_CLIENT_USERNAME> C<$CNF_CLIENT_PORT> C<$CNF_GNUTAR_LIST_DIR> C<$CNF_AMANDATES> C<$CNF_MAILER> C<$CNF_MAILTO> C<$CNF_DUMPUSER> C<$CNF_TAPEDEV> C<$CNF_DEVICE_PROPERTY> C<$CNF_PROPERTY> C<$CNF_CHANGERDEV> C<$CNF_CHANGERFILE> C<$CNF_LABELSTR> C<$CNF_AUTOLABEL> C<$CNF_META_AUTOLABEL> C<$CNF_TAPELIST> C<$CNF_DISKFILE> C<$CNF_INFOFILE> C<$CNF_LOGDIR> C<$CNF_INDEXDIR> C<$CNF_TAPETYPE> C<$CNF_DUMPCYCLE> C<$CNF_RUNSPERCYCLE> C<$CNF_TAPECYCLE> C<$CNF_NETUSAGE> C<$CNF_INPARALLEL> C<$CNF_DUMPORDER> C<$CNF_BUMPPERCENT> C<$CNF_BUMPSIZE> C<$CNF_BUMPMULT> C<$CNF_BUMPDAYS> C<$CNF_TPCHANGER> C<$CNF_RUNTAPES> C<$CNF_MAX_DLE_BY_VOLUME> C<$CNF_MAXDUMPS> C<$CNF_ETIMEOUT> C<$CNF_DTIMEOUT> C<$CNF_CTIMEOUT> C<$CNF_DEVICE_OUTPUT_BUFFER_SIZE> C<$CNF_PRINTER> C<$CNF_AUTOFLUSH> C<$CNF_RESERVE> C<$CNF_MAXDUMPSIZE> C<$CNF_COLUMNSPEC> C<$CNF_AMRECOVER_DO_FSF> C<$CNF_AMRECOVER_CHECK_LABEL> C<$CNF_AMRECOVER_CHANGER> C<$CNF_TAPERALGO> C<$CNF_FLUSH_THRESHOLD_DUMPED> C<$CNF_FLUSH_THRESHOLD_SCHEDULED> C<$CNF_TAPERFLUSH> C<$CNF_DISPLAYUNIT> C<$CNF_KRB5KEYTAB> C<$CNF_KRB5PRINCIPAL> C<$CNF_LABEL_NEW_TAPES> C<$CNF_USETIMESTAMPS> C<$CNF_REP_TRIES> C<$CNF_CONNECT_TRIES> C<$CNF_REQ_TRIES> C<$CNF_DEBUG_AMANDAD> C<$CNF_DEBUG_RECOVERY> C<$CNF_DEBUG_AMIDXTAPED> C<$CNF_DEBUG_AMINDEXD> C<$CNF_DEBUG_AMRECOVER> C<$CNF_DEBUG_AUTH> C<$CNF_DEBUG_EVENT> C<$CNF_DEBUG_HOLDING> C<$CNF_DEBUG_PROTOCOL> C<$CNF_DEBUG_PLANNER> C<$CNF_DEBUG_DRIVER> C<$CNF_DEBUG_DUMPER> C<$CNF_DEBUG_CHUNKER> C<$CNF_DEBUG_TAPER> C<$CNF_DEBUG_SELFCHECK> C<$CNF_DEBUG_SENDSIZE> C<$CNF_DEBUG_SENDBACKUP> C<$CNF_RESERVED_UDP_PORT> C<$CNF_RESERVED_TCP_PORT> C<$CNF_UNRESERVED_TCP_PORT> C<$CNF_HOLDINGDISK> C<$CNF_SEND_AMREPORT_ON> C<$CNF_TAPER_PARALLEL_WRITE> C<$CNF_RECOVERY_LIMIT> C<$CNF_INTERACTIVITY> C<$CNF_TAPERSCAN> C<$CNF_EJECT_VOLUME> C<$CNF_TMPDIR> C<$CNF_REPORT_USE_MEDIA> C<$CNF_REPORT_NEXT_MEDIA> -#copy symbols in confparm_key to getconf -push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"confparm_key"}}; +=cut push @EXPORT_OK, qw(tapetype_key_to_string); push @{$EXPORT_TAGS{"tapetype_key"}}, qw(tapetype_key_to_string); @@ -1148,48 +778,20 @@ sub tapetype_key_to_string { return $enumval; } -push @EXPORT_OK, qw($TAPETYPE_COMMENT); -push @{$EXPORT_TAGS{"tapetype_key"}}, qw($TAPETYPE_COMMENT); - -$_tapetype_key_VALUES{"TAPETYPE_COMMENT"} = $TAPETYPE_COMMENT; - -push @EXPORT_OK, qw($TAPETYPE_LBL_TEMPL); -push @{$EXPORT_TAGS{"tapetype_key"}}, qw($TAPETYPE_LBL_TEMPL); - -$_tapetype_key_VALUES{"TAPETYPE_LBL_TEMPL"} = $TAPETYPE_LBL_TEMPL; - -push @EXPORT_OK, qw($TAPETYPE_BLOCKSIZE); -push @{$EXPORT_TAGS{"tapetype_key"}}, qw($TAPETYPE_BLOCKSIZE); - -$_tapetype_key_VALUES{"TAPETYPE_BLOCKSIZE"} = $TAPETYPE_BLOCKSIZE; - -push @EXPORT_OK, qw($TAPETYPE_READBLOCKSIZE); -push @{$EXPORT_TAGS{"tapetype_key"}}, qw($TAPETYPE_READBLOCKSIZE); - -$_tapetype_key_VALUES{"TAPETYPE_READBLOCKSIZE"} = $TAPETYPE_READBLOCKSIZE; - -push @EXPORT_OK, qw($TAPETYPE_LENGTH); -push @{$EXPORT_TAGS{"tapetype_key"}}, qw($TAPETYPE_LENGTH); - -$_tapetype_key_VALUES{"TAPETYPE_LENGTH"} = $TAPETYPE_LENGTH; - -push @EXPORT_OK, qw($TAPETYPE_FILEMARK); -push @{$EXPORT_TAGS{"tapetype_key"}}, qw($TAPETYPE_FILEMARK); - -$_tapetype_key_VALUES{"TAPETYPE_FILEMARK"} = $TAPETYPE_FILEMARK; +push @EXPORT_OK, qw( $TAPETYPE_COMMENT $TAPETYPE_LBL_TEMPL $TAPETYPE_BLOCKSIZE $TAPETYPE_READBLOCKSIZE $TAPETYPE_LENGTH $TAPETYPE_FILEMARK $TAPETYPE_SPEED $TAPETYPE_PART_SIZE $TAPETYPE_PART_CACHE_TYPE $TAPETYPE_PART_CACHE_DIR $TAPETYPE_PART_CACHE_MAX_SIZE); +push @{$EXPORT_TAGS{"tapetype_key"}}, qw( $TAPETYPE_COMMENT $TAPETYPE_LBL_TEMPL $TAPETYPE_BLOCKSIZE $TAPETYPE_READBLOCKSIZE $TAPETYPE_LENGTH $TAPETYPE_FILEMARK $TAPETYPE_SPEED $TAPETYPE_PART_SIZE $TAPETYPE_PART_CACHE_TYPE $TAPETYPE_PART_CACHE_DIR $TAPETYPE_PART_CACHE_MAX_SIZE); + foreach (qw( TAPETYPE_COMMENT TAPETYPE_LBL_TEMPL TAPETYPE_BLOCKSIZE TAPETYPE_READBLOCKSIZE TAPETYPE_LENGTH TAPETYPE_FILEMARK TAPETYPE_SPEED TAPETYPE_PART_SIZE TAPETYPE_PART_CACHE_TYPE TAPETYPE_PART_CACHE_DIR TAPETYPE_PART_CACHE_MAX_SIZE)) { $_tapetype_key_VALUES{$_} = $$_; } +#copy symbols in tapetype_key to getconf +push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"tapetype_key"}}; -push @EXPORT_OK, qw($TAPETYPE_SPEED); -push @{$EXPORT_TAGS{"tapetype_key"}}, qw($TAPETYPE_SPEED); -$_tapetype_key_VALUES{"TAPETYPE_SPEED"} = $TAPETYPE_SPEED; +use Amanda::Config::FoldingHash; -push @EXPORT_OK, qw($TAPETYPE_FILE_PAD); -push @{$EXPORT_TAGS{"tapetype_key"}}, qw($TAPETYPE_FILE_PAD); +=pod -$_tapetype_key_VALUES{"TAPETYPE_FILE_PAD"} = $TAPETYPE_FILE_PAD; +Tapetype Parameters: C<$TAPETYPE_COMMENT> C<$TAPETYPE_LBL_TEMPL> C<$TAPETYPE_BLOCKSIZE> C<$TAPETYPE_READBLOCKSIZE> C<$TAPETYPE_LENGTH> C<$TAPETYPE_FILEMARK> C<$TAPETYPE_SPEED> C<$TAPETYPE_PART_SIZE> C<$TAPETYPE_PART_CACHE_TYPE> C<$TAPETYPE_PART_CACHE_DIR> C<$TAPETYPE_PART_CACHE_MAX_SIZE> -#copy symbols in tapetype_key to getconf -push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"tapetype_key"}}; +=cut push @EXPORT_OK, qw(dumptype_key_to_string); push @{$EXPORT_TAGS{"dumptype_key"}}, qw(dumptype_key_to_string); @@ -1212,223 +814,20 @@ sub dumptype_key_to_string { return $enumval; } -push @EXPORT_OK, qw($DUMPTYPE_COMMENT); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_COMMENT); - -$_dumptype_key_VALUES{"DUMPTYPE_COMMENT"} = $DUMPTYPE_COMMENT; - -push @EXPORT_OK, qw($DUMPTYPE_PROGRAM); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_PROGRAM); - -$_dumptype_key_VALUES{"DUMPTYPE_PROGRAM"} = $DUMPTYPE_PROGRAM; - -push @EXPORT_OK, qw($DUMPTYPE_SRVCOMPPROG); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_SRVCOMPPROG); - -$_dumptype_key_VALUES{"DUMPTYPE_SRVCOMPPROG"} = $DUMPTYPE_SRVCOMPPROG; - -push @EXPORT_OK, qw($DUMPTYPE_CLNTCOMPPROG); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_CLNTCOMPPROG); - -$_dumptype_key_VALUES{"DUMPTYPE_CLNTCOMPPROG"} = $DUMPTYPE_CLNTCOMPPROG; - -push @EXPORT_OK, qw($DUMPTYPE_SRV_ENCRYPT); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_SRV_ENCRYPT); - -$_dumptype_key_VALUES{"DUMPTYPE_SRV_ENCRYPT"} = $DUMPTYPE_SRV_ENCRYPT; - -push @EXPORT_OK, qw($DUMPTYPE_CLNT_ENCRYPT); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_CLNT_ENCRYPT); - -$_dumptype_key_VALUES{"DUMPTYPE_CLNT_ENCRYPT"} = $DUMPTYPE_CLNT_ENCRYPT; - -push @EXPORT_OK, qw($DUMPTYPE_AMANDAD_PATH); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_AMANDAD_PATH); - -$_dumptype_key_VALUES{"DUMPTYPE_AMANDAD_PATH"} = $DUMPTYPE_AMANDAD_PATH; - -push @EXPORT_OK, qw($DUMPTYPE_CLIENT_USERNAME); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_CLIENT_USERNAME); - -$_dumptype_key_VALUES{"DUMPTYPE_CLIENT_USERNAME"} = $DUMPTYPE_CLIENT_USERNAME; - -push @EXPORT_OK, qw($DUMPTYPE_CLIENT_PORT); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_CLIENT_PORT); - -$_dumptype_key_VALUES{"DUMPTYPE_CLIENT_PORT"} = $DUMPTYPE_CLIENT_PORT; - -push @EXPORT_OK, qw($DUMPTYPE_SSH_KEYS); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_SSH_KEYS); - -$_dumptype_key_VALUES{"DUMPTYPE_SSH_KEYS"} = $DUMPTYPE_SSH_KEYS; - -push @EXPORT_OK, qw($DUMPTYPE_AUTH); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_AUTH); - -$_dumptype_key_VALUES{"DUMPTYPE_AUTH"} = $DUMPTYPE_AUTH; - -push @EXPORT_OK, qw($DUMPTYPE_EXCLUDE); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_EXCLUDE); - -$_dumptype_key_VALUES{"DUMPTYPE_EXCLUDE"} = $DUMPTYPE_EXCLUDE; - -push @EXPORT_OK, qw($DUMPTYPE_INCLUDE); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_INCLUDE); - -$_dumptype_key_VALUES{"DUMPTYPE_INCLUDE"} = $DUMPTYPE_INCLUDE; - -push @EXPORT_OK, qw($DUMPTYPE_PRIORITY); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_PRIORITY); - -$_dumptype_key_VALUES{"DUMPTYPE_PRIORITY"} = $DUMPTYPE_PRIORITY; - -push @EXPORT_OK, qw($DUMPTYPE_DUMPCYCLE); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_DUMPCYCLE); - -$_dumptype_key_VALUES{"DUMPTYPE_DUMPCYCLE"} = $DUMPTYPE_DUMPCYCLE; - -push @EXPORT_OK, qw($DUMPTYPE_MAXDUMPS); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_MAXDUMPS); - -$_dumptype_key_VALUES{"DUMPTYPE_MAXDUMPS"} = $DUMPTYPE_MAXDUMPS; - -push @EXPORT_OK, qw($DUMPTYPE_MAXPROMOTEDAY); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_MAXPROMOTEDAY); - -$_dumptype_key_VALUES{"DUMPTYPE_MAXPROMOTEDAY"} = $DUMPTYPE_MAXPROMOTEDAY; - -push @EXPORT_OK, qw($DUMPTYPE_BUMPPERCENT); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_BUMPPERCENT); - -$_dumptype_key_VALUES{"DUMPTYPE_BUMPPERCENT"} = $DUMPTYPE_BUMPPERCENT; - -push @EXPORT_OK, qw($DUMPTYPE_BUMPSIZE); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_BUMPSIZE); - -$_dumptype_key_VALUES{"DUMPTYPE_BUMPSIZE"} = $DUMPTYPE_BUMPSIZE; - -push @EXPORT_OK, qw($DUMPTYPE_BUMPDAYS); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_BUMPDAYS); - -$_dumptype_key_VALUES{"DUMPTYPE_BUMPDAYS"} = $DUMPTYPE_BUMPDAYS; - -push @EXPORT_OK, qw($DUMPTYPE_BUMPMULT); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_BUMPMULT); - -$_dumptype_key_VALUES{"DUMPTYPE_BUMPMULT"} = $DUMPTYPE_BUMPMULT; - -push @EXPORT_OK, qw($DUMPTYPE_STARTTIME); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_STARTTIME); - -$_dumptype_key_VALUES{"DUMPTYPE_STARTTIME"} = $DUMPTYPE_STARTTIME; - -push @EXPORT_OK, qw($DUMPTYPE_STRATEGY); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_STRATEGY); - -$_dumptype_key_VALUES{"DUMPTYPE_STRATEGY"} = $DUMPTYPE_STRATEGY; - -push @EXPORT_OK, qw($DUMPTYPE_ESTIMATELIST); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_ESTIMATELIST); - -$_dumptype_key_VALUES{"DUMPTYPE_ESTIMATELIST"} = $DUMPTYPE_ESTIMATELIST; - -push @EXPORT_OK, qw($DUMPTYPE_COMPRESS); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_COMPRESS); - -$_dumptype_key_VALUES{"DUMPTYPE_COMPRESS"} = $DUMPTYPE_COMPRESS; - -push @EXPORT_OK, qw($DUMPTYPE_ENCRYPT); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_ENCRYPT); - -$_dumptype_key_VALUES{"DUMPTYPE_ENCRYPT"} = $DUMPTYPE_ENCRYPT; - -push @EXPORT_OK, qw($DUMPTYPE_SRV_DECRYPT_OPT); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_SRV_DECRYPT_OPT); - -$_dumptype_key_VALUES{"DUMPTYPE_SRV_DECRYPT_OPT"} = $DUMPTYPE_SRV_DECRYPT_OPT; - -push @EXPORT_OK, qw($DUMPTYPE_CLNT_DECRYPT_OPT); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_CLNT_DECRYPT_OPT); - -$_dumptype_key_VALUES{"DUMPTYPE_CLNT_DECRYPT_OPT"} = $DUMPTYPE_CLNT_DECRYPT_OPT; - -push @EXPORT_OK, qw($DUMPTYPE_COMPRATE); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_COMPRATE); - -$_dumptype_key_VALUES{"DUMPTYPE_COMPRATE"} = $DUMPTYPE_COMPRATE; - -push @EXPORT_OK, qw($DUMPTYPE_TAPE_SPLITSIZE); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_TAPE_SPLITSIZE); - -$_dumptype_key_VALUES{"DUMPTYPE_TAPE_SPLITSIZE"} = $DUMPTYPE_TAPE_SPLITSIZE; - -push @EXPORT_OK, qw($DUMPTYPE_FALLBACK_SPLITSIZE); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_FALLBACK_SPLITSIZE); - -$_dumptype_key_VALUES{"DUMPTYPE_FALLBACK_SPLITSIZE"} = $DUMPTYPE_FALLBACK_SPLITSIZE; - -push @EXPORT_OK, qw($DUMPTYPE_SPLIT_DISKBUFFER); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_SPLIT_DISKBUFFER); - -$_dumptype_key_VALUES{"DUMPTYPE_SPLIT_DISKBUFFER"} = $DUMPTYPE_SPLIT_DISKBUFFER; - -push @EXPORT_OK, qw($DUMPTYPE_RECORD); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_RECORD); - -$_dumptype_key_VALUES{"DUMPTYPE_RECORD"} = $DUMPTYPE_RECORD; - -push @EXPORT_OK, qw($DUMPTYPE_SKIP_INCR); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_SKIP_INCR); - -$_dumptype_key_VALUES{"DUMPTYPE_SKIP_INCR"} = $DUMPTYPE_SKIP_INCR; - -push @EXPORT_OK, qw($DUMPTYPE_SKIP_FULL); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_SKIP_FULL); - -$_dumptype_key_VALUES{"DUMPTYPE_SKIP_FULL"} = $DUMPTYPE_SKIP_FULL; - -push @EXPORT_OK, qw($DUMPTYPE_HOLDINGDISK); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_HOLDINGDISK); - -$_dumptype_key_VALUES{"DUMPTYPE_HOLDINGDISK"} = $DUMPTYPE_HOLDINGDISK; - -push @EXPORT_OK, qw($DUMPTYPE_KENCRYPT); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_KENCRYPT); - -$_dumptype_key_VALUES{"DUMPTYPE_KENCRYPT"} = $DUMPTYPE_KENCRYPT; - -push @EXPORT_OK, qw($DUMPTYPE_IGNORE); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_IGNORE); - -$_dumptype_key_VALUES{"DUMPTYPE_IGNORE"} = $DUMPTYPE_IGNORE; - -push @EXPORT_OK, qw($DUMPTYPE_INDEX); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_INDEX); - -$_dumptype_key_VALUES{"DUMPTYPE_INDEX"} = $DUMPTYPE_INDEX; - -push @EXPORT_OK, qw($DUMPTYPE_APPLICATION); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_APPLICATION); - -$_dumptype_key_VALUES{"DUMPTYPE_APPLICATION"} = $DUMPTYPE_APPLICATION; - -push @EXPORT_OK, qw($DUMPTYPE_SCRIPTLIST); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_SCRIPTLIST); - -$_dumptype_key_VALUES{"DUMPTYPE_SCRIPTLIST"} = $DUMPTYPE_SCRIPTLIST; +push @EXPORT_OK, qw( $DUMPTYPE_COMMENT $DUMPTYPE_PROGRAM $DUMPTYPE_SRVCOMPPROG $DUMPTYPE_CLNTCOMPPROG $DUMPTYPE_SRV_ENCRYPT $DUMPTYPE_CLNT_ENCRYPT $DUMPTYPE_AMANDAD_PATH $DUMPTYPE_CLIENT_USERNAME $DUMPTYPE_CLIENT_PORT $DUMPTYPE_SSH_KEYS $DUMPTYPE_AUTH $DUMPTYPE_EXCLUDE $DUMPTYPE_INCLUDE $DUMPTYPE_PRIORITY $DUMPTYPE_DUMPCYCLE $DUMPTYPE_MAXDUMPS $DUMPTYPE_MAXPROMOTEDAY $DUMPTYPE_BUMPPERCENT $DUMPTYPE_BUMPSIZE $DUMPTYPE_BUMPDAYS $DUMPTYPE_BUMPMULT $DUMPTYPE_STARTTIME $DUMPTYPE_STRATEGY $DUMPTYPE_ESTIMATELIST $DUMPTYPE_COMPRESS $DUMPTYPE_ENCRYPT $DUMPTYPE_SRV_DECRYPT_OPT $DUMPTYPE_CLNT_DECRYPT_OPT $DUMPTYPE_COMPRATE $DUMPTYPE_TAPE_SPLITSIZE $DUMPTYPE_FALLBACK_SPLITSIZE $DUMPTYPE_SPLIT_DISKBUFFER $DUMPTYPE_RECORD $DUMPTYPE_SKIP_INCR $DUMPTYPE_SKIP_FULL $DUMPTYPE_HOLDINGDISK $DUMPTYPE_KENCRYPT $DUMPTYPE_IGNORE $DUMPTYPE_INDEX $DUMPTYPE_APPLICATION $DUMPTYPE_SCRIPTLIST $DUMPTYPE_PROPERTY $DUMPTYPE_DATA_PATH $DUMPTYPE_ALLOW_SPLIT $DUMPTYPE_MAX_WARNINGS $DUMPTYPE_RECOVERY_LIMIT $DUMPTYPE_DUMP_LIMIT); +push @{$EXPORT_TAGS{"dumptype_key"}}, qw( $DUMPTYPE_COMMENT $DUMPTYPE_PROGRAM $DUMPTYPE_SRVCOMPPROG $DUMPTYPE_CLNTCOMPPROG $DUMPTYPE_SRV_ENCRYPT $DUMPTYPE_CLNT_ENCRYPT $DUMPTYPE_AMANDAD_PATH $DUMPTYPE_CLIENT_USERNAME $DUMPTYPE_CLIENT_PORT $DUMPTYPE_SSH_KEYS $DUMPTYPE_AUTH $DUMPTYPE_EXCLUDE $DUMPTYPE_INCLUDE $DUMPTYPE_PRIORITY $DUMPTYPE_DUMPCYCLE $DUMPTYPE_MAXDUMPS $DUMPTYPE_MAXPROMOTEDAY $DUMPTYPE_BUMPPERCENT $DUMPTYPE_BUMPSIZE $DUMPTYPE_BUMPDAYS $DUMPTYPE_BUMPMULT $DUMPTYPE_STARTTIME $DUMPTYPE_STRATEGY $DUMPTYPE_ESTIMATELIST $DUMPTYPE_COMPRESS $DUMPTYPE_ENCRYPT $DUMPTYPE_SRV_DECRYPT_OPT $DUMPTYPE_CLNT_DECRYPT_OPT $DUMPTYPE_COMPRATE $DUMPTYPE_TAPE_SPLITSIZE $DUMPTYPE_FALLBACK_SPLITSIZE $DUMPTYPE_SPLIT_DISKBUFFER $DUMPTYPE_RECORD $DUMPTYPE_SKIP_INCR $DUMPTYPE_SKIP_FULL $DUMPTYPE_HOLDINGDISK $DUMPTYPE_KENCRYPT $DUMPTYPE_IGNORE $DUMPTYPE_INDEX $DUMPTYPE_APPLICATION $DUMPTYPE_SCRIPTLIST $DUMPTYPE_PROPERTY $DUMPTYPE_DATA_PATH $DUMPTYPE_ALLOW_SPLIT $DUMPTYPE_MAX_WARNINGS $DUMPTYPE_RECOVERY_LIMIT $DUMPTYPE_DUMP_LIMIT); + foreach (qw( DUMPTYPE_COMMENT DUMPTYPE_PROGRAM DUMPTYPE_SRVCOMPPROG DUMPTYPE_CLNTCOMPPROG DUMPTYPE_SRV_ENCRYPT DUMPTYPE_CLNT_ENCRYPT DUMPTYPE_AMANDAD_PATH DUMPTYPE_CLIENT_USERNAME DUMPTYPE_CLIENT_PORT DUMPTYPE_SSH_KEYS DUMPTYPE_AUTH DUMPTYPE_EXCLUDE DUMPTYPE_INCLUDE DUMPTYPE_PRIORITY DUMPTYPE_DUMPCYCLE DUMPTYPE_MAXDUMPS DUMPTYPE_MAXPROMOTEDAY DUMPTYPE_BUMPPERCENT DUMPTYPE_BUMPSIZE DUMPTYPE_BUMPDAYS DUMPTYPE_BUMPMULT DUMPTYPE_STARTTIME DUMPTYPE_STRATEGY DUMPTYPE_ESTIMATELIST DUMPTYPE_COMPRESS DUMPTYPE_ENCRYPT DUMPTYPE_SRV_DECRYPT_OPT DUMPTYPE_CLNT_DECRYPT_OPT DUMPTYPE_COMPRATE DUMPTYPE_TAPE_SPLITSIZE DUMPTYPE_FALLBACK_SPLITSIZE DUMPTYPE_SPLIT_DISKBUFFER DUMPTYPE_RECORD DUMPTYPE_SKIP_INCR DUMPTYPE_SKIP_FULL DUMPTYPE_HOLDINGDISK DUMPTYPE_KENCRYPT DUMPTYPE_IGNORE DUMPTYPE_INDEX DUMPTYPE_APPLICATION DUMPTYPE_SCRIPTLIST DUMPTYPE_PROPERTY DUMPTYPE_DATA_PATH DUMPTYPE_ALLOW_SPLIT DUMPTYPE_MAX_WARNINGS DUMPTYPE_RECOVERY_LIMIT DUMPTYPE_DUMP_LIMIT)) { $_dumptype_key_VALUES{$_} = $$_; } +#copy symbols in dumptype_key to getconf +push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"dumptype_key"}}; -push @EXPORT_OK, qw($DUMPTYPE_PROPERTY); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_PROPERTY); -$_dumptype_key_VALUES{"DUMPTYPE_PROPERTY"} = $DUMPTYPE_PROPERTY; +use Amanda::Config::FoldingHash; -push @EXPORT_OK, qw($DUMPTYPE_DATA_PATH); -push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_DATA_PATH); +=pod -$_dumptype_key_VALUES{"DUMPTYPE_DATA_PATH"} = $DUMPTYPE_DATA_PATH; +Dumptype Parameters: C<$DUMPTYPE_COMMENT> C<$DUMPTYPE_PROGRAM> C<$DUMPTYPE_SRVCOMPPROG> C<$DUMPTYPE_CLNTCOMPPROG> C<$DUMPTYPE_SRV_ENCRYPT> C<$DUMPTYPE_CLNT_ENCRYPT> C<$DUMPTYPE_AMANDAD_PATH> C<$DUMPTYPE_CLIENT_USERNAME> C<$DUMPTYPE_CLIENT_PORT> C<$DUMPTYPE_SSH_KEYS> C<$DUMPTYPE_AUTH> C<$DUMPTYPE_EXCLUDE> C<$DUMPTYPE_INCLUDE> C<$DUMPTYPE_PRIORITY> C<$DUMPTYPE_DUMPCYCLE> C<$DUMPTYPE_MAXDUMPS> C<$DUMPTYPE_MAXPROMOTEDAY> C<$DUMPTYPE_BUMPPERCENT> C<$DUMPTYPE_BUMPSIZE> C<$DUMPTYPE_BUMPDAYS> C<$DUMPTYPE_BUMPMULT> C<$DUMPTYPE_STARTTIME> C<$DUMPTYPE_STRATEGY> C<$DUMPTYPE_ESTIMATELIST> C<$DUMPTYPE_COMPRESS> C<$DUMPTYPE_ENCRYPT> C<$DUMPTYPE_SRV_DECRYPT_OPT> C<$DUMPTYPE_CLNT_DECRYPT_OPT> C<$DUMPTYPE_COMPRATE> C<$DUMPTYPE_TAPE_SPLITSIZE> C<$DUMPTYPE_FALLBACK_SPLITSIZE> C<$DUMPTYPE_SPLIT_DISKBUFFER> C<$DUMPTYPE_RECORD> C<$DUMPTYPE_SKIP_INCR> C<$DUMPTYPE_SKIP_FULL> C<$DUMPTYPE_HOLDINGDISK> C<$DUMPTYPE_KENCRYPT> C<$DUMPTYPE_IGNORE> C<$DUMPTYPE_INDEX> C<$DUMPTYPE_APPLICATION> C<$DUMPTYPE_SCRIPTLIST> C<$DUMPTYPE_PROPERTY> C<$DUMPTYPE_DATA_PATH> C<$DUMPTYPE_ALLOW_SPLIT> C<$DUMPTYPE_MAX_WARNINGS> C<$DUMPTYPE_RECOVERY_LIMIT> C<$DUMPTYPE_DUMP_LIMIT> -#copy symbols in dumptype_key to getconf -push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"dumptype_key"}}; +=cut push @EXPORT_OK, qw(interface_key_to_string); push @{$EXPORT_TAGS{"interface_key"}}, qw(interface_key_to_string); @@ -1451,18 +850,20 @@ sub interface_key_to_string { return $enumval; } -push @EXPORT_OK, qw($INTER_COMMENT); -push @{$EXPORT_TAGS{"interface_key"}}, qw($INTER_COMMENT); +push @EXPORT_OK, qw( $INTER_COMMENT $INTER_MAXUSAGE); +push @{$EXPORT_TAGS{"interface_key"}}, qw( $INTER_COMMENT $INTER_MAXUSAGE); + foreach (qw( INTER_COMMENT INTER_MAXUSAGE)) { $_interface_key_VALUES{$_} = $$_; } +#copy symbols in interface_key to getconf +push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"interface_key"}}; + -$_interface_key_VALUES{"INTER_COMMENT"} = $INTER_COMMENT; +use Amanda::Config::FoldingHash; -push @EXPORT_OK, qw($INTER_MAXUSAGE); -push @{$EXPORT_TAGS{"interface_key"}}, qw($INTER_MAXUSAGE); +=pod -$_interface_key_VALUES{"INTER_MAXUSAGE"} = $INTER_MAXUSAGE; +Dumptype Parameters: C<$INTER_COMMENT> C<$INTER_MAXUSAGE> -#copy symbols in interface_key to getconf -push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"interface_key"}}; +=cut push @EXPORT_OK, qw(holdingdisk_key_to_string); push @{$EXPORT_TAGS{"holdingdisk_key"}}, qw(holdingdisk_key_to_string); @@ -1485,28 +886,20 @@ sub holdingdisk_key_to_string { return $enumval; } -push @EXPORT_OK, qw($HOLDING_COMMENT); -push @{$EXPORT_TAGS{"holdingdisk_key"}}, qw($HOLDING_COMMENT); - -$_holdingdisk_key_VALUES{"HOLDING_COMMENT"} = $HOLDING_COMMENT; - -push @EXPORT_OK, qw($HOLDING_DISKDIR); -push @{$EXPORT_TAGS{"holdingdisk_key"}}, qw($HOLDING_DISKDIR); - -$_holdingdisk_key_VALUES{"HOLDING_DISKDIR"} = $HOLDING_DISKDIR; +push @EXPORT_OK, qw( $HOLDING_COMMENT $HOLDING_DISKDIR $HOLDING_DISKSIZE $HOLDING_CHUNKSIZE); +push @{$EXPORT_TAGS{"holdingdisk_key"}}, qw( $HOLDING_COMMENT $HOLDING_DISKDIR $HOLDING_DISKSIZE $HOLDING_CHUNKSIZE); + foreach (qw( HOLDING_COMMENT HOLDING_DISKDIR HOLDING_DISKSIZE HOLDING_CHUNKSIZE)) { $_holdingdisk_key_VALUES{$_} = $$_; } +#copy symbols in holdingdisk_key to getconf +push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"holdingdisk_key"}}; -push @EXPORT_OK, qw($HOLDING_DISKSIZE); -push @{$EXPORT_TAGS{"holdingdisk_key"}}, qw($HOLDING_DISKSIZE); -$_holdingdisk_key_VALUES{"HOLDING_DISKSIZE"} = $HOLDING_DISKSIZE; +use Amanda::Config::FoldingHash; -push @EXPORT_OK, qw($HOLDING_CHUNKSIZE); -push @{$EXPORT_TAGS{"holdingdisk_key"}}, qw($HOLDING_CHUNKSIZE); +=pod -$_holdingdisk_key_VALUES{"HOLDING_CHUNKSIZE"} = $HOLDING_CHUNKSIZE; +Holdingdisk Parameters: C<$HOLDING_COMMENT> C<$HOLDING_DISKDIR> C<$HOLDING_DISKSIZE> C<$HOLDING_CHUNKSIZE> -#copy symbols in holdingdisk_key to getconf -push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"holdingdisk_key"}}; +=cut push @EXPORT_OK, qw(application_key_to_string); push @{$EXPORT_TAGS{"application_key"}}, qw(application_key_to_string); @@ -1529,23 +922,20 @@ sub application_key_to_string { return $enumval; } -push @EXPORT_OK, qw($APPLICATION_COMMENT); -push @{$EXPORT_TAGS{"application_key"}}, qw($APPLICATION_COMMENT); - -$_application_key_VALUES{"APPLICATION_COMMENT"} = $APPLICATION_COMMENT; +push @EXPORT_OK, qw( $APPLICATION_COMMENT $APPLICATION_PLUGIN $APPLICATION_PROPERTY $APPLICATION_CLIENT_NAME); +push @{$EXPORT_TAGS{"application_key"}}, qw( $APPLICATION_COMMENT $APPLICATION_PLUGIN $APPLICATION_PROPERTY $APPLICATION_CLIENT_NAME); + foreach (qw( APPLICATION_COMMENT APPLICATION_PLUGIN APPLICATION_PROPERTY APPLICATION_CLIENT_NAME)) { $_application_key_VALUES{$_} = $$_; } +#copy symbols in application_key to getconf +push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"application_key"}}; -push @EXPORT_OK, qw($APPLICATION_PLUGIN); -push @{$EXPORT_TAGS{"application_key"}}, qw($APPLICATION_PLUGIN); -$_application_key_VALUES{"APPLICATION_PLUGIN"} = $APPLICATION_PLUGIN; +use Amanda::Config::FoldingHash; -push @EXPORT_OK, qw($APPLICATION_PROPERTY); -push @{$EXPORT_TAGS{"application_key"}}, qw($APPLICATION_PROPERTY); +=pod -$_application_key_VALUES{"APPLICATION_PROPERTY"} = $APPLICATION_PROPERTY; +Application Parameters: C<$APPLICATION_COMMENT> C<$APPLICATION_PLUGIN> C<$APPLICATION_PROPERTY> C<$APPLICATION_CLIENT_NAME> -#copy symbols in application_key to getconf -push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"application_key"}}; +=cut push @EXPORT_OK, qw(pp_script_key_to_string); push @{$EXPORT_TAGS{"pp_script_key"}}, qw(pp_script_key_to_string); @@ -1568,38 +958,20 @@ sub pp_script_key_to_string { return $enumval; } -push @EXPORT_OK, qw($PP_SCRIPT_COMMENT); -push @{$EXPORT_TAGS{"pp_script_key"}}, qw($PP_SCRIPT_COMMENT); - -$_pp_script_key_VALUES{"PP_SCRIPT_COMMENT"} = $PP_SCRIPT_COMMENT; - -push @EXPORT_OK, qw($PP_SCRIPT_PLUGIN); -push @{$EXPORT_TAGS{"pp_script_key"}}, qw($PP_SCRIPT_PLUGIN); - -$_pp_script_key_VALUES{"PP_SCRIPT_PLUGIN"} = $PP_SCRIPT_PLUGIN; - -push @EXPORT_OK, qw($PP_SCRIPT_PROPERTY); -push @{$EXPORT_TAGS{"pp_script_key"}}, qw($PP_SCRIPT_PROPERTY); - -$_pp_script_key_VALUES{"PP_SCRIPT_PROPERTY"} = $PP_SCRIPT_PROPERTY; - -push @EXPORT_OK, qw($PP_SCRIPT_EXECUTE_ON); -push @{$EXPORT_TAGS{"pp_script_key"}}, qw($PP_SCRIPT_EXECUTE_ON); - -$_pp_script_key_VALUES{"PP_SCRIPT_EXECUTE_ON"} = $PP_SCRIPT_EXECUTE_ON; +push @EXPORT_OK, qw( $PP_SCRIPT_COMMENT $PP_SCRIPT_PLUGIN $PP_SCRIPT_PROPERTY $PP_SCRIPT_EXECUTE_ON $PP_SCRIPT_EXECUTE_WHERE $PP_SCRIPT_ORDER $PP_SCRIPT_SINGLE_EXECUTION $PP_SCRIPT_CLIENT_NAME); +push @{$EXPORT_TAGS{"pp_script_key"}}, qw( $PP_SCRIPT_COMMENT $PP_SCRIPT_PLUGIN $PP_SCRIPT_PROPERTY $PP_SCRIPT_EXECUTE_ON $PP_SCRIPT_EXECUTE_WHERE $PP_SCRIPT_ORDER $PP_SCRIPT_SINGLE_EXECUTION $PP_SCRIPT_CLIENT_NAME); + foreach (qw( PP_SCRIPT_COMMENT PP_SCRIPT_PLUGIN PP_SCRIPT_PROPERTY PP_SCRIPT_EXECUTE_ON PP_SCRIPT_EXECUTE_WHERE PP_SCRIPT_ORDER PP_SCRIPT_SINGLE_EXECUTION PP_SCRIPT_CLIENT_NAME)) { $_pp_script_key_VALUES{$_} = $$_; } +#copy symbols in pp_script_key to getconf +push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"pp_script_key"}}; -push @EXPORT_OK, qw($PP_SCRIPT_EXECUTE_WHERE); -push @{$EXPORT_TAGS{"pp_script_key"}}, qw($PP_SCRIPT_EXECUTE_WHERE); -$_pp_script_key_VALUES{"PP_SCRIPT_EXECUTE_WHERE"} = $PP_SCRIPT_EXECUTE_WHERE; +use Amanda::Config::FoldingHash; -push @EXPORT_OK, qw($PP_SCRIPT_ORDER); -push @{$EXPORT_TAGS{"pp_script_key"}}, qw($PP_SCRIPT_ORDER); +=pod -$_pp_script_key_VALUES{"PP_SCRIPT_ORDER"} = $PP_SCRIPT_ORDER; +Pre/Post-Script Parameters: C<$PP_SCRIPT_COMMENT> C<$PP_SCRIPT_PLUGIN> C<$PP_SCRIPT_PROPERTY> C<$PP_SCRIPT_EXECUTE_ON> C<$PP_SCRIPT_EXECUTE_WHERE> C<$PP_SCRIPT_ORDER> C<$PP_SCRIPT_SINGLE_EXECUTION> C<$PP_SCRIPT_CLIENT_NAME> -#copy symbols in pp_script_key to getconf -push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"pp_script_key"}}; +=cut push @EXPORT_OK, qw(device_config_key_to_string); push @{$EXPORT_TAGS{"device_config_key"}}, qw(device_config_key_to_string); @@ -1622,23 +994,20 @@ sub device_config_key_to_string { return $enumval; } -push @EXPORT_OK, qw($DEVICE_CONFIG_COMMENT); -push @{$EXPORT_TAGS{"device_config_key"}}, qw($DEVICE_CONFIG_COMMENT); - -$_device_config_key_VALUES{"DEVICE_CONFIG_COMMENT"} = $DEVICE_CONFIG_COMMENT; +push @EXPORT_OK, qw( $DEVICE_CONFIG_COMMENT $DEVICE_CONFIG_TAPEDEV $DEVICE_CONFIG_DEVICE_PROPERTY); +push @{$EXPORT_TAGS{"device_config_key"}}, qw( $DEVICE_CONFIG_COMMENT $DEVICE_CONFIG_TAPEDEV $DEVICE_CONFIG_DEVICE_PROPERTY); + foreach (qw( DEVICE_CONFIG_COMMENT DEVICE_CONFIG_TAPEDEV DEVICE_CONFIG_DEVICE_PROPERTY)) { $_device_config_key_VALUES{$_} = $$_; } +#copy symbols in device_config_key to getconf +push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"device_config_key"}}; -push @EXPORT_OK, qw($DEVICE_CONFIG_TAPEDEV); -push @{$EXPORT_TAGS{"device_config_key"}}, qw($DEVICE_CONFIG_TAPEDEV); -$_device_config_key_VALUES{"DEVICE_CONFIG_TAPEDEV"} = $DEVICE_CONFIG_TAPEDEV; +use Amanda::Config::FoldingHash; -push @EXPORT_OK, qw($DEVICE_CONFIG_DEVICE_PROPERTY); -push @{$EXPORT_TAGS{"device_config_key"}}, qw($DEVICE_CONFIG_DEVICE_PROPERTY); +=pod -$_device_config_key_VALUES{"DEVICE_CONFIG_DEVICE_PROPERTY"} = $DEVICE_CONFIG_DEVICE_PROPERTY; +Pre/Post-Script Parameters: C<$DEVICE_CONFIG_COMMENT> C<$DEVICE_CONFIG_TAPEDEV> C<$DEVICE_CONFIG_DEVICE_PROPERTY> -#copy symbols in device_config_key to getconf -push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"device_config_key"}}; +=cut push @EXPORT_OK, qw(changer_config_key_to_string); push @{$EXPORT_TAGS{"changer_config_key"}}, qw(changer_config_key_to_string); @@ -1661,43 +1030,92 @@ sub changer_config_key_to_string { return $enumval; } -push @EXPORT_OK, qw($CHANGER_CONFIG_COMMENT); -push @{$EXPORT_TAGS{"changer_config_key"}}, qw($CHANGER_CONFIG_COMMENT); +push @EXPORT_OK, qw( $CHANGER_CONFIG_COMMENT $CHANGER_CONFIG_TAPEDEV $CHANGER_CONFIG_TPCHANGER $CHANGER_CONFIG_CHANGERDEV $CHANGER_CONFIG_CHANGERFILE $CHANGER_CONFIG_PROPERTY $CHANGER_CONFIG_DEVICE_PROPERTY); +push @{$EXPORT_TAGS{"changer_config_key"}}, qw( $CHANGER_CONFIG_COMMENT $CHANGER_CONFIG_TAPEDEV $CHANGER_CONFIG_TPCHANGER $CHANGER_CONFIG_CHANGERDEV $CHANGER_CONFIG_CHANGERFILE $CHANGER_CONFIG_PROPERTY $CHANGER_CONFIG_DEVICE_PROPERTY); + foreach (qw( CHANGER_CONFIG_COMMENT CHANGER_CONFIG_TAPEDEV CHANGER_CONFIG_TPCHANGER CHANGER_CONFIG_CHANGERDEV CHANGER_CONFIG_CHANGERFILE CHANGER_CONFIG_PROPERTY CHANGER_CONFIG_DEVICE_PROPERTY)) { $_changer_config_key_VALUES{$_} = $$_; } +#copy symbols in changer_config_key to getconf +push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"changer_config_key"}}; + + +use Amanda::Config::FoldingHash; -$_changer_config_key_VALUES{"CHANGER_CONFIG_COMMENT"} = $CHANGER_CONFIG_COMMENT; +=pod -push @EXPORT_OK, qw($CHANGER_CONFIG_TAPEDEV); -push @{$EXPORT_TAGS{"changer_config_key"}}, qw($CHANGER_CONFIG_TAPEDEV); +Pre/Post-Script Parameters: C<$CHANGER_CONFIG_COMMENT> C<$CHANGER_CONFIG_TAPEDEV> C<$CHANGER_CONFIG_TPCHANGER> C<$CHANGER_CONFIG_CHANGERDEV> C<$CHANGER_CONFIG_CHANGERFILE> C<$CHANGER_CONFIG_PROPERTY> C<$CHANGER_CONFIG_DEVICE_PROPERTY> -$_changer_config_key_VALUES{"CHANGER_CONFIG_TAPEDEV"} = $CHANGER_CONFIG_TAPEDEV; +=cut -push @EXPORT_OK, qw($CHANGER_CONFIG_TPCHANGER); -push @{$EXPORT_TAGS{"changer_config_key"}}, qw($CHANGER_CONFIG_TPCHANGER); +push @EXPORT_OK, qw(interactivity_key_to_string); +push @{$EXPORT_TAGS{"interactivity_key"}}, qw(interactivity_key_to_string); -$_changer_config_key_VALUES{"CHANGER_CONFIG_TPCHANGER"} = $CHANGER_CONFIG_TPCHANGER; +my %_interactivity_key_VALUES; +#Convert an enum value to a single string +sub interactivity_key_to_string { + my ($enumval) = @_; -push @EXPORT_OK, qw($CHANGER_CONFIG_CHANGERDEV); -push @{$EXPORT_TAGS{"changer_config_key"}}, qw($CHANGER_CONFIG_CHANGERDEV); + for my $k (keys %_interactivity_key_VALUES) { + my $v = $_interactivity_key_VALUES{$k}; -$_changer_config_key_VALUES{"CHANGER_CONFIG_CHANGERDEV"} = $CHANGER_CONFIG_CHANGERDEV; + #is this a matching flag? + if ($enumval == $v) { + return $k; + } + } -push @EXPORT_OK, qw($CHANGER_CONFIG_CHANGERFILE); -push @{$EXPORT_TAGS{"changer_config_key"}}, qw($CHANGER_CONFIG_CHANGERFILE); +#default, just return the number + return $enumval; +} -$_changer_config_key_VALUES{"CHANGER_CONFIG_CHANGERFILE"} = $CHANGER_CONFIG_CHANGERFILE; +push @EXPORT_OK, qw( $INTERACTIVITY_COMMENT $INTERACTIVITY_PLUGIN $INTERACTIVITY_PROPERTY); +push @{$EXPORT_TAGS{"interactivity_key"}}, qw( $INTERACTIVITY_COMMENT $INTERACTIVITY_PLUGIN $INTERACTIVITY_PROPERTY); + foreach (qw( INTERACTIVITY_COMMENT INTERACTIVITY_PLUGIN INTERACTIVITY_PROPERTY)) { $_interactivity_key_VALUES{$_} = $$_; } +#copy symbols in interactivity_key to getconf +push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"interactivity_key"}}; -push @EXPORT_OK, qw($CHANGER_CONFIG_PROPERTY); -push @{$EXPORT_TAGS{"changer_config_key"}}, qw($CHANGER_CONFIG_PROPERTY); -$_changer_config_key_VALUES{"CHANGER_CONFIG_PROPERTY"} = $CHANGER_CONFIG_PROPERTY; +use Amanda::Config::FoldingHash; -push @EXPORT_OK, qw($CHANGER_CONFIG_DEVICE_PROPERTY); -push @{$EXPORT_TAGS{"changer_config_key"}}, qw($CHANGER_CONFIG_DEVICE_PROPERTY); +=pod -$_changer_config_key_VALUES{"CHANGER_CONFIG_DEVICE_PROPERTY"} = $CHANGER_CONFIG_DEVICE_PROPERTY; +Interactivity Parameters: C<$INTERACTIVITY_COMMENT> C<$INTERACTIVITY_PLUGIN> C<$INTERACTIVITY_PROPERTY> -#copy symbols in changer_config_key to getconf -push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"changer_config_key"}}; +=cut + +push @EXPORT_OK, qw(taperscan_key_to_string); +push @{$EXPORT_TAGS{"taperscan_key"}}, qw(taperscan_key_to_string); + +my %_taperscan_key_VALUES; +#Convert an enum value to a single string +sub taperscan_key_to_string { + my ($enumval) = @_; + + for my $k (keys %_taperscan_key_VALUES) { + my $v = $_taperscan_key_VALUES{$k}; + + #is this a matching flag? + if ($enumval == $v) { + return $k; + } + } + +#default, just return the number + return $enumval; +} + +push @EXPORT_OK, qw( $TAPERSCAN_COMMENT $TAPERSCAN_PLUGIN $TAPERSCAN_PROPERTY); +push @{$EXPORT_TAGS{"taperscan_key"}}, qw( $TAPERSCAN_COMMENT $TAPERSCAN_PLUGIN $TAPERSCAN_PROPERTY); + foreach (qw( TAPERSCAN_COMMENT TAPERSCAN_PLUGIN TAPERSCAN_PROPERTY)) { $_taperscan_key_VALUES{$_} = $$_; } +#copy symbols in taperscan_key to getconf +push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"taperscan_key"}}; + + +use Amanda::Config::FoldingHash; + +=pod + +Taperscan Parameters: C<$TAPERSCAN_COMMENT> C<$TAPERSCAN_PLUGIN> C<$TAPERSCAN_PROPERTY> + +=cut push @EXPORT_OK, qw(dump_holdingdisk_t_to_string); push @{$EXPORT_TAGS{"dump_holdingdisk_t"}}, qw(dump_holdingdisk_t_to_string); @@ -2058,6 +1476,11 @@ sub execute_on_t_to_string { return $enumval; } +push @EXPORT_OK, qw($EXECUTE_ON_PRE_AMCHECK); +push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_PRE_AMCHECK); + +$_execute_on_t_VALUES{"EXECUTE_ON_PRE_AMCHECK"} = $EXECUTE_ON_PRE_AMCHECK; + push @EXPORT_OK, qw($EXECUTE_ON_PRE_DLE_AMCHECK); push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_PRE_DLE_AMCHECK); @@ -2068,6 +1491,11 @@ push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_PRE_HOST_AMCHECK); $_execute_on_t_VALUES{"EXECUTE_ON_PRE_HOST_AMCHECK"} = $EXECUTE_ON_PRE_HOST_AMCHECK; +push @EXPORT_OK, qw($EXECUTE_ON_POST_AMCHECK); +push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_POST_AMCHECK); + +$_execute_on_t_VALUES{"EXECUTE_ON_POST_AMCHECK"} = $EXECUTE_ON_POST_AMCHECK; + push @EXPORT_OK, qw($EXECUTE_ON_POST_DLE_AMCHECK); push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_POST_DLE_AMCHECK); @@ -2078,6 +1506,11 @@ push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_POST_HOST_AMCHECK); $_execute_on_t_VALUES{"EXECUTE_ON_POST_HOST_AMCHECK"} = $EXECUTE_ON_POST_HOST_AMCHECK; +push @EXPORT_OK, qw($EXECUTE_ON_PRE_ESTIMATE); +push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_PRE_ESTIMATE); + +$_execute_on_t_VALUES{"EXECUTE_ON_PRE_ESTIMATE"} = $EXECUTE_ON_PRE_ESTIMATE; + push @EXPORT_OK, qw($EXECUTE_ON_PRE_DLE_ESTIMATE); push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_PRE_DLE_ESTIMATE); @@ -2088,6 +1521,11 @@ push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_PRE_HOST_ESTIMATE); $_execute_on_t_VALUES{"EXECUTE_ON_PRE_HOST_ESTIMATE"} = $EXECUTE_ON_PRE_HOST_ESTIMATE; +push @EXPORT_OK, qw($EXECUTE_ON_POST_ESTIMATE); +push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_POST_ESTIMATE); + +$_execute_on_t_VALUES{"EXECUTE_ON_POST_ESTIMATE"} = $EXECUTE_ON_POST_ESTIMATE; + push @EXPORT_OK, qw($EXECUTE_ON_POST_DLE_ESTIMATE); push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_POST_DLE_ESTIMATE); @@ -2098,6 +1536,11 @@ push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_POST_HOST_ESTIMATE); $_execute_on_t_VALUES{"EXECUTE_ON_POST_HOST_ESTIMATE"} = $EXECUTE_ON_POST_HOST_ESTIMATE; +push @EXPORT_OK, qw($EXECUTE_ON_PRE_BACKUP); +push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_PRE_BACKUP); + +$_execute_on_t_VALUES{"EXECUTE_ON_PRE_BACKUP"} = $EXECUTE_ON_PRE_BACKUP; + push @EXPORT_OK, qw($EXECUTE_ON_PRE_DLE_BACKUP); push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_PRE_DLE_BACKUP); @@ -2108,6 +1551,11 @@ push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_PRE_HOST_BACKUP); $_execute_on_t_VALUES{"EXECUTE_ON_PRE_HOST_BACKUP"} = $EXECUTE_ON_PRE_HOST_BACKUP; +push @EXPORT_OK, qw($EXECUTE_ON_POST_BACKUP); +push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_POST_BACKUP); + +$_execute_on_t_VALUES{"EXECUTE_ON_POST_BACKUP"} = $EXECUTE_ON_POST_BACKUP; + push @EXPORT_OK, qw($EXECUTE_ON_POST_DLE_BACKUP); push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_POST_DLE_BACKUP); @@ -2199,6 +1647,48 @@ $_data_path_t_VALUES{"DATA_PATH_DIRECTTCP"} = $DATA_PATH_DIRECTTCP; #copy symbols in data_path_t to getconf push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"data_path_t"}}; +push @EXPORT_OK, qw(part_cache_type_t_to_string); +push @{$EXPORT_TAGS{"part_cache_type_t"}}, qw(part_cache_type_t_to_string); + +my %_part_cache_type_t_VALUES; +#Convert an enum value to a single string +sub part_cache_type_t_to_string { + my ($enumval) = @_; + + for my $k (keys %_part_cache_type_t_VALUES) { + my $v = $_part_cache_type_t_VALUES{$k}; + + #is this a matching flag? + if ($enumval == $v) { + return $k; + } + } + +#default, just return the number + return $enumval; +} + +push @EXPORT_OK, qw($PART_CACHE_TYPE_NONE); +push @{$EXPORT_TAGS{"part_cache_type_t"}}, qw($PART_CACHE_TYPE_NONE); + +$_part_cache_type_t_VALUES{"PART_CACHE_TYPE_NONE"} = $PART_CACHE_TYPE_NONE; + +push @EXPORT_OK, qw($PART_CACHE_TYPE_DISK); +push @{$EXPORT_TAGS{"part_cache_type_t"}}, qw($PART_CACHE_TYPE_DISK); + +$_part_cache_type_t_VALUES{"PART_CACHE_TYPE_DISK"} = $PART_CACHE_TYPE_DISK; + +push @EXPORT_OK, qw($PART_CACHE_TYPE_MEMORY); +push @{$EXPORT_TAGS{"part_cache_type_t"}}, qw($PART_CACHE_TYPE_MEMORY); + +$_part_cache_type_t_VALUES{"PART_CACHE_TYPE_MEMORY"} = $PART_CACHE_TYPE_MEMORY; + +#copy symbols in part_cache_type_t to getconf +push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"part_cache_type_t"}}; + +$LIMIT_SAMEHOST="SAMEHOST-SAMEHOST-SAMEHOST"; +$LIMIT_SERVER="SERVER-SERVER-SERVER"; + push @EXPORT_OK, qw(getconf getconf_seen getconf_linenum getconf_byname getconf_byname_strs getconf_list); @@ -2248,6 +1738,16 @@ push @EXPORT_OK, qw(lookup_changer_config changer_config_getconf changer_config_ push @{$EXPORT_TAGS{"getconf"}}, qw(lookup_changer_config changer_config_getconf changer_config_name changer_config_seen changer_config_seen); +push @EXPORT_OK, qw(lookup_interactivity interactivity_getconf interactivity_name + interactivity_seen interactivity_seen); +push @{$EXPORT_TAGS{"getconf"}}, qw(lookup_interactivity interactivity_getconf interactivity_name + interactivity_seen interactivity_seen); + +push @EXPORT_OK, qw(lookup_taperscan taperscan_getconf taperscan_name + taperscan_seen taperscan_seen); +push @{$EXPORT_TAGS{"getconf"}}, qw(lookup_taperscan taperscan_getconf taperscan_name + taperscan_seen taperscan_seen); + # only those keys with a value of '1' should be shown; the # others are deprecated our %subsection_names = ( @@ -2390,4 +1890,6 @@ sub string_to_boolean { push @EXPORT_OK, qw(string_to_boolean); + +push @EXPORT_OK, qw(amandaify_property_name); 1;