Changeset 769
- Timestamp:
- 03/15/07 20:02:44 (2 years ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
branches/filepaths-20070306/api/perl/lib/MogileFS/Client.pm
r747 r769 138 138 $opts ||= {}; 139 139 140 # Takes plugin args like { 'meta.keys' => 1, 'meta.key1' => 'mtime', 'meta.value1' => time(), } 141 my $plugin_args = $opts->{plugin_args} || {}; 142 my $create_close_args = {}; 143 144 while (my ($key, $value) = each %$plugin_args) { 145 $create_close_args->{"plugin.$key"} = $value; 146 } 147 140 148 $self->run_hook('new_file_start', $self, $key, $class, $opts); 141 149 … … 179 187 key => $key, 180 188 content_length => $bytes+0, 189 create_close_args => $create_close_args, 181 190 ); 182 191 } branches/filepaths-20070306/api/perl/lib/MogileFS/NewHTTPFile.pm
r451 r769 32 32 'bytes_out', # count of how many bytes we've written to the socket 33 33 'data_in', # storage for data we've read from the socket 34 'create_close_args', # Extra arguments hashref for the do_request of create_close during CLOSE 34 35 ); 35 36 … … 63 64 $self->{bytes_out} = 0; 64 65 $self->{data_in} = ''; 66 $self->{create_close_args} = $args{create_close_args} || {}; 65 67 66 68 return $self; … … 327 329 my $path = $self->{path}; 328 330 331 my $raw_args = $self->{create_close_args}; 332 329 333 my $key = shift || $self->{key}; 330 334 331 335 my $rv = $mg->{backend}->do_request 332 336 ("create_close", { 337 %$raw_args, 333 338 fid => $fid, 334 339 devid => $devid,
