I don't know much about Icons in the System Tray,
but one way is to use Win32::GuiTest and click the mouse.
Mext script click the right-most top Icon in MY pc.
My pc has 3 Icons in 1 columns. (you know what I mean)
The script click I4!
---
I1 I4 12:00
I2 I5 Tue
Thanks for reply.
I watched SCRIPT LANGUAGE=PerlScript in the internaet.
but cann't find samles and howto.
use Win32::OLE;
Win32::OLE-Initialize(Win32::OLE::COINIT_OLEINITIALIZE);
sub ISMTPOnArrival_OnArrival {
#expecting a $message object
my $message = $_[0];
my $status = 0;
If you are using Windows 2000 or later you can use the Job subsystem
to set a time limit on the subprocess. Here is a simple job.pl script
that executes any command, but only for a specified number of seconds:
use Win32::Job;
my $job = Win32::Job-new;
my $timeout = shift;
my $exe
Recently I like to use File::Slurp for read/write files and also dir.
use File::Slurp;
my $dir = shift;
my @files = grep { ! /^\./ and -f $dir . /$_ } read_dir($dir);
print join(\n, @files), \n;
Regards,
HT
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On
Hello, Sorry to ask again...
Anyone has ever wrote a MS Exchange server's Event Sink script in Perl?
Today I was requested to make a simple one but I don't like to write in
VBScript.
Any information is OK.
Perl cann't be used for Event Sink?
Regards,
Hirosi Taguti
Hello,
I hear that Win32 cann't use alarm for a timeout.
The sample code in Camel book or Cookbook is not valid
on Win32. Is this true even now?
I must execute some external command by @rc = `SOME.exe`,
which may hung sometimes.
These are SQLPLUS and FTP and any with -B(atch) option.
Sometimes I
`` is blocking, so maybe use Win32::Process and time it with
Time::HiRes. You may need to redirect the output to a file.
sounds a heavy task.
Any possibility to wait for ActiveState implementing it?
Regards,
HT
___
Perl-Win32-Users mailing list
`` is blocking, so maybe use Win32::Process and time it with
Time::HiRes. You may need to redirect the output to a file.
...
Once you've done it, save the code and you don't have to ever re-do
it again.
Yes true, but My code may have bugs. :-)
I wonder if someone up as a CPAN module
Hello,
I've been using a logging module LogFile.pm introduced in the book;
「Network Programing With Perl」
ISBN:4894714655 (2002/12)
for a long time thanks to L.D.S., though in modified by myself.
Now when I call Archive::Tar:read, IO::Zlib.pm issues warning mesgs.
It can be off'ed by undef
Hello,
I'm making a script to operate 2 diffirent applications by Win32::GuiTest
and to check the mumbers displayed by the 2 apps.
The mumbers are displayed in the corner of its windows in images so I must
extract the digits from these images.
I tried Image::Compare, but this is too strict.
2
Thanks for an importtant information!
Installation process of Net::SFTP seems to be so hard.
I installed WinSCP and successfully executed from Perl with:
my @rc = `winscp3.com /console /script=example.txt`;
SFTP on Win32 you could try accessing the WS_FTP API by the WsftpApi
interface. Jan
I'm offlined on last week end.
I don't get messages from PPM mailing list these days.
PPM is one of question but main question is that SFTP can be
working on Win32.
I should have asigned a propper subject.
I cc'ed the first message to the maintener of Net-SSH-W32Perl,
though not get a reply...
Hello,
I'm trying to install Net-SFTP that can be work on Win32 AP588,
after rep add soulcage http://www.soulcage.net/ppds.58/;.
By old list archive:
http://www.mail-archive.com/perl-win32-users@listserv.activestate.com/msg35697.html
I tried with ppmTheGui on AP588.
Below is the log when I
Hello,
I finally installed DBD-Oracle.
The reason of error is due to network or so.
I tried to download the DLLs directly from the PPM site, guessed from
the download script.
I downloaded them after timeouts of 5 or 6.
And now I met another error, ORA-03134, meaning unsupported
version of
Hello,
Today I installed ActivePerl v5.8.8 build 819 on Windows XP.
I cann't start ppm as GUI or DOS.
Error msg seems to point the bad status of my Windows XP SP1,
but everything is OK for me except for ppm.
Any task should be made before using ppm.
I set http_proxy env.
Any else?
I cann't start ppm as GUI or DOS.
...
C:\Perl\binppm
ppm gui failed: DBI connect('dbname=C:\Documents and
Settings\taguti\Application
Data/ActiveState/ActivePerl/819/ppm-MSWin32-x86-multi-thread-5
_8.db','',...) fa
iled: unable to open database file(1)
I've found the work-around,
Hello,
Someone successfully installed DBD-Oracle?
I failed for 3 times.
Fetching oci.dll.gz takes less than 1 second.
Fetching oraociei10.dll.gz ends error almost just after 180 seconds,
(3 min) maybe time outed.
I'm connecting to the Internet direct a without modem, in a high speed.
Any trouble
Make sure that you have installed all the oracle
binaries/libraries from
the oracle distribution CDs first
Oh, oracle installation is required even now?
I have oracle client 9.2 installed.
And was able to use DBD::Oracle about 1 year ago.
I cann't just recent days on after AP5.8.7.
Sorry I met another similar error.
C:\ppm install http://www.bribes.org/perl/ppm/Win32-GUI-AxWindow.ppd
Downloading Win32-GUI-AxWindow-0.07...status 500
ppm install failed: 500 Cannot write to 'C:\DOCUME~1\taguti\LOCALS~1\Temp\ppm-kX
lE0X/Win32-GUI-AxWindow-0.07.tgz': No such file or directory
Hello,
Maybe many people knows the benefit of Microsoft office's
Desktop Alert displayed when we receive new mails or some.
Does anyone know the modules or some code to issue them
from within Perl?
Regards,
[EMAIL PROTECTED]
___
Perl-Win32-Users
Hello,
MIME::Lite is my favourite module, but it says:
Can't locate Mail/Address.pm in @INC...
And unfortunately,
ppm install MailTools
Install 'MailTools' version 1.73 in ActivePerl 5.8.7.815.
Error: error downloading
Hello,
MIME::Lite is my favourite module, but it says:
Can't locate Mail/Address.pm in @INC...
And unfortunately,
ppm install MailTools
Install 'MailTools' version 1.73 in ActivePerl 5.8.7.815.
Error: error downloading
Hello,
I'm waiting for the latest version,
When ActivePerl 5.8.8 will be out?
Regards,
Hirosi Taguti
[EMAIL PROTECTED]
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe:
C:\svnnotify --repos-path svn://myserver/taguti/Repo/myProject
--revision 100 --to [EMAIL PROTECTED]
Missing required --repos-path parameter
I checked into the module.
it uses fork and piping, and ignore first param of -p.
-V 1 -p svn:// is ok.
But anyway no good on Win32.
I sent a
Hello,
Anyone using SVN::Notify on Win32?
I'm a new comer to Subversion, and I like to send mail on
the commit time on Subversion running on Windows XP.
Today I installed SVN::Notify by ppm install SVN-Notify.
Installation seems OK, but installed bat file, svnnotify.bat
does'n run well.
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Finaly I found a file ppm in c:/Perl/bin with the size of 0.
The creation date is 2005/01/04, when I was in trouble installing
mod_perl TT in my Windows XP.
Renaming it to ppm__ or else has solved it.
Can you believe me?
Regards,
Hirosi Taguti
[EMAIL PROTECTED]
-Original Message-
Gomen!
I made a mistake in my previous mail.
Finaly I found a file ppm in c:/Perl/bin with the size of 0.
Finaly I found a file ppm in c:/ with the size of 0.
Just under C: !
Hirosi Taguti
[EMAIL PROTECTED]
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On
I hope you can understand what I'm doing...
C:\dir ppm*
ドライブ C のボリューム ラベルは IBM_PRELOAD です
ボリューム シリアル番号は 38DC-AC37 です
C:\ のディレクトリ
2005/11/21 13:02 0 ppm
1 個のファイル 0 バイト
0 個のディレクトリ 6,431,318,016 バイトの空き領域
C:\ppm
No Perl script
In this case doing which ppm would return /c/ppm.
For a pure perl implementation, one can use File::Which:
http://cpan.uwinnipeg.ca/dist/File-Which
which installs a pwhich.bat that can be used in the same
way as which().
It seems to be a good news,
I install File-Which by ppm command,
Below is my log I copy/paste without any change.
All commands OK.
I can't start ppm when current dir is NOT /Perl/bin!
Microsoft Windows XP [Version 5.1.2600]
(C) Copyright 1985-2001 Microsoft Corp.
C:\Documents and Settings\admincd \
C:\cd Perl/bin
C:\Perl\binperl -x -S ppm
PPM -
Hello,
I hear some people around me says they cann't start ppm.
Below is output of one of my PC, WindowsXP SP1.
I can do it with ppm3, but someone near me says,
he cann't start even ppm3.
Is this from the version-up of AP without uninstall?
Anyone know the work-around?
C:\ppm
No Perl script
Thanks,
My PC (cann't start by ppm, but can start ppm3) has
'ppm.bat' and 'ppm3.bat' in perl\bin.
This 2 files are indentical, which are verified by WinMerge.
Regards,
Hirosi Taguti
[EMAIL PROTECTED]
-Original Message-
From: Sisyphus [mailto:[EMAIL PROTECTED]
Sent: Friday,
Just what I send 1st,
C:\ppm
No Perl script found in input
C:\ppm3
PPM - Programmer's Package Manager version 3.2.
Copyright (c) 2001 ActiveState Corp. All Rights Reserved.
ActiveState is a division of Sophos.
Entering interactive shell. Using Term::ReadLine::Perl as readline library.
Type
extension). Open that file and check that the first line is:
#!perl
If the first line does not contain both the '#!' and the word
'perl' you
will get the error message you reported.
Yes, ppm has #!perl !
Hirosi Taguti
[EMAIL PROTECTED]
___
Check that there are no spaces (or anything else) before the
#!. The #!
needs to be at the very start of the first line.
No space nor any.
In addition to 'ppm.bat' and 'ppm3.bat' being identical,
'ppm' and 'ppm3'
should also be the same as each other. Can you confirm that
they are the
I gave up the MAPI script on login part.
net use command had no effect for me.
I rewrite my script using IMAP protocol,
using Net::IMAP::Simple CPAN module,
and it runs fine.
I strongly feel this script is much easier.
#!Perl
use strict;
use Net::IMAP::Simple;
my $imap =
Hello,
Anyone have an experience to use Win32::AdminMisc::LogonAsUser
to logon to a new donaim?
I have an experience on different user in the same local,
but not to new dmain. This is my first script.
I can logon by hand of cause.
The below script says (in Japanese):
--
Win32 Logon Error: Client
Hello,
I'm making a script to delete mails older than 1 month.
But I cann't get date recieved.
Someone knows the way?
I can get Subject, text, can delete msg but cann't...
Regards,
Hirosi Taguti
[EMAIL PROTECTED]
#!/usr/bin/perl
use Win32::OLE;
print COINIT_OLEINITIALIZE\n;
How about Prima?
http://www.prima.eu.org/
About accessibility for screen readers.
About easines to learn any other points.
I'm interested in Perl GUI.
I didn't make GUI application in Perl,
also I didn't use Prima.
But for a future chance, I like to know more...
Regards,
Hirosi Taguti
[EMAIL
Hello,
I was searching the way to Automate Outlook Messaging.
And has found some of modules, Win32::MAPI, Mail::Outlook...
I tried these modules and tried to write scripts using OLE MAPI.session,
but I got popups asking me password or Yes/No on mail addrs.
I found CAVEATS on some recent security
Hello,
(B
(BThank you for many, and good suggestions.
(BI succeeded to emulate the Java client program just now.
(B
(BCRLF was not concerned.
(BOur Java server program failed to read multi-byte strings
(B'cause I failed to encode the strings in my script.
(BOriginal data is in EUC-jp and
I realized $CRLF in 3 pm,
(Band Net::HTTP::Methods's $CRLF is concerned,
(Bbut I failed with the modification.
(B
(BMy "wprint" prints same output from my LWP script
(Band my sokcet poor script.
(BNot sure why LWP script failes...
(B
(BRegards,
(BHirosi Taguti
(B[EMAIL PROTECTED]
(B
(B
Sorry to be late...
(B
(B Try a different content type :
(B
(BI tried it, and ok the body was sent as binary data,
(Bbut the server side pgm semms to expect the Content-Type
(Bto be the one I said before "'application/bang-gzip'.
(B
(BRegards,
(BHirosi Taguti
(B[EMAIL PROTECTED]
(B
(B
Hello,
(B
(BI have some trouble making a script with LWP.
(BI'm writing a client program "wc_client",
(Bemulating an existing request which sends gzip'ed xml data to
(Bour server.
(BMy script "wprint" running on port 80 printed out the request,
(Bfirst of which is produced by "wc_client",
Arigatou,
(B
(BAnd I found ZooZ yesterday, it's cool!
(Bhttp://search.cpan.org/src/AQUMSIEH/ZooZ-1.1/
(B
(BRegards,
(BHirosi Taguti
(B[EMAIL PROTECTED]
(B
(B
(B -Original Message-
(B From: [EMAIL PROTECTED]
(B [mailto:[EMAIL PROTECTED] On
(B Behalf Of Chris Wagner
(B
Hello,
(B
(BDoes anyone know of a Perl/Tk GUI builder?
(BI know it is asked before.
(BBut I like to know if there is.
(BGuido seems not be supported any more.
(B
(BAny mailing list for Perl/Tk?
(B
(BRegards,
(BHirosi Taguti
(B[EMAIL PROTECTED]
(B
Title: Logon with MAPI.session without hand
(B
(B
(B
(B
(B
(BHello,
(B
(B
(BMy script prompts Outlook's pop-up box for password.
(B
(BThe profile is selected good, but I must enter password.
(B
(BI tried many combinations of params but not good.
(B
(B
(B#!/usr/bin/perl
(B
(Buse
Hello,
(B
(BI downloaded Net::IMAP::Simple run sample script,
(Bbut failed on login.
(B$! has "Bad file descriptor".
(BMy script is just copy of README,
(BAany idea?
(B
(BMy purpose is to read mails in excange server.
(BI tried with OLE and OutLook from;
I did it some years ago,
(B
(BSolaris is good, hoping...
(B
(Bmy ($rcFLAG,$rcVAL) = unpack("II", getsockopt($new_sock, SOL_SOCKET,
(BSO_LINGER));
(Bprint " ret from SO_LINGER = ($rcFLAG/$rcVAL)\n";
(B$RC = getsockopt($new_sock, SOL_SOCKET, SO_LINGER);
(B$RC = unpack("H*",$RC);
(Bprint "
Thank you so much about teaching me a lot.
(BI've learned much about ppm and LWP.
(B
(BMy env vars were:
(BHTTP_proxy http://111.22.333.444:8000/
(BHTTP_proxy_user taguti
(BHTTP_proxy_pass pass
(B
(BI changed HTTP_proxy like:
(BHTTP_proxy http://taguti:[EMAIL PROTECTED]:8000/
(B
Hello,
(B
(BI like to install mod_perl, Template-Toolkit and Apache-Template into Win32.
(BBut ppm fails on some points.
(BAny idea?
(B
(BFirst,
(Bppm install http://theoryx5.uwinnipeg.ca/ppms/mod_perl.ppd
(B...
(BFetching http://theoryx5.uwinnipeg.ca/ppms/x86/mod_perl.so ... done!
Thanks for reply.
(B
(B I'm not sure what caused that error - it may be the
(B download got corrupted. If you try again, does the same
(B error consistently arise?
(B
(BYes, I get the same error.
(B(I can do it with my another PC without proxy.)
(B
hello,
(B
(BI have a scrupt using File::Copy's copy function.
(Bcopy("file1", "file2");
(BNow I like to rewrite it with "append" mode.
(B
(Bcopy("file1", "file2");
(Bis error saying "No such file or directory".
(B
(BAny idea?
(B
(BRegards,
(BHirosi Taguti
(B[EMAIL PROTECTED]
(B
Title: IIS cgi's process ID
(B
(B
(B
(B
(B
(BHello,
(B
(B
(BI made a perl cgi script 3 years ago on windows NT.
(B
(BThis time (the machine got old, so) we replaced the machine
(B
(Bwith a new one and windows 2000 SP4.
(B
(B
(BThis script sometimes runs a longer time for DB slow
Hello again,
(B
(BThis simple CGI displays a different UTC and a same PID, so...
(BPID's are in 3 or 4 not one.
(B
(B#!Perl
(Buse CGI qw/:all/;
(B$now = time;
(Bprint header,
(B start_html('test a CGI'),
(B h1('test a CGI'),
(B br,
(B start_form,
(B "$now $$
use strict;
(Buse Win32::IE::Mechanize;
(B
(Bmy $ie = Win32::IE::Mechanize-new(
(Bvisible=1,
(Bresizable=1,
(Baddressbar=0,
(Btoolbar=0,
(Btop=0,
(Bleft=0,
(Bheight=600,
(Bwidth=800,
(B);
This maybe a hint.
(B
(BC:\perl -MCwd -le "print cwd(); system('cd aa'); print cwd();"
(BC:/
(BC:/
(B
(BC:\perl -MCwd -le "print cwd(); chdir('aa'); print cwd();"
(BC:/
(BC:/aa
(B
(BRegards,
(BHirosi Taguti
(B[EMAIL PROTECTED]
(B
(B
(B
(B
(B
(B
Hello,
(B
(BI coded myself using the bit string, which reprezent
(Bselecting (=1) or not selecting (=0) in all cases.
(BI forgot to sey number is zero if no options are selected.
(BNot debugged yet...
(B
(B#!Perl
(B
(Bmy @in = (1,2,16,32);
(Bmy @out = addOption(@in);
(B
(Bprint
Thank you so much, Jan.
(BI successfully got changed strings.
(B
(BI was looking into Win32::OLE::Variant of cause, but
(Bit's a little bit hard to understand.
(BAnd I thought this case didn't require "Variant" 'cause
(Bthis program uses mere strings, no Integer, no Floating point.
(B
Title: VBScript using Active-X
(B
(B
(B
(B
(B
(BHello,
(B
(B
(BI like to change this VBScript using Active-X into
(B
(BPerl CGI or Perlscript if required.
(B
(BI'm using perl for years but not know about VBScript
(B
(Band active-x so well...
(B
(BSomeone show me a changed code?
Hello,
(B
(BThis address '[EMAIL PROTECTED]/' is rejected by our postfix,
(Bbut Email::Valid says it's OK.
(B
(Bpostfix log:
(B... status=bounced (bad host/domain syntax: "bar.com/")
(B
(BC:\perl -MEmail::Valid -le "print (Email::Valid-address('[EMAIL PROTECTED]/') ? 'yes
(B' : 'no')"
Hello,
(B
(BAnyone has successed LWP script with NTLM proxy?
(BI successed with basic-authen proxy, not NTLM.
(B
(BLWP::Authen::Ntlm seems to be for NTML'ed url, not for NTML'ed proxy.
(BOr can be used for proxy?
(B
(B#!Perl
(B# LWP with Basic proxy
(Buse LWP::Debug qw(+);
(Buse
Hello,
(BSorry a little OT,
(B
(BI'm a perl user working on windows, but sometimes I must upload my scripts to
(Bunix servers run them.
(BSometimes I made a mistake to FTP in binary mode, then scripts fail to run.
(BI've experienced HP-UX, AIX, Solaris Linux, in this order, Linux less
Thanks,
(B
(BI read Net::FTP doc.
(BI'd rather wanna use Net::FTP::Common...
(B
(BBut here is Japan.
(BMy servers tell these line in Japanese, not easy to parse.
(BI prefer something like UTC or more direct value.
(B
(BRegards,
(BHirosi Taguti
(B[EMAIL PROTECTED]
(B
(B
(B
Hello,
(B
(B print $client "dir\x0D\x0A\r\n";
(B
(BThis means,
(B--
(Bdir (CR)
(B(CR)
(B--
(Bextra new line?
(B
(BBy the way,
(Ba slitely elegant coding,
(B--
(Buse IO::Socket qw(CRLF);
(B...
(Bprint "GET / HTTP/1.0", CRLF;
(B--
(B
(BHirosi Taguti
(B[EMAIL PROTECTED]
(B
Hello,
(B
(BDBD-Oracle can run under Oracle9i Client 9.2.0.1.0?
(B
(BI installed
(BC: ppm install DBI
(B
(BInstall 'DBI' version 1.39 in ActivePerl 5.8.1.807.
(B
(BC:\ppm install ftp://ftp.esoftmatic.com/outgoing/DBI/DBD-Oracle.ppd
Ah,
(BI hear OWA but don't know how to use.
(BI'm not a system admin of exchange server,
(Bjust having some right to read/write some directories.
(B
(BRegards,
(BHirosi Taguti
(B
(B -Original Message-
(B From: Peter Guzis [mailto:[EMAIL PROTECTED]
(B Sent: Wednesday, December
Hello,
(B
(BI like to make a Web page (in HTML) to mirror
(BMS Exchange public folders.
(B
(Bplease let me know where to begin to access
(Bpublic folders from Perl.
(B
(BRegards,
(BHirosi Taguti
(B[EMAIL PROTECTED]
(B___
(BPerl-Win32-Users
Hello,
(B
(BRecently I'm interested in Rijndael.
(BAnd I found a CPAN module played with it.
(B
(BHere I have a question:
(BHow should I do the last few bytes smaller than 16?
(Bencrypt/decrypt methods don't allow the "non-multipler of blocksize".
(BI think one way is to ignore the last
Thanks, I'll study it.
(B
(BRegards,
(BHirosi Taguti
(B[EMAIL PROTECTED]
(B
(B
(B -Original Message-
(B From: Sisyphus [mailto:[EMAIL PROTECTED]
(B Sent: Sunday, November 16, 2003 5:52 PM
(B To: $BED8}(J [EMAIL PROTECTED](J
(B Cc: [EMAIL PROTECTED]
(B Subject: Re: The last
Hello,
(B
(B I'm facing a task to estimate how many sockets are opened at a time
(B in a huge programs using "IO::Socket".
(B The creation of sockets are made in a common sub, and all programs
(B are calling the sub, so I can catch any creation easily.
(B But the close is made in
72 matches
Mail list logo