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 "manage")       {
   managesys();
}
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                    {
    if ($ARGV[0] eq '') {
print <<EOH;
SCMS - Service Contract Management System

Commands:
   help        Displays Help
   manage      Management Log
   list        List data
   log         List management actions
   cdata       Display contract data
   crenewal    Run Contract Renewal routines
   cmanage     Run Contract Management
   status      View Contract Status
EOH
} elsif ($ARGV[0] eq 'manage') {
    print <<EOH;
SCMS - Service Contract Management System

MANAGE:
This subcommand is used to log management actions.

INVOCATION
   scms manage user classification
Where user is the name of manager and classification is the type of
management done.
EOH
} elsif ($ARGV[0] eq 'list') {
    print <<EOH;
EOH
} elsif ($ARGV[0] eq 'log') {
} elsif ($ARGV[0] eq 'cdata') {
} elsif ($ARGV[0] eq 'crenewal') {
} elsif ($ARGV[0] eq 'cmanage') {
} elsif ($ARGV[0] eq 'status') {
}
}

sub managesys                 {
   
}

sub list                      {
   
}

sub logger                    {
   
}

sub contractdata              {
   
}

sub contractrenewal           {
   
}

sub contractmanage            {
   
}

sub status                    {
   
}

__END__