"Community User"

[Phillip Richcreek]

I probably missed an announcement! The ASPN site lists a category
they're calling "Community", which is the only one that even comes
close to describing my situation.

Is it the case that the perl documentation is no longer available to
community users online? I don't see that as a problem. It's just that
I've always accessed the documentation there and was not aware that
(apparently) the html is and has been stored locally during the
installation process.

I've also noticed a dramatic decrease in the acitivity on this and the
other ASPN forums that I subscribe to -- pdk, xml, admin, activeperl.
Are there new forums and, if so, are they available to community
users?

Phil
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: Older version of CAM::PDF (< 1.13)

[Phillip Richcreek]

Thanks for the suggestion, Serguei. CAM::PDF-107 is now installed
along with perl 5.10 and the CAM:PDF functions that I am using work
just fine now.

Oh, one thing about the Build. I thought that Build test was probably
testing whether the install would be successful, so I ran it before
Build install as you indicated. Not a pretty sight! Build test goes
into an unending loop spewing garbage onto the screen. I had to kill
it with the Task Manager. I wonder if MODULE::BUILD could/should be
trained to catch that newbie blunder???

Again, thanks,

Phil

On Sun, Jun 21, 2009 at 7:08 PM, Serguei Trouchelle wrote:
> Phillip Richcreek wrote:
>
>> I'd like to get hold of a version of CAM::PDF prior to 1.13. 1.52 and
>> 1.13 are available, but I can't find a repository that advertises
>> anything prior to 1.13. I tried the ones in PPM::REPOSITORY that have
>> '5.6' in their description (thinking that if they still have 5.6 perl
>> they might also have older versions of things like CAM::PDF) and all
>> of those failed when I tried to add them with ppm:gui.
>>
>> I want the older version so that I can do comparison with 1.52 to
>> troubleshoot a problem I'm having with CAM::PDF:Renderer::Text (see
>> earlier post if interested!).
>>
>> Any idea where I might be able to find the older version?
>
> You can make it yourself, it's easy: CPAN has 1.12 and other versions,
> http://search.cpan.org/~cdolan/CAM-PDF-1.12/
> It's pure perl and it uses Module::Build so you don't even have to have
> "make".
>
> Just download, untar/ungzip, run "perl Build.PL", "Build test" and "Build
> install".
>
>
> --
> Serguei Trouchelle
>
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Older version of CAM::PDF (< 1.13)

[Phillip Richcreek]

I'd like to get hold of a version of CAM::PDF prior to 1.13. 1.52 and
1.13 are available, but I can't find a repository that advertises
anything prior to 1.13. I tried the ones in PPM::REPOSITORY that have
'5.6' in their description (thinking that if they still have 5.6 perl
they might also have older versions of things like CAM::PDF) and all
of those failed when I tried to add them with ppm:gui.

I want the older version so that I can do comparison with 1.52 to
troubleshoot a problem I'm having with CAM::PDF:Renderer::Text (see
earlier post if interested!).

Any idea where I might be able to find the older version?

TIA,

Phil
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

CAM::PDF renderpdf.pl broken?

[Phillip Richcreek]

This message is going to the CAM::PDF author as well as the
ActiveState perl-win32-users mail list.

For about two years, I've been running a program that uses CAM::PDF to
break a PDF file into individual pages and processes each page using a
utility distrubuted with CAM::PDF, renderpdf.pl, to extract a text
image of each page and perform further processing on it. After
installing perl 5.10 and 1.52 of CAM::PDF, renderpdf.pl no longer
works. It reports no errors, but returns no text to my program.
Although I hadn't until now run renderpdf.pl directly from the command
line, since it's behavior changed when executed with qx in my program,
I've run it from the command line with the same result -- nothing
printed to SYSOUT. I've also run the debugger on renderpdf.pl, but
I've been unable to spot where anything is going wrong.

Here are a few lines from my program surrounding the execution of renderpdf.pl:

   use strict;
   use warnings;


my $pdf = CAM::PDF->new($checks) || die "$CAM::PDF::errstr\n";
if (!$pdf->extractPages($pagenum))
{die "Failed to extract page number $pagenum\n";}   
$pdf->preserveOrder();
if (!$pdf->canModify())
{die "This PDF forbids modification\n";}

