#! /usr/local/bin/perl

require '../src/read_config.perl';

if ($#ARGV != 0) {
	die "usage: rc-test filename\n";
}

$backup_config = $ARGV[0];

&read_config();
&show_stuff();

exit 0;


sub unlock_all {
}

sub show_stuff {
    print stderr "num_chains is $num_chains\n";

    for ($i = 0; $i < $num_chains; $i++) {
	print stderr "Chain $i\n";

	printf stderr "  max level is %d\n", $max_level[$i];
	printf stderr "  names of levels: %s\n", $level_name_list{$i};
	printf stderr "  numbers of levels: %s\n", $level_number_list{$i};

	foreach $level (split(/ /, $level_number_list{$i})) {
	    printf stderr "  %d\t%s\t%d\t%d\n",
	           $level,
	    	   $level_number2name{$i,$level},
	    	   $level_keep{$i,$level},
		   $level_every{$i,$level};
	}
	print stderr "\n";
    }

    print stderr "Group aliases:\n";
    foreach $name (keys %group_aliases) {
	printf stderr "  %s\t%s\n", $name, $group_aliases{$name};
    }
    print stderr "\n";

    print stderr "Tape types:\n";
    foreach $type (keys %tape_type_list) {
	printf stderr "  $type\t%d\t%d\t%s\n",
	       $expire_age{$type},
	       $expire_uses{$type},
	       $tape_format_list{$type};
	    # fixme - should check tape_type_formats also
    }
    print stderr "\n";

    print stderr "Tape drives:\n";
    foreach $name (keys %tape_device) {
	printf stderr "  $name\t%s\t%s\t%s\t%s\n",
	       $tape_device{$name},
	       $tape_type{$name},
	       $tape_reads{$name},
	       $tape_writes{$name};
    }
    print stderr "\n";

    print stderr "Default tape is $default_tape\n";
    print stderr "Mail to is $mail_to\n";
    print stderr "Config name is $config_name\n";
}


