From 18ebdd98128435ecfc64df79a9dcda4604ad87d0 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 17 Feb 2010 20:38:31 +0100
Subject: [PATCH] generate client-side shell script

---
 server.pl | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/server.pl b/server.pl
index bf8e56d..b158748 100755
--- a/server.pl
+++ b/server.pl
@@ -1,5 +1,8 @@
 #!/usr/bin/perl
 
+# install on client with:
+# echo install | nc 10.60.0.92 9001 > bak ; chmod 755 bak
+
 use warnings;
 use strict;
 use autodie;
@@ -22,6 +25,11 @@ while (my $client = $server->accept()) {
 	my ($command,$path,$message) = split(/\s+/,<$client>,3);
 	my $ip = $client->peerhost;
 
+	if ( $command eq 'install' ) {
+		print $client '#!/bin/sh',$/,'echo $* | nc 10.60.0.92 9001',$/;
+		next;
+	}
+
 	warn "$ip [$command] $path | $message\n";
 
 	if ( ! -d $ip ) {
-- 
2.20.1