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      Manage the System
   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
} elsif ($ARGV[0] eq 'manage') {
} elsif ($ARGV[0] eq 'list') {
} 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__