$thisCheck=$singleCheck;
$thisCheck=~s/pagenum/$pagenum/;
logit("output name is $thisCheck\n",$silent);
if (!$pdf->cleanoutput("$thisCheck")) {
   log_and_die("CAM PDF ERROR: $CAM::PDF::errstr\n".
  "cleanoutput Failed to output page 
$pagenum\n",-74)
}

@renderedText=qx{renderpdf.pl --verbose
--renderer=CAM::PDF::Renderer::Text "$thisCheck" 1};
if ($? == -1)
   { log_and_die("renderpdf.pl failed to execute: $!\n",-79); }
elsif (($? >> 8)!=0)
  { log_and_die("renderpdf.pl exited with value ".($?
>> 8),-78) }

I've compared the 1.52 version of renderpdf.pl to the 1.13 version and
there are no differences except the version number and an apparently
inconsequential change in an eval.

 eval "require $opts{renderer}";  ## no critic for string eval
 if ($EVAL_ERROR)
 {
die $EVAL_ERROR;
 }

if (!eval "require $opts{renderer}")  ## no critic (StringyEval)
{
die $EVAL_ERROR;
}

I'm hopeful that the author will have time to take a look at this or
that someone who subscribes to the mailing list has an idea how I
might proceed to debug this.

TIA,

Phil
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

MSDOS Path

[Phillip Richcreek]

I'm troubleshooting a problem with CAM:PDF that has appeared after I
installed 5.10 along with a more recent version of CAM::PDF than I was
running with 5.8. During my troubleshooting, I've modified the MSDOS
Path value and now, before proceeding, I want to confirm that I have
the correct perl folders/directories in the Path.

The perl directories in Path are:
C:\Perl\site\bin;
C:\Perl\bin;
C:\Program Files\ActiveState Komodo Edit 5\;
C:\Program Files\ActiveState Perl Dev Kit 7.3\bin;
C:\Program Files\ActiveState Perl Dev Kit 7.3 Deployment\bin;

Does this look OK?

TIA,
Phil
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Automate an ActiveX Process

[Phillip Richcreek]

I want to automate -- eliminate user interaction -- a process that
states in its doc...

"Miraplacid Text Driver registers itself as an ActiveX object and
could be used from any scripting and OLE-compliant software.
Using this ability, you can control the printing process directly from
your script or application."

"To create component, use following constructions

JScript: var obj = WScript.CreateObject("Miraplacid.TextDriver");
VBScript: set obj = WScript.CreateObject("Miraplacid.TextDriver")
Visual Basic: Set obj = CreateObject("Miraplacid.TextDriver")"

I'd like to write the automation script in perl. Can someone give me
some guidance on how to do this? I have a request in to the product's
support group but so far they have not responded.

TIA,

Phil
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Math-Currency install...where is it?

[Phillip Richcreek]

I installed a package called Math-Currency under 5.8 some time ago.
More recently I installed perl 5.10 and now am unable to find a
repository where Math-Currency resides. The ppmprofile entry from 5.8
looks like this:


  Math-Currency
  Exact Currency Math with Formatting and Rounding
  John Peacock 
  






  


Is CODEREF supposed to identify the repository the package was
installed from? And shouldn't it include a root directory?

I still have the 5.8 Math-Currency directory in the 5.8 site/lib.Is
there some way to access it from there?

TIA,

Phil
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: LWP::UserAgent 'Ordinal not Found'

[Phillip Richcreek]

I ran pwhich and it reported that libeay32.dll would be fetched from
perl/bin. I pretty certain that the version in perl/bin was from the
Crypt-SSLeay install. (There is a post-install script that runs and
asks if you want to put libeay32 and another dll into perl/bin, to
which I answered yes.)

So I decided to go ahead and install 5.10.

My script runs OK under 5.10.

I'm now having some issues with re-installing ppm packages under 5.10.
I have an open question in win32-users on that issue -- not sure why I
put it there instead of here!!!??? Guess it seemed more
windows-specific :-)

THANKS Jan and Serguie for your help.

On Wed, Jun 10, 2009 at 3:00 PM,
 wrote:
