misc-code/scms.pl

#!/usr/bin/perl
################################################################################
# SCMS, Service Contract Management System                                     #
################################################################################
# Copyright Sam Flint, 2012, Licenesed under the GNU GPL v3 or later.          #
# Documentation available at http://flintfam.org/wiki/                         #
################################################################################

use YAML qw/LoadFile DumpFile/;

$cmd = shift @ARGV;

###############################
# command switch              #
###############################
if($cmd eq "help")            {
   dohelp();
}
elsif($cmd eq "set")          {
   set();
}
elsif($cmd eq "shell")        {
   shell();
}
elsif($cmd eq "manage")       {
   managesys();
}
elsif($cmd eq "mshell")       {
   manageshell();
}
elsif($cmd eq "list")         {
   list();
}
elsif($cmd eq "log")          {
   logger();
}
elsif($cmd eq "cdata")        {
   contractdata();
}
elsif($cmd eq "crenewal")     {
   contractrenewal();
}
elsif($cmd eq "cmanage")      {
   contractmanage();
}
elsif($cmd eq "status")       {
   status();
}
else                          {
   print "$cmd: Invalid command, try help or ihelp.\n\n";
}


###############################
# subs                        #
###############################
sub dohelp                    {
print <<EOH;
SCMS - Service Contract Management System

Commands:
   help        Displays Help
   set         Set Variables
   shell       Enter SCMS Shell
   manage      Manage the System
   mshell      Management Shell
   list        List data
   log         Log management actions
   cdata       Display contract data
   crenewal    Run Contract Renewal routines
   cmanage     Run Contract Management
   status      View Contract Status
EOH
}

sub set                       {
   
}

sub shell                     {
   
}

sub managesys                 {
   
}

sub manageshell               {
   
}

sub list                      {
   
}

sub logger                    {
   
}

sub contractdata              {
   
}

sub contractrenewal           {
   
}

sub contractmanage            {
   
}

sub status                    {
   
}

__END__