每日一记 2009/08/06 perl socket script

Blog of JoJo — Thu, 06 Aug 2009 04:11:00 GMT

Here is the script in it's
entirety.
It would be taylored to only execute one
command not an open perl script. Better
than having root .rhosts everywhere.
I think where it does the:

print F $Line;

at the bottom is where I could put some
kind of execute statement.
Take the string and run it not print it
to a file.

socket.client.perl
#!/usr/bin/perl
#===============================================
# Client -- using object interface
# Support Windows and UNIX
#===============================================
use IO::Socket;
my $sock = new IO::Socket::INET (
PeerAddr => '128.166.11.13',
PeerPort => '9999',
Proto => 'tcp',
);
die "Could not create socket: $!"n" unless $sock;
print $sock "Hi there!"n";
$sock->send("Hi again!"n");

close($sock);

socket.server.perl
#!/usr/bin/perl
#===============================================
# Server -- using object interface
# Support Windows and UNIX
#===============================================

#use Proc::Daemon;
use IO::Socket;
#Proc::Daemon::Init();

use POSIX qw(setsid);

sub daemonize {
die "Can't fork" unless defined (my $child = fork());
exit 0 if $child;
setsid();
open(STDIN, " open(STDOUT, ">/dev/null");
open(STDERR, ">&STDOUT");
chdir '/';
umask(0);
#$ENV{PATH} = '/bin:/sbin:/usr/bin:/usr/sbin';
return $$;
};

&daemonize;
while() {
my $new_sock = $sock->accept();

####################################
# Put a message to file. #
####################################

while(defined($Line = <$new_sock>)) {
open (F,"+>>/lhome/root/testfile.txt");
print F $Line;
close F;
};
close($sock);
}; #End of while cycle
A. Clay Stephenson Expert in this area This member has accumulated 80000 or more points
May 21, 2004 16:47:45 GMT 10 pts
In that case, $Line has your input so you can use it to execute whatever you like.

Typically, your client should send a formatted request string of some type. I like to use to separate the fields and then your server responds each time it sees a new line of input.

------------------------------------------------------------------------------------------------------

All I am saying in that any client/server architecture, you must establish some sort of protocol.

Let's suppose that your server does 4 things:
1) lists files in a dedicated directories
2) removes 1 file
3) add's a line to an existing file
4) kill the server

Your create client requests that adhere to this, for example, you formant your protocol like this
request_codestring1string2

Now every line sent to the server expects these 3 arguments -- although some may simply be dummy args. Tabs are nice because unlike spaces or colons or commas they are not typically part of strings. Typically the request_code is something very easy to parse; e.g 1 - list; 2 - remove, 4 - kill,kill,kill

If you wanrt to see some examples of this along with a little explanation, go to www.sysadminmag.com and look under the April '03 issue. I wrote an article that used Perl a Perl client/server pair to implement multi-host semaphores. Their web page also has a source code link where you will find the client and server pieces.

-----------------------------------------------------------------------------------------------

For now though. I just wanted something
simple to get around the root .rhosts problem. I was thinking as a security measure
of passing a code to the server.pl but don't
know the perl syntax at this time.
Could you show me the simple syntax for
passing two args.

e.g.

From client.pl send:

1234 shutdown.sh

On server.pl check code then run command:

1234 shutdown.sh

On my client.perl I currently have:

print $sock "shutdown.sh"

On my server.perl I have:

while(defined($Line = <$new_sock>)) {
system($Line);
close($sock);
}; #End

Blog of JoJo 2009-08-06 12:11 发表评论

每日一记 2009/08/06 use ssh to execute perl script remotely

Blog of JoJo — Thu, 06 Aug 2009 04:08:00 GMT

#!/opt/TLCLperl/bin/perl -w

#!/usr/local/bin/perl -w



#

# use ssh to execute perl script remotely

#



# You can change PERL and REMOTE_CMD constants to reflect your real

# environment...



use constant PERL => 'perl'; # maybe "/usr/local/bin/perl"

use constant REMOTE_CMD => 'ssh';

use constant CAT_CMD => 'cat';



use strict;

use vars qw($VERSION);

$VERSION = '1.00';



use constant USAGE => <


Usage:



$0 ""

[-v]                                 ""

[-r]           ""

[-R]                 ""

[-Q]                      ""

[]                 ""

<[@]remote_host>[,...]  ""

[] ""

[

BlogJava-jojo's blog－－快乐忧伤都与你同在-文章分类-My Script

每日一记 2009/08/06 perl socket script

每日一记 2009/08/06 use ssh to execute perl script remotely