X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=device-src%2Famtapetype.pl;h=ea1c97c7cfee6d87642dccbed61e0e983b6423ed;hb=refs%2Ftags%2Fupstream%2F2.6.1p1;hp=299bd77cc04f34114e2626b5417d71c3f835a457;hpb=2627875b7d18858bc1f9f7652811e4d8c15a23eb;p=debian%2Famanda

diff --git a/device-src/amtapetype.pl b/device-src/amtapetype.pl
index 299bd77..ea1c97c 100644
--- a/device-src/amtapetype.pl
+++ b/device-src/amtapetype.pl
@@ -315,14 +315,28 @@ sub make_tapetype {
     my $comment = "Created by amtapetype; compression "
 	. ($compression_enabled? "enabled" : "disabled");
 
-    print <<EOF;
-    define tapetype $opt_tapetype_name {
-	comment "$comment"
-	length $volume_size_estimate bytes
-	filemark $filemark_estimate bytes
-	speed $speed_estimate kps
-	blocksize $blocksize bytes
+    # round these parameters to the nearest kb, since the parameters' units
+    # are kb, not bytes
+    my $volume_size_estimate_kb = $volume_size_estimate/1024;
+    my $filemark_kb = $filemark_estimate/1024;
+
+    # and suggest using device_property for blocksize if it's not an even multiple
+    # of 1kb
+    my $blocksize_line;
+    if ($blocksize % 1024 == 0) {
+	$blocksize_line = "blocksize " . $blocksize/1024 . " kbytes";
+    } else {
+	$blocksize_line = "# add device_property \"BLOCK_SIZE\" \"$blocksize\" to the device";
     }
+
+    print <<EOF;
+define tapetype $opt_tapetype_name {
+    comment "$comment"
+    length $volume_size_estimate_kb kbytes
+    filemark $filemark_kb kbytes
+    speed $speed_estimate kps
+    $blocksize_line
+}
 EOF
 }