Commit 20500a87 authored by Kristin Wright's avatar Kristin Wright
Browse files

added plastic to node list

parent 3695aeea
#!/usr/local/bin/perl -wT #!/usr/local/bin/perl -wT
### ###
### $Id: mkacct,v 1.22 2000-11-21 10:49:47 kwright Exp $ ### $Id: mkacct,v 1.23 2000-11-27 22:34:23 kwright Exp $
### ###
### Address 'lkw' comments: ### Address 'lkw' comments:
### Break up into subroutines, possibly libraries. We'll ### Break up into subroutines, possibly libraries. We'll
...@@ -104,7 +104,7 @@ while (@row = $sth->fetchrow_array) { ...@@ -104,7 +104,7 @@ while (@row = $sth->fetchrow_array) {
die "Fullname from database not valid.\n"; die "Fullname from database not valid.\n";
} }
if ( $row[4] =~ /^(([^:]+$|^))$/ ) { # comment (fullname) if ( $row[4] =~ /^(([^:]+$|^))$/ ) { # control node
$control_node = $1; $control_node = $1;
} else { } else {
die "Control node from database not valid.\n"; die "Control node from database not valid.\n";
...@@ -160,13 +160,6 @@ while (@row = $sth->fetchrow_array) { ...@@ -160,13 +160,6 @@ while (@row = $sth->fetchrow_array) {
push(@nodes,$row[0]); push(@nodes,$row[0]);
print " $row[0] "; print " $row[0] ";
} }
print "\n";
##
## Add in the control node. We selected it above when
## getting the user info.
##
## ##
## XXX control nodes not currently set correctly by ## XXX control nodes not currently set correctly by
## web interface (not yet implemented); all projects ## web interface (not yet implemented); all projects
...@@ -174,13 +167,11 @@ print "\n"; ...@@ -174,13 +167,11 @@ print "\n";
## it looks as if the database type is a string not an ## it looks as if the database type is a string not an
## IP address. ## IP address.
## ##
## push(@nodes, $control_node); ##push(@nodes, $control_node);
## push(@nodes, "155.99.212.74");
## Turns out we can't just push the control_node here because we print " 155.99.212.74";
## can't su1 ssh to plastic at this time. print "\n";
##
## push(@nodes, "155.99.212.74");
##
## ##
## For each machine, ping to see if its alive. ## For each machine, ping to see if its alive.
......
Supports Markdown
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