Changeset 944

Timestamp:

05/03/07 19:01:02 (2 years ago)

Author:

bradfitz

Message:

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
  

Files:

• trunk/api/perl/MogileFS-Client/CHANGES (modified) (1 diff)
• trunk/api/perl/MogileFS-Client/MANIFEST.SKIP (modified) (1 diff)
• trunk/api/perl/MogileFS-Client/META.yml (modified) (1 diff)
• trunk/api/perl/MogileFS-Client/Makefile.PL (modified) (1 diff)
• trunk/api/perl/MogileFS-Client/lib/MogileFS/Admin.pm (modified) (1 diff)
• trunk/api/perl/MogileFS-Client/lib/MogileFS/Client.pm (modified) (1 diff)

trunk/api/perl/MogileFS-Client/CHANGES

@@ +1 @@
+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
-

trunk/api/perl/MogileFS-Client/MANIFEST.SKIP

@@ +1 @@
+MogileFS-Client.spec
-^#
-\bCVS\b

trunk/api/perl/MogileFS-Client/META.yml

@@ -2 +2 @@
-#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
-name:         MogileFS-Client
-6
-
+7
+lib/MogileFS/Client.pm
-installdirs:  site
-requires:

trunk/api/perl/MogileFS-Client/Makefile.PL

@@ -14 +14 @@
-WriteMakefile(
-    NAME                    => 'MogileFS::Client',
-                 => '1.06
+_FROM            => 'lib/MogileFS/Client.pm
-    AUTHOR                  => 'Brad Fitzpatrick <brad@danga.com>',
-    ABSTRACT                => 'MogileFS client library',

trunk/api/perl/MogileFS-Client/lib/MogileFS/Admin.pm

@@ -505 +505 @@
-}
-
+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

trunk/api/perl/MogileFS-Client/lib/MogileFS/Client.pm

@@ -52 +52 @@
-use MogileFS::NewHTTPFile;
-
+our $VERSION = '1.07';
+
-our $AUTOLOAD;
-