60 lines
837 B
Perl
60 lines
837 B
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 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__ |