1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#!/usr/local/bin/perl -w
use blib;
use AFS::FS qw(mkmount);
my ($mountp, $volume, $rw, $cell, $ok);
die "Usage: $0 mountp volume [rw [cell]]\n" if ($#ARGV < 1);
$mountp = shift;
$volume = shift;
$rw = shift;
$cell = shift;
#warn ">$mountp< >$volume< >$rw< >$cell< \n";
if (defined $cell) { $ok = mkmount($mountp, $volume, $rw, $cell); }
elsif (defined $rw) { $ok = mkmount($mountp, $volume, $rw); }
else { $ok = mkmount($mountp, $volume); }
print "Error Code: $AFS::CODE\n" if ($AFS::CODE);
print "ok = $ok\n";
|
