- 论坛徽章:
- 0
|
[root@centos100 mogilefs]# mogtool --trackers=172.16.23.100:7500 --domain=mingdao --class=doc inject mogstored.conf mogconf
file mogconf: 6ea5a02ca49090431d733310363c530a, len = 92
Spawned child 15359 to deal with chunk number 1.
WARNING: Unable to save file 'mogconf': MogileFS::Backend: timed out after 3s against 172.16.23.100:7500 when sending command: [create_open domain=mingdao&fid=0&class=doc&multi_dest=1&key=mogconf
] at /usr/lib/perl5/site_perl/5.8.8/MogileFS/Client.pm line 268
System error message: MogileFS::Backend: timed out after 3s against 172.16.23.100:7500 when sending command: [create_open domain=mingdao&fid=0&class=doc&multi_dest=1&key=mogconf
] at /usr/lib/perl5/site_perl/5.8.8/MogileFS/Client.pm line 268
This was try #1 and it's been 3.00 seconds since we first tried. Retrying...
上面的情况谁遇到过,难道是我perl脚本的问题吗?
上面提示268行有问题,我不懂perl,谁帮我看一下- 260 # Extra args to be passed along with the create_open and create_close commands.
- 261 # Any internally generated args of the same name will overwrite supplied ones in
- 262 # these hashes.
- 263 my $create_open_args = $opts->{create_open_args} || {};
- 264 my $create_close_args = $opts->{create_close_args} || {};
- 265
- 266 $self->run_hook('new_file_start', $self, $key, $class, $opts);
- 267
- 268 my $res = $self->{backend}->do_request
- 269 ("create_open", {
- 270 %$create_open_args,
- 271 domain => $self->{domain},
- 272 class => $class,
- 273 key => $key,
- 274 fid => $opts->{fid} || 0, # fid should be specified, or pass 0 meaning to auto-generate one
- 275 multi_dest => 1,
- 276 }) or return undef;
- 277
- 278 my $dests = []; # [ [devid,path], [devid,path], ... ]
- 279
- 280 # determine old vs. new format to populate destinations
- 281 unless (exists $res->{dev_count}) {
- 282 push @$dests, [ $res->{devid}, $res->{path} ];
复制代码 |
|