Changeset f8fa72b for fedkit/federate.pl

Timestamp:

Mar 5, 2010 3:26:09 AM (14 years ago)

Author:

Ted Faber <faber@…>

Branches:

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

Children:

444790d

Parents:

c119839

Message:

More ProtoGENI accomodation

File:

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

fedkit/federate.pl

@@ -3 +3 @@
 
 use strict;
+
+use Getopt::Long;
 
 use IO::File;
@@ -29 +31 @@
 my $exp;
 my $proj;
+my $install_smb;
 chomp (my $uname = `uname`);
 my $smbmount = "smbmount.$uname.pl";
+
+GetOptions("install_samba" => \$install_smb);
 
 # find perl
@@ -41 +46 @@
 $perl = "perl" unless $perl;
 
+if ($install_smb) {
+    # fix yum.conf
+    copy("/etc/yum.conf", "/etc/yum.conf.bak");
+    my $from = new IO::File("/etc/yum.conf.bak");
+    my $to = new IO::File(">/etc/yum.conf");
+    while (<$from>) {
+        s/download.fedoralegacy.org/fedoralegacy.lsu.edu/g;
+        print $to $_;
+    }
+    $from->close();
+    $to->close();
+    # Now, bridging
+    system('/usr/bin/yum -y install samba-client');
+}
 
-$tmcc_p->reader("$TMCC -b status");
-while (<$tmcc_p>) {
-    /ALLOCATED=([^\/]+)\/(\S+)/ && do {
-        ($proj, $exp) = ($1, $2);
-        $shared_config_dir = "/proj/$proj/exp/$exp/tmp";
-        last;
-    };
-}
-$tmcc_p->close();
+if (!-e "$local_config_dir/client.conf" ) {
+    $tmcc_p->reader("$TMCC -b status");
+    while (<$tmcc_p>) {
+        /ALLOCATED=([^\/]+)\/(\S+)/ && do {
+            ($proj, $exp) = ($1, $2);
+            $shared_config_dir = "/proj/$proj/exp/$exp/tmp";
+            last;
+        };
+    }
+    $tmcc_p->close();
 
-mkdir($local_config_dir);
+    mkdir($local_config_dir);
 
-foreach my $fn ("seer.conf", "client.conf", "userconf") {
-    copy("$shared_config_dir/$fn", $local_config_dir )
-        if -e "$shared_config_dir/$fn";
+    foreach my $fn ("seer.conf", "client.conf", "userconf", "hosts") {
+        copy("$shared_config_dir/$fn", $local_config_dir )
+            if -e "$shared_config_dir/$fn";
+    }
 }
 
@@ -72 +93 @@
 my $hosts = new IO::File("/etc/hosts") || die "Can't open /etc/hosts:$!\n";
 my $new_hosts = new IO::File(">/tmp/hosts") || die "Can't open /tmp/hosts:$!\n";
-my $config_hosts = new IO::File("$shared_config_dir/hosts") || 
-    die "Can't open $shared_config_dir/hosts: $!\n";
+my $config_hosts = new IO::File("$local_config_dir/hosts") || 
+    die "Can't open $local_config_dir/hosts: $!\n";
 my $has_control = 0;
 
@@ -112 +133 @@
 
 if ($services{'userconfig'}) {
-    $tmcc_p = new IO::Pipe() || die "Can't open pipe for accounts:$!\n";
-    my $old_accounts = new IO::File(">$local_config_dir/old_accts") || 
-        die "Can't open $local_config_dir/old_accts: $!\n";
+    if (!-e "$local_config_dir/old_accts") {
+        $tmcc_p = new IO::Pipe() || die "Can't open pipe for accounts:$!\n";
+        my $old_accounts = new IO::File(">$local_config_dir/old_accts") || 
+            die "Can't open $local_config_dir/old_accts: $!\n";
 
-    $tmcc_p->reader("$TMCC -b accounts");
-    while (<$tmcc_p>) {
-        print $old_accounts $_;
+        $tmcc_p->reader("$TMCC -b accounts");
+        while (<$tmcc_p>) {
+            print $old_accounts $_;
+        }
+        $tmcc_p->close();
+        $old_accounts->close();
     }
-    $tmcc_p->close();
-    $old_accounts->close();
     print("Updating accounts");
     system("/usr/local/federation/bin/rc.fedaccounts");