NAME

Sys::Manage::Conn - Connection to remote Perl

SYNOPSIS

Script

use Sys::Manage::Conn;
my $s =Sys::Manage::Conn->new([@ARGV], -option=>value,...)->connect();

$s->reval('print "Hello World,"\\n";');
$s->rcmd('dir');
$s->reval(['cd'], ';print "Hello World,"\\n";');
$s->reval('print "Hello World,"\\n";', ['logname']);
print $s->rfread('/etc/passwd');
$s->rfget('c:\\autoexec.sys', $s->{-tmp} .'.txt');
$s->rdo('/my/files/script.pl');

Command line utility

#!perl -w
use Sys::Manage::Conn;
my $s =Sys::Manage::Conn->connect([@ARGV], -exec=>1, -option=>value,...);
exit($?>>8);

script 0 rcmd		dir
script 0 fget		/etc/passwd	/secure/passwd
script 0 fget	-p	/etc		/secure/etc
script 0 rdo		/my/files/script.pl
script 0 rdo	-p	"%HOME%\packages\package.zip\start.bat"

Command line

  script -vde node:port user:password other-args

  (all command line arguments are optional, at least first will be 'node' or 0)

	-v		verbose mode, from 'v1' to 'v3'
	-d		debug mode (step-by-step execution)
	-e		execute rest of command line
	node		remote computer name or tcp/ip address, 0 for local
	port		remote computer IO::Socket::INET server port
	user		user name on remote computer
	password	password to login

	other-args (using '-e' or '-exec=>1'; '?' - optional):

		rcmd	?-'o-e-		os-command	argumets-list
		lcmd	?-		os-command	argumets-list
		rdo	?-o-e-p		?os-command !	local-script	?args
		fget	?-'mp		remote-source	local-target
		fput	?-'mp		local-source	remote-target
		agtfile	?-l		agent-script

		where:
			-'	quote remote arg with "'"
			-o-	refuse STDOUT
			-e-	refuse STDERR
			-p, -z	pack file(s)
			-l	loop agent script
			-m	move file(s)

DESCRIPTION

This module starts on remote computer Perl command line implementing IO::Socket::INET server to accept Perl source strings and return results. This may be considered as an agent implementation within Perl command line. The source may be seen using -v3 option or -echo=3.

There may be various methods to start Perl command line mentioned and corresponding -init and -perl values. Default is 'wmi' for Windows and 'rsh' otherwise.

The security is only tcp/ip address of manager, -chkip value with default.

This module is implemented and tested with Perl 5.6.0 on Windows 2000.

ABOUT REMOTE AGENT CONSTRUCTIONS

There may be a several variants.

Agent as a Perl Command Line

This variant is currently implemented.

Agent is a Perl command line (about 300 bytes) started via some remote command service:

perl -e "use IO::Socket;$r_=IO::Socket::INET->new(LocalPort=>8008,Reuse=>1,Listen=>1);$m_=$r_->accept();$r_->close;die if $m_->peerhost ne '127.0.0.1';while(defined($r_=$m_->getline)){$@=undef;$r_=eval $r_;$m_->printflush(\"\n----ret\$?\$!\$\@: $?\t$!\t$^E\t$@\t$r_\n\")}"

Additional agent code may be added to the first command evaluation.

Advantages: lite agent, lite load.

Disadvantages: agent size limitation.

Agent loader as a Perl Command Line

Agent will be loaded via a Perl command line (about 200 bytes) started via some remote command service:

perl -e "use IO::Socket;$r_=IO::Socket::INET->new(LocalPort=>8008,Reuse=>1,Listen=>1);$m_=$r_->accept();$r_->close;do eval $m_->getline if $m_->peerhost ne '127.0.0.1'"

The first row transferred will be an agent loader, it should accept entire agent code and store it into temporary file.

Advantages: agent may be more complex.

Disadvantages: increased agent startup load.

Separate Agent

Agent is a script file to be distributed and started on computers.

Advantages: agent may be very complex.

Disadvantages: agent distribution and manager authorization should be implemented, at least manager's IP address should be considered.

Note: agtfile method below produces a simple separate agent file may be used with -init => ''.

SLOTS

SLOTS

The usually slots are -init, -node, -user, -echo and -debug, -argv.

-agent

$m_

=> IO::Socket::INET

Connection to remote agent. Established by connect. Used internally.

Evaluated on remote agent code may use $m_ variable.

-argv

=> [rest of @ARGV unparsed]

Command line arguments for script itself. Parsing set([@ARGV]), some arguments first may be found for module, but arguments rest may be for script only. So, script may access it's own arguments via {-argv}->[arg number].

-cfg

-config

=> false | true | filename

Instruction to load configuration file. Default file name is 'Sys-Manage-Conn-cfg.pl'. It will be searched alike Sys::Manage::Cmd configuration file. $_ will contain object to be configured.

-chkip

