#!/opt/perl/bin/perl

use strict;
use warnings;
use Net::EasyTCP;

# Configuration settings
our $port = 7716;
our $password = 'secret passphrase or whatever';

# Implementation
our $cache = [];

our $server = new Net::EasyTCP(
	mode            =>      "server",
	port            =>      $port,
) || die "ERROR CREATING SERVER: $@\n";

$server->setcallback(
	data            =>      \&gotdata,
	connect         =>      \&connected,
	disconnect	=>	\&disconnected,
) || die "ERROR SETTING CALLBACKS: $@\n";

print "Server starting on port $port\n";
$server->start() || die "ERROR STARTING SERVER: $@\n";

sub gotdata {
	my $client = shift;
	my $serial = $client->serial();
	my $data = $client->data();
	print "Client $serial sent me some data\n";
	if (ref($data) ne 'HASH') {
		print "Client $serial sent bad data\n";
		$client->send('DATA') || die "ERROR SENDING TO CLIENT: $@\n";
		$client->close() || die "ERROR CLOSING CLIENT: $@\n";
	}
	if ($data->{password} ne $password) {
		print "Client $serial sent wrong password\n";
		$client->send('PWD') || die "ERROR SENDING TO CLIENT: $@\n";
		$client->close() || die "ERROR CLOSING CLIENT: $@\n";
	}
	if ($data->{put}) {
		push @$cache, $data;
		print "Client $serial sent data to store\n";
		$client->send('OK') || die "ERROR SENDING TO CLIENT: $@\n";
		$client->close() || die "ERROR CLOSING CLIENT: $@\n";
	} elsif (not @$cache) {
		print "Client $serial requested data, but there is nothing here\n";
		$client->send('NODATA') || die "ERROR SENDING TO CLIENT: $@\n";
		$client->close() || die "ERROR CLOSING CLIENT: $@\n";
	} else {
		print "Client $serial requested date, sending one record\n";
		my $tosend = shift @$cache;
		$client->send($tosend) || die "ERROR SENDING TO CLIENT: $@\n";
		$client->close() || die "ERROR CLOSING CLIENT: $@\n";
	}
}

sub connected {
	my $client = shift;
	my $serial = $client->serial();
	print "Client $serial just connected\n";
}

sub disconnected {
	my $client = shift;
	my $serial = $client->serial();
	print "Client $serial just disconnected\n";
}

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use Net::EasyTCP;

# Configuration settings
our $host = 'myhost.mydomain.mytld';
our $port = 7716;
our $password = 'secret passphrase or whatever';

# Implementation
foreach my $file (@ARGV) {
	unless (-e $file) {
		print "No such file: '$file', skipping\n";
	}
	open F, '<', $file or die $!;
	my $data = { password => $password, filename => $file };
	{
		local $/ = undef;
		$data->{put} = <F>;
	}
	close F or die $!;

	print "Connecting to server...\n";
	my $client = new Net::EasyTCP(
		mode            =>      "client",
		host            =>      $host,
		port            =>      $port,
	) || die "ERROR CREATING CLIENT: $@\n";

	print "Connected. Sending $file...\n";
	$client->send($data) || die "ERROR SENDING: $@\n";

	print "Sent. Reading reply...\n";
	my $reply = $client->receive() || die "ERROR RECEIVING: $@\n";

	print "Reply was: '$reply'\n";
	$client->close();
}
print "Done.\n";

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;
use Net::EasyTCP;

# Configuration settings
our $host = 'myhost.mydomain.mytld';
our $port = 7716;
our $password = 'secret passphrase or whatever';

# Implementation
while (1) {
	print "Connecting to server...\n";
	my $client = new Net::EasyTCP(
		mode            =>      "client",
		host            =>      $host,
		port            =>      $port,
	) || die "ERROR CREATING CLIENT: $@\n";

	print "Connected. Sending get request...\n";
	my $data = { password => $password };
	$client->send($data) || die "ERROR SENDING: $@\n";

	print "Sent. Reading reply...\n";
	$data = $client->receive() || die "ERROR RECEIVING: $@\n";
	unless (ref($data)) {
		print "Reply was: '$data', exiting\n";
		$client->close();
		exit(0);
	}

	# Note: Now we have the only copy of the file.
	#       If we don't save it, it's lost.

	# Very simple sanity check, we trust the host...
	$data->{filename} =~ s!^.*/!!;
	if (-e $data->{filename}) {
		die "I won't overwrite '".$data->{filename}."'!\n";
	}
	open F, '>', $data->{filename} or die $!;
	print F $data->{put};
	close F or die $!;
	print "Written '".$data->{filename}."'.\n";

	$client->close();
}