OK..obviously zappa_engine knows perl way better than me.
My programming skills are in reality very limited, I basically use Google
and copy and paste from other scripts. What I am trying to say is that
the solution I found works, but is not the best solution. Instead of finding the
problem, I found a way to go around the problem.
Also, this is just a temporary solution and is only for those who know how to edit the script.
I can not and will not modify the script and tell you where to download it. You gonna have to modify the script by yourself until zappa_engine releases an official solution.
OK, the problem is that the script is downloading two files, the first one is the CAPTCHA image and the second one is something else. The last file(in this case the second one) its been assigned as the captcha image and like I said, is incorrect.
To temporarily fix this, do the next:
find the loadnewcaptcha subroutine:
- Code: Select all
sub loadnewcaptcha {
and change this section:
- Code: Select all
# Download captcha image
foreach my $pic (sort keys %image) {
my $captcha=$ua->get($pic,':content_file' => './captcha.jpg');
}
$TKcaptchaframe->pack(-before => $TKbuttonframe, -fill => 'both',
-anchor => 's', -expand => 1);
my $image = $TKmw->Photo(-file => "captcha.jpg");
to make it lok like this:
- Code: Select all
# Download captcha image
my $incremento=1;
foreach my $pic (sort keys %image) {
my $captcha=$ua->get($pic,':content_file' => "./$incremento.jpg");
$incremento++;
}
$TKcaptchaframe->pack(-before => $TKbuttonframe, -fill => 'both',
-anchor => 's', -expand => 1);
my $image = $TKmw->Photo(-file => "1.jpg");
Pay close attention, some single quotes were changed to double quotes.
Also, if you mess up in your first captcha attempt, the script is not going to respond the way it should and you gonna have to close it and start over, remember, this is just a temporary solution.
I do not guarantee that this will work for you, it did for me and hope it works for you.
Note: I tried this several times and it work OK for me...but when I exit, windows gives me a perl interpreter error.
And finaly, it is not my intention to step on anybody toes, I just want to provide a temporary solution for our Forum members.
Good luck,