Update of /cvsroot/macs/macs/lib/MACS
In directory sc8-pr-cvs1:/tmp/cvs-serv32264/lib/MACS
Modified Files:
RPS.pm Foreman.pm
Log Message:
RPS::list_op now defaults to null method, added logging.
Index: RPS.pm
===================================================================
RCS file: /cvsroot/macs/macs/lib/MACS/RPS.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** RPS.pm 6 Aug 2003 11:46:24 -0000 1.22
--- RPS.pm 28 Aug 2003 19:07:52 -0000 1.23
***************
*** 73,81 ****
my($res_id, $vrid) = $this->split_id($$msg{res_id});
! log_debug { "rid:$res_id$vrid." };
my $type = $this->cleanse_type($$msg{type});
my $method = $$msg{method};
# this doesn't belong here, it belongs in the method client
--- 73,84 ----
my($res_id, $vrid) = $this->split_id($$msg{res_id});
! log_debug { "rid:$res_id+$vrid." };
my $type = $this->cleanse_type($$msg{type});
+ log_debug { "type:$type." };
my $method = $$msg{method};
+ $method = 'null' unless $method;
+ log_debug { "method=$method." };
# this doesn't belong here, it belongs in the method client
***************
*** 85,88 ****
--- 88,92 ----
my $rid = $this->method_id($res_id, $method) . $vrid;
+ log_debug { "rid:$rid." };
return $msg->reply($this->macs->pmc_list(%$msg,
***************
*** 274,278 ****
my $this = shift;
my $profile_method_ns = $this->macs->cfg('db', 'method_prefix') .
! join '/', "profile", @_;
$profile_method_ns = $this->macs->pmc_id(path => $profile_method_ns);
Exception->raise("can't get profile method name space: " .
--- 278,282 ----
my $this = shift;
my $profile_method_ns = $this->macs->cfg('db', 'method_prefix') .
! join '/', 'profile', @_;
$profile_method_ns = $this->macs->pmc_id(path => $profile_method_ns);
Exception->raise("can't get profile method name space: " .
Index: Foreman.pm
===================================================================
RCS file: /cvsroot/macs/macs/lib/MACS/Foreman.pm,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** Foreman.pm 6 Aug 2003 11:46:24 -0000 1.24
--- Foreman.pm 28 Aug 2003 19:07:52 -0000 1.25
***************
*** 109,112 ****
--- 109,113 ----
$0 = ref $this;
# register the foreman's services
+ log_debug { 'Foreman object:',$this };
$this->register_ops($this->service, $this->method, 'worker');
$this->register_ops(qw(all all all));
|
