#!/bin/bash


#FINANCE_QUANT_HTTP_SERVER
#FINANCE_QUANT_R_CMD
#FINANCE_QUANT_RECOMMENDED
#FINANCE_QUANT_SORT_MARKETS
#FINANCE_QUANT_TEST_INSTALL
#FINANCE_QUANT_VGREP
#FINANCE_QUANT_VGREP

# Define variables
progname=$(basename $0)

if [ "$USER" = "" ]
then
    USER=$(whoami)
fi

DATABASE='FinanceQuant'
VERSION='0.1'
#DBSYSTEM='PostgreSQL'
DBSYSTEM='MySQL'
SCHEMA_ONLY=0
DAYOFWEEK=$(date +"%u")
LSB=""


if [ "$DAYOFWEEK" -gt 5 ] || [ "$DAYOFWEEK" -eq 1 ]
then
    LASTBIZDAY="last friday"
else
    LASTBIZDAY="yesterday"
fi





function format(){

    local message="$@"
    [ -z $message ] && message=" "
    read -p "$message" readEnterKey



}


function nl(){

    local message="$@"
    [ -z $message ] && message=" "
    read -p "$message" readEnterKey
    format


}


# Purpose: Display pause prompt
# $1-> Message (optional)

function pause(){

    local message="$@"
    [ -z $message ] && message="Press [Enter] key to continue..."
    read -p "$message" readEnterKey

}



# Purpose  - Display a menu on screen
function run_test(){


    write_header " Testing "

    FINANCE_QUANT_RECOMMENDED &

    pause

}



# Purpose  - Display a menu on screen
function run_xtest(){


sqldate=$(perl <<'EOF'

sub sqlDate {

  my $in     = shift;
  my @dateBits = ();
  my $out      = "";

  if(defined $in and $in =~/-/) {
      @dateBits = split("-",$in);
      $out = sprintf("%s/%s/%s",$dateBits[1],$dateBits[2],$dateBits[0]);
  }elsif(defined $in and $in =~ /\//){
      @dateBits = split("/",$in);
      $out = sprintf("%s%s-%s-%s",$dateBits[2] gt 1000 ? "":"20",$dateBits[2],$dateBits[1],$dateBits[0]);
  }
  return $out;
}
print sqlDate($ENV{"sequencerMaxDate"});


EOF

)



}



# Purpose  - Display a menu on screen
function evaluate_data(){
    date
    write_header " Evaluate "

    pause

}


# Purpose - Network inferface and routing info
function market_overview(){

    write_header " Market overview"

    FINANCE_QUANT_SORT_MARKETS

    nl

    pause

}


# Purpose - Network inferface and routing info
function start_tray(){

    write_header " Starting Tray"

    FINANCE_QUANT_TRAY &

    nl

    pause

}


function start_report_server(){

    write_header " Starting.. FINANCE_QUANT_HTTP_SERVER "

    FINANCE_QUANT_HTTP_SERVER &

    nl

    pause
}


function start_r_cmd(){

    write_header " Starting.. FINANCE_QUANT_R_CMD "

    FINANCE_QUANT_R_CMD &

    nl

    pause
}




# Purpose - Network inferface and routing info
function start_gtk_search(){

    write_header " Starting.. "

    FINANCE_QUANT_VGREP &

    nl

    pause
}


# Purpose  - Display a menu on screen
function show_menu(){
    date
    echo "---------------------------"
    echo "   Main Menu"
    echo "---------------------------"
    echo "0. exit"
    echo "1. Operating system info"
    echo "2. Hostname and dns info"
    echo "3. Network info"
    echo "4. Who is online"
    echo "5. Last logged in users"
    echo "6. Free and used memory info"
    echo "7. Create Db"
    echo "8. Scann IBES for strong buy"
    echo "9. Start report server"
    echo "10. Start gtk search interface"
    echo "11. Market Overview"
    echo "12. Start R back-test"
    echo "13. Start Tray"


}

# Purpose - Display header message
# $1 - message
function write_header(){
    local h="$@"
    echo "---------------------------------------------------------------"
    echo "     ${h}"
    echo "---------------------------------------------------------------"
}

# Purpose - Get info about your operating system
function os_info(){
    write_header " System information "
    echo "Operating system : $(uname)"
    [ -x $LSB ] && $LSB -a || echo "$LSB command is not insalled (set \$LSB variable)"
    #pause "Press [Enter] key to continue..."
    pause
}

# Purpose - Get info about host such as dns, IP, and hostname
function host_info(){
    local dnsips=$(sed -e '/^$/d' /etc/resolv.conf | awk '{if (tolower($1)=="nameserver") print $2}')
    write_header " Hostname and DNS information "
    echo "Hostname : $(hostname -s)"
    echo "DNS domain : $(hostname -d)"
    echo "Fully qualified domain name : $(hostname -f)"
    echo "Network address (IP) :  $(hostname -i)"
    echo "DNS name servers (DNS IP) : ${dnsips}"
    pause
}

# Purpose - Network inferface and routing info
function net_info(){
    devices=$(netstat -i | cut -d" " -f1 | egrep -v "^Kernel|Iface|lo")
    write_header " Network information "
    echo "Total network interfaces found : $(wc -w <<<${devices})"

    echo "*** IP Addresses Information ***"
    ip -4 address show

    echo "***********************"
    echo "*** Network routing ***"
    echo "***********************"
    netstat -nr

    echo "**************************************"
    echo "*** Interface traffic information ***"
    echo "**************************************"
    netstat -i

    pause
}

# Purpose - Display a list of users currently logged on
#           display a list of receltly loggged in users
function user_info(){
    local cmd="$1"
    case "$cmd" in
    who) write_header " Who is online "; who -H; pause ;;
    last) write_header " List of last logged in users "; last ; pause ;;
    esac
}

# Purpose - Display used and free memory info
function mem_info(){
    write_header " Free and used memory "
    free -m

    echo "*********************************"
    echo "*** Virtual memory statistics ***"
    echo "*********************************"
    vmstat
    echo "***********************************"
    echo "*** Top 5 memory eating process ***"
    echo "***********************************"
    ps auxf | sort -nr -k 4 | head -5
    pause
}
# Purpose - Get input via the keyboard and make a decision using case..esac
function read_input(){
    local c
    read -p "Enter your choice [ 0 - 19 ] " c
    case $c in
    0)  echo "Bye!"; exit 0 ;;
    1)  os_info ;;
    2)  host_info ;;
    3)  net_info ;;
    4)  user_info "who" ;;
    5)  user_info "last" ;;
    6)  mem_info ;;
    7)  create_db ;;
    8)  run_test ;;
    9)  start_report_server ;;
    10) start_gtk_search ;;
    11) market_overview ;;
    12) start_r_cmd ;;
    13) start_tray ;;
    *)
    echo "Please select between 0 to 19 choice only."
    pause
    esac
}



#
function create_db(){

write_header " Create Base Database "

    FINANCE_QUANT_CREATE_DB

    pause
}


# ignore CTRL+C, CTRL+Z and quit singles using the trap
trap '' SIGINT SIGQUIT SIGTSTP

# main logic
while true
do
    clear
    show_menu # display memu
    read_input  # wait for user input

done
