]> git.sur5r.net Git - bacula/bacula/blob - bacula/src/stored/label.c
Clean up some SD message nos.
[bacula/bacula] / bacula / src / stored / label.c
1 /*
2  *
3  *  label.c  Bacula routines to handle labels 
4  *
5  *   Kern Sibbald, MM
6  *                            
7  *
8  *   Version $Id$
9  */
10 /*
11    Copyright (C) 2000-2003 Kern Sibbald and John Walker
12
13    This program is free software; you can redistribute it and/or
14    modify it under the terms of the GNU General Public License as
15    published by the Free Software Foundation; either version 2 of
16    the License, or (at your option) any later version.
17
18    This program is distributed in the hope that it will be useful,
19    but WITHOUT ANY WARRANTY; without even the implied warranty of
20    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
21    General Public License for more details.
22
23    You should have received a copy of the GNU General Public
24    License along with this program; if not, write to the Free
25    Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
26    MA 02111-1307, USA.
27
28  */
29
30 #include "bacula.h"                   /* pull in global headers */
31 #include "stored.h"                   /* pull in Storage Deamon headers */
32
33 /* Forward referenced functions */
34 static void create_volume_label_record(JCR *jcr, DEVICE *dev, DEV_RECORD *rec);
35
36 extern char my_name[];
37 extern int debug_level;
38
39 /*
40  * Read the volume label
41  *
42  *  If jcr->VolumeName == NULL, we accept any Bacula Volume
43  *  If jcr->VolumeName[0] == 0, we accept any Bacula Volume
44  *  otherwise jcr->VolumeName must match the Volume.
45  *
46  *  If VolName given, ensure that it matches   
47  *
48  *  Returns VOL_  code as defined in record.h
49  *    VOL_NOT_READ
50  *    VOL_OK
51  *    VOL_NO_LABEL
52  *    VOL_IO_ERROR
53  *    VOL_NAME_ERROR
54  *    VOL_CREATE_ERROR
55  *    VOL_VERSION_ERROR
56  *    VOL_LABEL_ERROR
57  *    VOL_NO_MEDIA
58  */  
59 int read_dev_volume_label(JCR *jcr, DEVICE *dev, DEV_BLOCK *block)
60 {
61    char *VolName = jcr->VolumeName;
62    DEV_RECORD *record;
63    int ok = 0;
64
65    Dmsg3(100, "Enter read_volume_label device=%s vol=%s dev_Vol=%s\n", 
66       dev_name(dev), VolName, dev->VolHdr.VolName);
67
68    if (dev->state & ST_LABEL) {       /* did we already read label? */
69       /* Compare Volume Names allow special wild card */
70       if (VolName && *VolName && *VolName != '*' && strcmp(dev->VolHdr.VolName, VolName) != 0) {
71          Mmsg(&jcr->errmsg, _("Volume name mismatch on device %s: Wanted %s got %s\n"),
72             dev_name(dev), VolName, dev->VolHdr.VolName);
73          /*
74           * Cancel Job if too many label errors
75           *  => we are in a loop
76           */
77          if (jcr->label_errors > 100) {
78             set_jcr_job_status(jcr, JS_ErrorTerminated);
79             Jmsg(jcr, M_FATAL, 0, "%s", jcr->errmsg);
80          }
81          return jcr->label_status = VOL_NAME_ERROR;
82       }
83       Dmsg0(30, "Leave read_volume_label() VOL_OK\n");
84       return jcr->label_status = VOL_OK;       /* label already read */
85    }
86
87    dev->state &= ~(ST_LABEL|ST_APPEND|ST_READ);  /* set no label, no append */
88
89    if (!rewind_dev(dev)) {
90       Mmsg(&jcr->errmsg, _("Couldn't rewind device %s ERR=%s\n"), dev_name(dev),
91          strerror_dev(dev));
92       return jcr->label_status = VOL_NO_MEDIA;
93    }
94    strcpy(dev->VolHdr.Id, "**error**");
95
96    /* Read the device label block */
97    record = new_record();
98    Dmsg0(90, "Big if statement in read_volume_label\n");
99    if (!read_block_from_dev(dev, block)) { 
100       Mmsg(&jcr->errmsg, _("Volume on %s is not a Bacula labeled Volume, \
101 because:\n   %s"), dev_name(dev), strerror_dev(dev));
102    } else if (!read_record_from_block(block, record)) {
103       Mmsg(&jcr->errmsg, _("Could not read Volume label from block.\n"));
104    } else if (!unser_volume_label(dev, record)) {
105       Mmsg(&jcr->errmsg, _("Could not unserialize Volume label: %s\n"),
106          strerror_dev(dev));
107    } else if (strcmp(dev->VolHdr.Id, BaculaId) != 0 && 
108               strcmp(dev->VolHdr.Id, OldBaculaId) != 0) {
109       Mmsg(&jcr->errmsg, _("Volume Header Id bad: %s\n"), dev->VolHdr.Id);
110    } else {
111       ok = 1;
112    }
113    if (!ok) {
114       free_record(record);
115       empty_block(block);
116       rewind_dev(dev);
117       return jcr->label_status = VOL_NO_LABEL;
118    }
119
120    free_record(record);
121    /* If we are a streaming device, we only get one chance to read */
122    if (!dev_cap(dev, CAP_STREAM)) {
123       empty_block(block);
124       rewind_dev(dev);
125    }
126
127    if (dev->VolHdr.VerNum != BaculaTapeVersion && 
128        dev->VolHdr.VerNum != OldCompatibleBaculaTapeVersion1 &&  
129        dev->VolHdr.VerNum != OldCompatibleBaculaTapeVersion2) {
130       Mmsg(&jcr->errmsg, _("Volume on %s has wrong Bacula version. Wanted %d got %d\n"),
131          dev_name(dev), BaculaTapeVersion, dev->VolHdr.VerNum);
132       return jcr->label_status = VOL_VERSION_ERROR;
133    }
134
135    /* Compare Volume Names */
136    Dmsg2(30, "Compare Vol names: VolName=%s hdr=%s\n", VolName?VolName:"*", dev->VolHdr.VolName);
137    if (VolName && *VolName && *VolName != '*' && strcmp(dev->VolHdr.VolName, VolName) != 0) {
138       Mmsg(&jcr->errmsg, _("Volume name mismatch. Wanted %s got %s\n"),
139          VolName, dev->VolHdr.VolName);
140       /*
141        * Cancel Job if too many label errors
142        *  => we are in a loop
143        */
144       if (jcr->label_errors > 100) {
145          set_jcr_job_status(jcr, JS_ErrorTerminated);
146          Jmsg(jcr, M_FATAL, 0, "%s", jcr->errmsg);
147       }
148       return jcr->label_status = VOL_NAME_ERROR;
149    }
150    Dmsg1(30, "Copy vol_name=%s\n", dev->VolHdr.VolName);
151
152    /* We are looking for either an unused Bacula tape (PRE_LABEL) or
153     * a Bacula volume label (VOL_LABEL)
154     */
155    if (dev->VolHdr.LabelType != PRE_LABEL && dev->VolHdr.LabelType != VOL_LABEL) {
156       Mmsg(&jcr->errmsg, _("Volume on %s has bad Bacula label type: %x\n"), 
157           dev_name(dev), dev->VolHdr.LabelType);
158       return jcr->label_status = VOL_LABEL_ERROR;
159    }
160
161    dev->state |= ST_LABEL;            /* set has Bacula label */
162    if (debug_level >= 10) {
163       dump_volume_label(dev);
164    }
165    Dmsg0(30, "Leave read_volume_label() VOL_OK\n");
166    return jcr->label_status = VOL_OK;
167 }
168
169 /*  unser_volume_label 
170  *  
171  * Unserialize the Volume label into the device Volume_Label
172  * structure.
173  *
174  * Assumes that the record is already read.
175  *
176  * Returns: 0 on error
177  *          1 on success
178 */
179
180 int unser_volume_label(DEVICE *dev, DEV_RECORD *rec)
181 {
182    ser_declare;
183
184    if (rec->FileIndex != VOL_LABEL && rec->FileIndex != PRE_LABEL) {
185       Mmsg3(&dev->errmsg, _("Expecting Volume Label, got FI=%s Stream=%s len=%d\n"), 
186               FI_to_ascii(rec->FileIndex), 
187               stream_to_ascii(rec->Stream, rec->FileIndex),
188               rec->data_len);
189       return 0;
190    }
191
192    dev->VolHdr.LabelType = rec->FileIndex;
193    dev->VolHdr.LabelSize = rec->data_len;
194
195
196    /* Unserialize the record into the Volume Header */
197    rec->data = check_pool_memory_size(rec->data, SER_LENGTH_Volume_Label);
198    ser_begin(rec->data, SER_LENGTH_Volume_Label);
199    unser_string(dev->VolHdr.Id);
200    unser_uint32(dev->VolHdr.VerNum);
201
202    if (dev->VolHdr.VerNum >= 11) {
203       unser_btime(dev->VolHdr.label_btime);
204       unser_btime(dev->VolHdr.write_btime);
205    } else { /* old way */ 
206       unser_float64(dev->VolHdr.label_date);
207       unser_float64(dev->VolHdr.label_time);
208    }
209    unser_float64(dev->VolHdr.write_date);    /* Unused with VerNum >= 11 */
210    unser_float64(dev->VolHdr.write_time);    /* Unused with VerNum >= 11 */
211
212    unser_string(dev->VolHdr.VolName);
213    unser_string(dev->VolHdr.PrevVolName);
214    unser_string(dev->VolHdr.PoolName);
215    unser_string(dev->VolHdr.PoolType);
216    unser_string(dev->VolHdr.MediaType);
217
218    unser_string(dev->VolHdr.HostName);
219    unser_string(dev->VolHdr.LabelProg);
220    unser_string(dev->VolHdr.ProgVersion);
221    unser_string(dev->VolHdr.ProgDate);
222
223    ser_end(rec->data, SER_LENGTH_Volume_Label);
224    Dmsg0(90, "ser_read_vol\n");
225    if (debug_level >= 90) {
226       dump_volume_label(dev);      
227    }
228    return 1;
229 }
230
231 /*
232  * Put a volume label into the block
233  *
234  *  Returns: 0 on failure
235  *           1 on success
236  */
237 int write_volume_label_to_block(JCR *jcr, DEVICE *dev, DEV_BLOCK *block)
238 {
239    DEV_RECORD rec;
240
241    Dmsg0(20, "write Label in write_volume_label_to_block()\n");
242    memset(&rec, 0, sizeof(rec));
243    rec.data = get_memory(SER_LENGTH_Volume_Label);
244
245    create_volume_label_record(jcr, dev, &rec);
246
247    empty_block(block);                /* Volume label always at beginning */
248    if (!write_record_to_block(block, &rec)) {
249       free_pool_memory(rec.data);
250       Jmsg1(jcr, M_FATAL, 0, _("Cannot write Volume label to block for device %s\n"),
251          dev_name(dev));
252       return 0;
253    } else {
254       Dmsg1(90, "Wrote label of %d bytes to block\n", rec.data_len);
255    }
256    free_pool_memory(rec.data);
257    return 1;
258 }
259
260 /* 
261  *  create_volume_label_record
262  *   Serialize label (from dev->VolHdr structure) into device record.
263  *   Assumes that the dev->VolHdr structure is properly 
264  *   initialized.
265 */
266 static void create_volume_label_record(JCR *jcr, DEVICE *dev, DEV_RECORD *rec)
267 {
268    ser_declare;
269    struct date_time dt;
270
271    /* Serialize the label into the device record. */
272
273    rec->data = check_pool_memory_size(rec->data, SER_LENGTH_Volume_Label);
274    ser_begin(rec->data, SER_LENGTH_Volume_Label);
275    ser_string(dev->VolHdr.Id);
276
277    ser_uint32(dev->VolHdr.VerNum);
278
279    if (dev->VolHdr.VerNum >= 11) {
280       ser_btime(dev->VolHdr.label_btime);
281       dev->VolHdr.write_btime = get_current_btime();
282       ser_btime(dev->VolHdr.write_btime);
283       dev->VolHdr.write_date = 0;
284       dev->VolHdr.write_time = 0;
285    } else {
286       /* OLD WAY DEPRECATED */
287       ser_float64(dev->VolHdr.label_date);
288       ser_float64(dev->VolHdr.label_time);
289       get_current_time(&dt);
290       dev->VolHdr.write_date = dt.julian_day_number;
291       dev->VolHdr.write_time = dt.julian_day_fraction;
292    }
293    ser_float64(dev->VolHdr.write_date);   /* 0 if VerNum >= 11 */
294    ser_float64(dev->VolHdr.write_time);   /* 0  if VerNum >= 11 */
295
296    ser_string(dev->VolHdr.VolName);
297    ser_string(dev->VolHdr.PrevVolName);
298    ser_string(dev->VolHdr.PoolName);
299    ser_string(dev->VolHdr.PoolType);
300    ser_string(dev->VolHdr.MediaType);
301
302    ser_string(dev->VolHdr.HostName);
303    ser_string(dev->VolHdr.LabelProg);
304    ser_string(dev->VolHdr.ProgVersion);
305    ser_string(dev->VolHdr.ProgDate);
306
307    ser_end(rec->data, SER_LENGTH_Volume_Label);
308    rec->data_len = ser_length(rec->data);
309    rec->FileIndex = dev->VolHdr.LabelType;
310    rec->VolSessionId = jcr->VolSessionId;
311    rec->VolSessionTime = jcr->VolSessionTime;
312    rec->Stream = jcr->NumVolumes;
313    Dmsg2(100, "Created Vol label rec: FI=%s len=%d\n", FI_to_ascii(rec->FileIndex),
314       rec->data_len);
315 }     
316
317
318 /*
319  * Create a volume label in memory
320  *  Returns: 0 on error
321  *           1 on success
322  */
323 void create_volume_label(DEVICE *dev, char *VolName)
324 {
325    struct date_time dt;
326    DEVRES *device = (DEVRES *)dev->device;
327
328    Dmsg0(90, "Start create_volume_label()\n");
329
330    ASSERT(dev != NULL);
331
332    memset(&dev->VolHdr, 0, sizeof(dev->VolHdr));
333
334    /* ***FIXME*** we really need to get the volume name,    
335     * pool name, and pool type from the database.
336     * We also need to pickup the MediaType.
337     */
338    strcpy(dev->VolHdr.Id, BaculaId);
339    dev->VolHdr.VerNum = BaculaTapeVersion;
340    dev->VolHdr.LabelType = PRE_LABEL;  /* Mark tape as unused */
341    bstrncpy(dev->VolHdr.VolName, VolName, sizeof(dev->VolHdr.VolName));
342    strcpy(dev->VolHdr.PoolName, "Default");
343    bstrncpy(dev->VolHdr.MediaType, device->media_type, sizeof(dev->VolHdr.MediaType));
344    strcpy(dev->VolHdr.PoolType, "Backup");
345
346    /* Put label time/date in header */
347    if (BaculaTapeVersion >= 11) {
348       dev->VolHdr.label_btime = get_current_btime();
349       dev->VolHdr.label_date = 0;
350       dev->VolHdr.label_time = 0;
351    } else {
352       /* OLD WAY DEPRECATED */
353       get_current_time(&dt);
354       dev->VolHdr.label_date = dt.julian_day_number;
355       dev->VolHdr.label_time = dt.julian_day_fraction;
356    }
357
358    if (gethostname(dev->VolHdr.HostName, sizeof(dev->VolHdr.HostName)) != 0) {
359       dev->VolHdr.HostName[0] = 0;
360    }
361    bstrncpy(dev->VolHdr.LabelProg, my_name, sizeof(dev->VolHdr.LabelProg));
362    sprintf(dev->VolHdr.ProgVersion, "Ver. %s %s", VERSION, BDATE);
363    sprintf(dev->VolHdr.ProgDate, "Build %s %s", __DATE__, __TIME__);
364    dev->state |= ST_LABEL;            /* set has Bacula label */
365    if (debug_level >= 90) {
366       dump_volume_label(dev);
367    }
368 }
369
370 /*
371  * Write a Volume Label
372  *  !!! Note, this is ONLY used for writing
373  *            a fresh volume label.  Any data
374  *            after the label will be destroyed,
375  *            in fact, we write the label 5 times !!!!
376  * 
377  *  This routine expects that open_device() was previously called.
378  *
379  *  This routine should be used only when labeling a blank tape.
380  */
381 int write_volume_label_to_dev(JCR *jcr, DEVRES *device, char *VolName, char *PoolName)
382 {
383    DEVICE *dev = device->dev;
384    DEV_RECORD rec;   
385    DEV_BLOCK *block;
386    int stat = 1;
387
388
389    Dmsg0(99, "write_volume_label()\n");
390    create_volume_label(dev, VolName);
391    bstrncpy(dev->VolHdr.MediaType, device->media_type, sizeof(dev->VolHdr.MediaType));
392    bstrncpy(dev->VolHdr.VolName, VolName, sizeof(dev->VolHdr.VolName));
393    bstrncpy(dev->VolHdr.PoolName, PoolName, sizeof(dev->VolHdr.PoolName));
394
395    if (!rewind_dev(dev)) {
396       memset(&dev->VolHdr, 0, sizeof(dev->VolHdr));
397       Dmsg2(30, "Bad status on %s from rewind. ERR=%s\n", dev_name(dev), strerror_dev(dev));
398       return 0;
399    }
400
401    block = new_block(dev);
402    memset(&rec, 0, sizeof(rec));
403    rec.data = get_memory(SER_LENGTH_Volume_Label);
404    create_volume_label_record(jcr, dev, &rec);
405    rec.Stream = 0;
406
407    if (!write_record_to_block(block, &rec)) {
408       Dmsg2(30, "Bad Label write on %s. ERR=%s\n", dev_name(dev), strerror_dev(dev));
409       memset(&dev->VolHdr, 0, sizeof(dev->VolHdr));
410       free_block(block);
411       free_pool_memory(rec.data);
412       return 0;
413    } else {
414       Dmsg2(30, "Wrote label of %d bytes to %s\n", rec.data_len, dev_name(dev));
415    }
416    free_pool_memory(rec.data);
417       
418    Dmsg0(99, "Call write_block_to_device()\n");
419    if (!write_block_to_dev(jcr, dev, block)) {
420       memset(&dev->VolHdr, 0, sizeof(dev->VolHdr));
421       Dmsg2(30, "Bad Label write on %s. ERR=%s\n", dev_name(dev), strerror_dev(dev));
422       stat = 9;
423    }
424    Dmsg0(99, " Wrote block to device\n");
425      
426    flush_dev(dev);
427    weof_dev(dev, 1);
428    dev->state |= ST_LABEL;
429
430    if (debug_level >= 20)  {
431       dump_volume_label(dev);
432    }
433    free_block(block);
434    return stat;
435 }     
436
437
438 /*
439  * Create session label
440  *  The pool memory must be released by the calling program
441  */
442 void create_session_label(JCR *jcr, DEV_RECORD *rec, int label)
443 {
444    ser_declare;
445    struct date_time dt;
446
447    rec->sync           = 1;         /* wait for completion */
448    rec->VolSessionId   = jcr->VolSessionId;
449    rec->VolSessionTime = jcr->VolSessionTime;
450    rec->Stream         = jcr->JobId;
451
452    rec->data = check_pool_memory_size(rec->data, SER_LENGTH_Session_Label);
453    ser_begin(rec->data, SER_LENGTH_Session_Label);
454    ser_string(BaculaId);
455    ser_uint32(BaculaTapeVersion);
456
457    ser_uint32(jcr->JobId);
458
459    if (BaculaTapeVersion >= 11) {
460       ser_btime(get_current_btime());
461       ser_float64(0);
462    } else {
463       /* OLD WAY DEPRECATED */
464       get_current_time(&dt);
465       ser_float64(dt.julian_day_number);
466       ser_float64(dt.julian_day_fraction);
467    }
468
469    ser_string(jcr->pool_name);
470    ser_string(jcr->pool_type);
471    ser_string(jcr->job_name);         /* base Job name */
472    ser_string(jcr->client_name);
473
474    /* Added in VerNum 10 */
475    ser_string(jcr->Job);              /* Unique name of this Job */
476    ser_string(jcr->fileset_name);
477    ser_uint32(jcr->JobType);
478    ser_uint32(jcr->JobLevel);
479    if (BaculaTapeVersion >= 11) {
480       ser_string(jcr->fileset_md5);
481    }
482
483    if (label == EOS_LABEL) {
484       ser_uint32(jcr->JobFiles);
485       ser_uint64(jcr->JobBytes);
486       ser_uint32(jcr->StartBlock);
487       ser_uint32(jcr->EndBlock);
488       ser_uint32(jcr->StartFile);
489       ser_uint32(jcr->EndFile);
490       ser_uint32(jcr->JobErrors);
491
492       /* Added in VerNum 11 */
493       ser_uint32(jcr->JobStatus);
494    }
495    ser_end(rec->data, SER_LENGTH_Session_Label);
496    rec->data_len = ser_length(rec->data);
497 }
498
499 /* Write session label
500  *  Returns: 0 on failure
501  *           1 on success 
502  */
503 int write_session_label(JCR *jcr, DEV_BLOCK *block, int label)
504 {
505    DEVICE *dev = jcr->device->dev;
506    DEV_RECORD *rec;
507
508    rec = new_record();
509    Dmsg1(90, "session_label record=%x\n", rec);
510    switch (label) {
511       case SOS_LABEL:
512          if (dev->state & ST_TAPE) {
513             jcr->StartBlock = dev->block_num;
514             jcr->StartFile  = dev->file;
515          } else {
516             jcr->StartBlock = (uint32_t)dev->file_addr;
517             jcr->StartFile = (uint32_t)(dev->file_addr >> 32);
518          }
519          break;
520       case EOS_LABEL:
521          if (dev->state & ST_TAPE) {
522             jcr->EndBlock = dev->EndBlock;
523             jcr->EndFile  = dev->EndFile;
524          } else {
525             jcr->EndBlock = (uint32_t)dev->file_addr;
526             jcr->EndFile = (uint32_t)(dev->file_addr >> 32);
527          }
528          break;
529       default:
530          Jmsg1(jcr, M_ABORT, 0, _("Bad session label = %d\n"), label);
531          break;
532    }
533    create_session_label(jcr, rec, label);
534    rec->FileIndex = label;
535
536    /* 
537     * We guarantee that the session record can totally fit
538     *  into a block. If not, write the block, and put it in
539     *  the next block. Having the sesssion record totally in
540     *  one block makes reading them much easier (no need to
541     *  read the next block).
542     */
543    if (!can_write_record_to_block(block, rec)) {
544       Dmsg0(100, "Cannot write session label to block.\n");
545       if (!write_block_to_device(jcr, dev, block)) {
546          Dmsg0(90, "Got session label write_block_to_dev error.\n");
547          Jmsg(jcr, M_FATAL, 0, _("Error writing Session label to %s: %s\n"), 
548                            dev_vol_name(dev), strerror(errno));
549          free_record(rec);
550          return 0;
551       }
552    }
553    if (!write_record_to_block(block, rec)) {
554       Jmsg(jcr, M_FATAL, 0, _("Error writing Session label to %s: %s\n"), 
555                         dev_vol_name(dev), strerror(errno));
556       free_record(rec);
557       return 0;
558    }
559
560    Dmsg6(20, "Write sesson_label record JobId=%d FI=%s SessId=%d Strm=%s len=%d\n\
561 remainder=%d\n", jcr->JobId,
562       FI_to_ascii(rec->FileIndex), rec->VolSessionId, 
563       stream_to_ascii(rec->Stream, rec->FileIndex), rec->data_len,
564       rec->remainder);
565
566    free_record(rec);
567    Dmsg2(20, "Leave write_session_label Block=%d File=%d\n", 
568       dev->block_num, dev->file);
569    return 1;
570 }
571
572 void dump_volume_label(DEVICE *dev)
573 {
574    int dbl = debug_level;
575    uint32_t File;
576    char *LabelType, buf[30];
577    struct tm tm;
578    struct date_time dt;
579
580    debug_level = 1;
581    File = dev->file;
582    switch (dev->VolHdr.LabelType) {
583       case PRE_LABEL:
584          LabelType = "PRE_LABEL";
585          break;
586       case VOL_LABEL:
587          LabelType = "VOL_LABEL";
588          break;
589       case EOM_LABEL:
590          LabelType = "EOM_LABEL";
591          break;
592       case SOS_LABEL:
593          LabelType = "SOS_LABEL";
594          break;
595       case EOS_LABEL:
596          LabelType = "EOS_LABEL";
597          break;
598       case EOT_LABEL:
599          goto bail_out;
600       default:
601          LabelType = buf;
602          sprintf(buf, "Unknown %d", dev->VolHdr.LabelType);
603          break;
604    }
605               
606    
607    Pmsg11(-1, "\nVolume Label:\n\
608 Id                : %s\
609 VerNo             : %d\n\
610 VolName           : %s\n\
611 PrevVolName       : %s\n\
612 VolFile           : %d\n\
613 LabelType         : %s\n\
614 LabelSize         : %d\n\
615 PoolName          : %s\n\
616 MediaType         : %s\n\
617 PoolType          : %s\n\
618 HostName          : %s\n\
619 ",
620              dev->VolHdr.Id, dev->VolHdr.VerNum,
621              dev->VolHdr.VolName, dev->VolHdr.PrevVolName,
622              File, LabelType, dev->VolHdr.LabelSize, 
623              dev->VolHdr.PoolName, dev->VolHdr.MediaType, 
624              dev->VolHdr.PoolType, dev->VolHdr.HostName);
625
626    if (dev->VolHdr.VerNum >= 11) {
627       char dt[50];
628       bstrftime(dt, sizeof(dt), btime_to_unix(dev->VolHdr.label_btime));
629       Pmsg1(-1, "Date label written: %s\n", dt);
630    } else {
631    dt.julian_day_number   = dev->VolHdr.label_date;
632    dt.julian_day_fraction = dev->VolHdr.label_time;
633    tm_decode(&dt, &tm);
634    Pmsg5(-1, "\
635 Date label written: %04d-%02d-%02d at %02d:%02d\n", 
636       tm.tm_year+1900, tm.tm_mon+1, tm.tm_mday, tm.tm_hour, tm.tm_min);
637    }
638
639 bail_out:
640    debug_level = dbl;
641 }
642
643 int unser_session_label(SESSION_LABEL *label, DEV_RECORD *rec) 
644 {
645    ser_declare;
646
647    rec->data = check_pool_memory_size(rec->data, SER_LENGTH_Session_Label);
648    unser_begin(rec->data, SER_LENGTH_Session_Label);
649    unser_string(label->Id);
650    unser_uint32(label->VerNum);
651    unser_uint32(label->JobId);
652    if (label->VerNum >= 11) {
653       unser_btime(label->write_btime);
654    } else {
655       unser_float64(label->write_date);
656    }
657    unser_float64(label->write_time);
658    unser_string(label->PoolName);
659    unser_string(label->PoolType);
660    unser_string(label->JobName);
661    unser_string(label->ClientName);
662    if (label->VerNum >= 10) {
663       unser_string(label->Job);          /* Unique name of this Job */
664       unser_string(label->FileSetName);
665       unser_uint32(label->JobType);
666       unser_uint32(label->JobLevel);
667    }
668    if (label->VerNum >= 11) {
669       unser_string(label->FileSetMD5);
670    } else {
671       label->FileSetMD5[0] = 0;
672    }
673    if (rec->FileIndex == EOS_LABEL) {
674       unser_uint32(label->JobFiles);
675       unser_uint64(label->JobBytes);
676       unser_uint32(label->StartBlock);
677       unser_uint32(label->EndBlock);
678       unser_uint32(label->StartFile);
679       unser_uint32(label->EndFile);
680       unser_uint32(label->JobErrors);
681       if (label->VerNum >= 11) {
682          unser_uint32(label->JobStatus);
683       } else {
684          label->JobStatus = JS_Terminated; /* kludge */
685       }
686    }      
687    return 1;
688 }
689
690
691 static void dump_session_label(DEV_RECORD *rec, char *type)
692 {
693    int dbl;
694    struct date_time dt;
695    struct tm tm;
696    SESSION_LABEL label;
697    char ec1[30], ec2[30], ec3[30], ec4[30], ec5[30], ec6[30], ec7[30];
698
699    unser_session_label(&label, rec);
700    dbl = debug_level;
701    debug_level = 1;
702    Pmsg7(-1, "\n%s Record:\n\
703 JobId             : %d\n\
704 VerNum            : %d\n\
705 PoolName          : %s\n\
706 PoolType          : %s\n\
707 JobName           : %s\n\
708 ClientName        : %s\n\
709 ",    type, label.JobId, label.VerNum,
710       label.PoolName, label.PoolType,
711       label.JobName, label.ClientName);
712
713    if (label.VerNum >= 10) {
714       Pmsg4(-1, "\
715 Job (unique name) : %s\n\
716 FileSet           : %s\n\
717 JobType           : %c\n\
718 JobLevel          : %c\n\
719 ", label.Job, label.FileSetName, label.JobType, label.JobLevel);
720    }
721
722    if (rec->FileIndex == EOS_LABEL) {
723       Pmsg8(-1, "\
724 JobFiles          : %s\n\
725 JobBytes          : %s\n\
726 StartBlock        : %s\n\
727 EndBlock          : %s\n\
728 StartFile         : %s\n\
729 EndFile           : %s\n\
730 JobErrors         : %s\n\
731 JobStatus         : %c\n\
732 ",
733          edit_uint64_with_commas(label.JobFiles, ec1),
734          edit_uint64_with_commas(label.JobBytes, ec2),
735          edit_uint64_with_commas(label.StartBlock, ec3),
736          edit_uint64_with_commas(label.EndBlock, ec4),
737          edit_uint64_with_commas(label.StartFile, ec5),
738          edit_uint64_with_commas(label.EndFile, ec6),
739          edit_uint64_with_commas(label.JobErrors, ec7), 
740          label.JobStatus);
741    }
742    if (label.VerNum >= 11) {
743       char dt[50];
744       bstrftime(dt, sizeof(dt), btime_to_unix(label.write_btime));
745       Pmsg1(-1, _("Date written      : %s\n"), dt);
746    } else {
747       dt.julian_day_number   = label.write_date;
748       dt.julian_day_fraction = label.write_time;
749       tm_decode(&dt, &tm);
750       Pmsg5(-1, _("\
751 Date written      : %04d-%02d-%02d at %02d:%02d\n"),
752       tm.tm_year+1900, tm.tm_mon+1, tm.tm_mday, tm.tm_hour, tm.tm_min);
753    }
754
755    debug_level = dbl;
756 }
757
758 void dump_label_record(DEVICE *dev, DEV_RECORD *rec, int verbose)
759 {
760    char *type;
761    int dbl;
762
763    dbl = debug_level;
764    debug_level = 1;
765    switch (rec->FileIndex) {
766       case PRE_LABEL:
767          type = _("Fresh Volume");   
768          break;
769       case VOL_LABEL:
770          type = _("Volume");
771          break;
772       case SOS_LABEL:
773          type = _("Begin Session");
774          break;
775       case EOS_LABEL:
776          type = _("End Session");
777          break;
778       case EOM_LABEL:
779          type = _("End of Media");
780          break;
781       case EOT_LABEL:
782          type = ("End of Tape");
783          break;
784       default:
785          type = _("Unknown");
786          break;
787    }
788    if (verbose) {
789       switch (rec->FileIndex) {
790          case PRE_LABEL:
791          case VOL_LABEL:
792             unser_volume_label(dev, rec);
793             dump_volume_label(dev);
794             break;
795          case SOS_LABEL:
796             dump_session_label(rec, type);
797             break;
798          case EOS_LABEL:
799             dump_session_label(rec, type);
800             break;
801          case EOM_LABEL:
802             Pmsg5(-1, "%s Record: SessId=%d SessTime=%d JobId=%d DataLen=%d\n",
803                type, rec->VolSessionId, rec->VolSessionTime, rec->Stream, rec->data_len);
804             break;
805          case EOT_LABEL:
806             Pmsg0(-1, _("End of physical tape.\n"));
807             break;
808          default:
809             Pmsg5(-1, "%s Record: SessId=%d SessTime=%d JobId=%d DataLen=%d\n",
810                type, rec->VolSessionId, rec->VolSessionTime, rec->Stream, rec->data_len);
811             break;
812       }
813    } else {
814       switch (rec->FileIndex) {
815          case SOS_LABEL:
816          case EOS_LABEL:
817             SESSION_LABEL label;
818             unser_session_label(&label, rec);
819             Pmsg6(-1, "%s Record: SessId=%d SessTime=%d JobId=%d Level=%c \
820 Type=%c\n",
821                type, rec->VolSessionId, rec->VolSessionTime, rec->Stream, 
822                label.JobLevel, label.JobType);
823             break;
824          case EOM_LABEL:
825          case PRE_LABEL:
826          case VOL_LABEL:
827          default:
828             Pmsg5(-1, "%s Record: SessId=%d SessTime=%d JobId=%d DataLen=%d\n",
829          type, rec->VolSessionId, rec->VolSessionTime, rec->Stream, rec->data_len);
830             break;
831          case EOT_LABEL:
832             break;
833       }
834    }
835    debug_level = dbl;
836 }