+ int r = 0;
+ /* Large files have to be uploaded as multiple
+ separately-deflated chunks, because the compressed and
+ uncompressed lengths in each record are encoded in unsigned
+ 16-bit integers each.
+
+ The header can't be split into multiple chunks, and it
+ should never have to, since it won't ever get even close to
+ 64KiB.
+
+ The uploaded file may be larger: to upload such large
+ files, it suffices to send multiple records till the entire
+ file is transferred, without waiting for a response. Since
+ we've alread informed the server of the file size in the
+ header, it knows exactly how much data to expect before
+ sending a response. It will only send an error message
+ before that if it times us out.
+
+ Odds are that any reasonably large size will do, but it
+ can't be too close to 64KiB, otherwise there won't be room
+ for the compressed length should it not compress well,
+ which should never happen for capital-ASCII-only
+ declaration files, but who knows?
+
+ This chunk size worked at the first try, uploading a
+ ~100KiB file, so let's stick with it. */
+ const int maxc = 64472;
+ if (header && len > maxc)
+ return -1;
+
+ do {
+ char *out = NULL;
+ size_t olen;
+ size_t clen = len < maxc ? len : maxc;
+ r = deflateRecord(buffer, clen, &out, &olen, header);
+ if (!r) {
+ size_t n = gnutls_record_send(session, out, olen);
+ if (n != olen)
+ r = -1;
+ }
+ free(out);
+ buffer += clen;
+ len -= clen;
+ } while (len && !r);
+ return r;
+}
+
+static int rnet_recv(gnutls_session_t session, struct rnet_message **message)
+{
+ char *out;
+ size_t olen;
+ int r;
+ char *buffer;
+ size_t len;
+ rnet_message_expand(message, 6);
+ buffer = (*message)->buffer;
+ r = gnutls_record_recv(session, buffer, 6);
+ if (buffer[0] == 0x01) {
+ len = chars2len(buffer+1);
+ rnet_message_expand(message, len);
+ buffer = (*message)->buffer + 6;
+ r = gnutls_record_recv(session, buffer, len);
+ inflateRecord(buffer - 6, len + 6, &out, &olen);
+ rnet_message_del(*message);
+ *message = NULL;
+ rnet_message_expand(message, olen);
+ memcpy((*message)->buffer, out, olen);
+ (*message)->len = olen;
+ free(out);
+ } else {
+ len = chars2len(buffer+1);
+ rnet_message_expand(message, len - 1);
+ buffer = (*message)->buffer + 6;
+ r = gnutls_record_recv(session, buffer, len - 1);
+ (*message)->len = len + 4;
+ rnet_message_strip(*message, 4);
+ }
+ return 0;
+}
+
+static void save_rec_file(char *cpf, char *buffer, int len)
+{
+ int fd;
+ char *filename;
+ char *home, *tmpdir;
+ mode_t mask;
+ size_t fnlen;
+ int r;
+ home = getenv("HOME");
+ if (!home) {
+ tmpdir = getenv("TMPDIR");
+ if (!tmpdir)
+ tmpdir = "/tmp";
+ home = tmpdir;
+ }
+ fnlen = strlen(home) + strlen(cpf) + 13;
+ filename = malloc(fnlen);
+ snprintf(filename, fnlen, "%s/%s.REC.XXXXXX", home, cpf);
+ mask = umask(0177);
+ fd = mkstemp(filename);
+ if (fd < 0) {
+ fprintf(stderr, "Could not create receipt file: %s\n",
+ strerror(errno));
+ goto out;
+ }
+ r = write(fd, buffer, len);
+ if (r != len) {
+ fprintf(stderr, "Could not write to receipt file%s%s\n",
+ r < 0 ? ": " : ".",
+ r < 0 ? strerror(errno) : "");
+ goto out;
+ }
+ fprintf(stderr, "Wrote the receipt to %s.\n", filename);
+out:
+ close(fd);
+ free(filename);
+ umask(mask);
+}
+
+static void handle_response_text_and_file(char *cpf, struct rnet_message *message)
+{
+ char *value;
+ int vlen;
+ if (!rnet_message_parse(message, "texto", &value, &vlen))
+ fprintf(stderr, "%.*s\n", vlen, value);
+ if (!rnet_message_parse(message, "arquivo", &value, &vlen))
+ save_rec_file(cpf, value, vlen);
+}
+
+static void handle_response_already_found(char *cpf, struct rnet_message *message)
+{
+ handle_response_text_and_file(cpf, message);
+}
+
+static void handle_response_error(struct rnet_message *message)
+{
+ char *value;
+ int vlen;
+ if (!rnet_message_parse(message, "texto", &value, &vlen))
+ fprintf(stderr, "%.*s\n", vlen, value);
+ fprintf(stderr, "Error transmiting DEC file.\n");