X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=submit%2Ftest.pl;h=0cc8be90444d1820bbffc73b8a44398067d82083;hb=2c3e101dcd66d9237c09653395350bafe5884b86;hp=9948a7083a8f18944029f402d6f1da0c464dd66b;hpb=92811b1aa5a791bc776b58afb241a7d93e737604;p=eval.git

diff --git a/submit/test.pl b/submit/test.pl
index 9948a70..0cc8be9 100755
--- a/submit/test.pl
+++ b/submit/test.pl
@@ -29,7 +29,44 @@ if ($z =~ /TLS/) {
 	) or die "Cannot establish TLS connection: " . IO::Socket::SSL::errstr() . "\n";
 }
 
-print $sk "Hello, world!\n";
-my $y = <$sk>;
-print $y;
+sub sendobj($) {
+	my ($h) = @_;
+	foreach my $x (keys %{$h}) {
+		print $sk $x, $h->{$x}, "\n";
+	}
+	print $sk "\n";
+	# FIXME: flush
+};
+
+sub recvobj() {
+	my $h = {};
+	while (<$sk>) {
+		chomp;
+		/^(.)(.*)$/ || last;
+		$h->{$1} = $2;
+	}
+	if (defined $h->{'-'}) { die "-" . $h->{'-'} . "\n"; }
+	return $h;
+}
+
+sub printobj($) {
+	my ($h) = @_;
+	foreach my $x (keys %{$h}) {
+		print $x, $h->{$x}, "\n";
+	}
+}
+
+sendobj({ 'U' => 'testuser' });
+recvobj();
+
+#sendobj({ '!' => 'SUBMIT', 'T' => 'plans', 'S' => 100, 'X' => 'c' });
+#recvobj();
+#print $sk "<";
+#foreach my $x (1..98) { print $sk "."; }
+#print $sk ">";
+#recvobj();
+
+sendobj({ '!' => 'STATUS' });
+printobj(recvobj());
+
 close $sk;