- /*
- * ****FIXME**** enhance this to look for
- * more things than just a session.
- */
- for ( ;ok; ) {
- DEV_RECORD *record; /* for reading label of multi-volumes */
-
- if (job_cancelled(jcr)) {
- ok = FALSE;
- break;
- }
- /* Read Record */
- Dmsg1(500, "Main read_record. rem=%d\n", rec.remainder);
- if (!read_record(dev, block, &rec)) {
- Dmsg1(500, "Main read record failed. rem=%d\n", rec.remainder);
- if (dev->state & ST_EOT) {
- if (rec.remainder) {
- Dmsg0(500, "Not end of record.\n");
- }
- Dmsg2(90, "NumVolumes=%d CurVolume=%d\n", jcr->NumVolumes, jcr->CurVolume);
- if (jcr->NumVolumes > 1 && jcr->CurVolume < jcr->NumVolumes) {
- close_dev(dev);
- for (p=jcr->VolumeName; *p++; ) /* skip to next volume name */
- { }
- jcr->CurVolume++;
- Dmsg1(20, "There is another volume %s.\n", p);
- strcpy(jcr->VolumeName, p);
- dev->state &= ~ST_READ;
- if (!acquire_device_for_read(jcr, dev, block)) {
- Emsg2(M_ERROR, 0, "Cannot open Dev=%s, Vol=%s\n", dev_name(dev), p);
- ok = FALSE;
- break;
- }
- record = new_record();
- Dmsg1(500, "read record after new tape. rem=%d\n", record->remainder);
- read_record(dev, block, record); /* read vol label */
- dump_label_record(dev, record, 0);
- free_record(record);
- continue;
- }
- Dmsg0(90, "End of Device reached.\n");
- break; /* End of Tape */
- }
- if (dev->state & ST_EOF) {
- Dmsg0(90, "Got End of File. Trying again ...\n");
- continue; /* End of File */
- }
-
- Emsg2(M_ABORT, 0, "Read error on Record Header %s ERR=%s\n", dev_name(dev), strerror(errno));
- }
-
- /* Some sort of label? */
- if (rec.FileIndex < 0) {
- Dmsg1(40, "Got label = %d\n", rec.FileIndex);
- if (rec.FileIndex == EOM_LABEL) { /* end of tape? */
- Dmsg0(40, "Get EOM LABEL\n");
- break; /* yes, get out */
- }
- continue; /* ignore other labels */
- }
-
- if (rec.VolSessionId != jcr->read_VolSessionId ||
- rec.VolSessionTime != jcr->read_VolSessionTime) {
- Dmsg0(50, "Ignore record ids not equal\n");
- continue; /* ignore */
- }
-
- /* Generate Header parameters and send to File daemon
- * Note, we build header in hdr buffer to avoid wiping
- * out the data record
- */
- ds->msg = hdr;
- if (!bnet_fsend(ds, rec_header, rec.VolSessionId, rec.VolSessionTime,
- rec.FileIndex, rec.Stream, rec.data_len)) {
- Dmsg1(30, ">filed: Error Hdr=%s\n", ds->msg);
- ds->msg = rec.data;
- ok = FALSE;
- break;
- } else {
- Dmsg1(30, ">filed: Hdr=%s\n", ds->msg);
- }
-
- ds->msg = rec.data; /* restore data record address */
-
- /* Send data record to File daemon */
- ds->msglen = rec.data_len;
- Dmsg1(40, ">filed: send %d bytes data.\n", ds->msglen);
- if (!bnet_send(ds)) {
- Dmsg0(0, "Error sending to FD\n");
- Jmsg1(jcr, M_FATAL, 0, _("Error sending to File daemon. ERR=%s\n"),
- bnet_strerror(ds));
- ok = FALSE;
- }
- }