1 files changed, 0 insertions, 82 deletions
diff --git a/perl/examples/rmount.pl b/perl/examples/rmount.pl
deleted file mode 100755
index 9ae1cc1..0000000
--- a/perl/examples/rmount.pl
+++ /dev/null
@@ -1,82 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use Net::SSH 'sshopen2';
-use IPC::Open2;
-use Fuse;
-use Data::Dumper;
-
-my ($host, $dir, $mount) = @ARGV;
-if(!defined($mount)) {
-	$mount = $dir;
-	if($host =~ /^(.*):(.*)$/) {
-		($host,$dir) = ($1,$2);
-	} else {
-		die "usage: $0 user\@host remotedir mountpoint\n".
-		    "or   : $0 user\@host:remotedir mountpoint\n";
-	}
-}
-
-`umount $mount` unless -d $mount;
-die "mountpoint $mount isn't a directory!\n" unless -d $mount;
-
-my (%args) = (mountpoint => $mount);
-
-map { my ($str) = $_; $args{$str} = sub { netlink($str,@_) } }
-	qw(getattr getdir open read write readlink unlink rmdir
-	   symlink rename link chown chmod truncate utime mkdir
-	   rmdir mknod statfs);
-
-sub connect_remote {
-	sshopen2($host, *READER, *WRITER, "./rmount_remote.pl $dir")
-		or die "ssh: $!\n";
-	select WRITER;
-	$| = 1;
-	select STDOUT;
-}
-
-$SIG{CHLD} = sub {
-	use POSIX ":sys_wait_h";
-	my $kid;
-	do {
-		$kid = waitpid(-1,WNOHANG);
-	} until $kid < 1;
-};
-
-connect_remote;
-
-sub netlink {
-	my ($str) = Dumper(\@_)."\n";
-	$str = sprintf("%08i\n%s",length($str),$str);
-	while(1) { # retry as necessary
-		my ($sig) = $SIG{ALRM};
-		my ($VAR1);
-		$VAR1 = undef;
-		eval {
-			$SIG{ALRM} = sub { die "timeout\n" };
-			alarm 10;
-			print WRITER $str;
-			my ($len, $data);
-			if(read(READER,$len,9) == 9) {
-				read(READER,$data,$len-length($data),length($data))
-					while(length($data) < $len);
-				eval $data;
-			}
-		};
-		alarm 0;
-		$SIG{ALRM} = $sig;
-		if(defined $VAR1) {
-			return wantarray ? @{$VAR1} : $$VAR1[0];
-		}
-		print STDERR "failed to send command; reconnecting ssh\n";
-		close(READER);
-		close(WRITER);
-		connect_remote();
-	}
-}
-
-Fuse::main(%args);
-
-netlink("bye");
-close(READER);
-close(WRITER);