Changeset 3c7da22 for fedkit/splitter.pl

Timestamp:

Sep 17, 2007 11:35:32 AM (17 years ago)

Author:

Ted Faber <faber@…>

Branches:

axis_example, compt_changes, info-ops, master, version-1.30, version-2.00, version-3.01, version-3.02

Children:

f70f9c8

Parents:

a098fab

Message:

Parameterize federate.sh and smbmount.pl (several parameters were hard wired)

make_hosts runs on deter nodes when DETER is the master testbed. It puts
all the federated hosts into /etc/hosts

File:

• fedkit/splitter.pl (modified) (5 diffs)

fedkit/splitter.pl

@@ -7 +7 @@
 use File::Copy;
 
-@scripts = ("federate.sh", "smbmount.pl");
+@scripts = ("federate.sh", "smbmount.pl", "make_hosts");
 $local_script_dir = ".";
 
@@ -233 +233 @@
 $tb_config = $opts{'testbeds'} || "./testbeds"; # testbed configurations
 $local_script_dir = $opts{'scriptdir'}; # Local scripts
+
+$smb_share = $opts{'smbshare'} ||       # Share to mount from the master
+    die "Must give an SMB share\n";
+$project_user = $opts{'smbuser'} ||     # User to mount project dirs as
+    die "Must give an SMB user\n";
+
 # For now specify these.  We may want to generate them later.
 $gw_pubkey = $opts{'gatewaypubkey'};
@@ -349 +355 @@
         next;
     };
+    # End of the gateways section.  Output the client config for this testbed
     /^#\s+End\s+gateways\s+\((\w+)\)/ && do {
         die "Mismatched gateway markers ($1, $gateways)\n" 
             unless !$gateways || $gateways == $1;
+
+        die "No control gateway for $gateways?" unless $control_gateway;
+        # Client config
+        $cc = new IO::File(">$tmpdir/$gateways/client.conf");
+        die "Can't open $tmpdir/$gateways/client.conf: $!\n" unless $cc;
+        print $cc "ControlGateway: $control_gateway\n";
+        print $cc "SMBShare: $smb_share\n";
+        print $cc "ProjectUser: $project_user\n";
+        $cc->close();
+        
         $gateways = 0;
         next;
@@ -389 +406 @@
         else { $active_end{"$gateways-$dtb"}++; $active = "true"; }
 
+        # This is used to create the client configuration.
+        $control_gateway = "$myname$sdomain"
+            if $type =~ /(control|both)/;
+
         # Write out the file
         open(GWCONFIG, ">$tmpdir/$gateways/$myname$sdomain.gw.conf") || 
@@ -585 +606 @@
 F</tmp> is used.
 
+=item SMBShare
+
+The SMB share on the master testbed that will be exported to remote clients.
+
+=item SMBUser
+
+The experiment user to mount project directories as.  This user needs to be a
+member of the exported experiment - that is one of the users in the project
+containing this experiment on the master testbed.
+
 =item Tclparse