Package: cdrw-taper
Version: 0.4-2
Filename: pool/main/c/cdrw-taper/cdrw-taper_0.4-2_all.deb


Found error in /usr/sbin/amlabel-cdrw:
	$ grep -A5 -B5 /tmp/ /usr/sbin/amlabel-cdrw
	if (! $mediaInfo->isErasable()) {
	    error("Won't label non-erasable media!");
	}
	
	# Write the label file to a temporary directory
	mkdir("/tmp/amlabel-cdrw.$$", 0755) || error("Cannot make directory /tmp/amlabelcd.$$: $!");
	open LABEL, ">/tmp/amlabel-cdrw.$$/AMANDA_LABEL" or error("Cannot create label: $!");
	print LABEL "$NEW_LABEL\n";
	close LABEL;
	
	if ($mediaInfo->getType() eq "CDRW") {
	    # Exit silently on errors. mkisofs/cdrecord already generate
	    # appropriate messages
	    my $result = system("$taper->{MKISOFS} -J -R -pad -quiet /tmp/amlabel-cdrw.$$ | $taper->{CDRECORD} dev=$writeDev -data blank=fast -");
	    error("Error writing CD-RW") if ($result / 256 != 0);
	} else { # DVD
	    my $result;
	    if ($mediaInfo->needFormat()) {
	        $result = system("$taper->{DVDRWFORMAT} $mountDev");
	        if ($result / 256 != 0) {
		    error("Error formatting ".$mediaInfo->getType());
	        }
	    }
	    $result = system("$taper->{GROWISOFS} -Z $mountDev -J -R -pad -quiet /tmp/amlabel-cdrw.$$");
	    if ($result / 256 != 0) {
		error("Error writing ".$mediaInfo->getType());
	    }
	}
	
	# Clean up temporary files
	if (-e "/tmp/amlabel-cdrw.$$/AMANDA_LABEL") {
	    unlink "/tmp/amlabel-cdrw.$$/AMANDA_LABEL";
	}
	if (-d "/tmp/amlabel-cdrw.$$") {
	    rmdir "/tmp/amlabel-cdrw.$$";
	}
	
	if ($WRITE_TAPELIST) {
	    # Finally, append the new entry to the media list
	    open(ML, ">>$taper->{AMANDA_CONF}->{tapelist}")
	--
	exit 0;
	
	# print an error message and exit
	sub error {
	  # Clean up temporary files
	  unlink "/tmp/amlabel-cdrw.$$/AMANDA_LABEL" if -e "/tmp/amlabel-cdrw.$$/AMANDA_LABEL";
	  rmdir "/tmp/amlabel-cdrw.$$" if -d "/tmp/amlabel-cdrw.$$";
	  print STDERR "amlabel-cdrw: $_[0]\n" if $_[0];
	  exit 1;
	}
	
	sub usage {