#!/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 showtrack ($);

sub addpart   ($);
sub addset    ($);
sub addtype   ($);

sub delpart   ($);
sub delset    ($);
sub deltype   ($);
sub deltrack  ($);
sub delmaintenance ($);

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



### HAUPTPROGRAMM ###
read_config ($config_file);
addtrack("all");
exit 0;

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?");
   # clear screen
   Term::Clear::clear();
}
exit 0;


### SUBROUTINEN ###




sub addpart   ($) {
   debug("addpart", "start", $debug);
}

sub addset    ($) {
   debug("addset", "start", $debug);
}

sub addtype   ($) {
   debug("addtype", "start", $debug);
}

sub delpart   ($) {
   debug("delpart", "start", $debug);
}

sub delset    ($) {
   debug("delset", "start", $debug);
}

sub deltype   ($) {
   debug("deltype", "start", $debug);
}

sub deltrack  ($) {
   debug("deltrack", "start", $debug);
}

sub delmaintenance ($) {
   ;
}

sub edittype  ($) {
   ;
}

sub editpart  ($) {
   ;
}

sub editset   ($) {
   ;
}

sub edittrack ($) {
   ;
}

sub editmaintenance ($) {
   ;
}




__END__