App-ClusterSSH

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

        'Readonly'            => 0,
        'File::Which'         => 0,
        'File::Temp'          => 0,
        'Test::DistManifest'  => 0,
        'Test::Differences'   => 0,
        'CPAN::Changes'       => 0.27,
        'File::Slurp'         => 0,
        'Test::PerlTidy'      => 0,
        'Perl::Tidy'          => 20180220,
    },
    recommends         => { 'Sort::Naturally' => 0, },
    configure_requires => { 'Module::Build'   => 0, },
    add_to_cleanup     => ['App-ClusterSSH-*'],
    create_makefile_pl => 'traditional',
    script_files       => [
        'bin/cssh',
        'bin/csftp',
        'bin/ccon',
        'bin/crsh',
        'bin/ctel',
        'bin/clusterssh_bash_completion.dist'

META.json  view on Meta::CPAN

            "Test::Trap" : "0"
         }
      },
      "configure" : {
         "requires" : {
            "Module::Build" : "0"
         }
      },
      "runtime" : {
         "recommends" : {
            "Sort::Naturally" : "0"
         },
         "requires" : {
            "Exception::Class" : "1.31",
            "File::Glob" : "0",
            "File::Path" : "0",
            "Getopt::Long" : "0",
            "Locale::Maketext" : "0",
            "Tk" : "800.022",
            "Try::Tiny" : "0",
            "X11::Protocol" : "0.56",

META.yml  view on Meta::CPAN

  App::ClusterSSH::Host:
    file: lib/App/ClusterSSH/Host.pm
    version: '0.03'
  App::ClusterSSH::L10N:
    file: lib/App/ClusterSSH/L10N.pm
  App::ClusterSSH::L10N::en:
    file: lib/App/ClusterSSH/L10N/en.pm
  App::ClusterSSH::Range:
    file: lib/App/ClusterSSH/Range.pm
recommends:
  Sort::Naturally: '0'
requires:
  Exception::Class: '1.31'
  File::Glob: '0'
  File::Path: '0'
  Getopt::Long: '0'
  Locale::Maketext: '0'
  Tk: '800.022'
  Try::Tiny: '0'
  X11::Protocol: '0.56'
  X11::Protocol::WM: '0'

README  view on Meta::CPAN

            connect to all of them, not just the first one found. See also
            "--use-all-a-records"}

        use_hotkeys = 1
            Setting to 0 will disable all hotkeys.

        use_natural_sort = 0
            Windows will normally sort in alphabetical order, i.e.: host1,
            host11, host2. Setting to this 1 will change the sort order,
            i.e.: host1, host2, host11. NOTE: You must have the perl module
            Sort::Naturally installed.

        user = $LOGNAME
            Sets the default user for running commands on clients.

        window_tiling = 1
            Perform window tiling (set to 0 to disable)

        window_tiling_direction = right
            Direction to tile windows, where "right" means starting top left
            and moving right and then down, and anything else means starting

lib/App/ClusterSSH.pm  view on Meta::CPAN

        if ( $self->options->term_args );

    if ( $self->config->{terminal_args} =~ /-class (\w+)/ ) {
        $self->config->{terminal_allow_send_events}
            = "-xrm '$1.VT100.allowSendEvents:true'";
    }

    # if the user has asked for natural sorting we need to include an extra
    # module
    if ( $self->config()->{'use_natural_sort'} ) {
        eval { Module::Load::load('Sort::Naturally'); };
        if ($@) {
            warn(
                "natural sorting requested but unable to load Sort::Naturally: $@\n"
            );
        }
        else {
            $sort = sub { Sort::Naturally::nsort(@_) };
        }
    }

    $self->config->dump() if ( $self->options->dump_config );

    $self->evaluate_commands() if ( $self->options->evaluate );

    $self->get_font_size();

    $self->load_keyboard_map();

lib/App/ClusterSSH/Getopt.pm  view on Meta::CPAN

        q{If a hostname resolves to multiple IP addresses, set to [_1] to connect to all of them, not just the first one found.  See also [_2]},
        'C<1>', 'C<--use-all-a-records>}'
    );

    output '=item use_hotkeys = 1';
    output $self->loc( q{Setting to [_1] will disable all hotkeys.}, 'C<0>' );

    output '=item use_natural_sort = 0';
    output $self->loc(
        q{Windows will normally sort in alphabetical order, i.e.: host1, host11, host2.  Setting to this [_1] will change the sort order, i.e.: host1, host2, host11. NOTE: You must have the perl module [_2] installed.},
        'C<1>', 'L<Sort::Naturally>'
    );

    output '=item user = $LOGNAME';
    output $self->loc(
        q{Sets the default user for running commands on clients.});

    output '=item window_tiling = 1';
    output $self->loc( q{Perform window tiling (set to [_1] to disable)},
        'C<0>' );