_TODO.pl

require 'getopts.pl';
Getopts('m:d:t');
my $MODE   		= uc($opt_m) || "";
my $DEBUG  		= $opt_d || 0;
if (defined $opt_t) { my %TEST = &_TODO();}
1;
sub _TODO {
    $PACKAGE = $_[0];
    if ($PACKAGE eq "") {
        my $rfcTitle = "  ***************************************\n    PDM_RFC PACKAGE DIRECTORY SELECTION\n  ***************************************";
        $PACKAGE=&_SELECT_PACKAGE($rfcTitle,"NEXT_RELEASE","TRUE");
    }
    my $pakDir = $PAK . $SLASH . $PACKAGE;
    my $pakTODOFile = $pakDir . $SLASH . "_todo";
    print "  $pakTODOFile\n";
    if (! -f $pakTODOFile) {
        print "  Unable to locate To Do list in Package ($pakTODOFile)\n";
        my $a = &Ask("Do you want to create one?","No","Yes","Exit");
        if ($a eq "Exit") {&_EXIT_CLEAN();}
        if ($a eq "Yes") {
            &_TODO_ADD($pakTODOFile);
        }
    }
    my @TODO;
    my $TODO = "TRUE";
    while ($TODO eq "TRUE") {
        system($OS_TOOLS{"cat"} . " \"$pakTODOFile\"");
        print "\n";
        print "  ^^^^^^^ TO LIST MENU ^^^^^^^^^\n";
        print "  1. Add To Do\n";
        print "\n";
        print "  Enter Choice x~exit [1]:";
        my $tdans = <STDIN>;
        chomp($tdans);
        if (lc($tdans) eq "x") {
            $TODO="FALSE";
        }
        if ($tdans eq "") {$tdans=1;}
        if (int($tdans) eq "1") {
            &_TODO_ADD($pakTODOFile);
        }
    }
}