[Mon-commit] mon-client/Mon Client.pm,1.2,1.3

[David N. <vi...@us...>]

Update of /cvsroot/mon/mon-client/Mon
In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv29238

Modified Files:
	Client.pm 
Log Message:
Added list/get/set view code (experimental)


Index: Client.pm
===================================================================
RCS file: /cvsroot/mon/mon-client/Mon/Client.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Client.pm	17 Feb 2005 20:52:49 -0000	1.2
--- Client.pm	5 Sep 2006 17:09:21 -0000	1.3
***************
*** 960,963 ****
--- 960,989 ----
  
  
+ sub list_views {
+     my $self = shift;
+ 
+     undef $self->{"ERROR"};
+ 
+     if (!$self->{"CONNECTED"}) {
+         $self->{"ERROR"} = "not connected";
+         return undef;
+     }
+ 
+     my ($r, $l) = _do_cmd ($self->{"HANDLE"}, "list views");
+ 
+     if ($r =~ /^220/)
+     {
+         $l =~ s/^views\s+//;
+         return split (/\s+/, $l);
+     }
+     
+     else
+     {
+         $self->{"ERROR"} = $l;
+         return undef;
+     }
+ }
+ 
+ 
  sub start {
      my $self = shift;
***************
*** 1139,1142 ****
--- 1165,1196 ----
  
  
+ sub setview {
+     my $self = shift;
+     my ($view) = @_;
+ 
+     undef $self->{"ERROR"};
+ 
+     if (!$self->{"CONNECTED"}) {
+         $self->{"ERROR"} = "not connected";
+         return undef;
+     }
+ 
+     my ($r, $l) = _do_cmd ($self->{"HANDLE"}, "setview $view");
+ 
+     if (!defined $r)
+     {
+         $self->{"ERROR"} = $l;
+         return undef;
+     }
+     elsif ($r !~ /^220/)
+     {
+         $self->{"ERROR"} = $r;
+         return undef;
+     }
+ 
+     return $r;
+ }
+ 
+ 
  sub get {
      my $self = shift;
***************
*** 1167,1170 ****
--- 1221,1248 ----
  
  
+ sub getview {
+     my $self = shift;
+ 
+     undef $self->{"ERROR"};
+ 
+     if (!$self->{"CONNECTED"}) {
+         $self->{"ERROR"} = "not connected";
+         return undef;
+     }
+ 
+     my ($r, $l) = _do_cmd ($self->{"HANDLE"}, "getview");
+ 
+     if (!defined $r) {
+         $self->{"ERROR"} = $l;
+         return undef;
+     } elsif ($r !~ /^220/) {
+         $self->{"ERROR"} = $r;
+         return undef;
+     }
+ 
+     return $l;
+ }
+ 
+ 
  sub test {
      my $self = shift;