Commit 71a66f24 authored by Mike Hibler's avatar Mike Hibler
Browse files

Bah, one more: add islocaldir() function

parent 76dba0e4
#!/usr/bin/perl -wT #!/usr/bin/perl -wT
# #
# EMULAB-COPYRIGHT # EMULAB-COPYRIGHT
# Copyright (c) 2000-2006 University of Utah and the Flux Group. # Copyright (c) 2000-2008 University of Utah and the Flux Group.
# All rights reserved. # All rights reserved.
# #
...@@ -21,7 +21,7 @@ use Exporter; ...@@ -21,7 +21,7 @@ use Exporter;
os_ifconfig_veth os_viface_name os_ifconfig_veth os_viface_name
os_routing_enable_forward os_routing_enable_gated os_routing_enable_forward os_routing_enable_gated
os_routing_add_manual os_routing_del_manual os_homedirdel os_routing_add_manual os_routing_del_manual os_homedirdel
os_groupdel os_samba_mount os_groupdel os_samba_mount os_islocaldir
os_getnfsmounts os_getnfsmountpoints os_noisycmd os_getnfsmounts os_getnfsmountpoints os_noisycmd
os_fwconfig_line os_fwrouteconfig_line os_fwconfig_line os_fwrouteconfig_line
); );
...@@ -729,6 +729,18 @@ sub MapShell($) ...@@ -729,6 +729,18 @@ sub MapShell($)
return $fullpath; return $fullpath;
} }
# Return non-zero if given directory is on a "local" filesystem
sub os_islocaldir($)
{
my ($dir) = @_;
# XXX
if ($dir =~ /^\/(proj|groups|users|share)/) {
return 0;
}
return 1;
}
sub os_samba_mount($$$) sub os_samba_mount($$$)
{ {
my ($local, $host, $verbose) = @_; my ($local, $host, $verbose) = @_;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment