1 # This file was automatically generated by SWIG (http://www.swig.org).
4 # Do not make changes to this file unless you know what you are doing--modify
5 # the SWIG interface file instead.
7 package Amanda::Config;
9 use base qw(DynaLoader);
10 package Amanda::Configc;
11 bootstrap Amanda::Config;
12 package Amanda::Config;
15 # ---------- BASE METHODS -------------
17 package Amanda::Config;
20 my ($classname,$obj) = @_;
21 return bless $obj, $classname;
31 my ($self,$field) = @_;
32 my $member_func = "swig_${field}_get";
33 $self->$member_func();
37 my ($self,$field,$newval) = @_;
38 my $member_func = "swig_${field}_set";
39 $self->$member_func($newval);
48 # ------- FUNCTION WRAPPERS --------
50 package Amanda::Config;
52 *data_path_from_string = *Amanda::Configc::data_path_from_string;
53 *getconf = *Amanda::Configc::getconf;
54 *getconf_seen = *Amanda::Configc::getconf_seen;
55 *getconf_linenum = *Amanda::Configc::getconf_linenum;
56 *getconf_byname = *Amanda::Configc::getconf_byname;
57 *getconf_list = *Amanda::Configc::getconf_list;
58 *getconf_byname_strs = *Amanda::Configc::getconf_byname_strs;
59 *lookup_tapetype = *Amanda::Configc::lookup_tapetype;
60 *tapetype_getconf = *Amanda::Configc::tapetype_getconf;
61 *tapetype_name = *Amanda::Configc::tapetype_name;
62 *tapetype_seen = *Amanda::Configc::tapetype_seen;
63 *lookup_dumptype = *Amanda::Configc::lookup_dumptype;
64 *dumptype_getconf = *Amanda::Configc::dumptype_getconf;
65 *dumptype_name = *Amanda::Configc::dumptype_name;
66 *dumptype_seen = *Amanda::Configc::dumptype_seen;
67 *lookup_interface = *Amanda::Configc::lookup_interface;
68 *interface_getconf = *Amanda::Configc::interface_getconf;
69 *interface_name = *Amanda::Configc::interface_name;
70 *interface_seen = *Amanda::Configc::interface_seen;
71 *lookup_holdingdisk = *Amanda::Configc::lookup_holdingdisk;
72 *getconf_holdingdisks = *Amanda::Configc::getconf_holdingdisks;
73 *holdingdisk_getconf = *Amanda::Configc::holdingdisk_getconf;
74 *holdingdisk_name = *Amanda::Configc::holdingdisk_name;
75 *holdingdisk_seen = *Amanda::Configc::holdingdisk_seen;
76 *lookup_application = *Amanda::Configc::lookup_application;
77 *application_getconf = *Amanda::Configc::application_getconf;
78 *application_name = *Amanda::Configc::application_name;
79 *application_seen = *Amanda::Configc::application_seen;
80 *lookup_pp_script = *Amanda::Configc::lookup_pp_script;
81 *pp_script_getconf = *Amanda::Configc::pp_script_getconf;
82 *pp_script_name = *Amanda::Configc::pp_script_name;
83 *pp_script_seen = *Amanda::Configc::pp_script_seen;
84 *lookup_device_config = *Amanda::Configc::lookup_device_config;
85 *device_config_getconf = *Amanda::Configc::device_config_getconf;
86 *device_config_name = *Amanda::Configc::device_config_name;
87 *device_config_seen = *Amanda::Configc::device_config_seen;
88 *lookup_changer_config = *Amanda::Configc::lookup_changer_config;
89 *changer_config_getconf = *Amanda::Configc::changer_config_getconf;
90 *changer_config_name = *Amanda::Configc::changer_config_name;
91 *changer_config_seen = *Amanda::Configc::changer_config_seen;
92 *lookup_interactivity = *Amanda::Configc::lookup_interactivity;
93 *interactivity_getconf = *Amanda::Configc::interactivity_getconf;
94 *interactivity_name = *Amanda::Configc::interactivity_name;
95 *interactivity_seen = *Amanda::Configc::interactivity_seen;
96 *lookup_taperscan = *Amanda::Configc::lookup_taperscan;
97 *taperscan_getconf = *Amanda::Configc::taperscan_getconf;
98 *taperscan_name = *Amanda::Configc::taperscan_name;
99 *taperscan_seen = *Amanda::Configc::taperscan_seen;
100 *getconf_unit_divisor = *Amanda::Configc::getconf_unit_divisor;
101 *config_init = *Amanda::Configc::config_init;
102 *config_uninit = *Amanda::Configc::config_uninit;
103 *get_config_options = *Amanda::Configc::get_config_options;
104 *get_config_name = *Amanda::Configc::get_config_name;
105 *get_config_dir = *Amanda::Configc::get_config_dir;
106 *get_config_filename = *Amanda::Configc::get_config_filename;
107 *config_print_errors = *Amanda::Configc::config_print_errors;
108 *config_clear_errors = *Amanda::Configc::config_clear_errors;
109 *config_errors = *Amanda::Configc::config_errors;
110 *new_config_overrides = *Amanda::Configc::new_config_overrides;
111 *free_config_overrides = *Amanda::Configc::free_config_overrides;
112 *add_config_override = *Amanda::Configc::add_config_override;
113 *add_config_override_opt = *Amanda::Configc::add_config_override_opt;
114 *set_config_overrides = *Amanda::Configc::set_config_overrides;
115 *dump_configuration = *Amanda::Configc::dump_configuration;
116 *config_dir_relative = *Amanda::Configc::config_dir_relative;
117 *taperalgo2str = *Amanda::Configc::taperalgo2str;
118 *find_multiplier = *Amanda::Configc::find_multiplier;
119 *C_string_to_boolean = *Amanda::Configc::C_string_to_boolean;
120 *amandaify_property_name = *Amanda::Configc::amandaify_property_name;
122 # ------- VARIABLE STUBS --------
124 package Amanda::Config;
126 *CNF_ORG = *Amanda::Configc::CNF_ORG;
127 *CNF_CONF = *Amanda::Configc::CNF_CONF;
128 *CNF_AMDUMP_SERVER = *Amanda::Configc::CNF_AMDUMP_SERVER;
129 *CNF_INDEX_SERVER = *Amanda::Configc::CNF_INDEX_SERVER;
130 *CNF_TAPE_SERVER = *Amanda::Configc::CNF_TAPE_SERVER;
131 *CNF_AUTH = *Amanda::Configc::CNF_AUTH;
132 *CNF_SSH_KEYS = *Amanda::Configc::CNF_SSH_KEYS;
133 *CNF_AMANDAD_PATH = *Amanda::Configc::CNF_AMANDAD_PATH;
134 *CNF_CLIENT_USERNAME = *Amanda::Configc::CNF_CLIENT_USERNAME;
135 *CNF_CLIENT_PORT = *Amanda::Configc::CNF_CLIENT_PORT;
136 *CNF_GNUTAR_LIST_DIR = *Amanda::Configc::CNF_GNUTAR_LIST_DIR;
137 *CNF_AMANDATES = *Amanda::Configc::CNF_AMANDATES;
138 *CNF_MAILER = *Amanda::Configc::CNF_MAILER;
139 *CNF_MAILTO = *Amanda::Configc::CNF_MAILTO;
140 *CNF_DUMPUSER = *Amanda::Configc::CNF_DUMPUSER;
141 *CNF_TAPEDEV = *Amanda::Configc::CNF_TAPEDEV;
142 *CNF_DEVICE_PROPERTY = *Amanda::Configc::CNF_DEVICE_PROPERTY;
143 *CNF_PROPERTY = *Amanda::Configc::CNF_PROPERTY;
144 *CNF_CHANGERDEV = *Amanda::Configc::CNF_CHANGERDEV;
145 *CNF_CHANGERFILE = *Amanda::Configc::CNF_CHANGERFILE;
146 *CNF_LABELSTR = *Amanda::Configc::CNF_LABELSTR;
147 *CNF_AUTOLABEL = *Amanda::Configc::CNF_AUTOLABEL;
148 *CNF_META_AUTOLABEL = *Amanda::Configc::CNF_META_AUTOLABEL;
149 *CNF_TAPELIST = *Amanda::Configc::CNF_TAPELIST;
150 *CNF_DISKFILE = *Amanda::Configc::CNF_DISKFILE;
151 *CNF_INFOFILE = *Amanda::Configc::CNF_INFOFILE;
152 *CNF_LOGDIR = *Amanda::Configc::CNF_LOGDIR;
153 *CNF_INDEXDIR = *Amanda::Configc::CNF_INDEXDIR;
154 *CNF_TAPETYPE = *Amanda::Configc::CNF_TAPETYPE;
155 *CNF_DUMPCYCLE = *Amanda::Configc::CNF_DUMPCYCLE;
156 *CNF_RUNSPERCYCLE = *Amanda::Configc::CNF_RUNSPERCYCLE;
157 *CNF_TAPECYCLE = *Amanda::Configc::CNF_TAPECYCLE;
158 *CNF_NETUSAGE = *Amanda::Configc::CNF_NETUSAGE;
159 *CNF_INPARALLEL = *Amanda::Configc::CNF_INPARALLEL;
160 *CNF_DUMPORDER = *Amanda::Configc::CNF_DUMPORDER;
161 *CNF_BUMPPERCENT = *Amanda::Configc::CNF_BUMPPERCENT;
162 *CNF_BUMPSIZE = *Amanda::Configc::CNF_BUMPSIZE;
163 *CNF_BUMPMULT = *Amanda::Configc::CNF_BUMPMULT;
164 *CNF_BUMPDAYS = *Amanda::Configc::CNF_BUMPDAYS;
165 *CNF_TPCHANGER = *Amanda::Configc::CNF_TPCHANGER;
166 *CNF_RUNTAPES = *Amanda::Configc::CNF_RUNTAPES;
167 *CNF_MAXDUMPS = *Amanda::Configc::CNF_MAXDUMPS;
168 *CNF_ETIMEOUT = *Amanda::Configc::CNF_ETIMEOUT;
169 *CNF_DTIMEOUT = *Amanda::Configc::CNF_DTIMEOUT;
170 *CNF_CTIMEOUT = *Amanda::Configc::CNF_CTIMEOUT;
171 *CNF_DEVICE_OUTPUT_BUFFER_SIZE = *Amanda::Configc::CNF_DEVICE_OUTPUT_BUFFER_SIZE;
172 *CNF_PRINTER = *Amanda::Configc::CNF_PRINTER;
173 *CNF_AUTOFLUSH = *Amanda::Configc::CNF_AUTOFLUSH;
174 *CNF_RESERVE = *Amanda::Configc::CNF_RESERVE;
175 *CNF_MAXDUMPSIZE = *Amanda::Configc::CNF_MAXDUMPSIZE;
176 *CNF_COLUMNSPEC = *Amanda::Configc::CNF_COLUMNSPEC;
177 *CNF_AMRECOVER_DO_FSF = *Amanda::Configc::CNF_AMRECOVER_DO_FSF;
178 *CNF_AMRECOVER_CHECK_LABEL = *Amanda::Configc::CNF_AMRECOVER_CHECK_LABEL;
179 *CNF_AMRECOVER_CHANGER = *Amanda::Configc::CNF_AMRECOVER_CHANGER;
180 *CNF_TAPERALGO = *Amanda::Configc::CNF_TAPERALGO;
181 *CNF_FLUSH_THRESHOLD_DUMPED = *Amanda::Configc::CNF_FLUSH_THRESHOLD_DUMPED;
182 *CNF_FLUSH_THRESHOLD_SCHEDULED = *Amanda::Configc::CNF_FLUSH_THRESHOLD_SCHEDULED;
183 *CNF_TAPERFLUSH = *Amanda::Configc::CNF_TAPERFLUSH;
184 *CNF_DISPLAYUNIT = *Amanda::Configc::CNF_DISPLAYUNIT;
185 *CNF_KRB5KEYTAB = *Amanda::Configc::CNF_KRB5KEYTAB;
186 *CNF_KRB5PRINCIPAL = *Amanda::Configc::CNF_KRB5PRINCIPAL;
187 *CNF_LABEL_NEW_TAPES = *Amanda::Configc::CNF_LABEL_NEW_TAPES;
188 *CNF_USETIMESTAMPS = *Amanda::Configc::CNF_USETIMESTAMPS;
189 *CNF_REP_TRIES = *Amanda::Configc::CNF_REP_TRIES;
190 *CNF_CONNECT_TRIES = *Amanda::Configc::CNF_CONNECT_TRIES;
191 *CNF_REQ_TRIES = *Amanda::Configc::CNF_REQ_TRIES;
192 *CNF_DEBUG_AMANDAD = *Amanda::Configc::CNF_DEBUG_AMANDAD;
193 *CNF_DEBUG_RECOVERY = *Amanda::Configc::CNF_DEBUG_RECOVERY;
194 *CNF_DEBUG_AMIDXTAPED = *Amanda::Configc::CNF_DEBUG_AMIDXTAPED;
195 *CNF_DEBUG_AMINDEXD = *Amanda::Configc::CNF_DEBUG_AMINDEXD;
196 *CNF_DEBUG_AMRECOVER = *Amanda::Configc::CNF_DEBUG_AMRECOVER;
197 *CNF_DEBUG_AUTH = *Amanda::Configc::CNF_DEBUG_AUTH;
198 *CNF_DEBUG_EVENT = *Amanda::Configc::CNF_DEBUG_EVENT;
199 *CNF_DEBUG_HOLDING = *Amanda::Configc::CNF_DEBUG_HOLDING;
200 *CNF_DEBUG_PROTOCOL = *Amanda::Configc::CNF_DEBUG_PROTOCOL;
201 *CNF_DEBUG_PLANNER = *Amanda::Configc::CNF_DEBUG_PLANNER;
202 *CNF_DEBUG_DRIVER = *Amanda::Configc::CNF_DEBUG_DRIVER;
203 *CNF_DEBUG_DUMPER = *Amanda::Configc::CNF_DEBUG_DUMPER;
204 *CNF_DEBUG_CHUNKER = *Amanda::Configc::CNF_DEBUG_CHUNKER;
205 *CNF_DEBUG_TAPER = *Amanda::Configc::CNF_DEBUG_TAPER;
206 *CNF_DEBUG_SELFCHECK = *Amanda::Configc::CNF_DEBUG_SELFCHECK;
207 *CNF_DEBUG_SENDSIZE = *Amanda::Configc::CNF_DEBUG_SENDSIZE;
208 *CNF_DEBUG_SENDBACKUP = *Amanda::Configc::CNF_DEBUG_SENDBACKUP;
209 *CNF_RESERVED_UDP_PORT = *Amanda::Configc::CNF_RESERVED_UDP_PORT;
210 *CNF_RESERVED_TCP_PORT = *Amanda::Configc::CNF_RESERVED_TCP_PORT;
211 *CNF_UNRESERVED_TCP_PORT = *Amanda::Configc::CNF_UNRESERVED_TCP_PORT;
212 *CNF_HOLDINGDISK = *Amanda::Configc::CNF_HOLDINGDISK;
213 *CNF_SEND_AMREPORT_ON = *Amanda::Configc::CNF_SEND_AMREPORT_ON;
214 *CNF_TAPER_PARALLEL_WRITE = *Amanda::Configc::CNF_TAPER_PARALLEL_WRITE;
215 *CNF_RECOVERY_LIMIT = *Amanda::Configc::CNF_RECOVERY_LIMIT;
216 *CNF_INTERACTIVITY = *Amanda::Configc::CNF_INTERACTIVITY;
217 *CNF_TAPERSCAN = *Amanda::Configc::CNF_TAPERSCAN;
218 *TAPETYPE_COMMENT = *Amanda::Configc::TAPETYPE_COMMENT;
219 *TAPETYPE_LBL_TEMPL = *Amanda::Configc::TAPETYPE_LBL_TEMPL;
220 *TAPETYPE_BLOCKSIZE = *Amanda::Configc::TAPETYPE_BLOCKSIZE;
221 *TAPETYPE_READBLOCKSIZE = *Amanda::Configc::TAPETYPE_READBLOCKSIZE;
222 *TAPETYPE_LENGTH = *Amanda::Configc::TAPETYPE_LENGTH;
223 *TAPETYPE_FILEMARK = *Amanda::Configc::TAPETYPE_FILEMARK;
224 *TAPETYPE_SPEED = *Amanda::Configc::TAPETYPE_SPEED;
225 *TAPETYPE_PART_SIZE = *Amanda::Configc::TAPETYPE_PART_SIZE;
226 *TAPETYPE_PART_CACHE_TYPE = *Amanda::Configc::TAPETYPE_PART_CACHE_TYPE;
227 *TAPETYPE_PART_CACHE_DIR = *Amanda::Configc::TAPETYPE_PART_CACHE_DIR;
228 *TAPETYPE_PART_CACHE_MAX_SIZE = *Amanda::Configc::TAPETYPE_PART_CACHE_MAX_SIZE;
229 *DUMPTYPE_COMMENT = *Amanda::Configc::DUMPTYPE_COMMENT;
230 *DUMPTYPE_PROGRAM = *Amanda::Configc::DUMPTYPE_PROGRAM;
231 *DUMPTYPE_SRVCOMPPROG = *Amanda::Configc::DUMPTYPE_SRVCOMPPROG;
232 *DUMPTYPE_CLNTCOMPPROG = *Amanda::Configc::DUMPTYPE_CLNTCOMPPROG;
233 *DUMPTYPE_SRV_ENCRYPT = *Amanda::Configc::DUMPTYPE_SRV_ENCRYPT;
234 *DUMPTYPE_CLNT_ENCRYPT = *Amanda::Configc::DUMPTYPE_CLNT_ENCRYPT;
235 *DUMPTYPE_AMANDAD_PATH = *Amanda::Configc::DUMPTYPE_AMANDAD_PATH;
236 *DUMPTYPE_CLIENT_USERNAME = *Amanda::Configc::DUMPTYPE_CLIENT_USERNAME;
237 *DUMPTYPE_CLIENT_PORT = *Amanda::Configc::DUMPTYPE_CLIENT_PORT;
238 *DUMPTYPE_SSH_KEYS = *Amanda::Configc::DUMPTYPE_SSH_KEYS;
239 *DUMPTYPE_AUTH = *Amanda::Configc::DUMPTYPE_AUTH;
240 *DUMPTYPE_EXCLUDE = *Amanda::Configc::DUMPTYPE_EXCLUDE;
241 *DUMPTYPE_INCLUDE = *Amanda::Configc::DUMPTYPE_INCLUDE;
242 *DUMPTYPE_PRIORITY = *Amanda::Configc::DUMPTYPE_PRIORITY;
243 *DUMPTYPE_DUMPCYCLE = *Amanda::Configc::DUMPTYPE_DUMPCYCLE;
244 *DUMPTYPE_MAXDUMPS = *Amanda::Configc::DUMPTYPE_MAXDUMPS;
245 *DUMPTYPE_MAXPROMOTEDAY = *Amanda::Configc::DUMPTYPE_MAXPROMOTEDAY;
246 *DUMPTYPE_BUMPPERCENT = *Amanda::Configc::DUMPTYPE_BUMPPERCENT;
247 *DUMPTYPE_BUMPSIZE = *Amanda::Configc::DUMPTYPE_BUMPSIZE;
248 *DUMPTYPE_BUMPDAYS = *Amanda::Configc::DUMPTYPE_BUMPDAYS;
249 *DUMPTYPE_BUMPMULT = *Amanda::Configc::DUMPTYPE_BUMPMULT;
250 *DUMPTYPE_STARTTIME = *Amanda::Configc::DUMPTYPE_STARTTIME;
251 *DUMPTYPE_STRATEGY = *Amanda::Configc::DUMPTYPE_STRATEGY;
252 *DUMPTYPE_ESTIMATELIST = *Amanda::Configc::DUMPTYPE_ESTIMATELIST;
253 *DUMPTYPE_COMPRESS = *Amanda::Configc::DUMPTYPE_COMPRESS;
254 *DUMPTYPE_ENCRYPT = *Amanda::Configc::DUMPTYPE_ENCRYPT;
255 *DUMPTYPE_SRV_DECRYPT_OPT = *Amanda::Configc::DUMPTYPE_SRV_DECRYPT_OPT;
256 *DUMPTYPE_CLNT_DECRYPT_OPT = *Amanda::Configc::DUMPTYPE_CLNT_DECRYPT_OPT;
257 *DUMPTYPE_COMPRATE = *Amanda::Configc::DUMPTYPE_COMPRATE;
258 *DUMPTYPE_TAPE_SPLITSIZE = *Amanda::Configc::DUMPTYPE_TAPE_SPLITSIZE;
259 *DUMPTYPE_FALLBACK_SPLITSIZE = *Amanda::Configc::DUMPTYPE_FALLBACK_SPLITSIZE;
260 *DUMPTYPE_SPLIT_DISKBUFFER = *Amanda::Configc::DUMPTYPE_SPLIT_DISKBUFFER;
261 *DUMPTYPE_RECORD = *Amanda::Configc::DUMPTYPE_RECORD;
262 *DUMPTYPE_SKIP_INCR = *Amanda::Configc::DUMPTYPE_SKIP_INCR;
263 *DUMPTYPE_SKIP_FULL = *Amanda::Configc::DUMPTYPE_SKIP_FULL;
264 *DUMPTYPE_HOLDINGDISK = *Amanda::Configc::DUMPTYPE_HOLDINGDISK;
265 *DUMPTYPE_KENCRYPT = *Amanda::Configc::DUMPTYPE_KENCRYPT;
266 *DUMPTYPE_IGNORE = *Amanda::Configc::DUMPTYPE_IGNORE;
267 *DUMPTYPE_INDEX = *Amanda::Configc::DUMPTYPE_INDEX;
268 *DUMPTYPE_APPLICATION = *Amanda::Configc::DUMPTYPE_APPLICATION;
269 *DUMPTYPE_SCRIPTLIST = *Amanda::Configc::DUMPTYPE_SCRIPTLIST;
270 *DUMPTYPE_PROPERTY = *Amanda::Configc::DUMPTYPE_PROPERTY;
271 *DUMPTYPE_DATA_PATH = *Amanda::Configc::DUMPTYPE_DATA_PATH;
272 *DUMPTYPE_ALLOW_SPLIT = *Amanda::Configc::DUMPTYPE_ALLOW_SPLIT;
273 *DUMPTYPE_RECOVERY_LIMIT = *Amanda::Configc::DUMPTYPE_RECOVERY_LIMIT;
274 *DUMPTYPE_DUMP_LIMIT = *Amanda::Configc::DUMPTYPE_DUMP_LIMIT;
275 *INTER_COMMENT = *Amanda::Configc::INTER_COMMENT;
276 *INTER_MAXUSAGE = *Amanda::Configc::INTER_MAXUSAGE;
277 *HOLDING_COMMENT = *Amanda::Configc::HOLDING_COMMENT;
278 *HOLDING_DISKDIR = *Amanda::Configc::HOLDING_DISKDIR;
279 *HOLDING_DISKSIZE = *Amanda::Configc::HOLDING_DISKSIZE;
280 *HOLDING_CHUNKSIZE = *Amanda::Configc::HOLDING_CHUNKSIZE;
281 *APPLICATION_COMMENT = *Amanda::Configc::APPLICATION_COMMENT;
282 *APPLICATION_PLUGIN = *Amanda::Configc::APPLICATION_PLUGIN;
283 *APPLICATION_PROPERTY = *Amanda::Configc::APPLICATION_PROPERTY;
284 *APPLICATION_CLIENT_NAME = *Amanda::Configc::APPLICATION_CLIENT_NAME;
285 *PP_SCRIPT_COMMENT = *Amanda::Configc::PP_SCRIPT_COMMENT;
286 *PP_SCRIPT_PLUGIN = *Amanda::Configc::PP_SCRIPT_PLUGIN;
287 *PP_SCRIPT_PROPERTY = *Amanda::Configc::PP_SCRIPT_PROPERTY;
288 *PP_SCRIPT_EXECUTE_ON = *Amanda::Configc::PP_SCRIPT_EXECUTE_ON;
289 *PP_SCRIPT_EXECUTE_WHERE = *Amanda::Configc::PP_SCRIPT_EXECUTE_WHERE;
290 *PP_SCRIPT_ORDER = *Amanda::Configc::PP_SCRIPT_ORDER;
291 *PP_SCRIPT_SINGLE_EXECUTION = *Amanda::Configc::PP_SCRIPT_SINGLE_EXECUTION;
292 *PP_SCRIPT_CLIENT_NAME = *Amanda::Configc::PP_SCRIPT_CLIENT_NAME;
293 *DEVICE_CONFIG_COMMENT = *Amanda::Configc::DEVICE_CONFIG_COMMENT;
294 *DEVICE_CONFIG_TAPEDEV = *Amanda::Configc::DEVICE_CONFIG_TAPEDEV;
295 *DEVICE_CONFIG_DEVICE_PROPERTY = *Amanda::Configc::DEVICE_CONFIG_DEVICE_PROPERTY;
296 *CHANGER_CONFIG_COMMENT = *Amanda::Configc::CHANGER_CONFIG_COMMENT;
297 *CHANGER_CONFIG_TAPEDEV = *Amanda::Configc::CHANGER_CONFIG_TAPEDEV;
298 *CHANGER_CONFIG_TPCHANGER = *Amanda::Configc::CHANGER_CONFIG_TPCHANGER;
299 *CHANGER_CONFIG_CHANGERDEV = *Amanda::Configc::CHANGER_CONFIG_CHANGERDEV;
300 *CHANGER_CONFIG_CHANGERFILE = *Amanda::Configc::CHANGER_CONFIG_CHANGERFILE;
301 *CHANGER_CONFIG_PROPERTY = *Amanda::Configc::CHANGER_CONFIG_PROPERTY;
302 *CHANGER_CONFIG_DEVICE_PROPERTY = *Amanda::Configc::CHANGER_CONFIG_DEVICE_PROPERTY;
303 *INTERACTIVITY_COMMENT = *Amanda::Configc::INTERACTIVITY_COMMENT;
304 *INTERACTIVITY_PLUGIN = *Amanda::Configc::INTERACTIVITY_PLUGIN;
305 *INTERACTIVITY_PROPERTY = *Amanda::Configc::INTERACTIVITY_PROPERTY;
306 *TAPERSCAN_COMMENT = *Amanda::Configc::TAPERSCAN_COMMENT;
307 *TAPERSCAN_PLUGIN = *Amanda::Configc::TAPERSCAN_PLUGIN;
308 *TAPERSCAN_PROPERTY = *Amanda::Configc::TAPERSCAN_PROPERTY;
309 *HOLD_NEVER = *Amanda::Configc::HOLD_NEVER;
310 *HOLD_AUTO = *Amanda::Configc::HOLD_AUTO;
311 *HOLD_REQUIRED = *Amanda::Configc::HOLD_REQUIRED;
312 *COMP_NONE = *Amanda::Configc::COMP_NONE;
313 *COMP_FAST = *Amanda::Configc::COMP_FAST;
314 *COMP_BEST = *Amanda::Configc::COMP_BEST;
315 *COMP_CUST = *Amanda::Configc::COMP_CUST;
316 *COMP_SERVER_FAST = *Amanda::Configc::COMP_SERVER_FAST;
317 *COMP_SERVER_BEST = *Amanda::Configc::COMP_SERVER_BEST;
318 *COMP_SERVER_CUST = *Amanda::Configc::COMP_SERVER_CUST;
319 *ENCRYPT_NONE = *Amanda::Configc::ENCRYPT_NONE;
320 *ENCRYPT_CUST = *Amanda::Configc::ENCRYPT_CUST;
321 *ENCRYPT_SERV_CUST = *Amanda::Configc::ENCRYPT_SERV_CUST;
322 *DS_SKIP = *Amanda::Configc::DS_SKIP;
323 *DS_STANDARD = *Amanda::Configc::DS_STANDARD;
324 *DS_NOFULL = *Amanda::Configc::DS_NOFULL;
325 *DS_NOINC = *Amanda::Configc::DS_NOINC;
326 *DS_4 = *Amanda::Configc::DS_4;
327 *DS_5 = *Amanda::Configc::DS_5;
328 *DS_HANOI = *Amanda::Configc::DS_HANOI;
329 *DS_INCRONLY = *Amanda::Configc::DS_INCRONLY;
330 *ES_CLIENT = *Amanda::Configc::ES_CLIENT;
331 *ES_SERVER = *Amanda::Configc::ES_SERVER;
332 *ES_CALCSIZE = *Amanda::Configc::ES_CALCSIZE;
333 *AL_OTHER_CONFIG = *Amanda::Configc::AL_OTHER_CONFIG;
334 *AL_NON_AMANDA = *Amanda::Configc::AL_NON_AMANDA;
335 *AL_VOLUME_ERROR = *Amanda::Configc::AL_VOLUME_ERROR;
336 *AL_EMPTY = *Amanda::Configc::AL_EMPTY;
337 *ALGO_FIRST = *Amanda::Configc::ALGO_FIRST;
338 *ALGO_FIRSTFIT = *Amanda::Configc::ALGO_FIRSTFIT;
339 *ALGO_LARGEST = *Amanda::Configc::ALGO_LARGEST;
340 *ALGO_LARGESTFIT = *Amanda::Configc::ALGO_LARGESTFIT;
341 *ALGO_SMALLEST = *Amanda::Configc::ALGO_SMALLEST;
342 *ALGO_LAST = *Amanda::Configc::ALGO_LAST;
343 *EXECUTE_ON_PRE_AMCHECK = *Amanda::Configc::EXECUTE_ON_PRE_AMCHECK;
344 *EXECUTE_ON_PRE_DLE_AMCHECK = *Amanda::Configc::EXECUTE_ON_PRE_DLE_AMCHECK;
345 *EXECUTE_ON_PRE_HOST_AMCHECK = *Amanda::Configc::EXECUTE_ON_PRE_HOST_AMCHECK;
346 *EXECUTE_ON_POST_AMCHECK = *Amanda::Configc::EXECUTE_ON_POST_AMCHECK;
347 *EXECUTE_ON_POST_DLE_AMCHECK = *Amanda::Configc::EXECUTE_ON_POST_DLE_AMCHECK;
348 *EXECUTE_ON_POST_HOST_AMCHECK = *Amanda::Configc::EXECUTE_ON_POST_HOST_AMCHECK;
349 *EXECUTE_ON_PRE_ESTIMATE = *Amanda::Configc::EXECUTE_ON_PRE_ESTIMATE;
350 *EXECUTE_ON_PRE_DLE_ESTIMATE = *Amanda::Configc::EXECUTE_ON_PRE_DLE_ESTIMATE;
351 *EXECUTE_ON_PRE_HOST_ESTIMATE = *Amanda::Configc::EXECUTE_ON_PRE_HOST_ESTIMATE;
352 *EXECUTE_ON_POST_ESTIMATE = *Amanda::Configc::EXECUTE_ON_POST_ESTIMATE;
353 *EXECUTE_ON_POST_DLE_ESTIMATE = *Amanda::Configc::EXECUTE_ON_POST_DLE_ESTIMATE;
354 *EXECUTE_ON_POST_HOST_ESTIMATE = *Amanda::Configc::EXECUTE_ON_POST_HOST_ESTIMATE;
355 *EXECUTE_ON_PRE_BACKUP = *Amanda::Configc::EXECUTE_ON_PRE_BACKUP;
356 *EXECUTE_ON_PRE_DLE_BACKUP = *Amanda::Configc::EXECUTE_ON_PRE_DLE_BACKUP;
357 *EXECUTE_ON_PRE_HOST_BACKUP = *Amanda::Configc::EXECUTE_ON_PRE_HOST_BACKUP;
358 *EXECUTE_ON_POST_BACKUP = *Amanda::Configc::EXECUTE_ON_POST_BACKUP;
359 *EXECUTE_ON_POST_DLE_BACKUP = *Amanda::Configc::EXECUTE_ON_POST_DLE_BACKUP;
360 *EXECUTE_ON_POST_HOST_BACKUP = *Amanda::Configc::EXECUTE_ON_POST_HOST_BACKUP;
361 *SEND_AMREPORT_ALL = *Amanda::Configc::SEND_AMREPORT_ALL;
362 *SEND_AMREPORT_STRANGE = *Amanda::Configc::SEND_AMREPORT_STRANGE;
363 *SEND_AMREPORT_ERROR = *Amanda::Configc::SEND_AMREPORT_ERROR;
364 *SEND_AMREPORT_NEVER = *Amanda::Configc::SEND_AMREPORT_NEVER;
365 *DATA_PATH_AMANDA = *Amanda::Configc::DATA_PATH_AMANDA;
366 *DATA_PATH_DIRECTTCP = *Amanda::Configc::DATA_PATH_DIRECTTCP;
367 *PART_CACHE_TYPE_NONE = *Amanda::Configc::PART_CACHE_TYPE_NONE;
368 *PART_CACHE_TYPE_DISK = *Amanda::Configc::PART_CACHE_TYPE_DISK;
369 *PART_CACHE_TYPE_MEMORY = *Amanda::Configc::PART_CACHE_TYPE_MEMORY;
370 *debug_amandad = *Amanda::Configc::debug_amandad;
371 *debug_recovery = *Amanda::Configc::debug_recovery;
372 *debug_amidxtaped = *Amanda::Configc::debug_amidxtaped;
373 *debug_amindexd = *Amanda::Configc::debug_amindexd;
374 *debug_amrecover = *Amanda::Configc::debug_amrecover;
375 *debug_auth = *Amanda::Configc::debug_auth;
376 *debug_event = *Amanda::Configc::debug_event;
377 *debug_holding = *Amanda::Configc::debug_holding;
378 *debug_protocol = *Amanda::Configc::debug_protocol;
379 *debug_planner = *Amanda::Configc::debug_planner;
380 *debug_driver = *Amanda::Configc::debug_driver;
381 *debug_dumper = *Amanda::Configc::debug_dumper;
382 *debug_chunker = *Amanda::Configc::debug_chunker;
383 *debug_taper = *Amanda::Configc::debug_taper;
384 *debug_selfcheck = *Amanda::Configc::debug_selfcheck;
385 *debug_sendsize = *Amanda::Configc::debug_sendsize;
386 *debug_sendbackup = *Amanda::Configc::debug_sendbackup;
387 *CFGERR_OK = *Amanda::Configc::CFGERR_OK;
388 *CFGERR_WARNINGS = *Amanda::Configc::CFGERR_WARNINGS;
389 *CFGERR_ERRORS = *Amanda::Configc::CFGERR_ERRORS;
390 *CONFIG_INIT_EXPLICIT_NAME = *Amanda::Configc::CONFIG_INIT_EXPLICIT_NAME;
391 *CONFIG_INIT_USE_CWD = *Amanda::Configc::CONFIG_INIT_USE_CWD;
392 *CONFIG_INIT_CLIENT = *Amanda::Configc::CONFIG_INIT_CLIENT;
393 *CONFIG_INIT_OVERLAY = *Amanda::Configc::CONFIG_INIT_OVERLAY;
401 Amanda::Config - access to Amanda configuration parameters
405 use Amanda::Config qw( :init :getconf );
407 my $config_name = shift @ARGV;
408 config_init($CONFIG_INIT_EXPLICIT_NAME, $config_name);
409 apply_config_overrides($config_overrides);
410 my ($cfgerr_level, @cfgerr_errors) = config_errors();
411 if ($cfgerr_level >= $CFGERR_WARNINGS) {
412 config_print_errors();
413 if ($cfgerr_level >= $CFGERR_ERRORS) {
414 die("errors processing config file");
418 print "tape device is ", getconf($CNF_TAPEDEV), "\n";
420 This API closely parallels the C API.
422 =head1 INITIALIZATION
424 The Amanda configuration is treated as a global state for the
425 application. It is not possible to load two configurations
428 All initialization-related symbols can be imported with the tag
431 =head2 LOADING CONFIGURATION
433 The Amanda configuration is loaded with the aptly named
434 C<config_init($flags, $name)>. Because of the great variety in
435 invocation method among Amanda applications, this function has a number
436 of flags that affect its behavior. These flags can be OR'd together.
440 =item If C<CONFIG_INIT_EXPLICIT_NAME> is given, then the C<$name> parameter can
441 contain the name of a configuration to load. Note that if the parameter is
442 C<".">, this is equivalent to C<CONFIG_INIT_USE_CWD>.
444 =item If C<CONFIG_INIT_USE_CWD> is given, and if the current directory
445 contains C<amanda.conf>, then that file is loaded.
447 =item If C<CONFIG_INIT_CLIENT> is given, then a client configuration
450 =item If C<CONFIG_INIT_OVERLAY> is given, then any existing
451 configuration is not reset.
455 See C<conffile.h> for more detailed information on these flags and
458 C<config_uninit()> reverses the effects of C<config_init>. It is
461 Once the configuration is loaded, the configuration name
462 (e.g., "DailySet1"), directory (C</etc/amanda/DailySet1>),
463 and filename (C</etc/amanda/DailySet1/amanda.conf>) are
464 available from C<get_config_name()>, C<get_config_dir()>, and
465 C<get_config_filename()>, respectively.
469 This module collects configuration errors and warnings in a list, and also
470 tracks the overall error level with an enumeration: C<$CFGERR_OK>,
471 C<$CFGERR_WARNINGS>, and C<$CFGERR_ERRORS>. C<config_init> and
472 C<apply_config_overrides> both return the current level. The level and the
473 list of error messages are available from C<config_errors>:
475 my ($cfgerr_level, @errors) = Amanda::Config::config_errors();
477 As a convenience, C<config_print_errors> will print all error messages to
478 stderr. The error state can be cleared with C<config_clear_errors>.
480 =head2 CONFIG OVERWRITES
482 Most Amanda applications accept the command-line option C<-o>
483 to "overwrite" configuration values in C<amanda.conf>. In Perl
484 applications, these options should be parsed with L<Getopt::Long|Getopt::Long>, with
485 the action being a call to C<add_config_override_opt>. For example:
487 my $config_overrides = new_config_overrides($#ARGV+1);
490 'o=s' => sub { add_config_override_opt($config_overrides, $_[1]); },
492 my $cfg_ok = config_init($CONFIG_INIT_EXPLICIT_NAME | $CONFIG_INIT_USE_CWD, $config_name);
493 apply_config_overrides($config_overrides);
495 C<new_config_overrides($size_estimate)> creates a new
496 overwrites object, using the given size as an estimate of
497 the number of items it will contain (C<$#ARGC/2> is a good
498 estimate). Individual configuration options are then added via
499 C<add_config_override($co, $key, $value)> (which takes a key/value
500 pair) or C<add_config_override_opt($co, $optarg)>, which parses a
501 string following C<-o> on the command line.
503 Once the overwrites are gathered, they are applied with
504 C<apply_config_overrides($co)>, which applies the overwrites to the
505 active configuration. No further operations can be performed on the
506 overwrites object after C<apply_config_overrides> has been called.
508 The utility function C<get_config_options()> returns a list of
509 command-line arguments to represent any overwrites that were used
510 to generate the current configuration. (TODO: this function isn't
513 =head1 PARAMETER ACCESS
515 Amanda configurations consist of "global" parameters and several
516 sets of "subsections" -- one set for dumptypes, one for tapetypes,
519 All of the global parameters are represented by a constant beginning with
520 C<$CNF_>, e.g., C<$CNF_LABELSTR>. The function C<getconf($cnf)> returns the
521 value of parameter C<$cnf>, in whatever format is appropriate for the parameter
522 (see DATA FORMATS, below). C<getconf_seen($cnf)> returns a true value if
523 C<$cnf> was seen in the configuration file. If it was not seen, then it will
524 have its default value. C<getconf_linenum($cnf)> returns the line number in
525 the configuration file where it is set, 0 if it is not in a configuration file,
526 or -2 if it is set in a command line argument.
528 Some parameters have enumerated types. The values for those
529 enumerations are available from this module with the same name as
530 in C<conffile.h>. For example, C<$CNF_TAPERALGO> will yield a value
531 from the enumeration C<taperalgo_t>, the constants for which all
532 begin with C<$ALGO_>. See C<conffile.h> for the details.
534 Each subsection type C<TYP> has the following functions:
538 =item C<lookup_TYP($subsec_name)>
540 which returns an opaque object
541 (C<$ss>) representing the subsection, or C<undef> if no subsection
542 with that name exists;
544 =item C<TYP_name($ss)>
546 returning the name of the subsection;
548 =item C<TYP_getconf($ss, $cnf)>
550 which fetches a parameter value from C<$ss>; and
552 =item C<TYP_seen($ss, $cnf)>
554 which returns a true value if <$cnf> was seen in the subsection.
564 with constants beginning with C<$TAPETYPE_>
568 with constants beginning with C<$DUMPTYPE_>
572 with constants beginning with C<$INTER_>
576 with constants beginning with C<$HOLDING_>
580 with constants beginning with C<$APPLICATION_>
584 with constants beginning with C<$PP_SCRIPT_>
588 with constants beginning with C<$DEVICE_CONFIG_>.
592 with constants beginning with C<$CHANGER_CONFIG_>.
596 See C<conffile.h> for the names of the constants themselves.
600 Each configuration parameter has a "conftype", as assigned in
601 C<common-src/conffile.c>. The translation of most of these types into Perl
602 values is straightforward:
604 CONFTYPE_INT Math::BigInt
605 CONFTYPE_INT64 Math::BigInt
606 CONFTYPE_REAL floating-point value
608 CONFTYPE_IDENT string
609 CONFTYPE_TIME Math::BigInt (epoch value)
610 CONFTYPE_SIZE Math::BigInt
611 CONFTYPE_BOOLEAN Math::BigInt
612 CONFTYPE_COMPRESS Math::BigInt
613 CONFTYPE_ENCRYPT Math::BigInt
614 CONFTYPE_HOLDING Math::BigInt
615 CONFTYPE_ESTIMATELIST [ Math::BigInt, .. ]
616 CONFTYPE_STRATEGY Math::BigInt
617 CONFTYPE_TAPERALGO Math::BigInt
618 CONFTYPE_PRIORITY Math::BigInt
619 CONFTYPE_RATE float, float
620 CONFTYPE_INTRANGE Math::BigInt, Math::BigInt
621 CONFTYPE_APPLICATION string
622 CONFTYPE_EXECUTE_ON string
623 CONFTYPE_EXECUTE_WHERE Math::BigInt
624 CONFTYPE_SEND_AMREPORT_ON Math::BigInt
625 CONFTYPE_IDENTLIST [ string, .. ]
626 CONFTYPE_PART_CACHE_TYPE Math::BigInt
627 CONFTYPE_RECOVERY_LIMIT [ string, .. ] (undef if not specified;
628 undef in the list means same-host)
630 Note that C<CONFTYPE_INTRANGE> and C<CONFTYPE_RATE> each return two values, not
633 Include and exclude lists with type C<CONFTYPE_EXINCLUDE> return a hash giving
634 all listed filenames (in the C<list> key), include/exclude files (C<files>),
635 and a boolean indicating that the list is optional (C<optional>):
637 { list => [ str, .. ], file => [ str, .. ], optional => Math::BigInt }
639 Properties are represented as a hash of hashes. The keys are the property
640 names, converted to ASCII lowercase. Each property has a C<values> array
641 giving all values specified for this property, as well as booleans C<priority>
642 and C<append> that are true if the corresponding keyword was supplied.
644 { prop1 => { values => [ str, .. ] priority => int, append => int },
647 Note that integer types of all sizes become C<Math::BigInt> objects rather than
648 Perl integers, as is the habit throughout Amanda.
650 The C<CNF_AUTOLABEL> value is a hash with the following keys
652 template label template, or undef
660 Parameter values are available by name from C<getconf_byname($name)> and
661 C<getconf_byname_strs($name, $str_needs_quotes)>. These functions implement
662 the C<TYP:NAME:PARAM> syntax advertised by C<amgetconf> to access values in
663 subsections. The first function returns a Perl value (see DATA FORMATS,
664 above), while the second returns a list of strings suitable for use in
665 C<amanda.conf>, including quotes around strings if C<$str_needs_quotes> is
668 C<getconf_list($typ)> returns a list of the names of all subsections of the
669 given type. C<%subsection_names> is a hash whose keys are allowed subsection
672 =head2 DERIVED VALUES
674 The C<$CNF_DISPLAYUNIT> implies a certain divisor to convert from
675 kilobytes to the desired unit. This divisor is available from
676 C<getconf_unit_divisor()>. Note carefully that it is a I<divisor>
677 for a value in I<kilobytes>!
679 Finally, various subsections of Amanda enable verbose debugging via
680 configuration parameters. The status of each parameter is available
681 a similarly-named variable, e.g., C<$debug_auth>.
683 All parameter access functions and constants can be imported with
688 These functions defy categorization.
690 The function C<config_dir_relative> will interpret a path relative to
691 the current configuration directory. Absolute paths are passed through
692 unchanged, while relative paths are converted to absolute paths.
694 C<dump_configuration()> dumps the current configuration, in a format
695 suitable for re-evaluation for this module, to standard output.
696 This function may be revised to return a string.
698 Several parts of Amanda need to convert unit modifier value like
699 "gbytes" to a multiplier. The function C<find_multiplier($str)>
700 returns the unit multiplier for such a string. For example, "mbytes"
701 is converted to 1048576 (1024*1024).
703 C<string_to_boolean()> takes a string and returns 0 if it matches any of
704 Amanda's names for false, or 1 if matches a name for true. If it can't be
705 interpreted, C<undef> is returned.
707 C<amandaify_property_name()> converts a string into Amanda's property style:
708 all lower-case and with "-" replacing "_".
712 This section lists all of the configuration parameter constants defined in this
713 module. All of these constants are available with the C<:getconf> export tag.
718 push @EXPORT_OK, qw(confparm_key_to_string);
719 push @{$EXPORT_TAGS{"confparm_key"}}, qw(confparm_key_to_string);
721 my %_confparm_key_VALUES;
722 #Convert an enum value to a single string
723 sub confparm_key_to_string {
726 for my $k (keys %_confparm_key_VALUES) {
727 my $v = $_confparm_key_VALUES{$k};
729 #is this a matching flag?
730 if ($enumval == $v) {
735 #default, just return the number
739 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_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);
740 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_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);
741 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_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)) { $_confparm_key_VALUES{$_} = $$_; }
742 #copy symbols in confparm_key to getconf
743 push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"confparm_key"}};
746 use Amanda::Config::FoldingHash;
750 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_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>
754 push @EXPORT_OK, qw(tapetype_key_to_string);
755 push @{$EXPORT_TAGS{"tapetype_key"}}, qw(tapetype_key_to_string);
757 my %_tapetype_key_VALUES;
758 #Convert an enum value to a single string
759 sub tapetype_key_to_string {
762 for my $k (keys %_tapetype_key_VALUES) {
763 my $v = $_tapetype_key_VALUES{$k};
765 #is this a matching flag?
766 if ($enumval == $v) {
771 #default, just return the number
775 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);
776 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);
777 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{$_} = $$_; }
778 #copy symbols in tapetype_key to getconf
779 push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"tapetype_key"}};
782 use Amanda::Config::FoldingHash;
786 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>
790 push @EXPORT_OK, qw(dumptype_key_to_string);
791 push @{$EXPORT_TAGS{"dumptype_key"}}, qw(dumptype_key_to_string);
793 my %_dumptype_key_VALUES;
794 #Convert an enum value to a single string
795 sub dumptype_key_to_string {
798 for my $k (keys %_dumptype_key_VALUES) {
799 my $v = $_dumptype_key_VALUES{$k};
801 #is this a matching flag?
802 if ($enumval == $v) {
807 #default, just return the number
811 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_RECOVERY_LIMIT $DUMPTYPE_DUMP_LIMIT);
812 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_RECOVERY_LIMIT $DUMPTYPE_DUMP_LIMIT);
813 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_RECOVERY_LIMIT DUMPTYPE_DUMP_LIMIT)) { $_dumptype_key_VALUES{$_} = $$_; }
814 #copy symbols in dumptype_key to getconf
815 push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"dumptype_key"}};
818 use Amanda::Config::FoldingHash;
822 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_RECOVERY_LIMIT> C<$DUMPTYPE_DUMP_LIMIT>
826 push @EXPORT_OK, qw(interface_key_to_string);
827 push @{$EXPORT_TAGS{"interface_key"}}, qw(interface_key_to_string);
829 my %_interface_key_VALUES;
830 #Convert an enum value to a single string
831 sub interface_key_to_string {
834 for my $k (keys %_interface_key_VALUES) {
835 my $v = $_interface_key_VALUES{$k};
837 #is this a matching flag?
838 if ($enumval == $v) {
843 #default, just return the number
847 push @EXPORT_OK, qw( $INTER_COMMENT $INTER_MAXUSAGE);
848 push @{$EXPORT_TAGS{"interface_key"}}, qw( $INTER_COMMENT $INTER_MAXUSAGE);
849 foreach (qw( INTER_COMMENT INTER_MAXUSAGE)) { $_interface_key_VALUES{$_} = $$_; }
850 #copy symbols in interface_key to getconf
851 push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"interface_key"}};
854 use Amanda::Config::FoldingHash;
858 Dumptype Parameters: C<$INTER_COMMENT> C<$INTER_MAXUSAGE>
862 push @EXPORT_OK, qw(holdingdisk_key_to_string);
863 push @{$EXPORT_TAGS{"holdingdisk_key"}}, qw(holdingdisk_key_to_string);
865 my %_holdingdisk_key_VALUES;
866 #Convert an enum value to a single string
867 sub holdingdisk_key_to_string {
870 for my $k (keys %_holdingdisk_key_VALUES) {
871 my $v = $_holdingdisk_key_VALUES{$k};
873 #is this a matching flag?
874 if ($enumval == $v) {
879 #default, just return the number
883 push @EXPORT_OK, qw( $HOLDING_COMMENT $HOLDING_DISKDIR $HOLDING_DISKSIZE $HOLDING_CHUNKSIZE);
884 push @{$EXPORT_TAGS{"holdingdisk_key"}}, qw( $HOLDING_COMMENT $HOLDING_DISKDIR $HOLDING_DISKSIZE $HOLDING_CHUNKSIZE);
885 foreach (qw( HOLDING_COMMENT HOLDING_DISKDIR HOLDING_DISKSIZE HOLDING_CHUNKSIZE)) { $_holdingdisk_key_VALUES{$_} = $$_; }
886 #copy symbols in holdingdisk_key to getconf
887 push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"holdingdisk_key"}};
890 use Amanda::Config::FoldingHash;
894 Holdingdisk Parameters: C<$HOLDING_COMMENT> C<$HOLDING_DISKDIR> C<$HOLDING_DISKSIZE> C<$HOLDING_CHUNKSIZE>
898 push @EXPORT_OK, qw(application_key_to_string);
899 push @{$EXPORT_TAGS{"application_key"}}, qw(application_key_to_string);
901 my %_application_key_VALUES;
902 #Convert an enum value to a single string
903 sub application_key_to_string {
906 for my $k (keys %_application_key_VALUES) {
907 my $v = $_application_key_VALUES{$k};
909 #is this a matching flag?
910 if ($enumval == $v) {
915 #default, just return the number
919 push @EXPORT_OK, qw( $APPLICATION_COMMENT $APPLICATION_PLUGIN $APPLICATION_PROPERTY $APPLICATION_CLIENT_NAME);
920 push @{$EXPORT_TAGS{"application_key"}}, qw( $APPLICATION_COMMENT $APPLICATION_PLUGIN $APPLICATION_PROPERTY $APPLICATION_CLIENT_NAME);
921 foreach (qw( APPLICATION_COMMENT APPLICATION_PLUGIN APPLICATION_PROPERTY APPLICATION_CLIENT_NAME)) { $_application_key_VALUES{$_} = $$_; }
922 #copy symbols in application_key to getconf
923 push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"application_key"}};
926 use Amanda::Config::FoldingHash;
930 Application Parameters: C<$APPLICATION_COMMENT> C<$APPLICATION_PLUGIN> C<$APPLICATION_PROPERTY> C<$APPLICATION_CLIENT_NAME>
934 push @EXPORT_OK, qw(pp_script_key_to_string);
935 push @{$EXPORT_TAGS{"pp_script_key"}}, qw(pp_script_key_to_string);
937 my %_pp_script_key_VALUES;
938 #Convert an enum value to a single string
939 sub pp_script_key_to_string {
942 for my $k (keys %_pp_script_key_VALUES) {
943 my $v = $_pp_script_key_VALUES{$k};
945 #is this a matching flag?
946 if ($enumval == $v) {
951 #default, just return the number
955 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);
956 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);
957 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{$_} = $$_; }
958 #copy symbols in pp_script_key to getconf
959 push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"pp_script_key"}};
962 use Amanda::Config::FoldingHash;
966 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>
970 push @EXPORT_OK, qw(device_config_key_to_string);
971 push @{$EXPORT_TAGS{"device_config_key"}}, qw(device_config_key_to_string);
973 my %_device_config_key_VALUES;
974 #Convert an enum value to a single string
975 sub device_config_key_to_string {
978 for my $k (keys %_device_config_key_VALUES) {
979 my $v = $_device_config_key_VALUES{$k};
981 #is this a matching flag?
982 if ($enumval == $v) {
987 #default, just return the number
991 push @EXPORT_OK, qw( $DEVICE_CONFIG_COMMENT $DEVICE_CONFIG_TAPEDEV $DEVICE_CONFIG_DEVICE_PROPERTY);
992 push @{$EXPORT_TAGS{"device_config_key"}}, qw( $DEVICE_CONFIG_COMMENT $DEVICE_CONFIG_TAPEDEV $DEVICE_CONFIG_DEVICE_PROPERTY);
993 foreach (qw( DEVICE_CONFIG_COMMENT DEVICE_CONFIG_TAPEDEV DEVICE_CONFIG_DEVICE_PROPERTY)) { $_device_config_key_VALUES{$_} = $$_; }
994 #copy symbols in device_config_key to getconf
995 push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"device_config_key"}};
998 use Amanda::Config::FoldingHash;
1002 Pre/Post-Script Parameters: C<$DEVICE_CONFIG_COMMENT> C<$DEVICE_CONFIG_TAPEDEV> C<$DEVICE_CONFIG_DEVICE_PROPERTY>
1006 push @EXPORT_OK, qw(changer_config_key_to_string);
1007 push @{$EXPORT_TAGS{"changer_config_key"}}, qw(changer_config_key_to_string);
1009 my %_changer_config_key_VALUES;
1010 #Convert an enum value to a single string
1011 sub changer_config_key_to_string {
1014 for my $k (keys %_changer_config_key_VALUES) {
1015 my $v = $_changer_config_key_VALUES{$k};
1017 #is this a matching flag?
1018 if ($enumval == $v) {
1023 #default, just return the number
1027 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);
1028 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);
1029 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{$_} = $$_; }
1030 #copy symbols in changer_config_key to getconf
1031 push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"changer_config_key"}};
1034 use Amanda::Config::FoldingHash;
1038 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>
1042 push @EXPORT_OK, qw(interactivity_key_to_string);
1043 push @{$EXPORT_TAGS{"interactivity_key"}}, qw(interactivity_key_to_string);
1045 my %_interactivity_key_VALUES;
1046 #Convert an enum value to a single string
1047 sub interactivity_key_to_string {
1050 for my $k (keys %_interactivity_key_VALUES) {
1051 my $v = $_interactivity_key_VALUES{$k};
1053 #is this a matching flag?
1054 if ($enumval == $v) {
1059 #default, just return the number
1063 push @EXPORT_OK, qw( $INTERACTIVITY_COMMENT $INTERACTIVITY_PLUGIN $INTERACTIVITY_PROPERTY);
1064 push @{$EXPORT_TAGS{"interactivity_key"}}, qw( $INTERACTIVITY_COMMENT $INTERACTIVITY_PLUGIN $INTERACTIVITY_PROPERTY);
1065 foreach (qw( INTERACTIVITY_COMMENT INTERACTIVITY_PLUGIN INTERACTIVITY_PROPERTY)) { $_interactivity_key_VALUES{$_} = $$_; }
1066 #copy symbols in interactivity_key to getconf
1067 push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"interactivity_key"}};
1070 use Amanda::Config::FoldingHash;
1074 Interactivity Parameters: C<$INTERACTIVITY_COMMENT> C<$INTERACTIVITY_PLUGIN> C<$INTERACTIVITY_PROPERTY>
1078 push @EXPORT_OK, qw(taperscan_key_to_string);
1079 push @{$EXPORT_TAGS{"taperscan_key"}}, qw(taperscan_key_to_string);
1081 my %_taperscan_key_VALUES;
1082 #Convert an enum value to a single string
1083 sub taperscan_key_to_string {
1086 for my $k (keys %_taperscan_key_VALUES) {
1087 my $v = $_taperscan_key_VALUES{$k};
1089 #is this a matching flag?
1090 if ($enumval == $v) {
1095 #default, just return the number
1099 push @EXPORT_OK, qw( $TAPERSCAN_COMMENT $TAPERSCAN_PLUGIN $TAPERSCAN_PROPERTY);
1100 push @{$EXPORT_TAGS{"taperscan_key"}}, qw( $TAPERSCAN_COMMENT $TAPERSCAN_PLUGIN $TAPERSCAN_PROPERTY);
1101 foreach (qw( TAPERSCAN_COMMENT TAPERSCAN_PLUGIN TAPERSCAN_PROPERTY)) { $_taperscan_key_VALUES{$_} = $$_; }
1102 #copy symbols in taperscan_key to getconf
1103 push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"taperscan_key"}};
1106 use Amanda::Config::FoldingHash;
1110 Taperscan Parameters: C<$TAPERSCAN_COMMENT> C<$TAPERSCAN_PLUGIN> C<$TAPERSCAN_PROPERTY>
1114 push @EXPORT_OK, qw(dump_holdingdisk_t_to_string);
1115 push @{$EXPORT_TAGS{"dump_holdingdisk_t"}}, qw(dump_holdingdisk_t_to_string);
1117 my %_dump_holdingdisk_t_VALUES;
1118 #Convert an enum value to a single string
1119 sub dump_holdingdisk_t_to_string {
1122 for my $k (keys %_dump_holdingdisk_t_VALUES) {
1123 my $v = $_dump_holdingdisk_t_VALUES{$k};
1125 #is this a matching flag?
1126 if ($enumval == $v) {
1131 #default, just return the number
1135 push @EXPORT_OK, qw($HOLD_NEVER);
1136 push @{$EXPORT_TAGS{"dump_holdingdisk_t"}}, qw($HOLD_NEVER);
1138 $_dump_holdingdisk_t_VALUES{"HOLD_NEVER"} = $HOLD_NEVER;
1140 push @EXPORT_OK, qw($HOLD_AUTO);
1141 push @{$EXPORT_TAGS{"dump_holdingdisk_t"}}, qw($HOLD_AUTO);
1143 $_dump_holdingdisk_t_VALUES{"HOLD_AUTO"} = $HOLD_AUTO;
1145 push @EXPORT_OK, qw($HOLD_REQUIRED);
1146 push @{$EXPORT_TAGS{"dump_holdingdisk_t"}}, qw($HOLD_REQUIRED);
1148 $_dump_holdingdisk_t_VALUES{"HOLD_REQUIRED"} = $HOLD_REQUIRED;
1150 #copy symbols in dump_holdingdisk_t to getconf
1151 push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"dump_holdingdisk_t"}};
1153 push @EXPORT_OK, qw(comp_t_to_string);
1154 push @{$EXPORT_TAGS{"comp_t"}}, qw(comp_t_to_string);
1157 #Convert an enum value to a single string
1158 sub comp_t_to_string {
1161 for my $k (keys %_comp_t_VALUES) {
1162 my $v = $_comp_t_VALUES{$k};
1164 #is this a matching flag?
1165 if ($enumval == $v) {
1170 #default, just return the number
1174 push @EXPORT_OK, qw($COMP_NONE);
1175 push @{$EXPORT_TAGS{"comp_t"}}, qw($COMP_NONE);
1177 $_comp_t_VALUES{"COMP_NONE"} = $COMP_NONE;
1179 push @EXPORT_OK, qw($COMP_FAST);
1180 push @{$EXPORT_TAGS{"comp_t"}}, qw($COMP_FAST);
1182 $_comp_t_VALUES{"COMP_FAST"} = $COMP_FAST;
1184 push @EXPORT_OK, qw($COMP_BEST);
1185 push @{$EXPORT_TAGS{"comp_t"}}, qw($COMP_BEST);
1187 $_comp_t_VALUES{"COMP_BEST"} = $COMP_BEST;
1189 push @EXPORT_OK, qw($COMP_CUST);
1190 push @{$EXPORT_TAGS{"comp_t"}}, qw($COMP_CUST);
1192 $_comp_t_VALUES{"COMP_CUST"} = $COMP_CUST;
1194 push @EXPORT_OK, qw($COMP_SERVER_FAST);
1195 push @{$EXPORT_TAGS{"comp_t"}}, qw($COMP_SERVER_FAST);
1197 $_comp_t_VALUES{"COMP_SERVER_FAST"} = $COMP_SERVER_FAST;
1199 push @EXPORT_OK, qw($COMP_SERVER_BEST);
1200 push @{$EXPORT_TAGS{"comp_t"}}, qw($COMP_SERVER_BEST);
1202 $_comp_t_VALUES{"COMP_SERVER_BEST"} = $COMP_SERVER_BEST;
1204 push @EXPORT_OK, qw($COMP_SERVER_CUST);
1205 push @{$EXPORT_TAGS{"comp_t"}}, qw($COMP_SERVER_CUST);
1207 $_comp_t_VALUES{"COMP_SERVER_CUST"} = $COMP_SERVER_CUST;
1209 #copy symbols in comp_t to getconf
1210 push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"comp_t"}};
1212 push @EXPORT_OK, qw(encrypt_t_to_string);
1213 push @{$EXPORT_TAGS{"encrypt_t"}}, qw(encrypt_t_to_string);
1215 my %_encrypt_t_VALUES;
1216 #Convert an enum value to a single string
1217 sub encrypt_t_to_string {
1220 for my $k (keys %_encrypt_t_VALUES) {
1221 my $v = $_encrypt_t_VALUES{$k};
1223 #is this a matching flag?
1224 if ($enumval == $v) {
1229 #default, just return the number
1233 push @EXPORT_OK, qw($ENCRYPT_NONE);
1234 push @{$EXPORT_TAGS{"encrypt_t"}}, qw($ENCRYPT_NONE);
1236 $_encrypt_t_VALUES{"ENCRYPT_NONE"} = $ENCRYPT_NONE;
1238 push @EXPORT_OK, qw($ENCRYPT_CUST);
1239 push @{$EXPORT_TAGS{"encrypt_t"}}, qw($ENCRYPT_CUST);
1241 $_encrypt_t_VALUES{"ENCRYPT_CUST"} = $ENCRYPT_CUST;
1243 push @EXPORT_OK, qw($ENCRYPT_SERV_CUST);
1244 push @{$EXPORT_TAGS{"encrypt_t"}}, qw($ENCRYPT_SERV_CUST);
1246 $_encrypt_t_VALUES{"ENCRYPT_SERV_CUST"} = $ENCRYPT_SERV_CUST;
1248 #copy symbols in encrypt_t to getconf
1249 push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"encrypt_t"}};
1251 push @EXPORT_OK, qw(strategy_t_to_string);
1252 push @{$EXPORT_TAGS{"strategy_t"}}, qw(strategy_t_to_string);
1254 my %_strategy_t_VALUES;
1255 #Convert an enum value to a single string
1256 sub strategy_t_to_string {
1259 for my $k (keys %_strategy_t_VALUES) {
1260 my $v = $_strategy_t_VALUES{$k};
1262 #is this a matching flag?
1263 if ($enumval == $v) {
1268 #default, just return the number
1272 push @EXPORT_OK, qw($DS_SKIP);
1273 push @{$EXPORT_TAGS{"strategy_t"}}, qw($DS_SKIP);
1275 $_strategy_t_VALUES{"DS_SKIP"} = $DS_SKIP;
1277 push @EXPORT_OK, qw($DS_STANDARD);
1278 push @{$EXPORT_TAGS{"strategy_t"}}, qw($DS_STANDARD);
1280 $_strategy_t_VALUES{"DS_STANDARD"} = $DS_STANDARD;
1282 push @EXPORT_OK, qw($DS_NOFULL);
1283 push @{$EXPORT_TAGS{"strategy_t"}}, qw($DS_NOFULL);
1285 $_strategy_t_VALUES{"DS_NOFULL"} = $DS_NOFULL;
1287 push @EXPORT_OK, qw($DS_NOINC);
1288 push @{$EXPORT_TAGS{"strategy_t"}}, qw($DS_NOINC);
1290 $_strategy_t_VALUES{"DS_NOINC"} = $DS_NOINC;
1292 push @EXPORT_OK, qw($DS_4);
1293 push @{$EXPORT_TAGS{"strategy_t"}}, qw($DS_4);
1295 $_strategy_t_VALUES{"DS_4"} = $DS_4;
1297 push @EXPORT_OK, qw($DS_5);
1298 push @{$EXPORT_TAGS{"strategy_t"}}, qw($DS_5);
1300 $_strategy_t_VALUES{"DS_5"} = $DS_5;
1302 push @EXPORT_OK, qw($DS_HANOI);
1303 push @{$EXPORT_TAGS{"strategy_t"}}, qw($DS_HANOI);
1305 $_strategy_t_VALUES{"DS_HANOI"} = $DS_HANOI;
1307 push @EXPORT_OK, qw($DS_INCRONLY);
1308 push @{$EXPORT_TAGS{"strategy_t"}}, qw($DS_INCRONLY);
1310 $_strategy_t_VALUES{"DS_INCRONLY"} = $DS_INCRONLY;
1312 #copy symbols in strategy_t to getconf
1313 push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"strategy_t"}};
1315 push @EXPORT_OK, qw(estimate_t_to_string);
1316 push @{$EXPORT_TAGS{"estimate_t"}}, qw(estimate_t_to_string);
1318 my %_estimate_t_VALUES;
1319 #Convert an enum value to a single string
1320 sub estimate_t_to_string {
1323 for my $k (keys %_estimate_t_VALUES) {
1324 my $v = $_estimate_t_VALUES{$k};
1326 #is this a matching flag?
1327 if ($enumval == $v) {
1332 #default, just return the number
1336 push @EXPORT_OK, qw($ES_CLIENT);
1337 push @{$EXPORT_TAGS{"estimate_t"}}, qw($ES_CLIENT);
1339 $_estimate_t_VALUES{"ES_CLIENT"} = $ES_CLIENT;
1341 push @EXPORT_OK, qw($ES_SERVER);
1342 push @{$EXPORT_TAGS{"estimate_t"}}, qw($ES_SERVER);
1344 $_estimate_t_VALUES{"ES_SERVER"} = $ES_SERVER;
1346 push @EXPORT_OK, qw($ES_CALCSIZE);
1347 push @{$EXPORT_TAGS{"estimate_t"}}, qw($ES_CALCSIZE);
1349 $_estimate_t_VALUES{"ES_CALCSIZE"} = $ES_CALCSIZE;
1351 #copy symbols in estimate_t to getconf
1352 push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"estimate_t"}};
1354 push @EXPORT_OK, qw(autolabel_enum_t_to_string);
1355 push @{$EXPORT_TAGS{"autolabel_enum_t"}}, qw(autolabel_enum_t_to_string);
1357 my %_autolabel_enum_t_VALUES;
1358 #Convert an enum value to a single string
1359 sub autolabel_enum_t_to_string {
1362 for my $k (keys %_autolabel_enum_t_VALUES) {
1363 my $v = $_autolabel_enum_t_VALUES{$k};
1365 #is this a matching flag?
1366 if ($enumval == $v) {
1371 #default, just return the number
1375 push @EXPORT_OK, qw($AL_OTHER_CONFIG);
1376 push @{$EXPORT_TAGS{"autolabel_enum_t"}}, qw($AL_OTHER_CONFIG);
1378 $_autolabel_enum_t_VALUES{"AL_OTHER_CONFIG"} = $AL_OTHER_CONFIG;
1380 push @EXPORT_OK, qw($AL_NON_AMANDA);
1381 push @{$EXPORT_TAGS{"autolabel_enum_t"}}, qw($AL_NON_AMANDA);
1383 $_autolabel_enum_t_VALUES{"AL_NON_AMANDA"} = $AL_NON_AMANDA;
1385 push @EXPORT_OK, qw($AL_VOLUME_ERROR);
1386 push @{$EXPORT_TAGS{"autolabel_enum_t"}}, qw($AL_VOLUME_ERROR);
1388 $_autolabel_enum_t_VALUES{"AL_VOLUME_ERROR"} = $AL_VOLUME_ERROR;
1390 push @EXPORT_OK, qw($AL_EMPTY);
1391 push @{$EXPORT_TAGS{"autolabel_enum_t"}}, qw($AL_EMPTY);
1393 $_autolabel_enum_t_VALUES{"AL_EMPTY"} = $AL_EMPTY;
1395 #copy symbols in autolabel_enum_t to getconf
1396 push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"autolabel_enum_t"}};
1398 push @EXPORT_OK, qw(taperalgo_t_to_string);
1399 push @{$EXPORT_TAGS{"taperalgo_t"}}, qw(taperalgo_t_to_string);
1401 my %_taperalgo_t_VALUES;
1402 #Convert an enum value to a single string
1403 sub taperalgo_t_to_string {
1406 for my $k (keys %_taperalgo_t_VALUES) {
1407 my $v = $_taperalgo_t_VALUES{$k};
1409 #is this a matching flag?
1410 if ($enumval == $v) {
1415 #default, just return the number
1419 push @EXPORT_OK, qw($ALGO_FIRST);
1420 push @{$EXPORT_TAGS{"taperalgo_t"}}, qw($ALGO_FIRST);
1422 $_taperalgo_t_VALUES{"ALGO_FIRST"} = $ALGO_FIRST;
1424 push @EXPORT_OK, qw($ALGO_FIRSTFIT);
1425 push @{$EXPORT_TAGS{"taperalgo_t"}}, qw($ALGO_FIRSTFIT);
1427 $_taperalgo_t_VALUES{"ALGO_FIRSTFIT"} = $ALGO_FIRSTFIT;
1429 push @EXPORT_OK, qw($ALGO_LARGEST);
1430 push @{$EXPORT_TAGS{"taperalgo_t"}}, qw($ALGO_LARGEST);
1432 $_taperalgo_t_VALUES{"ALGO_LARGEST"} = $ALGO_LARGEST;
1434 push @EXPORT_OK, qw($ALGO_LARGESTFIT);
1435 push @{$EXPORT_TAGS{"taperalgo_t"}}, qw($ALGO_LARGESTFIT);
1437 $_taperalgo_t_VALUES{"ALGO_LARGESTFIT"} = $ALGO_LARGESTFIT;
1439 push @EXPORT_OK, qw($ALGO_SMALLEST);
1440 push @{$EXPORT_TAGS{"taperalgo_t"}}, qw($ALGO_SMALLEST);
1442 $_taperalgo_t_VALUES{"ALGO_SMALLEST"} = $ALGO_SMALLEST;
1444 push @EXPORT_OK, qw($ALGO_LAST);
1445 push @{$EXPORT_TAGS{"taperalgo_t"}}, qw($ALGO_LAST);
1447 $_taperalgo_t_VALUES{"ALGO_LAST"} = $ALGO_LAST;
1449 #copy symbols in taperalgo_t to getconf
1450 push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"taperalgo_t"}};
1452 push @EXPORT_OK, qw(execute_on_t_to_string);
1453 push @{$EXPORT_TAGS{"execute_on_t"}}, qw(execute_on_t_to_string);
1455 my %_execute_on_t_VALUES;
1456 #Convert an enum value to a single string
1457 sub execute_on_t_to_string {
1460 for my $k (keys %_execute_on_t_VALUES) {
1461 my $v = $_execute_on_t_VALUES{$k};
1463 #is this a matching flag?
1464 if ($enumval == $v) {
1469 #default, just return the number
1473 push @EXPORT_OK, qw($EXECUTE_ON_PRE_AMCHECK);
1474 push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_PRE_AMCHECK);
1476 $_execute_on_t_VALUES{"EXECUTE_ON_PRE_AMCHECK"} = $EXECUTE_ON_PRE_AMCHECK;
1478 push @EXPORT_OK, qw($EXECUTE_ON_PRE_DLE_AMCHECK);
1479 push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_PRE_DLE_AMCHECK);
1481 $_execute_on_t_VALUES{"EXECUTE_ON_PRE_DLE_AMCHECK"} = $EXECUTE_ON_PRE_DLE_AMCHECK;
1483 push @EXPORT_OK, qw($EXECUTE_ON_PRE_HOST_AMCHECK);
1484 push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_PRE_HOST_AMCHECK);
1486 $_execute_on_t_VALUES{"EXECUTE_ON_PRE_HOST_AMCHECK"} = $EXECUTE_ON_PRE_HOST_AMCHECK;
1488 push @EXPORT_OK, qw($EXECUTE_ON_POST_AMCHECK);
1489 push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_POST_AMCHECK);
1491 $_execute_on_t_VALUES{"EXECUTE_ON_POST_AMCHECK"} = $EXECUTE_ON_POST_AMCHECK;
1493 push @EXPORT_OK, qw($EXECUTE_ON_POST_DLE_AMCHECK);
1494 push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_POST_DLE_AMCHECK);
1496 $_execute_on_t_VALUES{"EXECUTE_ON_POST_DLE_AMCHECK"} = $EXECUTE_ON_POST_DLE_AMCHECK;
1498 push @EXPORT_OK, qw($EXECUTE_ON_POST_HOST_AMCHECK);
1499 push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_POST_HOST_AMCHECK);
1501 $_execute_on_t_VALUES{"EXECUTE_ON_POST_HOST_AMCHECK"} = $EXECUTE_ON_POST_HOST_AMCHECK;
1503 push @EXPORT_OK, qw($EXECUTE_ON_PRE_ESTIMATE);
1504 push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_PRE_ESTIMATE);
1506 $_execute_on_t_VALUES{"EXECUTE_ON_PRE_ESTIMATE"} = $EXECUTE_ON_PRE_ESTIMATE;
1508 push @EXPORT_OK, qw($EXECUTE_ON_PRE_DLE_ESTIMATE);
1509 push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_PRE_DLE_ESTIMATE);
1511 $_execute_on_t_VALUES{"EXECUTE_ON_PRE_DLE_ESTIMATE"} = $EXECUTE_ON_PRE_DLE_ESTIMATE;
1513 push @EXPORT_OK, qw($EXECUTE_ON_PRE_HOST_ESTIMATE);
1514 push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_PRE_HOST_ESTIMATE);
1516 $_execute_on_t_VALUES{"EXECUTE_ON_PRE_HOST_ESTIMATE"} = $EXECUTE_ON_PRE_HOST_ESTIMATE;
1518 push @EXPORT_OK, qw($EXECUTE_ON_POST_ESTIMATE);
1519 push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_POST_ESTIMATE);
1521 $_execute_on_t_VALUES{"EXECUTE_ON_POST_ESTIMATE"} = $EXECUTE_ON_POST_ESTIMATE;
1523 push @EXPORT_OK, qw($EXECUTE_ON_POST_DLE_ESTIMATE);
1524 push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_POST_DLE_ESTIMATE);
1526 $_execute_on_t_VALUES{"EXECUTE_ON_POST_DLE_ESTIMATE"} = $EXECUTE_ON_POST_DLE_ESTIMATE;
1528 push @EXPORT_OK, qw($EXECUTE_ON_POST_HOST_ESTIMATE);
1529 push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_POST_HOST_ESTIMATE);
1531 $_execute_on_t_VALUES{"EXECUTE_ON_POST_HOST_ESTIMATE"} = $EXECUTE_ON_POST_HOST_ESTIMATE;
1533 push @EXPORT_OK, qw($EXECUTE_ON_PRE_BACKUP);
1534 push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_PRE_BACKUP);
1536 $_execute_on_t_VALUES{"EXECUTE_ON_PRE_BACKUP"} = $EXECUTE_ON_PRE_BACKUP;
1538 push @EXPORT_OK, qw($EXECUTE_ON_PRE_DLE_BACKUP);
1539 push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_PRE_DLE_BACKUP);
1541 $_execute_on_t_VALUES{"EXECUTE_ON_PRE_DLE_BACKUP"} = $EXECUTE_ON_PRE_DLE_BACKUP;
1543 push @EXPORT_OK, qw($EXECUTE_ON_PRE_HOST_BACKUP);
1544 push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_PRE_HOST_BACKUP);
1546 $_execute_on_t_VALUES{"EXECUTE_ON_PRE_HOST_BACKUP"} = $EXECUTE_ON_PRE_HOST_BACKUP;
1548 push @EXPORT_OK, qw($EXECUTE_ON_POST_BACKUP);
1549 push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_POST_BACKUP);
1551 $_execute_on_t_VALUES{"EXECUTE_ON_POST_BACKUP"} = $EXECUTE_ON_POST_BACKUP;
1553 push @EXPORT_OK, qw($EXECUTE_ON_POST_DLE_BACKUP);
1554 push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_POST_DLE_BACKUP);
1556 $_execute_on_t_VALUES{"EXECUTE_ON_POST_DLE_BACKUP"} = $EXECUTE_ON_POST_DLE_BACKUP;
1558 push @EXPORT_OK, qw($EXECUTE_ON_POST_HOST_BACKUP);
1559 push @{$EXPORT_TAGS{"execute_on_t"}}, qw($EXECUTE_ON_POST_HOST_BACKUP);
1561 $_execute_on_t_VALUES{"EXECUTE_ON_POST_HOST_BACKUP"} = $EXECUTE_ON_POST_HOST_BACKUP;
1563 #copy symbols in execute_on_t to getconf
1564 push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"execute_on_t"}};
1566 push @EXPORT_OK, qw(send_amreport_on_t_to_string);
1567 push @{$EXPORT_TAGS{"send_amreport_on_t"}}, qw(send_amreport_on_t_to_string);
1569 my %_send_amreport_on_t_VALUES;
1570 #Convert an enum value to a single string
1571 sub send_amreport_on_t_to_string {
1574 for my $k (keys %_send_amreport_on_t_VALUES) {
1575 my $v = $_send_amreport_on_t_VALUES{$k};
1577 #is this a matching flag?
1578 if ($enumval == $v) {
1583 #default, just return the number
1587 push @EXPORT_OK, qw($SEND_AMREPORT_ALL);
1588 push @{$EXPORT_TAGS{"send_amreport_on_t"}}, qw($SEND_AMREPORT_ALL);
1590 $_send_amreport_on_t_VALUES{"SEND_AMREPORT_ALL"} = $SEND_AMREPORT_ALL;
1592 push @EXPORT_OK, qw($SEND_AMREPORT_STRANGE);
1593 push @{$EXPORT_TAGS{"send_amreport_on_t"}}, qw($SEND_AMREPORT_STRANGE);
1595 $_send_amreport_on_t_VALUES{"SEND_AMREPORT_STRANGE"} = $SEND_AMREPORT_STRANGE;
1597 push @EXPORT_OK, qw($SEND_AMREPORT_ERROR);
1598 push @{$EXPORT_TAGS{"send_amreport_on_t"}}, qw($SEND_AMREPORT_ERROR);
1600 $_send_amreport_on_t_VALUES{"SEND_AMREPORT_ERROR"} = $SEND_AMREPORT_ERROR;
1602 push @EXPORT_OK, qw($SEND_AMREPORT_NEVER);
1603 push @{$EXPORT_TAGS{"send_amreport_on_t"}}, qw($SEND_AMREPORT_NEVER);
1605 $_send_amreport_on_t_VALUES{"SEND_AMREPORT_NEVER"} = $SEND_AMREPORT_NEVER;
1607 #copy symbols in send_amreport_on_t to getconf
1608 push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"send_amreport_on_t"}};
1610 push @EXPORT_OK, qw(data_path_t_to_string);
1611 push @{$EXPORT_TAGS{"data_path_t"}}, qw(data_path_t_to_string);
1613 my %_data_path_t_VALUES;
1614 #Convert an enum value to a single string
1615 sub data_path_t_to_string {
1618 for my $k (keys %_data_path_t_VALUES) {
1619 my $v = $_data_path_t_VALUES{$k};
1621 #is this a matching flag?
1622 if ($enumval == $v) {
1627 #default, just return the number
1631 push @EXPORT_OK, qw($DATA_PATH_AMANDA);
1632 push @{$EXPORT_TAGS{"data_path_t"}}, qw($DATA_PATH_AMANDA);
1634 $_data_path_t_VALUES{"DATA_PATH_AMANDA"} = $DATA_PATH_AMANDA;
1636 push @EXPORT_OK, qw($DATA_PATH_DIRECTTCP);
1637 push @{$EXPORT_TAGS{"data_path_t"}}, qw($DATA_PATH_DIRECTTCP);
1639 $_data_path_t_VALUES{"DATA_PATH_DIRECTTCP"} = $DATA_PATH_DIRECTTCP;
1641 #copy symbols in data_path_t to getconf
1642 push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"data_path_t"}};
1644 push @EXPORT_OK, qw(part_cache_type_t_to_string);
1645 push @{$EXPORT_TAGS{"part_cache_type_t"}}, qw(part_cache_type_t_to_string);
1647 my %_part_cache_type_t_VALUES;
1648 #Convert an enum value to a single string
1649 sub part_cache_type_t_to_string {
1652 for my $k (keys %_part_cache_type_t_VALUES) {
1653 my $v = $_part_cache_type_t_VALUES{$k};
1655 #is this a matching flag?
1656 if ($enumval == $v) {
1661 #default, just return the number
1665 push @EXPORT_OK, qw($PART_CACHE_TYPE_NONE);
1666 push @{$EXPORT_TAGS{"part_cache_type_t"}}, qw($PART_CACHE_TYPE_NONE);
1668 $_part_cache_type_t_VALUES{"PART_CACHE_TYPE_NONE"} = $PART_CACHE_TYPE_NONE;
1670 push @EXPORT_OK, qw($PART_CACHE_TYPE_DISK);
1671 push @{$EXPORT_TAGS{"part_cache_type_t"}}, qw($PART_CACHE_TYPE_DISK);
1673 $_part_cache_type_t_VALUES{"PART_CACHE_TYPE_DISK"} = $PART_CACHE_TYPE_DISK;
1675 push @EXPORT_OK, qw($PART_CACHE_TYPE_MEMORY);
1676 push @{$EXPORT_TAGS{"part_cache_type_t"}}, qw($PART_CACHE_TYPE_MEMORY);
1678 $_part_cache_type_t_VALUES{"PART_CACHE_TYPE_MEMORY"} = $PART_CACHE_TYPE_MEMORY;
1680 #copy symbols in part_cache_type_t to getconf
1681 push @{$EXPORT_TAGS{"getconf"}}, @{$EXPORT_TAGS{"part_cache_type_t"}};
1683 $LIMIT_SAMEHOST="SAMEHOST-SAMEHOST-SAMEHOST";
1684 $LIMIT_SERVER="SERVER-SERVER-SERVER";
1686 push @EXPORT_OK, qw(getconf getconf_seen getconf_linenum
1687 getconf_byname getconf_byname_strs
1689 push @{$EXPORT_TAGS{"getconf"}}, qw(getconf getconf_seen getconf_linenum
1690 getconf_byname getconf_byname_strs
1693 push @EXPORT_OK, qw(lookup_tapetype tapetype_getconf tapetype_name
1694 tapetype_seen tapetype_seen);
1695 push @{$EXPORT_TAGS{"getconf"}}, qw(lookup_tapetype tapetype_getconf tapetype_name
1696 tapetype_seen tapetype_seen);
1698 push @EXPORT_OK, qw(lookup_dumptype dumptype_getconf dumptype_name
1699 dumptype_seen dumptype_seen);
1700 push @{$EXPORT_TAGS{"getconf"}}, qw(lookup_dumptype dumptype_getconf dumptype_name
1701 dumptype_seen dumptype_seen);
1703 push @EXPORT_OK, qw(lookup_interface interface_getconf interface_name
1704 interface_seen interface_seen);
1705 push @{$EXPORT_TAGS{"getconf"}}, qw(lookup_interface interface_getconf interface_name
1706 interface_seen interface_seen);
1708 push @EXPORT_OK, qw(lookup_holdingdisk holdingdisk_getconf holdingdisk_name
1709 getconf_holdingdisks
1710 holdingdisk_seen holdingdisk_seen);
1711 push @{$EXPORT_TAGS{"getconf"}}, qw(lookup_holdingdisk holdingdisk_getconf holdingdisk_name
1712 getconf_holdingdisks
1713 holdingdisk_seen holdingdisk_seen);
1715 push @EXPORT_OK, qw(lookup_application application_getconf application_name
1716 application_seen application_seen);
1717 push @{$EXPORT_TAGS{"getconf"}}, qw(lookup_application application_getconf application_name
1718 application_seen application_seen);
1720 push @EXPORT_OK, qw(lookup_pp_script pp_script_getconf pp_script_name
1721 pp_script_seen pp_script_seen);
1722 push @{$EXPORT_TAGS{"getconf"}}, qw(lookup_pp_script pp_script_getconf pp_script_name
1723 pp_script_seen pp_script_seen);
1725 push @EXPORT_OK, qw(lookup_device_config device_config_getconf device_config_name
1726 device_config_seen device_config_seen);
1727 push @{$EXPORT_TAGS{"getconf"}}, qw(lookup_device_config device_config_getconf device_config_name
1728 device_config_seen device_config_seen);
1730 push @EXPORT_OK, qw(lookup_changer_config changer_config_getconf changer_config_name
1731 changer_config_seen changer_config_seen);
1732 push @{$EXPORT_TAGS{"getconf"}}, qw(lookup_changer_config changer_config_getconf changer_config_name
1733 changer_config_seen changer_config_seen);
1735 push @EXPORT_OK, qw(lookup_interactivity interactivity_getconf interactivity_name
1736 interactivity_seen interactivity_seen);
1737 push @{$EXPORT_TAGS{"getconf"}}, qw(lookup_interactivity interactivity_getconf interactivity_name
1738 interactivity_seen interactivity_seen);
1740 push @EXPORT_OK, qw(lookup_taperscan taperscan_getconf taperscan_name
1741 taperscan_seen taperscan_seen);
1742 push @{$EXPORT_TAGS{"getconf"}}, qw(lookup_taperscan taperscan_getconf taperscan_name
1743 taperscan_seen taperscan_seen);
1745 # only those keys with a value of '1' should be shown; the
1746 # others are deprecated
1747 our %subsection_names = (
1754 "application-tool" => 0,
1760 push @EXPORT_OK, qw(%subsection_names);
1761 push @{$EXPORT_TAGS{"getconf"}}, qw(%subsection_names);
1763 push @EXPORT_OK, qw(getconf_unit_divisor
1765 $debug_amandad $debug_recovery $debug_amidxtaped $debug_amindexd $debug_amrecover
1766 $debug_auth $debug_event $debug_holding $debug_protocol
1767 $debug_planner $debug_driver $debug_dumper $debug_chunker
1768 $debug_taper $debug_selfcheck $debug_sendsize $debug_sendbackup);
1769 push @{$EXPORT_TAGS{"getconf"}}, qw(getconf_unit_divisor
1771 $debug_amandad $debug_recovery $debug_amidxtaped $debug_amindexd $debug_amrecover
1772 $debug_auth $debug_event $debug_holding $debug_protocol
1773 $debug_planner $debug_driver $debug_dumper $debug_chunker
1774 $debug_taper $debug_selfcheck $debug_sendsize $debug_sendbackup);
1776 push @EXPORT_OK, qw(cfgerr_level_t_to_string);
1777 push @{$EXPORT_TAGS{"cfgerr_level_t"}}, qw(cfgerr_level_t_to_string);
1779 my %_cfgerr_level_t_VALUES;
1780 #Convert an enum value to a single string
1781 sub cfgerr_level_t_to_string {
1784 for my $k (keys %_cfgerr_level_t_VALUES) {
1785 my $v = $_cfgerr_level_t_VALUES{$k};
1787 #is this a matching flag?
1788 if ($enumval == $v) {
1793 #default, just return the number
1797 push @EXPORT_OK, qw($CFGERR_OK);
1798 push @{$EXPORT_TAGS{"cfgerr_level_t"}}, qw($CFGERR_OK);
1800 $_cfgerr_level_t_VALUES{"CFGERR_OK"} = $CFGERR_OK;
1802 push @EXPORT_OK, qw($CFGERR_WARNINGS);
1803 push @{$EXPORT_TAGS{"cfgerr_level_t"}}, qw($CFGERR_WARNINGS);
1805 $_cfgerr_level_t_VALUES{"CFGERR_WARNINGS"} = $CFGERR_WARNINGS;
1807 push @EXPORT_OK, qw($CFGERR_ERRORS);
1808 push @{$EXPORT_TAGS{"cfgerr_level_t"}}, qw($CFGERR_ERRORS);
1810 $_cfgerr_level_t_VALUES{"CFGERR_ERRORS"} = $CFGERR_ERRORS;
1812 #copy symbols in cfgerr_level_t to init
1813 push @{$EXPORT_TAGS{"init"}}, @{$EXPORT_TAGS{"cfgerr_level_t"}};
1815 push @EXPORT_OK, qw(config_init_flags_to_strings);
1816 push @{$EXPORT_TAGS{"config_init_flags"}}, qw(config_init_flags_to_strings);
1818 my %_config_init_flags_VALUES;
1819 #Convert a flag value to a list of names for flags that are set.
1820 sub config_init_flags_to_strings {
1824 for my $k (keys %_config_init_flags_VALUES) {
1825 my $v = $_config_init_flags_VALUES{$k};
1827 #is this a matching flag?
1828 if (($v == 0 && $flags == 0) || ($v != 0 && ($flags & $v) == $v)) {
1833 #by default, just return the number as a 1-element list
1841 push @EXPORT_OK, qw($CONFIG_INIT_EXPLICIT_NAME);
1842 push @{$EXPORT_TAGS{"config_init_flags"}}, qw($CONFIG_INIT_EXPLICIT_NAME);
1844 $_config_init_flags_VALUES{"CONFIG_INIT_EXPLICIT_NAME"} = $CONFIG_INIT_EXPLICIT_NAME;
1846 push @EXPORT_OK, qw($CONFIG_INIT_USE_CWD);
1847 push @{$EXPORT_TAGS{"config_init_flags"}}, qw($CONFIG_INIT_USE_CWD);
1849 $_config_init_flags_VALUES{"CONFIG_INIT_USE_CWD"} = $CONFIG_INIT_USE_CWD;
1851 push @EXPORT_OK, qw($CONFIG_INIT_CLIENT);
1852 push @{$EXPORT_TAGS{"config_init_flags"}}, qw($CONFIG_INIT_CLIENT);
1854 $_config_init_flags_VALUES{"CONFIG_INIT_CLIENT"} = $CONFIG_INIT_CLIENT;
1856 push @EXPORT_OK, qw($CONFIG_INIT_OVERLAY);
1857 push @{$EXPORT_TAGS{"config_init_flags"}}, qw($CONFIG_INIT_OVERLAY);
1859 $_config_init_flags_VALUES{"CONFIG_INIT_OVERLAY"} = $CONFIG_INIT_OVERLAY;
1861 #copy symbols in config_init_flags to init
1862 push @{$EXPORT_TAGS{"init"}}, @{$EXPORT_TAGS{"config_init_flags"}};
1864 push @EXPORT_OK, qw(config_init config_uninit get_config_options
1865 get_config_name get_config_dir get_config_filename
1866 config_print_errors config_clear_errors config_errors
1867 new_config_overrides free_config_overrides add_config_override
1868 add_config_override_opt set_config_overrides);
1869 push @{$EXPORT_TAGS{"init"}}, qw(config_init config_uninit get_config_options
1870 get_config_name get_config_dir get_config_filename
1871 config_print_errors config_clear_errors config_errors
1872 new_config_overrides free_config_overrides add_config_override
1873 add_config_override_opt set_config_overrides);
1875 push @EXPORT_OK, qw(dump_configuration config_dir_relative taperalgo2str find_multiplier);
1878 sub string_to_boolean {
1880 my $ret = C_string_to_boolean($str);
1881 return undef unless $ret >= 0;
1886 push @EXPORT_OK, qw(string_to_boolean);
1888 push @EXPORT_OK, qw(amandaify_property_name);