dput_ssd.pl

#!/usr/bin/perl -w
use strict;

# Beeb Utilities to manipulate MMB and SSD files
# Copyright (C) 2012 Stephen Harris
# 
# See file "COPYING" for GPLv2 licensing

use FindBin;
use lib "$FindBin::Bin";
use BeebUtils;
@ARGV=BeebUtils::init(@ARGV);

my $dr=$ARGV[0];
die "Syntax: $BeebUtils::PROG [-f MMB_file] image_number source_ssd\n" unless defined($dr);
die "Not a number\n" unless $dr=~/^[0-9]+$/;

my $target=$ARGV[1];
die "No target file\n" unless $target;

my $disktable=BeebUtils::LoadDiskTable;
my %disk=BeebUtils::load_dcat(\$disktable);
die "Disk $dr already in use; use dkill to erase to reuse.\n" if $disk{$dr}{Formatted};

my $image=BeebUtils::load_external_ssd($target,1);

my %files=BeebUtils::read_cat(\$image);
my $t=$files{""}{title};
$t =~ tr/\x20-\x7f//cd;
BeebUtils::put_ssd($image,$dr);
BeebUtils::DeleteSlot($dr,1,\$disktable);  # set's disk type to RW
BeebUtils::ChangeDiskName($dr,$t,\$disktable);
BeebUtils::SaveDiskTable(\$disktable);

print "Disk $target ($t) written to $dr\n";