view release on metacpan or  search on metacpan

scripts/FINANCE_QUANT_TRAY  view on Meta::CPAN

666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
 
sub click {
 
    
   return 1;
}
 
 
#right click menu
sub menu {
   my $menu = Gtk2::Menu->new();
 
   #VCI
   my $menu_VCI = Gtk2::ImageMenuItem->new_with_label("CLI UI");
   $menu_VCI->set_image(Gtk2::Image->new_from_stock('gtk-refresh',
'menu'));
 
      $menu_VCI->signal_connect(activate => sub {
print system ('financequant &');
   });
 
 
   $menu->add($menu_VCI);
 
   #configure
   my $menu_pref = Gtk2::ImageMenuItem->new_with_label("XML DUMP");
      $menu_pref->signal_connect(activate => sub {
my $response=0;
 my $error =0;
print system ('FINANCE_QUANT_XML_RESULTS');
 
print $response;
   });
   $menu_pref->set_image(Gtk2::Image->new_from_stock('gtk-preferences','menu'));
   $menu->add($menu_pref);
 
 
 
   #configure
   my $menu_http = Gtk2::ImageMenuItem->new_with_label("HTTP REPORTS");
      $menu_http->signal_connect(activate => sub {
            system("FINANCE_QUANT_HTTP_SERVER &");
   });
   $menu_http->set_image(Gtk2::Image->new_from_stock('gtk-media-play','menu'));
   $menu->add($menu_http);
 
 
 
   #separator
   my $menu_sep = Gtk2::SeparatorMenuItem->new();
   $menu->add($menu_sep);
 
   #Quit
   my $menu_quit = Gtk2::ImageMenuItem->new_with_label("Quit");
   $menu_quit->signal_connect(activate => sub {Gtk2->main_quit});
   $menu_quit->set_image(Gtk2::Image->new_from_stock('gtk-quit', 'menu'));
   $menu->add($menu_quit);
 
 
    
   return $menu;
}
 
 
 
#Program interfaces
sub interface {
   my $interface = Gtk2::Menu->new;
 
   #menu items for VCI
   #Progress bar for number of downloads; just a countng bar
 
   #Add the correct controls to menu
   my $menu_vci_connect = Gtk2::ImageMenuItem->new_with_label("Connect");
   $interface->add($menu_vci_connect);
   my $menu_vci_stop = Gtk2::ImageMenuItem->new_with_label("Stop");
   $interface->add($menu_vci_stop);
 
   $interface->show_all;
     
    
 
}

scripts/financequant  view on Meta::CPAN

194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
    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"