Miscellany

#!/usr/bin/perl

# Usage: gvinum-conf.pl > gvinum.conf
# gvinum create gvinum.conf

print "drive d0 device /dev/ad2\n";

foreach $vol (1..500) {

$vol = sprintf("%04g", $vol);
print <<EOT;

volume $vol
 plex org concat
  sd length 8m drive d0

EOT

}