view release on metacpan or  search on metacpan

lib/App/FQStat/Actions.pm  view on Meta::CPAN

sub delete_color_scheme {
  warnenter if ::DEBUG;
  my $name = poll_user("Delete which color scheme? ");
  if ($name =~ /^\s*(\w+)\s*$/i) {
    my $schemeName = lc($1);
    return 1 if $schemeName eq 'default';
    my $schemes = get_config("color_schemes");
    if (exists($schemes->{$schemeName})) {
      delete $schemes->{$schemeName};
    }
  }
  return 1;
}

sub save_color_scheme {
  warnenter if ::DEBUG;
  my $name = poll_user("Save as which color scheme? ");
  if ($name =~ /^\s*(\w+)\s*$/i) {
    my $schemeName = lc($1);
    return 1 if $schemeName eq 'default';
    my $schemes = get_config("color_schemes");
    $schemes->{$schemeName} = {%{ get_config('colors') }};
  }
  return 1;
}

sub toggle_summary_mode {
  warnenter if ::DEBUG;
  {
    lock($::SummaryMode);
    $::SummaryMode = ($::SummaryMode+1) % 2;
    set_config("summary_mode", $::SummaryMode);
  }
  return 1;
}


sub toggle_summary_name_clustering {
  warnenter if ::DEBUG;
  $::Summary = [];
  my $cluster = get_config("summary_clustering")||0;
  $cluster = ($cluster+1)%2;
  set_config("summary_clustering", $cluster);
  return 1;
}


sub show_manual {
  warnenter if ::DEBUG;
  cls();
  my $heading = get_color("menu_normal");
  my $h = get_color("warning");
  my $r = RESET;
  print <<"HERE";
${heading}  fqstat v$App::FQStat::VERSION - Interactive front-end for qstat               $r
Commands:
  ${h}'h'             ${r}     Show this (H)elp screen
  ${h}'q'             ${r}     (Q)uit
  ${h}F10             ${r}     Show Menu
  ${h}F5              ${r}     Refresh data from qstat and redraw
  ${h}'S'             ${r}     Toggle Summary Mode
  ${h}Up- / Down-Arrow${r}     Scroll up/down if possible
  ${h}Page-Up / -Down ${r}     Scroll one page up/down if possible
  ${h}Pos1 / End      ${r}     Jump to beginning / end
  ${h}Space / Enter   ${r}     Show detailed job info

  ${h}'u'             ${r}     Enter (U)ser name whose jobs to display
  ${h}'H'             ${r}     (H)ightlight a user's jobs
  ${h}'i'             ${r}     Set the desired update (I)nterval
  ${h}'s'             ${r}     Select the field to (S)ort by
  ${h}'r'             ${r}     Toggle display (R)eversal
  ${h}'l'             ${r}     Show job (l)og
  ${h}'k'             ${r}     (Kill), Select jobs for Deletion
  ${h}'p'             ${r}     Change (P)riority of selected jobs
  ${h}'o/O'           ${r}     H(o)ld jobs / Resume j(O)bs
  ${h}'c'             ${r}     (C)lear error state of jobs
                               (In Summary Mode: Toggle Clustering)
  ${h}'d'             ${r}     Change job (d)ependencies
fqstat is (c) 2007-2009 Steffen Mueller. This program is free software; you
can redistribute it and/or modify it under the same terms as Perl itself.
HERE
  my $input = Term::ReadKey::ReadKey(1e9);
  return 1; # redraw
}



1;