CVS: macs/lib/MACS Request.pm,1.6,1.7

[Blake M. <bl...@us...>]

Update of /cvsroot/macs/macs/lib/MACS
In directory sc8-pr-cvs1:/tmp/cvs-serv29216

Modified Files:
	Request.pm 
Log Message:
*** empty log message ***

Index: Request.pm
===================================================================
RCS file: /cvsroot/macs/macs/lib/MACS/Request.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Request.pm	11 Jun 2003 19:46:06 -0000	1.6
--- Request.pm	30 Jun 2003 22:54:38 -0000	1.7
***************
*** 15,18 ****
--- 15,19 ----
  
  =cut
+ #' for emacs
  # must be all one line, for MakeMaker, or so said perlmod anyway
  $VERSION = q$Id$ =~ m/\,v\s(\d+)\.(\d+)/ ? sprintf('%d.%02d', $1, $2) : "0.01";
***************
*** 135,138 ****
--- 136,187 ----
    my($this, $method, $adm, @param) = @_;
    return $this->dispatch(undef, $adm, "AMC", $method, "CAN", @param);
+ }
+ 
+ =pod
+ 
+ =item pmc_del
+ 
+ delete a profile item
+ 
+ =cut
+ sub pmc_del {
+   my($this, $method, @param) = @_;
+   return $this->dispatch(undef, undef, "PMC", $method, "DEL", @param);
+ }
+ 
+ =pod
+ 
+ =item pmc_set
+ 
+ set a profile item
+ 
+ =cut
+ sub pmc_set {
+   my($this, $method, $adm, @param) = @_;
+   return $this->dispatch(undef, $adm, "PMC", $method, "SET", @param);
+ }
+ 
+ =pod
+ 
+ =item pmc_get
+ 
+ get a profile item
+ 
+ =cut
+ sub pmc_get {
+   my($this, $method, @param) = @_;
+   return $this->dispatch(undef, undef, "PMC", $method, "GET", @param);
+ }
+ 
+ =pod
+ 
+ =item pmc_list
+ 
+ list available profile items
+ 
+ =cut
+ sub pmc_list {
+   my($this, $method, @param) = @_;
+   return $this->dispatch(undef, undef, "PMC", $method, "LIST", @param);
  }