[29267] in Perl-Users-Digest
Perl-Users Digest, Issue: 511 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jun 13 14:09:58 2007
Date: Wed, 13 Jun 2007 11:09:04 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 13 Jun 2007 Volume: 11 Number: 511
Today's topics:
Re: a password encryption question. <baxter.brad@gmail.com>
Re: Any cross-platform function to obtain the machine n <ilias@lazaridis.com>
Re: How can I use the string variable expansion for OO anno4000@radom.zrz.tu-berlin.de
new CPAN modules on Wed Jun 13 2007 (Randal Schwartz)
Re: P4 module install problem anno4000@radom.zrz.tu-berlin.de
Re: perl and php <tadmc@seesig.invalid>
Re: Perl in C Windows to obtain a exe <peter@arafura.net.au>
Re: perl vs C for CGI <hjp-usenet2@hjp.at>
Re: perl vs C for CGI <stoupa@practisoft.cz>
Re: perl vs C for CGI <hjp-usenet2@hjp.at>
variable scope <sonet.all@msa.hinet.net>
Re: variable scope <tadmc@seesig.invalid>
Re: variable scope <nobull67@gmail.com>
Re: Win32: How to quit perl script during log off autom <lambik@kieffer.nl>
Re: Win32: How to quit perl script during log off autom <petersob@gmx.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 13 Jun 2007 15:35:59 -0000
From: Brad Baxter <baxter.brad@gmail.com>
Subject: Re: a password encryption question.
Message-Id: <1181748959.809432.38760@x35g2000prf.googlegroups.com>
On Jun 10, 9:35 pm, Joe Smith <j...@inwap.com> wrote:
> nightc...@gmail.com wrote:
> > However, a new problem was created.
> > My Login.cgi could not read the ramdom-cryped password.
> > The related script was,
> > @alphabet = ('a' .. 'z', 'A' .. 'Z', '0' .. '9', '.', '/');
> > $salt = join ('', @alphabet[rand (64), rand (64)]);
>
> No. The salt is supposed to be randomized when
> the password is originally set; not when it is being compared.
>
> > if (crypt($password, $salt) ne $pwordlist{$FORM{'username'}})
>
> $password_on_record = $pwordlist{$FORM{username}};
> $salt = substr $password_on_record,0,2;
> if (crypt($password,$salt) ne $password_on_record)
FWIW, you don't have to send crypt a substring; it will handle the
full string just fine.
>From perldoc -f crypt:
if (crypt($word, $pwd) ne $pwd) {
die "Sorry...\n";
} else {
print "ok\n";
}
--
Brad
------------------------------
Date: Wed, 13 Jun 2007 08:54:27 -0000
From: Ilias Lazaridis <ilias@lazaridis.com>
Subject: Re: Any cross-platform function to obtain the machine name?
Message-Id: <1181724867.901532.80770@z28g2000prd.googlegroups.com>
On Jun 12, 5:25 pm, Paul Lalli <mri...@gmail.com> wrote:
> On Jun 12, 9:46 am, Ilias Lazaridis <i...@lazaridis.com> wrote:
>
>
>
> > On Jun 12, 1:37 pm, Paul Lalli <mri...@gmail.com> wrote:
>
> > > On Jun 12, 6:08 am, Ilias Lazaridis <i...@lazaridis.com> wrote:
>
> > > > looking for something like
>
> > > > use system;
>
> > > > print system->machineName();
>
> > > > this should work across platforms.
>
> > > use Sys::Hostname;
> > > print hostname;
>
> > My apologies.
>
> none needed. You made the effort to search, you just didn't know what
> search terms to use.
>
> > I've searched for "machinename" instead of "hostname".
>
> > Is the term "host" generally prefered within the perl domain?
>
> Probably, but only because Perl is based on Unix, and in unix there is
> a utility called `hostname`, which returns the name of the machine.
I think i've solved my confusion about the term "host".
The term "hostname" means basicly "The name of the machine which hosts
the unix operating system", thus "host" referes to "operating-system-
host".
Is this correct?
.
--
http://dev.lazaridis.com/lang/wiki/Perl
------------------------------
Date: 13 Jun 2007 09:59:26 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: How can I use the string variable expansion for OO "$self->attribute"
Message-Id: <5d9tfuF33ldamU1@mid.dfncis.de>
Ilias Lazaridis <ilias@lazaridis.com> wrote in comp.lang.perl.misc:
> On Jun 9, 3:52 pm, "Dr.Ruud" <rvtol+n...@isolution.nl> wrote:
> > Ilias Lazaridis schreef:
> >
> > > return "$self->label: $self->val($attrib)";
> > > is ther ANY way of achieving this, whilst using ONLY the string?
> >
> > Just play with it:
> [...] examples.
>
> I really meant to process this string.
>
> As asked in my other reply:
>
> is there any stand-alone function available (something like
> "stringeval"), which would process the string correctly?
Define "correctly". There are serious parsing problems involved
in recognizing arbitrary code that is embedded in a string.
Anno
------------------------------
Date: Wed, 13 Jun 2007 04:42:11 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Wed Jun 13 2007
Message-Id: <JJK52B.JG5@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
CGI-Ex-2.14
http://search.cpan.org/~rhandom/CGI-Ex-2.14/
CGI utility suite - makes powerful application writing fun and easy
----
CGI-Ex-Template-XS-0.05
http://search.cpan.org/~rhandom/CGI-Ex-Template-XS-0.05/
DEPRECATED - you should now use Template::Alloy::XS
----
Catalyst-Model-CacheFunky-Loader-0.02
http://search.cpan.org/~tomyhero/Catalyst-Model-CacheFunky-Loader-0.02/
Load Cache::Funky Modules.
----
Catalyst-Plugin-Form-Processor-0.01
http://search.cpan.org/~hank/Catalyst-Plugin-Form-Processor-0.01/
methods for processing forms with Form::Processor
----
Catalyst-Plugin-UploadProgress-0.04
http://search.cpan.org/~agrundma/Catalyst-Plugin-UploadProgress-0.04/
Realtime file upload information
----
DBIx-MyParse-0.86
http://search.cpan.org/~philips/DBIx-MyParse-0.86/
Perl API for MySQL's SQL Parser
----
Data-ICal-TimeZone-1.22
http://search.cpan.org/~rclamp/Data-ICal-TimeZone-1.22/
timezones for Data::ICal
----
Devel-Size-0.68
http://search.cpan.org/~tels/Devel-Size-0.68/
Perl extension for finding the memory usage of Perl variables
----
Dyer-CLI-1.04
http://search.cpan.org/~leocharre/Dyer-CLI-1.04/
useful subs for coding cli scripts
----
Form-Processor-0.09
http://search.cpan.org/~hank/Form-Processor-0.09/
validate and process form data
----
Form-Processor-0.10
http://search.cpan.org/~hank/Form-Processor-0.10/
validate and process form data
----
GD-Chart-Radial-0.04
http://search.cpan.org/~barbie/GD-Chart-Radial-0.04/
plot and output Radial or Radar charts using the GD library.
----
Getopt-Lazy-v0.0.2
http://search.cpan.org/~rueycheng/Getopt-Lazy-v0.0.2/
Yet another lazy, minimal way of using Getopt::Long
----
Getopt-Lazy-v0.0.3
http://search.cpan.org/~rueycheng/Getopt-Lazy-v0.0.3/
Yet another lazy, minimal way of using Getopt::Long
----
Linux-Pid-0.04
http://search.cpan.org/~rgarcia/Linux-Pid-0.04/
Get the native PID and the PPID on Linux
----
Mail-SpamAssassin-3.1.9
http://search.cpan.org/~jmason/Mail-SpamAssassin-3.1.9/
Spam detector and markup engine
----
Mail-SpamAssassin-3.2.1
http://search.cpan.org/~jmason/Mail-SpamAssassin-3.2.1/
Spam detector and markup engine
----
Net-OICQ-1.4
http://search.cpan.org/~tangent/Net-OICQ-1.4/
Perl extension for QQ instant messaging protocol
----
PDF-OCR-1.02
http://search.cpan.org/~leocharre/PDF-OCR-1.02/
get ocr and images out of a pdf file
----
POE-Component-IRC-5.32
http://search.cpan.org/~bingos/POE-Component-IRC-5.32/
a fully event-driven IRC client module.
----
Parallel-Forker-1.221
http://search.cpan.org/~wsnyder/Parallel-Forker-1.221/
Parallel job forking and management
----
Parse-BooleanLogic-0.01
http://search.cpan.org/~ruz/Parse-BooleanLogic-0.01/
parser of boolean expressions
----
Personality-Type-MBTI-0.04
http://search.cpan.org/~nferraz/Personality-Type-MBTI-0.04/
Myers-Briggs Type Indicator (MBTI)
----
Personality-Type-MBTI-0.05
http://search.cpan.org/~nferraz/Personality-Type-MBTI-0.05/
Myers-Briggs Type Indicator (MBTI)
----
Pod-Tree-1.14
http://search.cpan.org/~swmcd/Pod-Tree-1.14/
Create a static syntax tree for a POD
----
Script-Toolbox-0.20
http://search.cpan.org/~eckardt/Script-Toolbox-0.20/
Framework for the daily business scripts
----
Statistics-Suggest-0.01
http://search.cpan.org/~ihara/Statistics-Suggest-0.01/
Perl binding for collaborative filtering library SUGGEST.
----
Sudo-0.32
http://search.cpan.org/~landman/Sudo-0.32/
Perl extension for running a command line sudo
----
Template-Parser-CET-0.04
http://search.cpan.org/~rhandom/Template-Parser-CET-0.04/
Template::Alloy based parser for the TT2 engine
----
Test-Run-Plugin-ColorFileVerdicts-0.0102
http://search.cpan.org/~shlomif/Test-Run-Plugin-ColorFileVerdicts-0.0102/
make the file verdict ("ok", "NOT OK") colorful.
----
Verilog-Perl-3.000
http://search.cpan.org/~wsnyder/Verilog-Perl-3.000/
----
WWW-Fuel-US-Prices-0.0.4
http://search.cpan.org/~ashoooo/WWW-Fuel-US-Prices-0.0.4/
Perl Module to get the gas prices around a particular zip code in the US
----
XUL-Image-PPT-0.02
http://search.cpan.org/~sal/XUL-Image-PPT-0.02/
insert images into a ppt
----
XUL-Image-PPT-0.03
http://search.cpan.org/~sal/XUL-Image-PPT-0.03/
insert images into a ppt
----
hub-standard-04.00.012
http://search.cpan.org/~ryangies/hub-standard-04.00.012/
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: 13 Jun 2007 08:30:47 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: P4 module install problem
Message-Id: <5d9o9nF346j1rU1@mid.dfncis.de>
James <hslee911@yahoo.com> wrote in comp.lang.perl.misc:
> How do I resolve the following error in installing P4 module?
>
> PERL_DL_NONLAZY=1 /usr/local/bin/perl "-Iblib/lib" "-Iblib/arch"
> test.pl
> 1..7
> Can't load 'blib/arch/auto/P4/P4.so' for module P4:
> ld.so.1: /usr/local/bin/perl: fatal: relocation error: file blib/arch/
> auto/P4/P4.so:
> symbol _6StrBuf.nullStrBuf: referenced symbol not found at
> /usr/local/perl/5.6.1/lib/5.6.1/sun4-solaris/DynaLoader.pm line 206.
> at test.pl line 34
> Compilation failed in require at test.pl line 34.
The README that comes with the P4 distribution has a few
pertinent hints. Have you read it?
Anno
------------------------------
Date: Tue, 12 Jun 2007 21:27:32 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: perl and php
Message-Id: <slrnf6ulgk.sno.tadmc@tadmc30.sbcglobal.net>
peter <pm3e@juno.com> wrote:
> btw do abigale (sp?)
Yes.
> and larry still contribute?
No. It's been over 10 years since Larry was here.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Tue, 12 Jun 2007 19:21:31 -0700
From: Peter Wyzl <peter@arafura.net.au>
Subject: Re: Perl in C Windows to obtain a exe
Message-Id: <1181701291.336239.296080@n15g2000prd.googlegroups.com>
On Jun 13, 9:31 am, "john.swilting" <john.swilt...@wanadoo.fr> wrote:
> "Peter Wyzl" <wyze...@yahoo.com> a =E9crit dans le message de news:
> XREbi.13009$wH4.4...@news-server.bigpond.net.au...
>
>
>
> > "john swilting" <john.swilt...@wanadoo.fr> wrote in message
> >news:466ed7b7$0$25935$ba4acef3@news.orange.fr...
> >>I would wish to integrate Perl in exe Windows.
> >> I have the book programming advanced in Perl and I intend to follow the
> >> examples of the book.
> >> but I would like particular technical specifications
> >> I do not wish to use cygwin
> >> I want binary to bind statically (cad no DLL)
> >> arrived it: 2 solutions
> >> to use activeperl or recompiler an interpreter Perl
> >> I have like compiler C visual c++ 6 pro and codeblocks
> >> headers Perl are not present in the include compilers.
> >> script Perl will be to charge extracting the data from an Excel file a=
nd
> >> with sending an email
> >> under linux not of problem but how to make under Windows
> >> my file C will be similar to the example of the book the large one of
> >> work
> >> will be to carry out by Perl
> >> I ask of the assistance because I know little about Windows very. I
> >> repeat
> >> it under linux it is about simple it is enough to modify the example 1=
9=2E3
> >> and to use Spreadsheet:: ParseExcel and MIME:: Lite or Net:: Smtp
>
> > Perlapp from Activestate (part of the Perl Developer Kit)
> >http://www.activestate.com/Products/perl_dev_kit/allows freestanding .exe
> > from Perl (the .dll is included inside the .exe). I have had a lot of
> > success with that approach.
>
> > Perl2exe from Indigostarhttp://www.indigostar.com/perl2exe.htmis another
> > I have heard of but nor personally used, though it claims some nice
> > features.
>
> > P
>
> they is very expensive almost 500 euros I will continue to make script if
> not can be with Christmas
> what. that you it in this code occurs- Hide quoted text -
>
> - Show quoted text -
You could also try this one...
http://search.cpan.org/search?mode=3Dmodule&query=3DPAR
P
------------------------------
Date: Wed, 13 Jun 2007 08:21:23 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: perl vs C for CGI
Message-Id: <slrnf6v373.mf7.hjp-usenet2@zeno.hjp.at>
On 2007-06-12 13:09, Petr Vileta <stoupa@practisoft.cz> wrote:
> saran.jegan@gmail.com wrote:
>> am having a program in C which throws "internal server error"
>> reason is premature end of script headers but i checked my http header
>> & syntax of the program too , its fine. but when am re-program the
>> same in perl it works fine
[...]
>> server:apache
> You did not mentioned about operating systems ;-) On Unix/Linux the end of
> line is 0x0d (one byte)
Nope. It's 0x0A. (It was 0x0D on MacOS <= 9)
> but on Windows this is 0x0d, 0x0a.
> Perl put right EndOfLine character(s) by the operating system where is
> running but C source code must be compiled to executable.
AFAIK Apache accepts both LF and CRLF from CGI scripts.
hp
--
_ | Peter J. Holzer | I know I'd be respectful of a pirate
|_|_) | Sysadmin WSR | with an emu on his shoulder.
| | | hjp@hjp.at |
__/ | http://www.hjp.at/ | -- Sam in "Freefall"
------------------------------
Date: Wed, 13 Jun 2007 12:49:22 +0200
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: Re: perl vs C for CGI
Message-Id: <f4oifb$1e85$1@ns.felk.cvut.cz>
Peter J. Holzer wrote:
> On 2007-06-12 13:09, Petr Vileta <stoupa@practisoft.cz> wrote:
>> saran.jegan@gmail.com wrote:
>>> am having a program in C which throws "internal server error"
>>> reason is premature end of script headers but i checked my http
>>> header & syntax of the program too , its fine. but when am
>>> re-program the same in perl it works fine
> [...]
>>> server:apache
>> You did not mentioned about operating systems ;-) On Unix/Linux the
>> end of line is 0x0d (one byte)
>
> Nope. It's 0x0A. (It was 0x0D on MacOS <= 9)
>
Right, II had some obfuscations in my head at deep night ;-)
> AFAIK Apache accepts both LF and CRLF from CGI scripts.
>
Maybe Apache 2.x, I don't know, but Apache 1.2 have problem with windows
like end-of-line. I have this on my Linux server and anytime I forget to
convert cgi file to unix format I get the same error message.
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your mail
from another non-spammer site please.)
------------------------------
Date: Wed, 13 Jun 2007 14:35:50 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: perl vs C for CGI
Message-Id: <slrnf6vp56.n57.hjp-usenet2@zeno.hjp.at>
On 2007-06-13 10:49, Petr Vileta <stoupa@practisoft.cz> wrote:
> Peter J. Holzer wrote:
>> On 2007-06-12 13:09, Petr Vileta <stoupa@practisoft.cz> wrote:
>>> saran.jegan@gmail.com wrote:
>>>> am having a program in C which throws "internal server error"
>>>> reason is premature end of script headers but i checked my http
>>>> header & syntax of the program too , its fine. but when am
>>>> re-program the same in perl it works fine
>> [...]
>>>> server:apache
>>> You did not mentioned about operating systems ;-) On Unix/Linux the
>>> end of line is 0x0d (one byte)
>>
>> Nope. It's 0x0A. (It was 0x0D on MacOS <= 9)
>>
> Right, II had some obfuscations in my head at deep night ;-)
>
>> AFAIK Apache accepts both LF and CRLF from CGI scripts.
>>
> Maybe Apache 2.x, I don't know, but Apache 1.2 have problem with windows
> like end-of-line. I have this on my Linux server and anytime I forget to
> convert cgi file to unix format I get the same error message.
If you don't convert the *script* (as opposed to print statements within
the script), apache probably can't even start the script because the
linux kernel will try to invoke "/usr/bin/perl\r" which doesn't exist.
You can test this by running the script from the command line.
Since a script which doesn't run can't produce any headers, you'll get
the "premature end of script headers" error. But the problem is that
there are no headers at all not that they have the wrong line endings.
hp
--
_ | Peter J. Holzer | I know I'd be respectful of a pirate
|_|_) | Sysadmin WSR | with an emu on his shoulder.
| | | hjp@hjp.at |
__/ | http://www.hjp.at/ | -- Sam in "Freefall"
------------------------------
Date: Wed, 13 Jun 2007 15:19:41 +0800
From: "sonet" <sonet.all@msa.hinet.net>
Subject: variable scope
Message-Id: <f4o5qd$h9t$1@netnews.hinet.net>
The code print file in directory.But i have a question about the
variable scope.
Directory tree:
file: /usr/local/app/f1
file: /usr/local/app/f2
dir: /usr/local/app/d1
dir: /usr/local/app/d1/d2
If i use opendir(DIR,$path) not opendir(my $DIR,$path). The code
will terminate. Becase the FILEHANDLE closed as the main loop is
running.
When the code run at /usr/local/app/d1 , It have not terminate.
It will call self(recursive).Why the variable($path) in main loop
will not influence each other?
------------------------------------------------------------------------------------
my $dir='/usr/local/app';
listdir("$dir");
sub listdir{
my $path=shift;
opendir(my $DIR,$path);
while(my $file=readdir($DIR)){
if (-f "$path/$file"){
print "$path/$file\n";
}elsif (-d "$path/$file" && $file ne '.' && $file ne '..'){
listdir("$path/$file");
}
}
close($DIR);
}
------------------------------
Date: Wed, 13 Jun 2007 06:13:05 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: variable scope
Message-Id: <slrnf6vka1.3gf.tadmc@tadmc30.sbcglobal.net>
sonet <sonet.all@msa.hinet.net> wrote:
> The code print file in directory.But i have a question about the
> variable scope.
> If i use opendir(DIR,$path) not opendir(my $DIR,$path). The code
> will terminate. Becase the FILEHANDLE closed as the main loop is
> running.
>
> When the code run at /usr/local/app/d1 , It have not terminate.
> It will call self(recursive).Why the variable($path) in main loop
> will not influence each other?
Because "my $DIR" uses a lexical variable, and is therefore
lexically scoped.
But the filehandle "DIR" is global.
> opendir(my $DIR,$path);
You can get the same output as with the lexical variable by using
a typeglob as described in the "Typeglobs and Filehandles"
section of perldata.pod:
opendir(local *DIR, $path);
But lexical variables are nearly always better anyway, so
don't do that in production code.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Wed, 13 Jun 2007 16:44:54 -0000
From: Brian McCauley <nobull67@gmail.com>
Subject: Re: variable scope
Message-Id: <1181753094.102628.36610@q19g2000prn.googlegroups.com>
On Jun 13, 8:19 am, "sonet" <sonet....@msa.hinet.net> wrote:
> opendir(my $DIR,$path);
> close($DIR);
Tad has addressed your actual question but I would like to point out
that close() above does nothing. Potentially $DIR (which is a GLOBref)
actually holds both a filehandle and a directory handle (and a scalar,
and an array and so on...). Of these potential things only the
directory handle is used.
To close the directory handle.
closedir($DIR);
But if you are not checking for failure anyhow you may as well not
bother. It'll be closed implicitly when the last reference to the GLOB
goes away. Unless you've made any persistant copies this'll be when
$DIR goes out of scope.
------------------------------
Date: Wed, 13 Jun 2007 10:35:19 +0200
From: "Lambik" <lambik@kieffer.nl>
Subject: Re: Win32: How to quit perl script during log off automatically ?
Message-Id: <466fac08$0$37728$5fc3050@dreader2.news.tiscali.nl>
"Peter Sobisch" <petersob@gmx.net> wrote in message
news:f4merj$h5f$1@online.de...
> Hi folks,
>
> on Unix its a simplest thing, perl do it for me or I can set $SIG{HUP} :-)
> but, how can I do this in Windows ?
>
> Every time I try to shutdown or log off, pop-up is comming up with
> "application doesn't response" and expecting to kill by clicking a
> button -> very dirty thing :-/
>
> So, I tried to catch WM_QUERYENDSESSION (using Win32::GUI::Hook), but no
You should reveive a WM_CLOSE according to Bill.
------------------------------
Date: Wed, 13 Jun 2007 10:27:36 +0000 (UTC)
From: Peter Sobisch <petersob@gmx.net>
Subject: Re: Win32: How to quit perl script during log off automatically ?
Message-Id: <f4ogqo$uun$1@online.de>
Lambik <lambik@kieffer.nl> schrieb:
>> on Unix its a simplest thing, perl do it for me or I can set $SIG{HUP} :-)
>> but, how can I do this in Windows ?
>>
>> Every time I try to shutdown or log off, pop-up is comming up with
>> "application doesn't response" and expecting to kill by clicking a
>> button -> very dirty thing :-/
>>
>> So, I tried to catch WM_QUERYENDSESSION (using Win32::GUI::Hook), but no
>
> You should reveive a WM_CLOSE according to Bill.
not really, I'm affraid windows doesn't sent neither WM_CLOSE nor
WM_QUIT because of the same reason of not sending WM_QUERYENDSESSION.
There must be something more in the Win32-universe :-)
regards
Peter
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 511
**************************************
