commit 46cd565e34fb49f9c13eba2f394af751b6eea249
Author: Denis Knauf <Denis.Knauf@gmail.com>
Date:   Mon Sep 27 13:40:21 2010 +0200

    init

diff --git a/c.rb b/c.rb
new file mode 100755
index 0000000..038d1a5
--- /dev/null
+++ b/c.rb
@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+
+tor = IO.pipe
+tos = IO.pipe
+
+fork do
+	$stdin.reopen tor.first
+	$stdout.reopen tos.last
+	exec 'ssh', ARGV[0], 'perl', 'r.pl', ARGV[1]
+end
+
+$stdin.reopen tos.first
+$stdout.reopen tor.last
+exec 'perl', 's.pl', ARGV[2]
diff --git a/r.pl b/r.pl
new file mode 100755
index 0000000..8536d1f
--- /dev/null
+++ b/r.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/env perl
+
+while( read STDIN, my $data, 6) {
+	my( $cmd, $length) = unpack 'nN', $data;
+	read STDIN, my $data, $length;
+	if( 1 == $cmd) {
+		print STDERR "{action: \"open_file\", file: \"$data\"}";
+		open( F, '>>', $data) or print STDERR ("{error: \"unable_to_open_file\", message: \"Can't open file <$data>.\"}");
+		my( $dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
+       $atime,$mtime,$ctime,$blksize,$blocks) = stat F;
+		print pack( 'N', $size);
+	}
+	elsif( 2 == $cmd) {
+		print F, $data;
+	}
+	else
+		exit(1);
+}
diff --git a/s.pl b/s.pl
new file mode 100755
index 0000000..26c789b
--- /dev/null
+++ b/s.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl
+
+my $dir = shift @ARGS;
+$dir =~ /^(\/.*)\/[^/]*$/ or die( '{error: "invalid_path_expression", message: "Path-Expression is invalid."}');
+$dir, my $fexpr = $1, $2;
+$fexpr = /$fexpr/;
+
+opendir( my $dh, $dir) || die '{error: "dir_not_found", message: "Directory not found."}';
+while( $filename = readdir( $dh)) {
+	print pack( 'nN/(A*)', 1, $filename);
+	open F, $filename;
+	read STDIN, my $length, 4; # Was wenn < 4 ?
+	seek F, $length, SEEK_SET;
+	print pack( 'nN/(A*)', 2, $r)  while read( F, $r, 2048);
+	close F;
+}
+closedir $dh;