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

[Guillem C. W. <vac...@es...>]

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=F3 web subministrada

 my $llistotal=3Dshift(@_);

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

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