> Send Perl-Win32-Users mailing list submissions to
>        perl-win32-us...@listserv.activestate.com
>
> To subscribe or unsubscribe via the World Wide Web, visit
>        http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
> or, via email, send a message with subject or body 'help' to
>        perl-win32-users-requ...@listserv.activestate.com
>
> You can reach the person managing the list at
>        perl-win32-users-ow...@listserv.activestate.com
>
> When replying, please edit your Subject line so it is more specific
> than "Re: Contents of Perl-Win32-Users digest..."
>
>
> Today's Topics:
>
>   1. Socket-Select problem (Anders Bostr?m)
>   2. LWP::UserAgent 'Ordinal not Found' (Phillip Richcreek)
>   3. RE: :UserAgent 'Ordinal not Found' (Jan Dubois)
>   4. Re: LWP::UserAgent 'Ordinal not Found' (Serguei Trouchelle)
>   5. RE: LWP::UserAgent 'Ordinal not Found' (Jan Dubois)
>
>
> --
>
> Message: 1
> Date: Wed, 10 Jun 2009 13:15:53 +0200
> From: Anders Bostr?m 
> Subject: Socket-Select problem
> To: Perl-Win32-Users@listserv.ActiveState.com
> Message-ID: <4a2f95e9.2040...@mollehem.se>
> Content-Type: text/plain; charset=windows-1252; format=flowed
>
> Hello,
>
> I have a server that listens for messages on a socket.
> It works fine for some time but then it suddenly stops acting on
> messages from the connections!
>
> It creates a local socket with IO::Socket::INET and then a select object
> with IO::Select.
> In a loop it checks for connections with "->can_read(5)".
>
> What happens is that clients connect and keeps the connection over some
> time (hours), so there are a lot of clients connected at the same time,
> but they are silent most of the time.
> All work well, until the server stops acting on messages, meaning
> "->can_read" does not return any handles.
> When checking the number of connections with "->handles", it is normally
> somewhere around 80 when this problem occurs.
> New connections are accepted ( "->handles" returns a higher value) but
> "->can_read" doesn't return the handle...
>
> Anyone that can give me a clue out of this?
>
> Thanks
> Anders
>
>
>
>
> --
>
> Message: 2
> Date: Wed, 10 Jun 2009 11:58:23 -0400
> From: Phillip Richcreek 
> Subject: LWP::UserAgent 'Ordinal not Found'
> To: win32-users list 
> Message-ID:
>        
> Content-Type: text/plain; charset=ISO-8859-1
>
> I'm getting the following error(s) using LWP::UserAgent...
>
> (POP-UP)
> Perl.exe - Ordinal not found
> The ordinal 3212 could not be located in the dynamic
> link library LIBEAY32.dll
>
> (from perl script)
> 501 Protocol scheme 'https' is not supported
> (Crypt::SSLeay not installed) at getChaseChecking.pl
> line 21.
>
> I have, in fact, installed Crypt::SSLeay, which put LIBEAY32.dll into
> perl/bin. There ARE other LIBEAY32's present in the MSDOS path and I've
> tried using those as well and get the same result. I now have perl/bin at
> the front of the path. I also downloaded a ?more recent verions of LIBEAY32
> from sourceforge and got the same result.
>
> Here's the script, which is an example from LWP:UserAgent.
>
> TIA,
>
> Phil
>
> __
> #usr/local/bin/perl
>
> use strict;
> use warnings;
>
> require LWP::UserAgent;
>
> my $ua = LWP::UserAgent->new;
> $ua->timeout(10);
> $ua->env_proxy; # I think this means don't use proxy server
>
> #my $response = $ua->get('http://search.cpan.org/');
> my $response = $ua->get('https://www.chase.com/');
>
> if ($response->is_success) {
> ? ? print $response->decoded_content; ?# or whatever
> }
> else {
> ? ? die $response->status_line;
> }
>
>
> --
>
> Message: 3
&g

LWP::UserAgent 'Ordinal not Found'

[Phillip Richcreek]

I'm getting the following error(s) using LWP::UserAgent...

(POP-UP)
Perl.exe - Ordinal not found
The ordinal 3212 could not be located in the dynamic
link library LIBEAY32.dll

(from perl script)
501 Protocol scheme 'https' is not supported
(Crypt::SSLeay not installed) at getChaseChecking.pl
line 21.

I have, in fact, installed Crypt::SSLeay, which put LIBEAY32.dll into
perl/bin. There ARE other LIBEAY32's present in the MSDOS path and I've
tried using those as well and get the same result. I now have perl/bin at
the front of the path. I also downloaded a  more recent verions of LIBEAY32
from sourceforge and got the same result.

Here's the script, which is an example from LWP:UserAgent.

TIA,

Phil

__
#usr/local/bin/perl

use strict;
use warnings;

require LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy; # I think this means don't use proxy server

