view release on metacpan or  search on metacpan

scripts/financequant  view on Meta::CPAN

}


# 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"
    echo "14. Restore previous run from master-run Storable"
    echo "15. XML EXPORT"
    echo "16. View Data Cache"
    echo "17. View Trades"
    echo "18. Manage Contracts"
    echo "19. Custom Module"


}

# 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})"