Re: gui debuggers?
Hi Daniel, I don't believe that there is a 64-bit PDK gui debugger which is what I believe that you are trying to use. Chris On Mon, Mar 19, 2012 at 10:18 AM, Daniel Rawson daniel.raw...@asml.comwrote: Jan - Thanks . . . I did finally get it to install, but it won't start by default from perl -d :-( I tried setting PERL5LIB to the install path, but that didn't help. The debug listener is running, and -query shows that it's running in local mode . . . . any other ideas? Thanks! Dan On 03/19/12 12:55 PM, Jan Dubois wrote: Daniel, There is no GUI debugger included in ActivePerl (I think Mark may be mixing it up with the GUI interface to Perl::Critic, which was initially added to the PDK, but has been moved to ActivePerl since then). However, the GUI debugger from your PDK should still work with the latest ActivePerl, even though PerlApp friends won't (I can't remember what was included in PDK 6, but generally everything that was labeled a productivity tool should be version independent, whereas everything labeled a deployment tool has code that needs to be adapted to each Perl release). Cheers, -Jan On Mon, 19 Mar 2012, Daniel Rawson wrote: Mark - Thanks . . . I get the command-line debugger when I start with -d . . . more research, I guess :-) Dan On 03/19/12 06:37 AM, Mark Dootson wrote: I think you'll find ActivePerl 5.14.2 comes with its own graphical debugger. If it doesn't load by default with -d, you must have some setting present that prevents this. On 19/03/2012 10:15, Daniel Rawson wrote: My work system was recently upgraded to Windows 7 and ActivePerl 5.14.2 - I had been using v5.8 + PDK v6 for years. Unfortunately, the old 32-bit PDK doesn't work with my company-provided install of 5.14.2. In addition, the Devel::ptkdb module is not available for 5.14. I've been using the regular command-line debugger, but I would love to find another GUI debugger. Suggestions? Thanks Dan -- The information contained in this communication and any attachments is confidential and may be privileged, and is for the sole use of the intended recipient(s). Any unauthorized review, use, disclosure or distribution is prohibited. Unless explicitly stated otherwise in the body of this communication or the attachment thereto (if any), the information is provided on an AS-IS basis without any express or implied warranties or liabilities. To the extent you are relying on this information, you are doing so at your own risk. If you are not the intended recipient, please notify the sender immediately by replying to this message and destroy all copies of this message and any attachments. ASML is neither liable for the proper and complete transmission of the information contained in this communication, nor for any delay in its receipt. ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: Help with error msg
Hi Barry,
Most likely your $db-Data() is not returning any values and the @data is
not be initialized with a value.
my @data = $db - Data();
Try this to see if it makes a difference with the warning:
my @data = ();
@data = $db-Data();
Then, you can know if this is the culprit and figure out why Data is not
returning values.
On Fri, Nov 4, 2011 at 4:56 PM, Barry Brevik bbre...@stellarmicro.comwrote:
I've been programming Perl for quite a while, but I've just recently
started to 'use strict' because, well it seems like the right thing to
do.
However, I'm getting this runtime error: Use of uninitialized value in
join or string at test56.pl line 40. Line 40 is the one where the same
message is in the comment.
I realize that the sample code has some elements specific to my
environment, but it is the best I could do, and it is pared down quite a
bit.
Thanks,
Barry Brevik
--
use strict;
use warnings;
use Win32::ODBC;
use Win32::Console;
# Un-buffer STDOUT.
select((select(STDOUT), $| = 1)[0]);
# Set up a DSN-less connection.
my $connectStr = DRIVER=Microsoft ODBC for Oracle; SERVER=prod;
UID=APPS; PWD=apps;
my $SQLsentence = SQL;
select
fa.asset_number
, fa.asset_description
, fa.manufacturer_name
, fa.serial_number
, fa.owned_leased
, fa.new_used
, fa.category_description
from
fafg_assets fa
order by
fa.category_description, fa.asset_description
SQL
getOutFile();
if (my $db = new Win32::ODBC($connectStr))
{
# Execute our SQL sentence.
unless ($db - Sql($SQLsentence))
{
# Loop through the table.
while (scalar $db - FetchRow(1, SQL_FETCH_NEXT))
{
my @data = $db - Data();
print OUTFILE '', (join ',', @data), '', \n;
}
}
$db - Close();
}
#
sub getOutFile
{
my $filename = c:\\temp\\asset.csv;
if (open OUTFILE, '', $filename)
{
print Output file $filename has been CREATED.\n\n;
}
}
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re: PPD for two modules?
Hi Mike, If you install the MinGW PPD (ppm install MinGW), you can then use CPAN to install the modules directly as in: perl -MCPAN -e shell HTH On Mon, Mar 7, 2011 at 3:05 PM, Arms, Mike ma...@sandia.gov wrote: Hi, all. I am looking for PPD's for the following two modules compiled for ActivePerl v5.12.3: String-CRC (v1.0) - note: NOT String-CRC32 Time-modules(v2006.0814) I did not find them under the ActiveState, bribes, trouchelle, or uwinnipeg repositories. Anyone have a PPD source for them? -- Mike Arms (marms) AT (sandia.gov) ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubshttp://listserv.activestate.com/mailman/mysubs ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
RE: Advice requested, porting unix perl app to windows
-Original Message- From: perl-win32-users-boun...@listserv.activestate.com [mailto:perl-win32-users-boun...@listserv.activestate.com] On Behalf Of Dennis Daupert Sent: Wednesday, June 03, 2009 8:42 AM To: perl-win32-users@listserv.ActiveState.com Subject: Advice requested, porting unix perl app to windows Hello group, Most of my perl programming is on unix; my windows knowledge is limited. So, please be gentle ;-) I have an app that produces data files on one unix machine, then uses scp to move those over to another machine for further processing. The system architecture dictates the two-machine arrangement. Management has asked me to port that app to a windows-based system with the same two-machine architecture. I don't know of a free (as in both beer and non-beer) windows equivalent to scp OR sftp. I'm seeking advice on a solid, dependable, and secure way to move files between machines without incurring additional expense. I've wondered whether there may be Perl modules that will map drives and copy files across that would do so on an automated schedule, and I've been searching CPAN. But before heading too far down that path, I thought I'd ask the list for advice. ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs I would recommend using the Net::SSH2 module for SFTP. http://search.cpan.org/~rkitover/Net-SSH2-0.20/ HTH Christopher Taranto ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re[2]: expanding hash database
On Tue, April 28, 2009 11:18 pm, Shain Edge wrote:
I'm looking on how to create an expanding hash database.
How do I add to and navigate such a beast within the program itself?
Check out DBM::Deep:
http://search.cpan.org/~rkinyon/DBM-Deep-1.0014/lib/DBM/Deep.pod
(untested)
my $db = DBM::Deep-new();
$db-{energy}-{solar} = 'value';
$db-{inorganic}-{coal} = 'value';
For retrieval:
my $solar_value = $db-{energy}-{solar};
or
my $energy_records = $db-{energy};
foreach (sort keys %$energy_records) {
my $key= $_;
my $record = $energy_records-{$key};
...
}
HTH,
Christopher Taranto
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re[4]: SFTP, WinXP Perl 5.8.8
On Fri, December 5, 2008 12:48 am, Tshimanga Minkoka wrote: I added the repo uwinninpeg. Then tried to install Net-SFTP. And it complained about missing Crypt-IDEA. Unfortunately, I counldn't find it in On Wed, December 3, 2008 7:35 am, Tshimanga Minkoka wrote: From which repository can I get Net-SSH2 ? It is not in ActiveState. I use ActiveState perl version 5.10.0 build 1004 [287188] on Windows Why are you trying to install Net-SFTP when you need Net-SSH2? Use Net-SSH2 to do your SFTP work. Has someone succeeded to successfully install SFTP on a ActiveState Perl 5.10 in Win XP? Can he then share the paths he followed? -Original Message- From: Christopher Taranto [mailto:[EMAIL PROTECTED] Sent: Wednesday 03 December 2008 17:32 To: Tshimanga Minkoka Cc: SelfSimilar; perl-win32-users@listserv.activestate.com Subject: Re[3]: SFTP, WinXP Perl 5.8.8 XP version 5.1.2600 Regards, http://cpan.uwinnipeg.ca/PPMPackages/10xx/ -Original Message- From: [EMAIL PROTECTED] [mailto:perl- [EMAIL PROTECTED] On Behalf Of Christopher Taranto Sent: Wednesday 03 December 2008 16:21 To: SelfSimilar Cc: perl-win32-users@listserv.activestate.com Subject: Re[2]: SFTP, WinXP Perl 5.8.8 On Wed, December 3, 2008 7:06 am, SelfSimilar wrote: I have read through the posting archives trying to find a current solution to getting SFTP to work under WinXP with no luck. Old posting suggest using PPM and setting the ppm repository to http://www.soulcage.net/ppds and then installing Net-SSH-W32Perl followed by Net-SFTP. I have done this but there don't appear to be any modules at this repository. Is there a more current fix for this problem? Try Net-SSH2 - I had trouble using Net-SFTP before and found this to work well. HTH, Christopher Taranto ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re[2]: SFTP, WinXP Perl 5.8.8
On Wed, December 3, 2008 7:06 am, SelfSimilar wrote: I have read through the posting archives trying to find a current solution to getting SFTP to work under WinXP with no luck. Old posting suggest using PPM and setting the ppm repository to http://www.soulcage.net/ppds and then installing Net-SSH-W32Perl followed by Net-SFTP. I have done this but there don't appear to be any modules at this repository. Is there a more current fix for this problem? Try Net-SSH2 - I had trouble using Net-SFTP before and found this to work well. HTH, Christopher Taranto ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re[4]: SFTP, WinXP Perl 5.8.8
On Wed, December 3, 2008 7:29 am, SelfSimilar wrote: Try Net-SSH2 - I had trouble using Net-SFTP before and found this to work well. How can I use FTP with only Net-SSH2? http://search.cpan.org/~dbrobins/Net-SSH2-0.18/lib/Net/SSH2/SFTP.pm ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re[2]: info on Perl IDE and debugger in WindowsXP
Hi Prabir, I recommend looking at the Komodo IDE at ActiveState which comes with their graphical debugger. If you are really looking for just an editor, I recommend their Komodo Edit product - it's free. http://www.activestate.com/Products/komodo_ide/index.mhtml http://www.activestate.com/Products/komodo_ide/komodo_edit.mhtml BTW, their products are cross-platform - so if you like them on Windows you might decide to use their on Unix as well. HTH, Christopher Taranto On Tue, September 23, 2008 2:06 am, p sena wrote: Hi All, Could someone please suggest me the good Perl IDE for Windows XP and a debugger to use. I have been using same for long time in Unix OS's and have been sticking to it, untill now on a specific work demand. Cheers. Regards Thanks Prabir Senapati mailto: [EMAIL PROTECTED] ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re[2]: module to convert text to tiff ???
On Sun, June 22, 2008 7:23 pm, Mike Schleif wrote: * Jenda Krynicky [EMAIL PROTECTED] [2008:06:23:02:26:17+0200] scribed: Date sent: Sun, 22 Jun 2008 18:41:27 -0500 From:Mike Schleif [EMAIL PROTECTED] To: perl-win32-users mailing list perl-win32- [EMAIL PROTECTED] Subject: module to convert text to tiff ??? I'm searching cpan; but, I do not find what we need. We want to convert text documents to tiff format. What do you think? Convert text documents to an image? Erm? What kind of documents? What do you mean by the conversion? If you wanted to convert between different image formats it would be clear, but what does it mean to convert a text document to an image? This project is part of a large workflow process. There is a document management software that OCR's incoming documents. We take the OCR'd plain text, parse it into a fields/values hash, compare sku's/prices to a database, rearrange the fields/values into a normalized format, and pass a tif image of the resulting document back to the document management software for search/archival purposes. cpan lists many modules for converting graphics formats to tiff. Google shows several proprietary/pay binary text to tiff conversion tools. I am hoping to do this entirely in Perl. You actually need to print your document with a TIFF print driver. You can try Ghostscript which has a Postscript driver and then convert to TIFF. This URL goes through the process: http://server3.nethost.co.il/set_tif.html Ghostscript: http://www.ghostscript.com/awki HTH, Christopher Taranto ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re[2]: Event Sink script
Thursday, November 30, 2006, 4:49:03 PM, you wrote: htscj Do you know sites or documents showing sample code to manage CDO, htscj which is like this as VBScript... Check out: Outlook Redemption http://www.dimastr.com/redemption/ Outlook Code http://www.outlookcode.com/ http://www.outlookcode.com/d/cdo.htm htscj ' Add an address to this message's receivers. htscj Set objEnvFlds = objMsg.EnvelopeFields htscj objEnvFlds.Item(cdoRecipientList).Value _ htscj = objEnvFlds.Item(cdoRecipientList).Value ; strAddr htscj objEnvFlds.Update htscj objMsg.DataSource.Save htscj Regards, htscj HT htscj ___ htscj Perl-Win32-Users mailing list htscj Perl-Win32-Users@listserv.ActiveState.com htscj To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs -- Best regards, Christophermailto:[EMAIL PROTECTED] ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re[2]: Recompile at execute
Hi Chris, Friday, September 22, 2006, 6:20:54 PM, you wrote: CW Normally it's recompiled every time. The only exception is when ur running CW mod_perl under a web server. Mod_perl keeps the image in memory and reuses CW it. Not only that it saves the complete state information! U can save and Or you could you use: http://search.cpan.org/~msergeant/PPerl-0.25/PPerl.pm -- Best regards, Christophermailto:[EMAIL PROTECTED] ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re[2]: Username and password lookup
Hi Paul,
Try Win32::AdminMisc::UserCheckPassword
http://www.roth.net/perl/adminmisc/
HTH,
Christopher Taranto
Wednesday, May 31, 2006, 9:19:27 AM, you wrote:
PR Hello,
PRI am looking for a way to take a userid and password, and verify them
PR against the OS.
PR I have looked at Win32::NetAdmin's UserGetAttributes function; however, when
PR I read a valid userid's information, I get nothing back for the password
PR field.
PR The idea was to read the password, compare it to the one entered, then
PR validate appropriately. The more I think about this, the less likely the
PR user id's password would be presented in full text.
PR So, to cut to the chase, is there a resource kit tool or some exe that takes
PR a userid, password and possibly a domain name, and returns a one or zero? I
PR don't mind using a Perl PM either.
PR (I searched the Net for quite some time looking for a simple, command-line
PR authentication tool, but did not find anything. That is why I am now turning
PR to Perl.)
PR I am looking for something like
PR $retval = qx { CheckUser.exe $domain, $userid, $password};
PR if $retval == 1
PR {
PR print domain:User id:password is valid;
PR }
PR Or equivalent Perl function call like
PR use this::that qw (CheckUser);
PR my ($domain, $userid, $password, $retval);
PR.
PR.
PR.
PR.
PR $retval = CheckUser ($domain, $userid, $password);
PR Much obliged.
PR ___
PR Perl-Win32-Users mailing list
PR Perl-Win32-Users@listserv.ActiveState.com
PR To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--
Best regards,
Christophermailto:[EMAIL PROTECTED]
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re[2]: Does NET::SFTP work on Win32?
Tuesday, May 16, 2006, 12:44:00 PM, you wrote:
BN I have not found the build to be stable IMHO. On Unix, it works great.
BN I use the secure dev kit with WS_FTP. It costs a few bucks but it is
BN stable and object oriented which give you a lot of flexibility.
BN
BN Let me know if you get it working. Since my needs are for work I did
BN not feel comfortable relying upon it...
BN Nick
RWS From: [EMAIL PROTECTED]
RWS [mailto:[EMAIL PROTECTED] On Behalf Of
RWS [EMAIL PROTECTED]
RWS Sent: Tuesday, May 16, 2006 8:45 AM
RWS To: perl-win32-users@listserv.ActiveState.com
RWS Subject: Does NET::SFTP work on Win32?
RWS
RWS Hi all,
RWS
RWS I have a perl ftp client that connects to IIS and I need to update the
RWS client to use a secure means of transfer to a SSH/SSL server. All I need
RWS to do is open, login, send, get, and size for files on a remote box. I
RWS have net::sftp and net::ssh::win32 and other associated modules (5.6.1
RWS from Soulcage.net) but there is also a lot of discussion on NG/lists
BN about it not working with Win32. I can change to perl 5.8 if necessary.
BN Can somebody give me a heads up if the ssh::Win32 module won't do the
BN job? Or if there is another way? Any hints for success would also be
BN appreciated. Thanks in advance.
snip /
BN I have not found the build to be stable IMHO. On Unix, it works great.
BN Let me know if you get it working. Since my needs are for work I did
BN not feel comfortable relying upon it...
I use Net::SFTP on Win2K and XP with no issues.
Try here:
http://www.soulcage.net/ppds/
(Thanks, Rob!)
RWS to do is open, login, send, get, and size for files on a remote box. I
Here is an example:
use strict;
use warnings;
# these are the variables for SFTP
my $hostname = 'HOSTNAME';
my %sftp_args = (user= 'USERNAME',
password= 'PASSWORD',
identity_files = '/directory/to/indentities',
debug = 1);
# note: directory needs an ending slash
my %params= (local_directory = 'c:/local/directory/',
remote_directory = '/remote/directory/'
file_extension = 'ack');
my $sftp = Net::SFTP-new($hostname, %sftp_args)
or die Cannot connect to Host: [EMAIL PROTECTED];
print CONNECTED\n;
my @listings = $sftp-ls($params{remote_directory});
print LISTINGS\n;
foreach (@listings) {
my $listings = $_;
my $filename = $listings-{filename};
# skip if not right file extension
next if ($filename !~ /\.$params{file_extension}$/i);
my $local_filepath = $params{local_directory}$filename;
my $remote_filepath = $params{remote_directory}$filename;
print DO SOMETHING WITH: $filename\n;
# send
# uncomment to: send local file to remote server
# $sftp-put($local_filepath, $remote_filepath);
# get/receive
# uncomment to: retrieve remote file from server to local file
# $sftp-get($remote_filepath, $local_filepath);
}
print Done\n;
--
Best regards,
Christophermailto:[EMAIL PROTECTED]
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re[2]: ot - cgi perl processes
Hi Hon, Thursday, April 6, 2006, 12:29:09 PM, you wrote: HS Yah, ot I know, but who else writes CGIs but perl guys? :-) HS However, the CGI model has an important drawback: a web server that wants HS to use a CGI program must call a new copy in responce to every incoming HS web request. HS With respect to perl, is that still true? Check out mod_perl: http://perl.apache.org/ -- Best regards, Christophermailto:[EMAIL PROTECTED] ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re[2]: Win32::OLE Microsoft Outlook - Support Task and Calendar Applications?
Hi Roberto, Check out Outlook Code: http://www.outlookcode.com/ Specifically: http://www.outlookcode.com/d/outtech.htm Where there are Outlook model maps for various versions and lots of information about the API's. If you get stuck with Outlook's user security model where Outlook prompts the user before continuing the script, check out Outlook Redemption: http://www.dimastr.com/redemption/ HTH, Christopher Taranto Monday, April 3, 2006, 4:35:32 PM, you wrote: ran Hi: ran I'm sorry my English? ran I need to know if Win32::OLE - Microsoft Outlook, support Tasks ran and Calendar options? (New Tasks, New Events, Notes). I have only ran found examples of Send Mail with Outlook with attachments ran if support exist, please I need a example. ran Regards and Thanks, ran Roberto ran ___ ran Perl-Win32-Users mailing list ran Perl-Win32-Users@listserv.ActiveState.com ran To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs -- Best regards, Christopher ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re[2]: Windows Directory
Tuesday, March 21, 2006, 8:42:57 AM, you wrote:
KB At 09:56 AM 3/21/2006, Jerry Kassebaum wrote:
How do I get a directory listing on a Windows machine? I think it is
something like:
$direc = system `dir`;
print $direc;
;
KB Try:
KB $command = dir c:\\your_dir;
KB system($command);
Or, without even needing to shell...
use strict;
use warnings;
my $directory = C:/;
opendir(my $dir, $directory) or die Could not open directory
[$directory] - [$!];
my @listing = grep(! /^\.+$/, readdir($dir));
closedir($dir);
foreach (@listing) {
my $listing_name = $_;
my $full_path= $directory/$listing_name;
if (-d $full_path) {
print [$full_path] is a directory\n;
} else {
print [$full_path] is a file\n;
}
}
print Done\n;
--
Best regards,
Christophermailto:[EMAIL PROTECTED]
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re[2]: Win32::Ole (MAPI) and Win2K scheduler
Hi Ken,
Wednesday, January 4, 2006, 5:07:58 AM, you wrote:
LK Thanks to Steven Manross, I'm a step further along in
LK troubleshooting this. Using Steven's suggestion, I got the
LK following from OLE-LastError: 'Win32::OLE(0.1403) error
LK 0x80070005: Access is denied'. Does anyone out there know
LK anything about how the Win2k scheduler accesses objects (and, more
LK importantly, how to circumvent this problem)? As I stated
LK earlier, the scheduled task is running under the same userid I use
LK to log on when I successfully run my program at a command prompt.
[% snip %]
LK I created a program using ActiveState's perl 5.8.4, compiled it using
LK perlapp 5.3.0 and ran it on Windows 2000 Professional SP4 against
LK Outlook 2000 SR-1 (9.0.0.3821). It runs properly both from a command
LK prompt and as a scheduled task. I released it into production on
LK Windows 2000 server SP4 using the identical version of Outlook 2000.
LK Again, it runs great from a command prompt. When I run it as a
LK scheduled task, however, it dies because it's not able to get the
LK Outlook Application.
LK
LK Here's the relevant code:
LK
LK
LK Win32::OLE-Initialize(Win32::OLE::COINIT_OLEINITIALIZE);
LK die Win32::OLE-LastError(),\n if Win32::OLE-LastError( );
LK eval { $Outlook =
LK Win32::OLE-GetActiveObject('Outlook.Application')
LK };
LK die Outlook is not installed if $@;
LK unless (defined $Outlook) {
LK $Outlook = Win32::OLE-new('Outlook.Application', sub
{$_[0]-Quit;});
LK or die Oops, cannot start Outlook;
LK === dies here under Win2k srvr as a scheduled task
I'm not sure if this will help or solve your problem - but you could
give Outlook Redemption a look - http://www.dimastr.com/redemption/
Outlook Redemption works around limitations imposed by the Outlook Security
Patch and Service Pack 2 of MS Office 98/2000 and Office 2002 and 2003 (which
include Security Patch) plus provides a number of objects and functions to work
with properties and functionality not exposed through the Outlook object model.
Good luck!
--
Best regards,
Christophermailto:[EMAIL PROTECTED]
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re[2]: system(rmdir...) not working like it once did
Hi Sisyphus,
Tuesday, September 6, 2005, 5:38:38 PM, you wrote:
S Indeed I do problems like this always arise from the other change
S that one has made (ie the change that one has forgotten about :-)
Definitely been there :-]
While not directly in response to your question, I vote for using rmtree
in File::Path (a core module - at least in 5.8.*)
http://search.cpan.org/~nwclark/perl-5.8.7/lib/File/Path.pm
eval { rmtree($dir) };
if ($@) {
print Could not delete $dir: $@;
}
Except for the race condition issue with other processes altering
files and directories below the root directory (which does not seem to
be an issue in your situation), it's more portable, does not use an outside
process, and allows you to actually remove a list of directories in
one call.
--
Best regards,
Christophermailto:[EMAIL PROTECTED]
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re[2]: trying to debug a mod_perl app
Hi bruce, Wednesday, May 11, 2005, 12:04:39 PM, you wrote: b i hope this is the right place to turn to!! b i have mod_perl installed on an apache1.3.33/mod_perl1.29/FC3 setup. Nope - try: http://perl.apache.org/ http://perl.apache.org/maillist/index.html -- Best regards, Christophermailto:[EMAIL PROTECTED] ___ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Re[2]: Crypt::SSLeay
Hi Sam,
http://www.slproweb.com/products/Win32OpenSSL.html
Monday, January 10, 2005, 7:36:11 AM, you wrote:
GS I had to install openssl before this would work. Do a search
GS for openssl (a free windows download).
GS Sam Gardner
GS GTO Application Development
GS Keefe, Bruyette Woods, Inc.
GS 212-887-6753
GS -Original Message-
GS From: Lundgren, Scott [mailto:[EMAIL PROTECTED]
GS Sent: Monday, January 10, 2005 10:30 AM
GS To: perl-win32-users@listserv.ActiveState.com
GS Subject: Crypt::SSLeay
GS I'm using a script that uses Crypt::SSLeay and the module
GS doesn't seem to have installed properly so I'm hoping someone can
GS guide me of how to correct it. Below is my environment, how I
GS installed Crypt::SSLeay, the script that doesn't work, and what
GS I've tried to figure out why the script doesn't work. Please
GS suggest you think I should try next.
GS - SL
GS The OS is Windows Server 2003 Standard Edition, the web
GS server is IIS 6.0, and the installation of Perl is ActivePerl
GS 5.8.4.810. To install Crypt::SSLeay I followed the HOWTO @
GS http://johnbokma.com/perl/https.html and installed the module via
GS the PPM command:
GS
ppm install http://theoryx5.uwinnipeg.ca/ppms/Crypt-SSLeay.ppd
GS
GS When prompted, I chose to fetch both the ssleay32.dll and
GS libeay32.dll and both were put in C:\Perl\bin. When I request the
GS script below via IIS from a browser, the script does not send
GS output to the browser but there's this entry in
GS C:\Perl\bin\PerlIS-Err.log:
GS
GS *** 'D:\websites\internalserver.uncc.edu\www\https-test.cgi'
GS error message at: 2005/01/10 09:46:07 Failed to GET
GS 'https://www.helsinki.fi/': 501 Protocol scheme 'https' is not
GS supported (Crypt::SSLeay not installed) at
GS D:\websites\internalserver.uncc.edu\www\https-test.cgi line 14.
GS #!/usr/bin/perl
GS # https-test.cgi - HTTPS GET example
GS #
GS # (c) 2004 By John Bokma, http://johnbokma.com/
GS use strict;
GS use warnings;
GS use LWP::UserAgent;
GS my $url = 'https://www.helsinki.fi/';
GS my $ua = LWP::UserAgent-new;
my $response = $ua-get( $url );
$response-is_success
GS or die Failed to GET '$url': , $response-status_line;
print $response-as_string
GS
GS As the above script works fine when I log into the server and
GS run it from command line, I copied the script below to
GS specifically load the Crypt::SSLeay module and then dump out what
GS modules other environment settings were being used.
GS #!/usr/bin/perl
GS # path-test.cgi
GS use strict;
GS use Crypt::SSLeay;
GS # to find the path to Perl binary
GS print Perl Binary: \n$^X\n;
GS # library path
GS print Perl [EMAIL PROTECTED]: \n, join \n, @INC;
GS # and to find the path to the script you are executing:
GS use FindBin qw($RealScript $RealDir);
GS print \nPerl Script Executing:
GS \n$::RealDir/$::RealScript\n; # sucessfully loaded modules print
GS \nPerl Modules Loaded: \n, map {$_ = $INC{$_}\n} keys %INC; #
GS path print \nPerl Path: \n, $ENV{PATH};
GS
GS Which produces this output from commandline:
GS D:\websites\internalserver.uncc.edu\wwwperl path-test.cgi
GS Perl Binary:
GS C:\Perl\bin\perl.exe
GS Perl @INC:
GS C:/Perl/lib
GS C:/Perl/site/lib
GS .
GS Perl Script Executing:
GS D:/websites/internalserver.uncc.edu/www/path-test.cgi
GS Perl Modules Loaded:
re.pm = C:/Perl/lib/re.pm
XSLoader.pm = C:/Perl/lib/XSLoader.pm
GS warnings/register.pm = C:/Perl/lib/warnings/register.pm
Cwd.pm = C:/Perl/lib/Cwd.pm
warnings.pm = C:/Perl/lib/warnings.pm
File/Basename.pm = C:/Perl/lib/File/Basename.pm
Config.pm = C:/Perl/lib/Config.pm
Crypt/SSLeay.pm = C:/Perl/site/lib/Crypt/SSLeay.pm
Crypt/SSLeay.pm = Crypt/SSLeay/X509.pm =
Crypt/SSLeay.pm = C:/Perl/site/lib/Crypt/SSLeay/X509.pm
Carp.pm = C:/Perl/lib/Carp.pm
Exporter/Heavy.pm = C:/Perl/lib/Exporter/Heavy.pm
Exporter/Heavy.pm = File/Spec/Unix.pm =
Exporter/Heavy.pm = C:/Perl/lib/File/Spec/Unix.pm strict.pm =
Exporter/Heavy.pm = C:/Perl/lib/strict.pm vars.pm =
Exporter/Heavy.pm = C:/Perl/lib/vars.pm Exporter.pm =
Exporter/Heavy.pm = C:/Perl/lib/Exporter.pm File/Spec.pm =
Exporter/Heavy.pm = C:/Perl/lib/File/Spec.pm AutoLoader.pm =
Exporter/Heavy.pm = C:/Perl/lib/AutoLoader.pm File/Spec/Win32.pm =
Exporter/Heavy.pm = C:/Perl/lib/File/Spec/Win32.pm DynaLoader.pm =
Exporter/Heavy.pm = C:/Perl/lib/DynaLoader.pm FindBin.pm =
Exporter/Heavy.pm = C:/Perl/lib/FindBin.pm
GS Perl Path:
GS C:\Perl\bin\;C:\Program
GS Files\VERITAS\NetBackup\bin\;C:\WINDOWS\system32;C:\WIND
GS OWS;C:\WINDOWS\System32\Wbem;C:\Program Files\Microsoft
GS Visual C++ Toolkit 2003\ bin;C:\Program Files\Microsoft Visual
GS Studio .NET 2003\Vc7\bin;C:\Program Files\ Microsoft
GS SDK\bin;C:\Program Files\Microsoft
GS SDK\bin\winnt;C:\Perl\bin\;C:\Progr
GS am
GS Files\VERITAS\NetBackup\bin\;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\S
GS ystem
GS 32\Wbem
GS D:\websites\internalserver.uncc.edu\www
GS But produces this this entry in
