init

bpt.pl

@@ -0,0 +1,60 @@
+#!/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__