Attachment 1370 Details for Bug 1382 – script to call scp repeatedly as a ControlMaster slave

script to call scp repeatedly as a ControlMaster slave

sshtester.pl (text/plain), 1.11 KB, created by EricKow on 2007-10-24 07:45:01 AEST

(hide)

Description:

Filename:

MIME Type:

Creator: EricKow

Created: 2007-10-24 07:45:01 AEST

Size: 1.11 KB

patch

obsolete

>#!/usr/bin/env perl
>
>use strict;
>
># ----------------------------------------------------------------------
># tweak me
># ----------------------------------------------------------------------
>
>my $SCP=$ENV{SCP} || "scp";
>my $SSH=$ENV{SSH} || "ssh";
>
>my $DEFAULT_SERVER='192.168.0.2';
>my $DEFAULT_STOP=300;
>
># ----------------------------------------------------------------------
># read command line arguments
># ----------------------------------------------------------------------
>
>my $server;
>my $stop;
>
>if ($#ARGV < 0) {
>  $server = $DEFAULT_SERVER;
>} else {
>  $server = $ARGV[0];
>  shift;
>}
>
>if ($#ARGV < 0) {
>  $stop = $DEFAULT_STOP;
>} else {
>  $stop = $ARGV[0];
>  shift;
>}
>
># ----------------------------------------------------------------------
># run control master and scp a file over and over again
># ----------------------------------------------------------------------
>
>my $control_path='/tmp/'.$server;
>system "$SSH $server -S $control_path  -N -f -M";
>for (my $n=0;$n<$stop;$n++) {
>  printf "$n\n";
>  system "$SCP -q -o ControlPath=$control_path $server:foo /tmp/sshtester";
>}
>system "$SSH $server -S $control_path -O exit";

Actions: View

Attachments on bug 1382: 1370