Incomplete set of HTTP Headers

2006-03-13 Thread Inoue Nakagawa
Please forgive me if this is a rather stupid question, however I am new to Perl and Activestate perl on win32. My problem is as follows:No matter what program I run (be it mine or a downloaded app) I always seem to run into the exact same error (Useing IIS6)
"The specified CGI application misbehaved by not returning a complete set of HTTP headers."I have followed installation instructions to the tee as well as searched and followed guids. Even the example perl applications from the Default install do not function correctly. I have tried on diffrent installs of Windows 2003, and Windows XP Pro, they yeilded the same results.
This must be a simple matter to fix, because it is numorus and I have yet to find any documentation explaining a fix for it.For problem information I have:Windows Server 2003 Standard SP1Perl, v5.8.7
 for MSwin32-x86-multi-thread [build 815]Running on IIS 6.0Thank you for your time and help.

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


Re: Driving a POS printer from Perl

2006-03-13 Thread Foo Ji-Haw
Printing gibberish may be a sign that one or more settings may be 
incorrect, potentially the databit, parity, or stopbits. Have you tried 
doing a similar setup in HyperTerminal?


David Ressler wrote:

Here's what prints gibberish:

use Win32::SerialPort;
$port=new Win32::SerialPort('COM2') || &syserr($^E);
$port->databits(8);
$port->baudrate(9600);
$port->parity("none");
$port->stopbits(1);
$port->write("Hello, world!\n");



- Original Message - 
From: "Foo Ji-Haw" <[EMAIL PROTECTED]>

To: "David Ressler" <[EMAIL PROTECTED]>
Cc: 
Sent: Sunday, March 12, 2006 11:32 PM
Subject: Re: Driving a POS printer from Perl


David Ressler wrote:
  

Thanks for the start.

I managed to get Win32::SerialPort to wake up the printer but it's printing
gibberish. I'm setting it to the same baud rate, etc., as the (functioning)
"Generic / Text" printer that I set up using the Windows "Add Printer".

Do you have any code snippits that would suggest things to try? The
documentation has way too much information for me to comprehend. I'm using the
module in another application to drive a modem and it works fine with only two
lines of code. Is this more complicated?



Check your parity and bit length. There is a DIP switch that determines
whether it's 8-bit or 7, even parity or odd. Maybe you can post your
working code for the community to inspect.


___
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: List Installed Font Names?

2006-03-13 Thread $Bill Luebkert
Chris Wagner wrote:

> I would start by looking in Scriptomatic for a WMI call into the fonts
> system.  And then use that with the standard OLE perl thingy to get the
> information.  Of course if u just listed the fonts directory u would have to
> decode the font files urself to get their presentation names.  And even
> then, just because a font file exists doesn't mean it's usable or available
> in the system.
> 
> At 11:56 PM 3/12/2006 -0800, Steve Green wrote:
> 
>>Can anyone suggest a way to make a list of the names of the fonts 
>>installed on a Windows system? -- Thanks

Not sure if these are 'installed' fonts or not in the registry:

LMachine\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts

For using WMI - try class Win32_FontInfoAction

I get similar but not exact numbers from each 274 (Registry) vs 269 (WMI)

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


RE: ActivePerl 5.8.8.816 released

2006-03-13 Thread John Serink
Has the handles leak on Win32 when using shared variables with threads
been fixed?

:)
John

