[Bio] / FigKernelPackages / FFserver.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FFserver.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10, Thu May 21 21:29:50 2009 UTC revision 1.11, Thu May 21 21:53:17 2009 UTC
# Line 18  Line 18 
18          server_url => $server_url,          server_url => $server_url,
19          ua => LWP::UserAgent->new(),          ua => LWP::UserAgent->new(),
20      };      };
21        $self->{ua}->timeout(10 * 60);
22    
23      return bless $self, $class;      return bless $self, $class;
24  }  }
# Line 136  Line 137 
137          $wq = FastaWorkQueue->new($input);          $wq = FastaWorkQueue->new($input);
138      }      }
139    
140        my $req_bytes = $blast ? 1000 : 16000;
141    
142      return ResultHandler->new($wq, $self->{server_url}, 'assign_function_to_prot', \&id_seq_pair_bundler,      return ResultHandler->new($wq, $self->{server_url}, 'assign_function_to_prot', \&id_seq_pair_bundler,
143                                #\&tab_delimited_output_parser,                                #\&tab_delimited_output_parser,
144                                \&YAML::Load,                                \&YAML::Load,
145                                $params);                                $params, $req_bytes);
146  }  }
147    
148  sub assign_functions_to_dna  sub assign_functions_to_dna
# Line 157  Line 160 
160          $wq = FastaWorkQueue->new($input);          $wq = FastaWorkQueue->new($input);
161      }      }
162    
163        my $req_bytes = $blast ? 1000 : 16000;
164      my $params = [min_hits => $min_hits, max_gap => $max_gap, blast => $blast];      my $params = [min_hits => $min_hits, max_gap => $max_gap, blast => $blast];
165      return ResultHandler->new($wq, $self->{server_url}, 'assign_functions_to_DNA',      return ResultHandler->new($wq, $self->{server_url}, 'assign_functions_to_DNA',
166                                \&id_seq_pair_bundler,                                \&id_seq_pair_bundler,
167                                \&tab_delimited_output_parser, $params);                                \&tab_delimited_output_parser, $params, $req_bytes);
168  }  }
169    
170  sub id_seq_pair_bundler  sub id_seq_pair_bundler
# Line 194  Line 198 
198    
199  sub new  sub new
200  {  {
201      my($class, $work_queue, $server_url, $function, $input_bundler, $output_parser, $form_vars) = @_;      my($class, $work_queue, $server_url, $function, $input_bundler, $output_parser, $form_vars, $req_bytes) = @_;
202    
203      my $self = {      my $self = {
204          work_queue => $work_queue,          work_queue => $work_queue,
# Line 205  Line 209 
209          ua => LWP::UserAgent->new(),          ua => LWP::UserAgent->new(),
210          cur_result => undef,          cur_result => undef,
211          form_vars => $form_vars ? $form_vars : [],          form_vars => $form_vars ? $form_vars : [],
212            req_byts => ($req_bytes ? $req_bytes : 16000),
213      };      };
214      return bless $self, $class;      return bless $self, $class;
215  }  }

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3