121 lines
1.5 KiB
Perl
121 lines
1.5 KiB
Perl
#!/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__
|