> -Original Message-
> From: [EMAIL PROTECTED] 
> [mailto:[EMAIL PROTECTED] On 
> Behalf Of Jan Dubois
> Sent: Tuesday, March 14, 2006 7:42 AM
> To: activeperl@listserv.ActiveState.com; 
> perl-win32-users@listserv.ActiveState.com
> Subject: ActivePerl 5.8.8.816 released
> 
> 
> I'm happy to announce that we released ActivePerl 5.8.8.816 
> today. The main highlights over 5.8.7.815 are:
> 
> * Based on Perl 5.8.8, plus bug fixes and module updates
> * OS X version runs natively on both PowerPC and Intel Macs
> * 64 Bit beta versions available for Windows, Linux and Solaris
> 
> As usual, you can download it via the main ActivePerl page:
> 
> http://www.ActiveState.com/ActivePerl
> 
> Note that there is a separate link for downloading the 64 bit 
> Beta versions.
> 
> Please send feedback to
> 
> [EMAIL PROTECTED]
> 
> and report bugs at
> 
> http://bugs.ActiveState.com
> 
> I've appended the relevant section of the CHANGES-58.pod file 
> to show some more detail on other changes from the previous release.
> 
> Cheers,
> -Jan
> 
> =head2 Build 816 Thursday, Mar 2, 2006
> 
> Build 816 is based on Perl 5.8.8.
> 
> I
> 
> =over 8
> 
> =item *
> 
> Perl 5.8.8 has been incorporated. See L for 
> a list of changes.
> 
> =item *
> 
> ActivePerl build 816 is now also available as a 64 bit Beta 
> release for Windows and Linux on x86_64 as well as Solaris on 
> Sparc. The 64 bit Windows Beta does not include PerlScript, 
> PerlEx, Perl for ISAPI or PerlEz.
> 
> =item *
> 
> The ActivePerl Community License has been clarified. It now 
> explicitly allows you to redistribute certain parts of 
> ActivePerl as part of applications generated by wrapping 
> tools such as by PAR, PerlApp and Perl2Exe. Please refer to 
> the license text for actual terms and conditions.
> 
> =item *
> 
> ActivePerl for Mac OS X is now a Universal binary that 
> support all Macintosh hardware natively.
> 
> =item *
> 
> ActivePerl for Solaris is now built with the vendor compiler. 
> Previous releases were built with the GNU compiler (gcc).
> 
> =item *
> 
> C on Solaris and HP-UX now provides 
> compatibility so that extensions can be built using gcc. This 
> happens automatically if the vendor compiler is not available 
> on the target system.
> 
> =item *
> 
> ActivePerl now ships with a preinitialized C 
> module. This avoids the need to go through the configuration 
> dialog the first the CPAN shell is invoked. The configuration 
> dialog can still be invoked by the C command to 
> the CPAN shell.
> 
> =item *
> 
> Syntax colored documentation and ActiveState::Scineplex is 
> now supported for all the Unix platforms.
> 
> =item *
> 
> Passive transfer mode is now the default for C. 
> This mode is more likely to work with modern firewall setups.
> 
> =item *
> 
> Problem where 'perl -s' wasn't able to parse -foo=bar 
> switches has been corrected.
> 
> =item *
> 
> The stat() builtin would not return the expected result when 
> passed a directory name with trailing slashes on Windows. 
> This problem has been fixed.
> 
> This problem caused the rmtree() function of the 
> C module introduced in build 815 to fail for such 
> directory names on Windows.
> 
> =item *
> 
> The C is now more efficient and it does not rely on
> getprotobyname("tcp") to be functional any more.
> 
> =item *
> 
> A problem where long groups entries could cause memory 
> exhaustion has been fixed.
> 
> =item *
> 
> A problem with the alarm() function on Windows 2003 has been fixed.
> 
> =item *
> 
> The Tk module would sometimes fail to update the C<-cursor> 
> attribute of widgets for 64-bit builds of perl. This problem 
> has now been fixed.
> 
> =item *
> 
> Many bundled modules have been updated to their latest versions:
> 
> Digest-SHA-2.11
> HTML-Tagset-3.10
> HTML-Parser-3.50
> HTML-Tree-3.1901
> IO-String-1.08
> libwww-perl-5.805
> Mac-Errors-1.11
> Win32-OLE-0.1704
> 
> =back
> 
> 
> 
> ___
> 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


ActivePerl 5.8.8.816 released

2006-03-13 Thread Jan Dubois
I'm happy to announce that we released ActivePerl 5.8.8.816 today.
The main highlights over 5.8.7.815 are:

* Based on Perl 5.8.8, plus bug fixes and module updates
* OS X version runs natively on both PowerPC and Intel Macs
* 64 Bit beta versions available for Windows, Linux and Solaris

As usual, you can download it via the main ActivePerl page:

http://www.ActiveState.com/ActivePerl

Note that there is a separate link for downloading the 64 bit Beta
versions.

Please send feedback to

[EMAIL PROTECTED]

and report bugs at

http://bugs.ActiveState.com

I've appended the relevant section of the CHANGES-58.pod file to
show some more detail on other changes from the previous release.

Cheers,
-Jan

=head2 Build 816 Thursday, Mar 2, 2006

Build 816 is based on Perl 5.8.8.

I

=over 8

=item *

Perl 5.8.8 has been incorporated. See L for a list
of changes.

=item *

ActivePerl build 816 is now also available as a 64 bit Beta release
for Windows and Linux on x86_64 as well as Solaris on Sparc. The 64
bit Windows Beta does not include PerlScript, PerlEx, Perl for ISAPI
or PerlEz.

=item *

The ActivePerl Community License has been clarified. It now explicitly
allows you to redistribute certain parts of ActivePerl as part of
applications generated by wrapping tools such as by PAR, PerlApp and
Perl2Exe. Please refer to the license text for actual terms and
conditions.

=item *

ActivePerl for Mac OS X is now a Universal binary that support all
Macintosh hardware natively.

=item *

ActivePerl for Solaris is now built with the vendor compiler. Previous
releases were built with the GNU compiler (gcc).

=item *

C on Solaris and HP-UX now provides compatibility so
that extensions can be built using gcc. This happens automatically if
the vendor compiler is not available on the target system.

=item *

ActivePerl now ships with a preinitialized C module. This
avoids the need to go through the configuration dialog the first the
CPAN shell is invoked. The configuration dialog can still be invoked by
the C command to the CPAN shell.

=item *

Syntax colored documentation and ActiveState::Scineplex is now supported
for all the Unix platforms.

=item *

Passive transfer mode is now the default for C. This mode is
more likely to work with modern firewall setups.

=item *

Problem where 'perl -s' wasn't able to parse -foo=bar switches has been
corrected.

=item *

The stat() builtin would not return the expected result when passed a
directory name with trailing slashes on Windows. This problem has
been fixed.

This problem caused the rmtree() function of the C module
introduced in build 815 to fail for such directory names on Windows.

=item *

The C is now more efficient and it does not rely on
getprotobyname("tcp") to be functional any more.

=item *

A problem where long groups entries could cause memory exhaustion has
been fixed.

=item *

A problem with the alarm() function on Windows 2003 has been fixed.

=item *

The Tk module would sometimes fail to update the C<-cursor> attribute of
widgets for 64-bit builds of perl. This problem has now been fixed.

=item *

Many bundled modules have been updated to their latest versions:

Digest-SHA-2.11
HTML-Tagset-3.10
HTML-Parser-3.50
HTML-Tree-3.1901
IO-String-1.08
libwww-perl-5.805
Mac-Errors-1.11
Win32-OLE-0.1704

=back



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


Re: list dead?

2006-03-13 Thread Jeff Griffiths

The archives are again up to date. Thank to everyone for the headsup.

JeffG

Eric Edwards wrote:

Just got your message.
Eric

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Chris Wagner
Sent: Sunday, March 12, 2006 9:40 PM
To: perl-win32-users@listserv.ActiveState.com
Subject: list dead?


I haven't gotten any list traffic for several days and I don't see the
recent messages that I do have on the website.  Something wrong with the
list?  The website only goes to Mar. 8th even though I got and sent several
messages after that.  Just wondering.






--
REMEMBER THE WORLD TRADE CENTER ---=< WTC 911 >=--
"...ne cede malis"

0100

___
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

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


Re: Driving a POS printer from Perl

2006-03-13 Thread David Ressler
Here's what prints gibberish:

use Win32::SerialPort;
$port=new Win32::SerialPort('COM2') || &syserr($^E);
$port->databits(8);
$port->baudrate(9600);
$port->parity("none");
$port->stopbits(1);
$port->write("Hello, world!\n");



- Original Message - 
From: "Foo Ji-Haw" <[EMAIL PROTECTED]>
To: "David Ressler" <[EMAIL PROTECTED]>
Cc: 
Sent: Sunday, March 12, 2006 11:32 PM
Subject: Re: Driving a POS printer from Perl


David Ressler wrote:
> Thanks for the start.
>
> I managed to get Win32::SerialPort to wake up the printer but it's printing
> gibberish. I'm setting it to the same baud rate, etc., as the (functioning)
> "Generic / Text" printer that I set up using the Windows "Add Printer".
>
> Do you have any code snippits that would suggest things to try? The
> documentation has way too much information for me to comprehend. I'm using the
> module in another application to drive a modem and it works fine with only two
> lines of code. Is this more complicated?
>
Check your parity and bit length. There is a DIP switch that determines
whether it's 8-bit or 7, even parity or odd. Maybe you can post your
working code for the community to inspect.


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


RE: How to transfer the output of find command of Dos in perl tofile

2006-03-13 Thread Suresh Govindachar
 
# Try backticks:
my $avl ="Available Bytes"; 
my $filename = "WMTP_db_2006_2_28.txt"; 
my $foo = `find $avl $filename`;
print "Found:\n$foo\n";

--Suresh

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


how to communicate with a forked process

2006-03-13 Thread Hon Shi
I have never done this and just need help getting off the 'dime'.

I have a monitor program that I tried to fork from TK - doesn't work...
won't work.

So, I thought, can I start a Tk window from the monitor and collect the
input that way?

Forget Tk for now.  How do I fork a process and have that process return
information?  Shared memory?  Pipes?  Sockets?  Please point the way.

Thank you very much.

win2k+, active 5.8



__
Do You Yahoo!?
Tired of spam?  Yahoo! Mail has the best spam protection around 
http://mail.yahoo.com 
___
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


RE: How to transfer the output of find command of Dos in perl tofile

2006-03-13 Thread Bullock, Howard A.
>> The regular expression in Perl works slower when the size of file is
bigger and we want >>to find the multilple patterns.

I disagree with your assessment. Testing this past weekend using 52
files 200MB to 1.9GB in size showed that FIND.EXE was substantially
slower than Perl RegEx. My tests show that FIND loaded the entire file
into memory.

The program I used in the tests opened the file and processed one line
of text at a time evaluating it using a regular expression. When matched
the line was written to an output file.

>> But here does anyone knows how to give the output of this
system(@args) in a files.

For my FIND test I used:
system 'find.exe /I "' . $ARGV[0] . '" ' . $file . ' >>' . $destDir .
"/" . $ARGV[0] . '.txt'

Another negative to using FIND was that for each file unwanted text was
written to the output file even if there was no match.

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


RE: How to transfer the output of find command of Dos in perl tofile

2006-03-13 Thread Ken Barker
Title: FW: How to transfer the output of  find command of Dos in perl to file





If you are asking how to put 
this into a file - just use the re-direct with DOS:
 
system(@args>file.txt); 

 

Ken Barker
IT Lead
Tel: 314-213-7927
1100 Corporate Square
St. Louis, MO 63132
[EMAIL PROTECTED]


From: 
[EMAIL PROTECTED] on behalf of Yekhande, Seema 
(MLITS)Sent: Mon 3/13/2006 8:04 AMTo: 
perl-win32-users@listserv.ActiveState.comSubject: FW: How to transfer 
the output of find command of Dos in perl tofile


Hi Everyone, 
The regular _expression_ in Perl works slower when the 
size of file is bigger and we want to find the multilple patterns. 
So, what I found is using the find command in DOS we 
can get the output faster $avl ="Available 
Bytes"; $filename = 
"WMTP_db_2006_2_28.txt"; @args = ("find", 
$avl, $filename); system(@args); 
But here does anyone knows how to give the output of 
this system(@args) in a files. 
Thanks, Seema 



If you are not an intended recipient of this e-mail, please notify the 
sender, delete it and do not read, act upon, print, disclose, copy, retain or 
redistribute it. Click here for 
important additional terms relating to this e-mail. http://www.ml.com/email_terms/


__This 
e-mail has been scanned by MCI Managed Email Content Service, using Skeptic(tm) 
technology powered by MessageLabs. For more information on MCI's Managed Email 
Content Service, visit 
http://www.mci.com.__
The information in this e-mail is confidential and intended solely for the person to whom it is addressed. Should you receive this message unintentionally, please do not use the contents herein and notify the sender immediately by return e-mail and then delete the message from your computer. 
Americall Group, Inc. cannot be held responsible or liable in any way whatsoever for and/or in connection with any consequences and/or damage resulting from the dispatch and receipt of this e-mail and the content of this e-mail. Americall Group, Inc. takes no responsibility for any computer virus that might be transferred by way of this email.

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


FW: How to transfer the output of find command of Dos in perl to file

2006-03-13 Thread Yekhande, Seema \(MLITS\)
Title: FW: How to transfer the output of  find command of Dos in perl to file






Hi Everyone,


The regular _expression_ in Perl works slower when the size of file is bigger and we want to find the multilple patterns.

So, what I found is using the find command in DOS we can get the output faster 

$avl ="Available Bytes";

$filename = "WMTP_db_2006_2_28.txt";

@args = ("find", $avl, $filename);

system(@args);

But here does anyone knows how to give the output of this system(@args) in a files.


Thanks,

Seema






If you are not an intended recipient of this e-mail, please notify the sender, delete it and do not read, act upon, print, disclose, copy, retain or redistribute it. Click here for important additional terms relating to this e-mail. http://www.ml.com/email_terms/



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


Re: List Installed Font Names?

2006-03-13 Thread Chris Wagner
I would start by looking in Scriptomatic for a WMI call into the fonts
system.  And then use that with the standard OLE perl thingy to get the
information.  Of course if u just listed the fonts directory u would have to
decode the font files urself to get their presentation names.  And even
then, just because a font file exists doesn't mean it's usable or available
in the system.

At 11:56 PM 3/12/2006 -0800, Steve Green wrote:
>Can anyone suggest a way to make a list of the names of the fonts 
>installed on a Windows system? -- Thanks





--
REMEMBER THE WORLD TRADE CENTER ---=< WTC 911 >=--
"...ne cede malis"

0100

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


RE: List Installed Font Names?

2006-03-13 Thread Allegakoen, Justin Devanandan
8<--
Can anyone suggest a way to make a list of the names of the fonts 
installed on a Windows system? -- Thanks
8<--

use strict;
use warnings;

my @Fonts;
my $Dir = "$ENV{'windir'}\\Fonts";

chdir $Dir or die "Cant cd to $Dir:- $!";

foreach my $Font(<*>)
{
push @Fonts, $Font;# You did say list didn't you?
}



Howzat?

Just in

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


List Installed Font Names?

2006-03-13 Thread Steve Green
Can anyone suggest a way to make a list of the names of the fonts 
installed on a Windows system? -- Thanks

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


Re: Driving a POS printer from Perl

2006-03-13 Thread Foo Ji-Haw

David Ressler wrote:

Thanks for the start.

I managed to get Win32::SerialPort to wake up the printer but it's printing
gibberish. I'm setting it to the same baud rate, etc., as the (functioning)
"Generic / Text" printer that I set up using the Windows "Add Printer".

Do you have any code snippits that would suggest things to try? The
documentation has way too much information for me to comprehend. I'm using the
module in another application to drive a modem and it works fine with only two
lines of code. Is this more complicated?
  
Check your parity and bit length. There is a DIP switch that determines 
whether it's 8-bit or 7, even parity or odd. Maybe you can post your 
working code for the community to inspect.

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