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;
|
