On Fri, 28 Jul 2000, Ed James, 410-295-1919, [EMAIL PROTECTED] wrote:
> Hello everyone,
>
> I am trying to mount a cdrom on our alpha using VMS::Device.
> The mount command returns "BADPARAM", so I suspect I am not setting
> up the mount hash correctly.
>
> Does anyone have any examples of VMS::Device that include using mount?
>
> OpenVMS Alpha V7.1-1H1
> Perl 5.5.3
> VMS::Device 0.06
>
> Thank you very much for any help you can provide.
No Sorry I tried a few quick hacks this late afternoon and was
unsuccessful and running VMS::Device::mount() from the vms-device-0_05.zip
from http://tuatha.sidhe.org/misc/.
In my fist unsuccessful attempt I put a DEC CD into the drive bay and
ran:
use VMS::Device qw(device_info mount);
$rc = mount({'DEVNAM' => 'DKA400:'});
print "return code was $rc\n";
and the output was:
return code was
I didn't check for whether $rc was defined() or not.
I then tried:
use VMS::Device qw(device_info mount);
my $dev = 'DKA400:';
my $dev_info = device_info($dev);
my %dev_info = %$dev_info;
foreach(sort(keys(%dev_info))) {
print "$_ = $dev_info{$_}\n";
}
$rc = mount($dev_info);
print "return code was $rc\n";
print `directory dka400:[000000]`;
And I obtained a printout of all the keys in to hash, but the mount()
apparently hung (in a separate window `show dev d` indicated that a
process had tried to alloc the dka400 device) and I never did see the
print out of the return code nor the directory listing before giving up.
Sorry to report - but I've not had much luck with it yet.
Peter Prymmer
