Permalink
Browse files

Checking in changes prior to tagging of version 1.07. Changelog diff is:

Index: CHANGES
===================================================================
--- CHANGES	(revision 923)
+++ CHANGES	(working copy)
@@ -1,3 +1,8 @@
+1.07 - 2006-05-03
+
+        * 'settings list' and 'settings set <key> <value>' commands.
+          use for enabling rebalancing, slaves, memcaches, etc.
+
 1.06 - 2006-04-20
 
         * add fsck mgmt/status/querying commands to MogileFS::Admin


git-svn-id: http://code.sixapart.com/svn/mogilefs/trunk@944 f67b2e87-0811-0410-a7e0-dd94e48410d6
  • Loading branch information...
1 parent 4104375 commit fd0baebbe1aeefb46ad32c335575f083ab7e33de @bradfitz bradfitz committed May 3, 2007
Showing with 36 additions and 3 deletions.
  1. +5 −0 CHANGES
  2. +1 −0 MANIFEST.SKIP
  3. +2 −2 META.yml
  4. +1 −1 Makefile.PL
  5. +25 −0 lib/MogileFS/Admin.pm
  6. +2 −0 lib/MogileFS/Client.pm
View
@@ -1,3 +1,8 @@
+1.07 - 2006-05-03
+
+ * 'settings list' and 'settings set <key> <value>' commands.
+ use for enabling rebalancing, slaves, memcaches, etc.
+
1.06 - 2006-04-20
* add fsck mgmt/status/querying commands to MogileFS::Admin
View
@@ -1,3 +1,4 @@
+MogileFS-Client.spec
^#
\bCVS\b
^MANIFEST\.
View
@@ -1,8 +1,8 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: MogileFS-Client
-version: 1.06
-version_from:
+version: 1.07
+version_from: lib/MogileFS/Client.pm
installdirs: site
requires:
fields: 0
View
@@ -13,7 +13,7 @@ use ExtUtils::MakeMaker;
WriteMakefile(
NAME => 'MogileFS::Client',
- VERSION => '1.06',
+ VERSION_FROM => 'lib/MogileFS/Client.pm',
AUTHOR => 'Brad Fitzpatrick <brad@danga.com>',
ABSTRACT => 'MogileFS client library',
PREREQ_PM => {
View
@@ -504,6 +504,31 @@ sub fsck_log_rows {
return @ret;
}
+sub set_server_setting {
+ my MogileFS::Admin $self = shift;
+ my ($key, $val) = @_;
+ my $res = $self->{backend}->do_request("set_server_setting", {
+ key => $key,
+ value => $val,
+ });
+ return 0 unless $res;
+ return 1;
+}
+
+sub server_settings {
+ my MogileFS::Admin $self = shift;
+ my ($key, $val) = @_;
+ my $res = $self->{backend}->do_request("server_settings", {});
+ return 0 unless $res;
+ my $ret = {};
+ for (my $i = 1; $i <= $res->{key_count}; $i++) {
+ $ret->{$res->{"key_$i"}} = $res->{"value_$i"};
+ }
+ return $ret;
+}
+
+
+
################################################################################
# MogileFS::Admin class methods
#
View
@@ -51,6 +51,8 @@ use Time::HiRes ();
use MogileFS::Backend;
use MogileFS::NewHTTPFile;
+our $VERSION = '1.07';
+
our $AUTOLOAD;
=head1 METHODS

0 comments on commit fd0baeb

Please sign in to comment.