projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
started the spotting code. Got most of the utilities working.
[spider.git]
/
perl
/
DXCluster.pm
diff --git
a/perl/DXCluster.pm
b/perl/DXCluster.pm
index 920a33fbe79edea5c007e0e429c6056419cef270..b61cb3411da12f62ace223e5da883fc40116f917 100644
(file)
--- a/
perl/DXCluster.pm
+++ b/
perl/DXCluster.pm
@@
-28,6
+28,7
@@
my %valid = (
here => '0,Here?,yesno',
dxchan => '5,Channel ref',
pcversion => '5,Node Version',
here => '0,Here?,yesno',
dxchan => '5,Channel ref',
pcversion => '5,Node Version',
+ list => '5,User List,dolist',
);
sub alloc
);
sub alloc
@@
-71,6
+72,11
@@
sub field_prompt
return $valid{$ele};
}
return $valid{$ele};
}
+sub dolist
+{
+
+}
+
no strict;
sub AUTOLOAD
{
no strict;
sub AUTOLOAD
{
@@
-105,7
+111,7
@@
sub new
return $self;
}
return $self;
}
-sub del
ete
+sub del
{
my $self = shift;
$self->delcluster(); # out of the whole cluster table
{
my $self = shift;
$self->delcluster(); # out of the whole cluster table
@@
-157,12
+163,12
@@
sub get_all
return @out;
}
return @out;
}
-sub del
ete
+sub del
{
my $self = shift;
my $call = $self->call;
{
my $self = shift;
my $call = $self->call;
- DXUser->delete($call); # delete all the users on
e
this node
+ DXUser->delete($call); # delete all the users on this node
delete $nodes{$call};
}
delete $nodes{$call};
}
@@
-170,5
+176,10
@@
sub count
{
return %nodes + 1; # + 1 for ME!
}
{
return %nodes + 1; # + 1 for ME!
}
+
+sub dolist
+{
+
+}
1;
__END__
1;
__END__