init

bptar.pl

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