App-ClusterSSH

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

        NOTE: The key shortcut modifiers must be in the form "Control",
        "Alt" or "Shift", e.g. with the first letter capitalised and the
        rest lower case. Keys may also be disabled individually by setting
        to the word "null".

    $HOME/.clusterssh/send_menu
        This (optional) file contains items to populate the send menu. The
        default entry could be written as:

          <send_menu>
            <menu title="Use Macros">
                <toggle/>
                <accelerator>ALT-p</accelerator>
            </menu>
            <menu title="Remote Hostname">
                <command>%s</command>
                <accelerator>ALT-n</accelerator>
            </menu>
            <menu title="Local Hostname">
                <command>%s</command>
                <accelerator>ALT-l</accelerator>

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

                $menus{ $menu_ref->{title} }->menu->tearOffMenu()->raise;
            }
        }
        else {
            my $accelerator = undef;
            if ( $menu_ref->{accelerator} ) {
                $accelerator = $menu_ref->{accelerator};
            }
            if ( $menu_ref->{toggle} ) {
                $menus{send}->checkbutton(
                    -label       => 'Use Macros',
                    -variable    => \$self->config->{macros_enabled},
                    -offvalue    => 'no',
                    -onvalue     => 'yes',
                    -accelerator => $accelerator,
                );
            }
            else {
                my $command = undef;
                if ( $menu_ref->{command} ) {
                    $command = sub {

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

}

sub populate_send_menu {
    my ($self) = @_;

    #    my @menu_items = ();
    if ( !-r $self->config->{send_menu_xml_file} ) {
        $self->debug( 2, 'Using default send menu' );

        $menus{send}->checkbutton(
            -label       => 'Use Macros',
            -variable    => \$self->config->{macros_enabled},
            -offvalue    => 'no',
            -onvalue     => 'yes',
            -accelerator => $self->config->{key_macros_enable},
        );

        $menus{send}->command(
            -label   => 'Remote Hostname',
            -command => sub {
                $self->send_text_to_all_servers(

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

    output $self->loc(
        q{B<NOTE:> The key shortcut modifiers must be in the form [_1], [_2] or [_3], e.g. with the first letter capitalised and the rest lower case.  Keys may also be disabled individually by setting to the word [_4].},
        'C<Control>', 'C<Alt>', 'C<Shift>', 'C<null>'
    );

    output q{=item F<$HOME/.clusterssh/send_menu>};
    output $self->loc(
        q{This (optional) file contains items to populate the send menu.  The default entry could be written as:}
    );
    output '  <send_menu>
    <menu title="Use Macros">
        <toggle/>
        <accelerator>ALT-p</accelerator>
    </menu>
    <menu title="Remote Hostname">
        <command>%s</command>
        <accelerator>ALT-n</accelerator>
    </menu>
    <menu title="Local Hostname">
        <command>%s</command>
        <accelerator>ALT-l</accelerator>