#my $response = $ua->get('http://search.cpan.org/');
my $response = $ua->get('https://www.chase.com/');

if ($response->is_success) {
    print $response->decoded_content;  # or whatever
}
else {
    die $response->status_line;
}
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Install a Package from Local Directory

[Phillip Richcreek]

My experience installing perl extensions is limited to packages
obtained from repositories. I want to install a package called 'email
spider', or 'spiderawy', which I downloaded from www.mewsoft.com, not
from an official repository.  Can I use ppm to install spiderawy?

TIA, Phil
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: Perl-Win32-Users Digest, Vol 29, Issue 16

[Phillip Richcreek]

>
> Win32::Sound is already part of ActivePerl.  It is *also* part of the
> ActiveState repo if you are using ActivePerl 818 or later (but
> you don't need to install it; you should already have it).
>
>
>
> Cheers,
>
> -Jan
>
>
>
> From: perl-win32-users-boun...@listserv.activestate.com [mailto:
> perl-win32-users-boun...@listserv.activestate.com] On Behalf Of
> Phillip Richcreek
> Sent: Tuesday, December 30, 2008 12:54 PM
> To: perl-win32-users@listserv.activestate.com
> Subject: Play .wav file win32::sound?
>
>
>
> I want to make a clicking sound -- something similar to a clock tick or
> metronome tick -- within a perl program. The code will accept a "number of
> beats per minute" value, then play the .wav on each "beat".
>
> use Time::HiRes qw(usleep);
> use Win32::Sound;
> $microseconds = 500_000;  # 120 beats/minute
> while(1)
> {
>  usleep($microseconds);
>  Play("beat.wav");
> }
>
> I've been unable to locate Win32::Sound using ppm search.
>
> ppm> rep
> Repositories:
> [1] ActiveState Package Repository
> [2] AS-BETA
> [3] AS-BETA2
> [4] LOCAL
> [5] CPAN
> [6] ActiveState PPM2 Repository
> [7] UWINN
>
> Does someone know where I can find Win32::Sound?
>
> TIA,
>
> Phil
>
Yep, worked fine without installing anything.
Thanks Jan.

I'm having an issue with the sound volume. I've
tried different values for Win32::Sound::Volume()
and they don't seem to change the volume level at
all. The program runs in an MSDOS session, perhaps
this has something to do with the problem?

Phil
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Play .wav file win32::sound?

[Phillip Richcreek]

I want to make a clicking sound -- something similar to a clock tick or
metronome tick -- within a perl program. The code will accept a "number of
beats per minute" value, then play the .wav on each "beat".

use Time::HiRes qw(usleep);
use Win32::Sound;
$microseconds = 500_000;  # 120 beats/minute
while(1)
{
  usleep($microseconds);
  Play("beat.wav");
}

I've been unable to locate Win32::Sound using ppm search.

ppm> rep
Repositories:
[1] ActiveState Package Repository
[2] AS-BETA
[3] AS-BETA2
[4] LOCAL
[5] CPAN
[6] ActiveState PPM2 Repository
[7] UWINN

Does someone know where I can find Win32::Sound?

TIA,

Phil
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Testing libdbx -- used in mail::transport::dbx

[Phillip Richcreek]

I posted this topic in the Activeperl list almost three days ago and have
not had any response.
__

I'm working with the author of libdbx, which is a C program used in
mail::transport::dbx, to troubleshoot a problem I'm experiencing when using
mail::transport::dbx. The libdbx program is distributed as a DLL in the perl
package.

I've been in contact with Dave Smith, who authored libdbx. He is not able to
devote much time to working on the problem and has agreed to spend a limited
amount of time guiding me in troubleshooting the problem. I've been unable
to contact the author of mail::transport::dbx, Tassilo von Parseval
[EMAIL PROTECTED], so I'm undertaking the perl side of
the troubleshooting myself. (I believe the problem lies in libdbx, not
anywhere in the perl package.)

The plan is to re-compile the libdbx and test it with some C code provided
by the author. If I am able to fix the problem (in libdbx)  that I'm
experiencing, I'd like to try substituting the testing (re-compiled) version
of libdbx into the existing mail::transport:dbx.

Where can I find a HOWTO explaining what steps I need to take to
(temporarily) run the existing mail::transport::dbx code with the
re-compiled libdbx? I will be doing my testing in a Windows environment.

TIA,

Phil
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs