config.pm

开源备份软件源码 AMANDA, the Advanced Maryland Automatic Network Disk Archiver, is a backup system that a

$_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;

#copy symbols in confparm_key to getconf
push @{$EXPORT_TAGS{"getconf"}},  @{$EXPORT_TAGS{"confparm_key"}};

push @EXPORT_OK, qw(tapetype_key_to_string);
push @{$EXPORT_TAGS{"tapetype_key"}}, qw(tapetype_key_to_string);

my %_tapetype_key_VALUES;
#Convert an enum value to a single string
sub tapetype_key_to_string {
    my ($enumval) = @_;

    for my $k (keys %_tapetype_key_VALUES) {
	my $v = $_tapetype_key_VALUES{$k};

	#is this a matching flag?
	if ($enumval == $v) {
	    return $k;
	}
    }

#default, just return the number
    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_SPEED);
push @{$EXPORT_TAGS{"tapetype_key"}}, qw($TAPETYPE_SPEED);

$_tapetype_key_VALUES{"TAPETYPE_SPEED"} = $TAPETYPE_SPEED;

push @EXPORT_OK, qw($TAPETYPE_FILE_PAD);
push @{$EXPORT_TAGS{"tapetype_key"}}, qw($TAPETYPE_FILE_PAD);

$_tapetype_key_VALUES{"TAPETYPE_FILE_PAD"} = $TAPETYPE_FILE_PAD;

#copy symbols in tapetype_key to getconf
push @{$EXPORT_TAGS{"getconf"}},  @{$EXPORT_TAGS{"tapetype_key"}};

push @EXPORT_OK, qw(dumptype_key_to_string);
push @{$EXPORT_TAGS{"dumptype_key"}}, qw(dumptype_key_to_string);

my %_dumptype_key_VALUES;
#Convert an enum value to a single string
sub dumptype_key_to_string {
    my ($enumval) = @_;

    for my $k (keys %_dumptype_key_VALUES) {
	my $v = $_dumptype_key_VALUES{$k};

	#is this a matching flag?
	if ($enumval == $v) {
	    return $k;
	}
    }

#default, just return the number
    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_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_SECURITY_DRIVER);
push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_SECURITY_DRIVER);

$_dumptype_key_VALUES{"DUMPTYPE_SECURITY_DRIVER"} = $DUMPTYPE_SECURITY_DRIVER;

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_ESTIMATE);
push @{$EXPORT_TAGS{"dumptype_key"}}, qw($DUMPTYPE_ESTIMATE);

$_dumptype_key_VALUES{"DUMPTYPE_ESTIMATE"} = $DUMPTYPE_ESTIMATE;

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;

#copy symbols in dumptype_key to getconf
push @{$EXPORT_TAGS{"getconf"}},  @{$EXPORT_TAGS{"dumptype_key"}};

push @EXPORT_OK, qw(interface_key_to_string);
push @{$EXPORT_TAGS{"interface_key"}}, qw(interface_key_to_string);

my %_interface_key_VALUES;
#Convert an enum value to a single string
sub interface_key_to_string {
    my ($enumval) = @_;

    for my $k (keys %_interface_key_VALUES) {
	my $v = $_interface_key_VALUES{$k};

	#is this a matching flag?
	if ($enumval == $v) {
	    return $k;
	}
    }

#default, just return the number
    return $enumval;
}

push @EXPORT_OK, qw($INTER_COMMENT);
push @{$EXPORT_TAGS{"interface_key"}}, qw($INTER_COMMENT);

$_interface_key_VALUES{"INTER_COMMENT"} = $INTER_COMMENT;

push @EXPORT_OK, qw($INTER_MAXUSAGE);
push @{$EXPORT_TAGS{"interface_key"}}, qw($INTER_MAXUSAGE);

$_interface_key_VALUES{"INTER_MAXUSAGE"} = $INTER_MAXUSAGE;

#copy symbols in interface_key to getconf
push @{$EXPORT_TAGS{"getconf"}},  @{$EXPORT_TAGS{"interface_key"}};

push @EXPORT_OK, qw(holdingdisk_key_to_string);
push @{$EXPORT_TAGS{"holdingdisk_key"}}, qw(holdingdisk_key_to_string);

my %_holdingdisk_key_VALUES;
#Convert an enum value to a single string
sub holdingdisk_key_to_string {
    my ($enumval) = @_;

    for my $k (keys %_holdingdisk_key_VALUES) {
	my $v = $_holdingdisk_key_VALUES{$k};

	#is this a matching flag?
	if ($enumval == $v) {
	    return $k;
	}
    }

#default, just return the number
    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_DISKSIZE);
push @{$EXPORT_TAGS{"holdingdisk_key"}}, qw($HOLDING_DISKSIZE);

$_holdingdisk_key_VALUES{"HOLDING_DISKSIZE"} = $HOLDING_DISKSIZE;