Re: www::Mechanize - problems finding forms

Hi,

Looks like you're moving in the right direction. BTW - forgot to mention 
that mech->success is easier than checking the HTTP status code.

Checking mech->content against a regular expression is good (IMHO) and 
the one you've got is probably a good start. The proof of the pudding 
however is in the eating, so you will have to see if "action.php" is a 
good (enough) criteria to determine that you have gotten the content you 
expect.

BTW - the save content will only work if the directory Results/$id 
already exists

Cheers,

Peter

Hüseyin KÖK wrote:
> hi,
>
> No i do not used error checking yet( im new in coding :))
>  I also never thougt about that, because it worked weeks ago fine.
>
>
> now i just changed the code:
>
> so now i am parsing after mech->get if the form is there. This is the 2. advise you gave. do you think this works?
>
> ######
>   my $mech = WWW::Mechanize->new;
>   $mech->get('http://swissmodel.expasy.org/workspace/index.php?func=modelling_simple1&userid=USERID&token=TOKEN');
>     
>   if($mech->content =~/form action=index.php/){ # look if form exists/available
> 	  #print "Swissmodel Form  -  OK\n";
>
> 	$mech->submit_form # fill in form and submit
> 	(
> 	  form_number => '1',
> 	  fields => 
> 	  {
> 		sequence  => $seq,
> 		group => $temp
> 	  }       
> 	);
>   }
>   else{
> 	  #print "Problem getting Form!\n";
> 	  
> 	  $mech->save_content("Results/$id/smerr.html");
> 	  return 0;
>   }
> #####
>
> at first i did not exactly figured put what mech->status returns, till i found out that this is standardized http response code. 
> so if its 200 its ok, else there could be a problem. therefor i had to study the response codes. so i will insert this also.
>
> thanks for ur help and advise.
>
>
> best regards
> Hüseyin
>
>
>
>   
>
>
>