=> gethostbyname | ''

TCP/IP address of manager (local node or host). Default value is given using gethostbyname (Sys::Hostname or Win32::NodeName).

-debug

=> false | true

-d

Debug mode. Automatically sets -echo=3.

-dirm

=> directory marker sign

Directory marker, '/' or '\', filled automatically using $0 or $^O.

-dirw

=> working directory

Directory where script started. Obtained using Cwd or Win32::GetCwd.

-echo

-v

=> 0 | 1 | 2 | 3

Echo printout level, verbosity level.

0 - none.

1 - print commands invoking alike rcmd or reval.

2 - print remote stdout and stderr accepting

3 - print perl sources transfer

METHODS

METHODS

The main methods are new, connect, reval, rcmd, fput, fget, rdo.

agtfile (?-options, target file) -> success

Writes separate agent script file to be used with -init => ''.

Used METHOD CALL OPTIONS: -', -l.

connect (-option=>value,...) -> self

connect ([command line arguments], -option=>value,...) -> self

connect ('class', [command line arguments], -option=>value,...) -> new object

Connects to remote -node, using -init, -user, -pswd. Starts remote -perl with command line IO::Socket::INET agent on -port, connects -agent to it.

disconnect () -> self

Closes connection opened.

error (error message) -> error value

Proceeds error according to -error. Returns undef, if returns.

fget (?-options, remote file name, local file name) -> success

rfget (?-options, remote file name, local file name) -> success

Reads remote file and writes it locally.

Used METHOD CALL OPTIONS: -', -m, -b-, -s+, -p+.

Default REMOTE SOURCE EXPANSION: do{.

METHOD CALL OPTIONS

METHOD CALL OPTIONS: Method call options considered as a first argument of method call, beginning with '-' sign and letter. Several options may be catenated into options string without additional '-' signs.
-'
-": Quoting for string arguments to embed into Perl source. To use on agent side only. Default is '"'.
-b-
-b0: 'b'inmode off. Switch off 'binmode' in file operations. Reserved, do not use.
-e-
-e0: refuse STD'e'RR. Remain remote STDERR unredirected.
-e!
-e@
-e#: 'e'xecution separator. Command line mark-up sign.
-l
-l+: 'l'oop. Start agent script file from agtfile.
-m
-m+
-m1: 'm'ove. Move file, delete remote file after transfer to manager.
-o-
-o0: refuse STD'o'UT. Remain remote STDOUT unredirected.
-p
-p+
-p1: 'p'ack, alias -z+. Use -pack archiver to compress source for transfer and extract into target directory. fput does not uses archiver if local file is already packed.
-s
-s+
-s1: 's'tring or 's'calar. Use string value as file content instead of file name.
-z
-z+
-z1: 'z'ip, alias -p+.

REMOTE SOURCE EXPANSION

REMOTE SOURCE EXPANSION

Writing Perl as string constants is difficult in escaping. So, many methods accepts lists as arguments, and an array reference (delimited by '[' and ']') may be argument too. This array will be expanded to Perl and embedded within other arguments.

The full syntax is:

[?command, ?-options, list of arguments]

Where

Command (optional) may be do{, eval{, system, `, see below. Default command is specified within individual METHODS, default options (see METHOD CALL OPTIONS) are inherited from method call.

Default do{ is used within rcmd and fget.

Default system( is used within reval.

do{

Evaluate Perl source within do{}.

eval{

Evaluate Perl source within eval{}.

system(

Execute command line via system call.

`

Execute command line within ``.

REMOTE EVALUATION ENVIRONMENT

REMOTE EVALUATION ENVIRONMENT: There are several variables available for remotely evaluated Perl.
$ENV{SMELEM}: Computer name, for compatibility with Sys::Manage::Cmd command line embedding.
$m_: IO::Socket::INET object, connected to -agent
$r_: Current value evaluated, current return value.
$t_: Temporary file name, alike -tmp.
OLDERR: Saved STDERR file handle.
OLDIN: Saved STDIN file handle.
OLDOUT: Saved STDOUT file handle.

VERSION

'2005-12-02': New agtfile method and command. New lcmd command.
'2005-11-25': Published 0.50 version.
'2005-09-19': Started

LICENSE

This is free software; you can use redistribute it and/or modify it under the same terms as Perl itself.

AUTHOR

Andrew V Makarow <makarow at mail.com>, for block

1 POD Error

The following errors were encountered while parsing the POD:

Around line 93:: You can't have =items (as at line 98) unless the first thing after the =over is an =item

To install Sys::Manage::Cmd, copy and paste the appropriate command in to your terminal.

cpanm

cpanm Sys::Manage::Cmd

CPAN shell

perl -MCPAN -e shell
install Sys::Manage::Cmd

For more information on module installation, please visit the detailed CPAN module installation guide.

	Global
`s`	Focus search bar
`?`	Bring up this help dialog

	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)

	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse

	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)