diff options
author | tradke <tradke@83718e91-0e4f-0410-abf4-91180603181f> | 2007-09-25 16:48:29 +0000 |
---|---|---|
committer | tradke <tradke@83718e91-0e4f-0410-abf4-91180603181f> | 2007-09-25 16:48:29 +0000 |
commit | 4c619710faa37041d2cff2c8a09a0dc043e4f648 (patch) | |
tree | f25f63648bf9f6601be2f11e548ce1ce4bddd4bd | |
parent | 3375e3dd3a488727908ce73412c9253d75a20de7 (diff) |
- use send() rather than print() to send metadata over a socket connection
- call recv() as an acknowledgement after metadata has been sent
git-svn-id: http://svn.cactuscode.org/arrangements/CactusUtils/Formaline/trunk@138 83718e91-0e4f-0410-abf4-91180603181f
-rw-r--r-- | src/senddata.cc | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/senddata.cc b/src/senddata.cc index 22f9fc8..ead07ea 100644 --- a/src/senddata.cc +++ b/src/senddata.cc @@ -112,9 +112,11 @@ namespace Formaline << "if ($verbose) { print STDERR \"Opening local data file\\n\"; }" << endl << "open (my $FH, \"< $input\");" << endl << "if ($verbose) { print STDERR \"Sending data\\n\"; }" << endl -<< "print $SH $_ while (<$FH>);" << endl +<< "send ($SH, $_, 0) while (<$FH>);" << endl << "if ($verbose) { print STDERR \"Closing local data file\\n\"; }" << endl << "close $FH;" << endl +<< "if ($verbose) { print STDERR \"Receiving acknowledgement\\n\"; }" << endl +<< "recv ($SH, $_, 1, 0);" << endl << "if ($verbose) { print STDERR \"Shutting down connection\\n\"; }" << endl << "close $SH;" << endl << "if ($verbose) { print STDERR \"Done.\\n\"; }" << endl; |