--- mogilefs/server/mogilefsd	Mon Dec  5 11:14:10 2005
+++ /usr/local/bin/mogilefsd	Mon Dec  5 11:59:00 2005
@@ -3238,6 +3238,31 @@
     return $self->ok_line($ret);
 }
 
+sub cmd_get_file_size {
+    my QueryWorker $self = shift;
+    my $args = shift;
+
+    my $key = $args->{key};
+
+    return $self->err_line("no_key") unless length($key);
+
+    # validate domain
+    my $dmid = $self->check_domain($args) or return 0;
+
+    # get DB handle
+    my $dbh = Mgd::get_dbh or
+        return $self->err_line("nodb");
+
+    my $filerow = Mgd::key_filerow($dbh, $dmid, $key);
+    return $self->err_line("unknown_key") unless $filerow;
+
+    my $ret = { 
+                file_size => $filerow->{length},
+              };
+
+    return $self->ok_line($ret);
+}
+
 sub cmd_stats {
     my QueryWorker $self = shift;
     my $args = shift;