Permalink
Browse files

remove deprecated stats stuff from client

git-svn-id: http://code.sixapart.com/svn/mogilefs/trunk@1487 f67b2e87-0811-0410-a7e0-dd94e48410d6
  • Loading branch information...
1 parent 4139306 commit c8d4026c4be344be9227774301dec7afa2c629c3 dormando committed Sep 19, 2010
Showing with 0 additions and 44 deletions.
  1. +0 −44 lib/MogileFS/Admin.pm
View
@@ -101,50 +101,6 @@ sub clear_cache {
return 1;
}
-# get a hashref of statistics on how the MogileFS server is doing. there are several
-# sections of statistics, in this form:
-# {
-# replication => { "domain-name" => { "class-name" => { devcount => filecount }, ... }, ... },
-# }
-sub get_stats {
- my MogileFS::Admin $self = shift;
- my $ret = {};
-
- # do the request, default to request all stats if they didn't specify any
- push @_, 'all' unless @_;
- my $res = $self->{backend}->do_request("stats", { map { $_ => 1 } @_ })
- or return undef;
-
- # get replication statistics
- foreach my $i (1..$res->{"replicationcount"}) {
- $ret->{replication}->{$res->{"replication${i}domain"}}->{$res->{"replication${i}class"}}->{$res->{"replication${i}devcount"}} = $res->{"replication${i}files"};
- }
-
- # get file statistics
- foreach my $i (1..$res->{"filescount"}) {
- $ret->{files}->{$res->{"files${i}domain"}}->{$res->{"files${i}class"}} = $res->{"files${i}files"};
- }
-
- # get device statistics
- foreach my $i (1..$res->{"devicescount"}) {
- $ret->{devices}->{$res->{"devices${i}id"}} = {
- host => $res->{"devices${i}host"},
- status => $res->{"devices${i}status"},
- files => $res->{"devices${i}files"},
- };
- }
-
- # get fid statistics if they're provided
- if ($res->{fidmax}) {
- $ret->{fids} = {
- max => $res->{fidmax},
- };
- }
-
- # return the created response
- return $ret;
-}
-
# get a hashref of the domains we know about in the format of
# { domain_name => { class_name => mindevcount, class_name => mindevcount, ... }, ... }
sub get_domains {

0 comments on commit c8d4026

Please sign in to comment.