Abstracted the canonicalization of volume names (afs_vname)

diff --git a/incremental/afs_create.pl b/incremental/afs_create.pl
index e5a33f851c740d7b3bbccbf227ffec335471ec51..0330d2182099f7bb13c033f7a8b3de7dbb32f7fc 100644 (file)
--- a/incremental/afs_create.pl
+++ b/incremental/afs_create.pl
@@ -16,10 +16,8 @@ die "Usage: $0 locker type cell path user group\n" if (@ARGV != 6);
 
 # Lookup volume type
 ($c = $cell) =~ s/\./_/g;
-$vtype = eval "\$vtypes_$c{$type}";
-die "Cannot create $type volumes in $cell\n" unless $vtype;
-$vname = $vtype . "." . $locker;
-$vname =~ s/[^-A-Za-z0-9_.]//g;                # strip out illegal characters
+$vname = &afs_vname($locker, $type, $cell);
+die "Cannot create $type volumes in $cell\n" unless $vname;
 
 # Find free space
 ($asrv,$apart) = &afs_find($cell,$type,$quota);