add lazysql menu action
This commit is contained in:
@ -255,8 +255,7 @@ sub select_experiment {
|
||||
}
|
||||
|
||||
my @selected_experiments =
|
||||
TUI::select_from_list( "Select Archived Experiment to Open",
|
||||
$multi, @exp_with_notes );
|
||||
TUI::select_from_list( "Select Experiment", $multi, @exp_with_notes );
|
||||
die "No experiment selected" unless @selected_experiments;
|
||||
|
||||
map { s/(.*?)\s+\(Note:.+\)$/$1/ } @selected_experiments;
|
||||
|
||||
@ -41,6 +41,10 @@ my $resultbrowser = 'resultbrowser.py';
|
||||
my $remote_root = '/home/lab/smchurla/Documents/failnix';
|
||||
my $remote_builds_dir = "$remote_root/builds";
|
||||
|
||||
my $db_host = "127.0.0.1";
|
||||
my $db_port = "3306";
|
||||
my $db_user = "smchurla";
|
||||
|
||||
my %handlers = (
|
||||
'01. Build Experiments' => sub { do "$local_scripts_dir/build.pl"; },
|
||||
|
||||
@ -238,7 +242,18 @@ my %handlers = (
|
||||
"--port=$resultbrowser_port" );
|
||||
},
|
||||
|
||||
'14. Compare Experiment Results' => sub {
|
||||
'14. Open Database in LazySQL' => sub {
|
||||
my $experiment =
|
||||
Util::select_experiment(0) =~ s/T(\d\d)-(\d\d)-(\d\d)/T$1:$2:$3/r;
|
||||
my $ssh = Mars::ssh_connect();
|
||||
my $db_password = Mars::read_db_password_file();
|
||||
|
||||
system( 'lazysql', '-read-only',
|
||||
"mariadb://$db_user:$db_password\@$db_host:$db_port/${db_user}_$experiment"
|
||||
);
|
||||
},
|
||||
|
||||
'15. Compare Experiment Results' => sub {
|
||||
|
||||
my @selected_experiments = Util::select_experiment(1);
|
||||
|
||||
@ -304,7 +319,7 @@ my %handlers = (
|
||||
0, @entries );
|
||||
},
|
||||
|
||||
'15. Plot Results' => sub {
|
||||
'16. Plot Results' => sub {
|
||||
|
||||
# Generate R ggplot2 charts
|
||||
my @experiments = Util::find_subdirs($local_archive_dir);
|
||||
@ -341,7 +356,7 @@ my %handlers = (
|
||||
}
|
||||
},
|
||||
|
||||
'16. Run Build in GDB' => sub {
|
||||
'17. Run Build in GDB' => sub {
|
||||
my @builds = grep { /linux/ } Util::find_subdirs($local_builds_dir);
|
||||
my @selected_builds =
|
||||
TUI::select_from_list( "Select Build to Run in GDB", 0, @builds );
|
||||
|
||||
Reference in New Issue
Block a user