X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=html%2Fprogram.html;h=9b6262ec28dcc9575fa5c4f9c7d4d19f170c215e;hb=2fe3813e70786483d2d928f8fa44eb9ff9cb76ca;hp=1be759f0ab4247e031219b54a95f0f1ade2db365;hpb=5d197c9f7aa2ea796d86aa5473f93956b24cf1b7;p=spider.git diff --git a/html/program.html b/html/program.html index 1be759f0..9b6262ec 100644 --- a/html/program.html +++ b/html/program.html @@ -2,10 +2,12 @@
- sub Emb_($self, $args) + sub Emb_<cmdname>($self, $args) { ... your code here @@ -155,7 +157,7 @@ Last modified: Mon Dec 28 23:13:21 GMT 1998 my @out; # check privileges - return (1, $self->msg('e5')) if $self->priv < 5; + return (1, $self->msg('e5')) if $self->priv < 5; .... .... @@ -226,11 +228,11 @@ my @out; my $user; my $ref; -return (1, $self->msg('e5')) if $self->priv < 9; +return (1, $self->msg('e5')) if $self->priv < 9; foreach $call (@args) { $call = uc $call; - if ($ref = DXUser->get_current($call)) { + if ($ref = DXUser::get_current($call)) { $ref->passwd($pass); $ref->put(); push @out, $self->msg("password", $call); @@ -301,11 +303,11 @@ return (1, @out) It is important that you remember when you have tie hashes using MLDBM et al. If you do a - DXUser->get($call) you will get a different (older) + DXUser::get($call) you will get a different (older) thing than the one in $self->user. This is almost certainly NOT what you want if want to modify a user that is currently connected. Either use $self->user or, if - you want another user, use DXUser->get_current($call) + you want another user, use DXUser::get_current($call) If you want to debug something, start the cluster.pl up thus:- @@ -331,7 +333,7 @@ return (1, @out) mean that this is a prompt and will not have a \r or \n appended to it in the client for telnet sessions (only). -help is kept in /spider/cmd/Command_ .hlp files. +help is kept in /spider/cmd/Command_<lang>.hlp files. The format of the help files should be self explanatory, but they are explained further in the files themselves.