#!/usr/bin/perl
#============================================================================
# Scipt Name : usage_menu
# By:		Joshua Spradling
# Purpose:	Give user the choice of getting shell information from system
#		and printing usage message and quitting
# command line: usage_menu
#============================================================================
$usagefile = '/etc/passwd';
sub list_users {
  print "in list users ";
  $ct= awk -F:  { print "$7" } $usagefile ;
  print $ct;
# more /etc/passwd
  exit 1;  

}
sub count_usage {
   print "users usage\n ";
   print "============\n";
   print "The number of bash users\n";
   open $usagefile | grep "bash" | ++$bashCounter | print("$bashCounter");
   print "The number of no login\n";
   open $usagefile | grep "nologin" | ++$noLoginCounter | print("$noLoginCounter"); 
   print "The number of csh users\n";
   open $usagefile | grep "csh" | ++$cshCounter | print("$cshCounter");
   print "The number of ksh user\n "; 
   open $usagefile | grep "ksh" | ++$kshCounter | print("$kshCounter");
}

$loop=y;
while (<"$loop" = "y">)
{ 
   print "  Usage Menu  \n";
   print "==============\n";
   print "[1] - Get shell information from system \n";
   print "[2] - Print a usage message \n";
   print "[Q] - Quit \n";
   print "\n"; 
  read $choice || continue;
   for($choice){
     if (/1/) {list_users};
     elsif (/2/) {count_usage};
     elsif (/Q/) {exit};
     else {print "error" };
   }	
}