From: short <>
Date: Wed, 8 Oct 2003 10:28:35 +0000 (+0000)
Subject: bootstrap
X-Git-Url: http://git.jankratochvil.net/?p=ssht.git;a=commitdiff_plain;h=301db34ccc66bf905e88bb3e83171c67f3c1e4dc

bootstrap
---

301db34ccc66bf905e88bb3e83171c67f3c1e4dc
diff --git a/hostintranet/etc-inittab b/hostintranet/etc-inittab
new file mode 100644
index 0000000..70dd759
--- /dev/null
+++ b/hostintranet/etc-inittab
@@ -0,0 +1 @@
+gw:2345:respawn:/root/public.internet.com--hostintranet-ssht
diff --git a/hostintranet/hostintranet-ssht.pl b/hostintranet/hostintranet-ssht.pl
new file mode 100755
index 0000000..c5e42a9
--- /dev/null
+++ b/hostintranet/hostintranet-ssht.pl
@@ -0,0 +1,55 @@
+#! /usr/bin/perl -Tw --
+
+use strict;
+#use warnings;	#-w
+
+use constant LOGFNAME=>"/root/hostintranet-ssht-out.log";
+
+open LOG,">>".LOGFNAME
+	or die "append: ".LOGFNAME;
+my $stdout=select();
+$|=1;
+select LOG;
+$|=1;
+select $stdout;
+
+my($nulldev ,$nullinode )=stat "/dev/null";
+my($stdindev,$stdininode)=stat STDIN;
+my $isnull=($nulldev==$stdindev && $nullinode==$stdininode);
+
+sub out
+{
+my($msg)=@_;
+
+	$msg="$$: $msg\n";
+	print LOG $msg;
+	print $msg;
+}
+
+sub outdie
+{
+my($msg)=@_;
+
+	out $msg;
+	die $msg;
+}
+
+out "CONNECT";
+for (;;) {
+	out scalar localtime(time());
+
+	my $tmo=60;
+	while ($tmo-->0) {
+		sleep 1;
+		next if $isnull;
+
+		my $rfds="";
+		vec($rfds,fileno(STDIN),1)=1;
+		my $efds=$rfds;
+		next if 1!=select $rfds,undef,$efds,0;
+		my $got;
+		outdie "expectfds" if vec($efds,fileno(STDIN),1);
+		my $sysread;
+		outdie "sysread=$sysread" if 1!=($sysread=sysread STDIN,$got,1);
+		}
+	}
diff --git a/hostintranet/public.internet.com--hostintranet-ssht b/hostintranet/public.internet.com--hostintranet-ssht
new file mode 100755
index 0000000..13c5887
--- /dev/null
+++ b/hostintranet/public.internet.com--hostintranet-ssht
@@ -0,0 +1,4 @@
+#! /bin/sh
+/root/hostintranet-ssht.pl </dev/null | \
+	/usr/bin/ssh -1 -i /root/public.internet.com--hostintranet-ssht--identity -R 8001:localhost:22 hostintranet-ssht@1.2.3.4-IP-of-public.internet.com \
+			>> /root/hostintranet-ssht-in.log 2>&1
diff --git a/hostintranet/public.internet.com--hostintranet-ssht--identity b/hostintranet/public.internet.com--hostintranet-ssht--identity
new file mode 100644
index 0000000..3622492
--- /dev/null
+++ b/hostintranet/public.internet.com--hostintranet-ssht--identity
@@ -0,0 +1 @@
+private key from ~/.ssh/id_dsa
diff --git a/public.internet.com/etc-passwd b/public.internet.com/etc-passwd
new file mode 100644
index 0000000..d4fe57f
--- /dev/null
+++ b/public.internet.com/etc-passwd
@@ -0,0 +1 @@
+hostintranet-ssht:x:1006:1006:hostintranet ssht:/home/hostintranet-ssht:/home/hostintranet-ssht/hostintranet-ssht.pl
diff --git a/public.internet.com/home-hostintranet-ssht/.ssh/authorized_keys b/public.internet.com/home-hostintranet-ssht/.ssh/authorized_keys
new file mode 100644
index 0000000..c6e87f5
--- /dev/null
+++ b/public.internet.com/home-hostintranet-ssht/.ssh/authorized_keys
@@ -0,0 +1 @@
+public key from ~/.ssh/id_dsa.pub
diff --git a/public.internet.com/home-hostintranet-ssht/hostintranet-ssht.log b/public.internet.com/home-hostintranet-ssht/hostintranet-ssht.log
new file mode 100644
index 0000000..e69de29
diff --git a/public.internet.com/home-hostintranet-ssht/hostintranet-ssht.pl b/public.internet.com/home-hostintranet-ssht/hostintranet-ssht.pl
new file mode 100755
index 0000000..e29f516
--- /dev/null
+++ b/public.internet.com/home-hostintranet-ssht/hostintranet-ssht.pl
@@ -0,0 +1,55 @@
+#! /usr/bin/perl -Tw --
+
+use strict;
+#use warnings;	#-w
+
+use constant LOGFNAME=>"/home/hostintranet-ssht/hostintranet-ssht.log";
+
+open LOG,">>".LOGFNAME
+	or die "append: ".LOGFNAME;
+my $stdout=select();
+$|=1;
+select LOG;
+$|=1;
+select $stdout;
+
+my($nulldev ,$nullinode )=stat "/dev/null";
+my($stdindev,$stdininode)=stat STDIN;
+my $isnull=($nulldev==$stdindev && $nullinode==$stdininode);
+
+sub out
+{
+my($msg)=@_;
+
+	$msg="$$: $msg\n";
+	print LOG $msg;
+	print $msg;
+}
+
+sub outdie
+{
+my($msg)=@_;
+
+	out $msg;
+	die $msg;
+}
+
+out "CONNECT";
+for (;;) {
+	out scalar localtime(time());
+
+	my $tmo=60;
+	while ($tmo-->0) {
+		sleep 1;
+		next if $isnull;
+
+		my $rfds="";
+		vec($rfds,fileno(STDIN),1)=1;
+		my $efds=$rfds;
+		next if 1!=select $rfds,undef,$efds,0;
+		my $got;
+		outdie "expectfds" if vec($efds,fileno(STDIN),1);
+		my $sysread;
+		outdie "sysread=$sysread" if 1!=($sysread=sysread STDIN,$got,1);
+		}
+	}