[perl-win32-gui-users] Waiting the user to continue the download of information from the web

[Guillem Cunillera Wefers]

Hello again,

In my aplication I have to acces  a lot of times to a web information, but I 
don't want to die my apllication if a non is_succes and I want to put a message 
error and waiting the answer of the user if he wants to insist or abort. I 
don't know if maybe yesterday I drunk too much but today I have no idea.
Can anybody help me ?
I include for you the code of one of them that don't go correctly for this 
reason, i have to use semaphores or something like this ?
This subroutine is not inside a module that uses any window.

 # -------------------------------------
sub obtenirget {
# -------------------------------------
# permet obtenir la informacio de la direcció web subministrada

 my $llistotal=shift(@_);

 $finalitzat=0;
 $intents=0;
 while ($finalitzat==0)
 {
  my $ua = LWP::UserAgent->new;
  my $req = HTTP::Request->new(GET => $llistotal);
  my $res = $ua->request($req);

  if ($res->is_success)
  {
   $contingut = $res->content; 
   $contingut =~ s/\015?\012/\n/g; ##per als salts de HTML
   $contingut =~ s/\015\012?/\n/g; ## per a DOS  
   $finalitzat=1;
  } else 
  {
   $intents++;
   if ($intents % 5)
   {
    $texterror="Error No s ha obtingut la llista satisfactoriament 
".$res->status_line;
       Mailtool::errors::visualitza($texterror);
   }
  }
  
 }
 
 return($contingut);
}