#!/usr/bin/perl

use v5.10;
use experimental qw( switch );

use strict;

use lib '.';
use bptm;
use IO::Prompter;
use Term::ANSITable;
use Term::Clear;

use DBI;
use JSON;

my $config_file = './config/config.txt';
my $debug = 0;

sub delmaintenance ($);
sub edittype  ($);
#sub editpart  ($);
#sub editset   ($);
sub edittrack ($);
sub editmaintenance ($);

### HAUPTPROGRAMM ###

Term::Clear::clear();
while ( 1 ) { 
   read_config ($config_file);
   my ($act,$ent,$show) = check_parameter ();
   debug ("main", "zeige parameter $act $ent", $debug);
   exit 0 if ( $act eq 'exit' );
   my $sub="$act$ent";
   no strict 'refs';
   &$sub($show);
   prompt (-s1, "\nWeiter?");
}
exit 0;

### SUBROUTINEN ###

sub delmaintenance ($) {
   ;
}

sub edittype  ($) {
   ;
}

sub edittrack ($) {
   ;
}

sub editmaintenance ($) {
   ;
}

__END__