RE: urgent help required

[Petr Smejkal]

It looks more like run-time error from HTML::Parser.
Are you sure that the content of your client's page is the same as your
localhost page?

-- Petr Smejkal

> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED]]On Behalf
> Of Vishal Madan
> Sent: Wednesday, March 14, 2001 3:42 PM
> To: 'Peter Eisengrein'
> Cc: [EMAIL PROTECTED]
> Subject: RE: urgent help required
>
>
> thanks a lot for prompt response
> here is the change
> in the given programe there was a varibale
> my($testUrl)="http://www.domain.com/sample/../.."
> i changed it to my url as
> my($testUrl)="http://127.0.0.1/sample/../.."
> then i get this error
>
> regards
> Vishal
>
> -Original Message-
> From: Peter Eisengrein [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, March 14, 2001 9:41 AM
> To: 'Vishal Madan'; [EMAIL PROTECTED]
> Subject: RE: urgent help required
>
>
> it would be helpful if you show the change you made.
>
> -Original Message-
> From: Vishal Madan [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, March 14, 2001 9:11 AM
> To: [EMAIL PROTECTED]
> Subject: urgent help required
>
>
> Hi,
>I am new to world of perl programming. I got a perl programme from
> client. when i made some small change to it and tried to compile
> it, it gave
> a error " element not found at line ... in parser.pm".  i tried all the
> possible things but compile error is still there.
> any help is highly appericiated
> Regards
> Vishal
>
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
>
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

RE: urgent help required

[Vishal Madan]

thanks for prompt response.

1. The problem goes away if I put the old value back. I am able to compile
it .
2. My requirement is that I have to use this localhost address (127.0.0.1)

hope to hear from u soon
thanks again
Regards
Vishal

-Original Message-
From: Cornish, Merrill [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, March 14, 2001 10:02 AM
To: Vishal Madan
Cc: [EMAIL PROTECTED]
Subject: RE: urgent help required


First question:  If you put the value back to what it was, does the problem
go away?  This will verify that THIS is the change that actually caused the
problem.

Second question:  You switched to the loopback address.  Have you tried a
real host name to see of the special-case loop back is causing the problem?

Merrill

> -Original Message-
> From: Vishal Madan [SMTP:[EMAIL PROTECTED]]
> Sent: Wednesday, March 14, 2001 8:42 AM
> To:   'Peter Eisengrein'
> Cc:   [EMAIL PROTECTED]
> Subject:  RE: urgent help required
>
> thanks a lot for prompt response
> here is the change
> in the given programe there was a varibale
> my($testUrl)="http://www.domain.com/sample/../.."
> i changed it to my url as
> my($testUrl)="http://127.0.0.1/sample/../.."
> then i get this error
>
> regards
> Vishal
>
> -Original Message-
> From: Peter Eisengrein [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, March 14, 2001 9:41 AM
> To: 'Vishal Madan'; [EMAIL PROTECTED]
> Subject: RE: urgent help required
>
>
> it would be helpful if you show the change you made.
>
> -Original Message-
> From: Vishal Madan [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, March 14, 2001 9:11 AM
> To: [EMAIL PROTECTED]
> Subject: urgent help required
>
>
> Hi,
>I am new to world of perl programming. I got a perl programme from
> client. when i made some small change to it and tried to compile it, it
> gave
> a error " element not found at line ... in parser.pm".  i tried all the
> possible things but compile error is still there.
> any help is highly appericiated
> Regards
> Vishal
>
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
>
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

Compress::Zlib vs PKZip

[Cornish, Merrill]

The Compress::Zlib module documentation implies that it can handle .ZIP
files.  However, when I ran a test using it to unzip files compressed by
PKZip 2.70 in all five compression levels, the module returned -3, Data
Error.

I can use Zlib to decompress gzip files.

The module is dated 1998 (old by Internet standards).  Is there perhaps a
version mismatch problem between the module and PKZip 2.70?

Merrill
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

RE: urgent help required

[Cornish, Merrill]

OK, the next test is to switch it to a different IP address to see if it's
the number-dot-number-dot-number-dot-number format that is creating the
problem rather than 127.0.0.1 itself.

Merrill

> -Original Message-
> From: Vishal Madan [SMTP:[EMAIL PROTECTED]]
> Sent: Wednesday, March 14, 2001 8:59 AM
> To:   'Cornish, Merrill'
> Cc:   [EMAIL PROTECTED]
> Subject:  RE: urgent help required
> 
> thanks for prompt response.
> 
> 1. The problem goes away if I put the old value back. I am able to compile
> it .
> 2. My requirement is that I have to use this localhost address (127.0.0.1)
> 
> hope to hear from u soon
> thanks again
> Regards
> Vishal
> 
> -Original Message-
> From: Cornish, Merrill [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, March 14, 2001 10:02 AM
> To: Vishal Madan
> Cc: [EMAIL PROTECTED]
> Subject: RE: urgent help required
> 
> 
> First question:  If you put the value back to what it was, does the
> problem
> go away?  This will verify that THIS is the change that actually caused
> the
> problem.
> 
> Second question:  You switched to the loopback address.  Have you tried a
> real host name to see of the special-case loop back is causing the
> problem?
> 
> Merrill
> 
> > -Original Message-
> > From:   Vishal Madan [SMTP:[EMAIL PROTECTED]]
> > Sent:   Wednesday, March 14, 2001 8:42 AM
> > To: 'Peter Eisengrein'
> > Cc: [EMAIL PROTECTED]
> > Subject:RE: urgent help required
> >
> > thanks a lot for prompt response
> > here is the change
> > in the given programe there was a varibale
> > my($testUrl)="http://www.domain.com/sample/../.."
> > i changed it to my url as
> > my($testUrl)="http://127.0.0.1/sample/../.."
> > then i get this error
> >
> > regards
> > Vishal
> >
> > -Original Message-
> > From: Peter Eisengrein [mailto:[EMAIL PROTECTED]]
> > Sent: Wednesday, March 14, 2001 9:41 AM
> > To: 'Vishal Madan'; [EMAIL PROTECTED]
> > Subject: RE: urgent help required
> >
> >
> > it would be helpful if you show the change you made.
> >
> > -Original Message-
> > From: Vishal Madan [mailto:[EMAIL PROTECTED]]
> > Sent: Wednesday, March 14, 2001 9:11 AM
> > To: [EMAIL PROTECTED]
> > Subject: urgent help required
> >
> >
> > Hi,
> >I am new to world of perl programming. I got a perl programme
> from
> > client. when i made some small change to it and tried to compile it, it
> > gave
> > a error " element not found at line ... in parser.pm".  i tried all the
> > possible things but compile error is still there.
> > any help is highly appericiated
> > Regards
> > Vishal
> >
> > ___
> > Perl-Win32-Users mailing list
> > [EMAIL PROTECTED]
> > http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
> >
> > ___
> > Perl-Win32-Users mailing list
> > [EMAIL PROTECTED]
> > http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

RE: urgent help required

[Vishal Madan]

if i switch it to different ip address then too this problem is there

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Cornish, Merrill
Sent: Wednesday, March 14, 2001 10:10 AM
To: Vishal Madan
Cc: [EMAIL PROTECTED]
Subject: RE: urgent help required


OK, the next test is to switch it to a different IP address to see if it's
the number-dot-number-dot-number-dot-number format that is creating the
problem rather than 127.0.0.1 itself.

Merrill

> -Original Message-
> From: Vishal Madan [SMTP:[EMAIL PROTECTED]]
> Sent: Wednesday, March 14, 2001 8:59 AM
> To:   'Cornish, Merrill'
> Cc:   [EMAIL PROTECTED]
> Subject:  RE: urgent help required
>
> thanks for prompt response.
>
> 1. The problem goes away if I put the old value back. I am able to compile
> it .
> 2. My requirement is that I have to use this localhost address (127.0.0.1)
>
> hope to hear from u soon
> thanks again
> Regards
> Vishal
>
> -Original Message-
> From: Cornish, Merrill [mailto:[EMAIL PROTECTED]]
> Sent: Wednesday, March 14, 2001 10:02 AM
> To: Vishal Madan
> Cc: [EMAIL PROTECTED]
> Subject: RE: urgent help required
>
>
> First question:  If you put the value back to what it was, does the
> problem
> go away?  This will verify that THIS is the change that actually caused
> the
> problem.
>
> Second question:  You switched to the loopback address.  Have you tried a
> real host name to see of the special-case loop back is causing the
> problem?
>
> Merrill
>
> > -Original Message-
> > From:   Vishal Madan [SMTP:[EMAIL PROTECTED]]
> > Sent:   Wednesday, March 14, 2001 8:42 AM
> > To: 'Peter Eisengrein'
> > Cc: [EMAIL PROTECTED]
> > Subject:RE: urgent help required
> >
> > thanks a lot for prompt response
> > here is the change
> > in the given programe there was a varibale
> > my($testUrl)="http://www.domain.com/sample/../.."
> > i changed it to my url as
> > my($testUrl)="http://127.0.0.1/sample/../.."
> > then i get this error
> >
> > regards
> > Vishal
> >
> > -Original Message-
> > From: Peter Eisengrein [mailto:[EMAIL PROTECTED]]
> > Sent: Wednesday, March 14, 2001 9:41 AM
> > To: 'Vishal Madan'; [EMAIL PROTECTED]
> > Subject: RE: urgent help required
> >
> >
> > it would be helpful if you show the change you made.
> >
> > -Original Message-
> > From: Vishal Madan [mailto:[EMAIL PROTECTED]]
> > Sent: Wednesday, March 14, 2001 9:11 AM
> > To: [EMAIL PROTECTED]
> > Subject: urgent help required
> >
> >
> > Hi,
> >I am new to world of perl programming. I got a perl programme
> from
> > client. when i made some small change to it and tried to compile it, it
> > gave
> > a error " element not found at line ... in parser.pm".  i tried all the
> > possible things but compile error is still there.
> > any help is highly appericiated
> > Regards
> > Vishal
> >
> > ___
> > Perl-Win32-Users mailing list
> > [EMAIL PROTECTED]
> > http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
> >
> > ___
> > Perl-Win32-Users mailing list
> > [EMAIL PROTECTED]
> > http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

RE: urgent help required

[Jan Matejka]

Try using symbolic name

localhost

instead of IP address.

127.0.0.1

MaT

>-Original Message-
>From: [EMAIL PROTECTED] 
>[mailto:[EMAIL PROTECTED]]On 
>Behalf Of Vishal Madan
>Sent: Wednesday, March 14, 2001 3:11 PM
>To: [EMAIL PROTECTED]
>Subject: urgent help required
>
>
>Hi,
>   I am new to world of perl programming. I got a perl 
>programme from
>client. when i made some small change to it and tried to 
>compile it, it gave
>a error " element not found at line ... in parser.pm".  i tried all the
>possible things but compile error is still there.
>any help is highly appericiated
>Regards
>Vishal
>
>___
>Perl-Win32-Users mailing list
>[EMAIL PROTECTED]
>http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
>

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

RE: urgent help required

[Bellenger, Bruno (Paris)]

Or for that matter, any name that resolves to your machine's IP address.
Create a local HOST file entry to that end if necessary.

_
Bruno Bellenger
Sr. Network/Systems Administrator 


-Original Message-
From:   Jan Matejka [SMTP:[EMAIL PROTECTED]]
Sent:   mercredi 14 mars 2001 16:58
To: Perl-Win32-Users Konference (E-mail)
Subject:RE: urgent help required

Try using symbolic name

localhost

instead of IP address.

127.0.0.1

MaT

>-Original Message-
>From: [EMAIL PROTECTED] 
>[mailto:[EMAIL PROTECTED]]On 
>Behalf Of Vishal Madan
>Sent: Wednesday, March 14, 2001 3:11 PM
>To: [EMAIL PROTECTED]
>Subject: urgent help required
>
>
>Hi,
>   I am new to world of perl programming. I got a perl 
>programme from
>client. when i made some small change to it and tried to 
>compile it, it gave
>a error " element not found at line ... in parser.pm".  i tried all
the
>possible things but compile error is still there.
>any help is highly appericiated
>Regards
>Vishal
>
>___
>Perl-Win32-Users mailing list
>[EMAIL PROTECTED]
>http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
>

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

Problem with $reg->Load

[Bullock, Howard A.]

Win32::Registry 
Tweak version 0.00.26. 
[EMAIL PROTECTED] 

The following code works sporadically. It seems to fail more than it works.
When it fails, $Result, $^E, and $! all appear to be null. The variables
$OldSid and $ProfileImagePath contain valid data. Can anyone tell me how to
better trouble this situation?


use Win32::Perms;
use Win32::Registry;
use Win32::Lanman;
use strict;

my $Result = $HKLM->Load($OldSid, "$ProfileImagePath\\NTuser.DAT",
REG_LOADTEMPORARY);
print "Result of load op: \'$Result\' \'$!\' \'$^E\'\n";
print "$ProfileImagePath\\NTuser.DAT, $OldSid\n";
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

Literal Tokens

[Dirk Bremer]

Would someone explain  the __FILE__ and __LINE__ literal tokens? The camel book say 
very little concerning them. What would you use
them for?

Dirk Bremer - Systems Programmer II - AMS Department - NISC
636-922-9158 ext. 652 fax 636-447-4471




___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

Help with Regexp

[Vinicius Alves]

Hi all...

I´m using an HTML template to put the values of a database in the values of
the fields. I´ve been tying to do that by setting the field value:
$variable, to that when I call

while (){
print;
}

the html code  shows up, when what I
want is .

So I need a regexp that would look for

s/value="$(wildcard)"/value="$variable_with_same_name_as_wildcard/g

one I tried is

s/value="$(*)"/value="$main::$1"/g;

but I get an error: "/value="$(*)"/: ?+*{} follows nothing in regexp at
c:\mydir\mycode line 61"

Can anyone help me out?

Vinicius Alves
Prosites - Soluções em Internet
Webmaster

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

Re: Using Kermit or another protocol with Perl .........

[Ronald W. Heiby]

Any reason why you can't just use the Kermit software and its own
built-in scripting language?



Ron.


___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

RE: Literal Tokens

[Rubinow, Larry]

Dirk Bremer wrote:

> Would someone explain  the __FILE__ and __LINE__ literal 
> tokens? The camel book say very little concerning them. What 
> would you use
> them for?

open IN, "infile.txt" or die "Error opening file at module " . __FILE__ . ",
line " . __LINE__ . ": $!";
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

RE: Literal Tokens

[Vishal Madan]

Two special literals  __LINE__ and __FILE__, which represent the current
line number and filename at that point in your program
Vishal
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]On Behalf Of
Dirk Bremer
Sent: Wednesday, March 14, 2001 2:02 PM
To: perl-win32-users
Subject: Literal Tokens


Would someone explain  the __FILE__ and __LINE__ literal tokens? The camel
book say very little concerning them. What would you use
them for?

Dirk Bremer - Systems Programmer II - AMS Department - NISC
636-922-9158 ext. 652 fax 636-447-4471




___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

RE: Beginner's problems

[Toby Stuart]

incorrect!

chomp $word;

not

$word =~ chomp $word ;

> -Original Message-
> From: Bellenger, Bruno (Paris) [SMTP:[EMAIL PROTECTED]]
> Sent: 15/03/2001 12:29
> To:   [EMAIL PROTECTED]
> Subject:  RE: Beginner's problems
> 
> 
> To stay closer to your code, this works : 
> 
> open(IN, "words.txt");
> while(){
> $word = $_ ;
> $word =~ chomp $word ;
> print "$word and $word\n";
>  }
> 
> 
> The way you did it assigned chomp's return code to $word, 
> not the content of $_
> 
> To avoid this, you must write 
> 
> $word =~ chomp $word ;
> and not 
> $word  =  chomp $word ;
> 
> 
> _
> Bruno Bellenger
> Sr. Network/Systems Administrator 
> 
>   -Original Message-
>   From:   BP Jonsson [SMTP:[EMAIL PROTECTED]]
>   Sent:   mercredi 14 mars 2001 14:03
>   To: [EMAIL PROTECTED]
>   Subject:Beginner's problems
> 
>   Hi,
> 
>   I'm a Perl beginner who has problems with things that according to
> the 
>   literature should be quite straightforward.  Suppose that I have
> this program:
> 
>open(IN, "words.txt");
>while(){
>$word = chomp;
>print "$word and $word\n";
>}
> 
>   If I the file "words.txt" contains the three lines
>fred
>barney
>dino
>   then this program should print out
>fred and fred
>barney and barney
>dino and dino
> 
>   But all I get is a single digit "1"!
> 
>   WTH is going on?
> 
>   TIA,
> 
>   /BP 8^)>
>   --
>   B.Philip Jonsson mailto:[EMAIL PROTECTED] (delete X)
>   
> 
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

Re: Mailman SUCKS !!!!!

[Jan Dubois]

On Mon, 12 Mar 2001 15:29:00 -0500, "Smith, Eric - WPAFB/YSXOI"
<[EMAIL PROTECTED]> wrote:

>This mailman listserve really sucks.

I tend to agree, but in this case MailMan is innocent.

>Please go back to good old reliable majordomo or even lyris.  At their
>worst, they were better than mailman.
>
>I have been on these lists since 1996 and this mailman is proving to be the
>worst.  In addition, am getting a very bad taste for Python from thei sucky
>mailman listeserve.
>
>This latest episode of getting hundreds of messages from last ummer and fall
>is ridiculous.  Yes, several of the second-go-around messages were
>conmplaints about mailman from the initial swap-over.

It looks like RoadRunner (mail.houston.rr.com) has been looping *very* old
mail back to the sender.  If you look at the headers they all contain
something like this:

| Received: from mail pickup service by mail.houston.rr.com with Microsoft SMTPSVC;
|Mon, 12 Mar 2001 09:43:50 -0600
| Received: from listserv.activestate.com ([199.60.48.6]) by mail.houston.rr.com  with 
|Microsoft SMTPSVC(5.5.1877.357.35);
|Wed, 7 Jun 2000 02:40:04 -0500

It seems to have stopped for now, so I don't think any further actions are
necessary.

If you experience problems with any ActiveState infrastructure (mailing
lists, web servers, FTP servers etc), please don't post to the mailing
lists but send email to one of the standard contact addresses (e.g.
[EMAIL PROTECTED]).  Otherwise it may not be noticed by the people
who are actually in a position to fix things. :-)

-Jan (just back in Vancouver from 2 weeks in good old Germany)

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

Chomp Issue

[Dirk Bremer]

Given the following code snippet:

{
my %Names = map {split /:/} ;
foreach (sort keys %Names) {print("$_:", chomp $Names{$_},"\n");}
}
__DATA__
 0:100 Record Id
 1:100 Type Of Service
 2:100 Account Number
 3:100 Capital Credit Number
 4:100 Membership Number
 5:100 Service Address
 6:100 Map Location
 7:100 Service Map Location
 8:100 Service Location
 9:100 Cycle Code
10:100 Type Of Bill Code

It returns:

 0:1
 1:1
 2:1
 3:1
 4:1
 5:1
 6:1
 7:1
 8:1
 9:1
10:0

If I take the chomp out, it prints fine, although the hash's value has "\n" in it. I 
would like to remove the "\n" from the hash
value, preferably by altering one of the two lines of code, rather than a bunch of new 
lines. Suggestions?

Dirk Bremer - Systems Programmer II - AMS Department - NISC
636-922-9158 ext. 652 fax 636-447-4471




___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

RE: Chomp Issue

[Doughty, Matt]

it is printing 1 because chomp returns 1 on success not the new scalar value. you can 
do the following...
{
my %Names = map {chomp;split /:/} ;
foreach (sort keys %Names) {print("$_:", chomp $Names{$_},"\n");}
}
that will strip off the  before mapping to the hash.

Matt

-Original Message-
From: Dirk Bremer [mailto:[EMAIL PROTECTED]]
Sent: 13"N3OEZ15"ú 8:04
To: perl-win32-users
Subject: Chomp Issue


Given the following code snippet:

{
my %Names = map {split /:/} ;
foreach (sort keys %Names) {print("$_:", chomp $Names{$_},"\n");}
}
__DATA__
 0:100 Record Id
 1:100 Type Of Service
 2:100 Account Number
 3:100 Capital Credit Number
 4:100 Membership Number
 5:100 Service Address
 6:100 Map Location
 7:100 Service Map Location
 8:100 Service Location
 9:100 Cycle Code
10:100 Type Of Bill Code

It returns:

 0:1
 1:1
 2:1
 3:1
 4:1
 5:1
 6:1
 7:1
 8:1
 9:1
10:0

If I take the chomp out, it prints fine, although the hash's value has "\n" in it. I 
would like to remove the "\n" from the hash
value, preferably by altering one of the two lines of code, rather than a bunch of new 
lines. Suggestions?

Dirk Bremer - Systems Programmer II - AMS Department - NISC
636-922-9158 ext. 652 fax 636-447-4471




___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

Getting description from Eventlog

[stanley . g . martin]

I have some Events in my Eventlog that are Informational entries but
don't print out the description.

Example:

Source => OtMan4
Length => 64
EventType => 4
Message =>
ClosingRecordNumber => 0
RecordNumber => 3231
Strings => *
Data => **f***s`*X***h***
***
Timewritten => 984545180
TimeGenerated => 984545180
Category => 0
User =>
EventID => 1610612740
Computer => KXFDE01

In this example there's no message and the strings only has a '*'.  If I
went right to the Eventlog on the system the description would read:

OTM closed.


Where is this information and why can't I get to it?

Stanley G. Martin
Midwest Consulting Group
Sprint Platform & Strategy Mgmt
913.315.3133
[EMAIL PROTECTED]

RE: Beautiful Code:RE: Perl MAPI attachment extraction script

[Jeremy Blonde]

Believe it or not but MSDN holds the best information for Win32 programming 
with Perl.  Once you get the hang of converting VB code to Perl code, it is 
quite easy to get things rolling.  That's what I had to do in order to 
figure out CDO and it's good/bad faults.

Since I sent that message (it was delayed a very long time), I have updated 
the Perl script quite a bit.  I can now delete attachments, ignore 
attachments, and I'm working on adding the ability to delete an entire 
message based on the subject line.  Obviously, these are not fool-proof but 
for our small company having the ability to do something like this is far 
greater than anyone losing an attachment or a e-mail message.

I've also been able to get the Public Folder scan working.

I'd be happy to send the updated Perl scripts (bear in mind it's still a 
work in progress) to anyone would like to take a look at it.

Thanks,
Jeremy Blonde

>From: "Koshy,Mathew,RHODES,Information 
>Services"<[EMAIL PROTECTED]>
>To: "'Jacob, Raymond A'" <[EMAIL PROTECTED]>,   Perl-Win32-Users 
>Mailing List <[EMAIL PROTECTED]>,   
>[EMAIL PROTECTED]
>Subject: RE: Beautiful Code:RE: Perl MAPI attachment extraction script
>Date: Tue, 13 Mar 2001 16:11:15 +1100
>MIME-Version: 1.0
>Received: from [209.17.183.249] by hotmail.com (3.2) with ESMTP id 
>MHotMailBC76F799D820F3ABD111B7F9F97A0; Mon Mar 12 21:13:52 2001
>Received: (qmail 20131 invoked by uid 506); 13 Mar 2001 05:13:07 -
>Received: from localhost (HELO shot.activestate.com) (127.0.0.1)  by 
>localhost with SMTP; 13 Mar 2001 05:13:07 -
>Received: (qmail 20022 invoked by uid 506); 13 Mar 2001 05:12:57 -
>Received: from espresso.activestate.com (HELO smtp1.ActiveState.com) 
>(192.168.2.150)  by listserv1.activestate.com with SMTP; 13 Mar 2001 
>05:12:57 -
>Received: from sydsmtp01.au.nestle.com ([159.12.14.115])by 
>smtp1.ActiveState.com (8.11.1/8.11.1) with ESMTP id f2D5CpU32309for 
><[EMAIL PROTECTED]>; Mon, 12 Mar 2001 21:12:53 
>-0800
>Received: from sydnav01 (159.12.14.116 [159.12.14.116]) by 
>sydsmtp01.au.nestle.com with SMTP (Microsoft Exchange Internet Mail Service 
>Version 5.5.2653.13)id G549TP5F; Tue, 13 Mar 2001 16:11:43 +1100
>Received: from sydcns01.cs.au.nestle.com ([159.12.18.164]) by sydnav01 
>(NAVIEG 2.1 bld 63) with SMTP id M2001031316110027189 ; Tue, 13 Mar 2001 
>16:11:00 +1100
>Received: by SYDCNS01 with Internet Mail Service (5.5.2653.19)id 
>; Tue, 13 Mar 2001 16:11:16 +1100
>From [EMAIL PROTECTED] Mon Mar 12 21:15:28 
>2001
>Return-Path: <[EMAIL PROTECTED]>
>Delivered-To: [EMAIL PROTECTED]
>Message-ID: 
>X-Mailer: Internet Mail Service (5.5.2653.19)
>X-Filtered-By: PerlMx makes it fast and easy.  See 
>http://www.ActiveState.com/Products/PerlMx/Header
>Sender: [EMAIL PROTECTED]
>Errors-To: [EMAIL PROTECTED]
>X-BeenThere: [EMAIL PROTECTED]
>X-Mailman-Version: 2.0
>Precedence: bulk
>List-Help: 
>
>List-Post: 
>List-Subscribe: 
>,
>List-Id: Discussions relating to ActivePerl on Win32 platforms 
>
>List-Unsubscribe: 
>,
>List-Archive: 
>
>David Roth's book on Win32 Perl Programming has some OLE chapters and once
>you get the hang of it, its pretty useful and works well.
>
>Regards
>
>Mathew Koshy
>
>
>-Original Message-
>From: Jacob, Raymond A [mailto:[EMAIL PROTECTED]]
>Sent: Tuesday, 13 March 2001 10:58
>To: Perl-Win32-Users Mailing List; [EMAIL PROTECTED]
>Subject: Beautiful Code:RE: Perl MAPI attachment extraction script
>
>
>Dear Jeremy:
>   I am newbie but I must congratulate you on some
>well written and documented code. You should
>get the "$50,000" contract". This leads me to another
>question: I have looked at the new book by
>active state and the Learning Perl on Win32. Yet
>neither of these books has applications that I am
>interested in such as MAPI attachment extraction,
>or controlling MS Internet Explorer or the Program
>that Jan wrote in the Perl Journal to download T-bill
>information, put it in a database and email through
>Lotus notes. Is anyone at active state or on the list aware
>or planning to write a book on using perl to integrate
>MS Office applications(Access,Excel,Word,Outlook,IE)
>into one perl application?
>
>Thank you,
>Raymond
>
>-Original Message-
>From: Jeremy Blonde [mailto:[EMAIL PROTECTED]]
>Sent: Friday, June 09, 2000 6:49 PM
>To: Perl-Win32-Users Mailing List; [EMAIL PROTECTED]
>Subject: Perl MAPI attachment extraction script
>
>
>Here's a Perl script that I wrote to extract e-mail attachments from a MS
>Exchange server and then scan them for viruses.
>
>Apparently, MS doesn't "really" support virus scanning the Ex

Re: Beautiful Code:RE: Perl MAPI attachment extraction script

[Jeremy Blonde]

Thanks!  So if anyone is looking for a Perl programmer who's been known to 
do the impossible, let me know, I'm looking for a job. ;-)

Jeremy Blonde

>Dear Jeremy:
>   I am newbie but I must congratulate you on some
>well written and documented code. You should
>get the "$50,000" contract". This leads me to another
>question: I have looked at the new book by
>active state and the Learning Perl on Win32. Yet
>neither of these books has applications that I am
>interested in such as MAPI attachment extraction,
>or controlling MS Internet Explorer or the Program
>that Jan wrote in the Perl Journal to download T-bill
>information, put it in a database and email through
>Lotus notes. Is anyone at active state or on the list aware
>or planning to write a book on using perl to integrate
>MS Office applications(Access,Excel,Word,Outlook,IE)
>into one perl application?
>
>Thank you,
>Raymond
>
>-Original Message-
>From: Jeremy Blonde [mailto:[EMAIL PROTECTED]]
>Sent: Friday, June 09, 2000 6:49 PM
>To: Perl-Win32-Users Mailing List; [EMAIL PROTECTED]
>Subject: Perl MAPI attachment extraction script
>
>
>Here's a Perl script that I wrote to extract e-mail attachments from a MS
>Exchange server and then scan them for viruses.
>
>Apparently, MS doesn't "really" support virus scanning the Exchange info
>store (although I don't work on Exchange servers, so I apologize if my
>terminology is incorrect).  We can't afford a $50,000 contract for a virus
>scanning server (and ONE year of updated signatures).  So we needed a way 
>to
>pull out the e-mail attachments from users mail and then scan them for
>viruses.  Currently we don't need to put them back, although I may work on
>that later.  I also don't have scanning Public Folders working (yet!).
>
>I use the CDO library to access the exchange mailbox and it's contents.
>You'll have to be on the lookout for any documentation in the script as 
>it's
>pretty sparse right now (if it even exists), but it's pretty easy to follow
>if you know how Exchange/CDO works.  Take a look at the OLE::Browser page 
>in
>the ActiveState documentation for more information.  Of course, I would be
>happy to answer any questions.
>
>I don't know if anyone would actually have a use for this or not, but I'm
>fairly new to Perl programming, so I'm really more interested in hearing
>your suggestions and/or comments about my code (I'm working on the
>documentation part).
>
>Here's the details:
>Basically, you pass the perl script the ini fle and from there it takes 
>off.
>It uses a list of mailboxes (mailboxlist.txt) and tries to logon on as each
>username listed and then starts extracting the attachments.
>
>The INI file requires the following keys.
>[Settings]
>Mailboxlist=c:\scan\mailboxlist.txt
>DownloadDir=c:\scan\download
>Files=*.doc;*.zip;
>Log=c:\scan\mailscan.log
>
>Mailboxlist=c:\scan\mailboxlist.txt - A text file listing the Exchange
>server and mailbox username. (SERVER,USERNAME)
>(We wanted to split the mailbox list up and have multiple sessions run.)
>
>DownloadDir=c:\scan\download - This is where the mailbox folders and
>attachments will be extracted to.
>
>Files=*.doc;*.zip; - These are the file types that will be searched for.
>
>Log=c:\scan\mailscan.log - Errors, successes, failures, etc. will be logged
>to this file.
>
>
>Jeremy
>[EMAIL PROTECTED]
>
>___
>Perl-Win32-Users mailing list
>[EMAIL PROTECTED]
>http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

_
Get your FREE download of MSN Explorer at http://explorer.msn.com

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

OLE Sorts in Excel

[Brad Currens]

Seems plenty of folks have asked for help in figuring
out how to sort in excel.  I have a similiar need, and
reviewed quite a bit of code but nothing seems to
work.  Has anyone had success in the area?  Here's a
sample program of what I'm working on.  In this sample
the spreadsheet has values only in column A.  I've
tried numeous variations and have yet to hit on
something that works:
---
use Win32;
use Win32::OLE 'with'; 

my $Class = "Excel.Application";

my $Excel = Win32::OLE->GetActiveObject($Class);
if (! $Excel) {
   $Excel = Win32::OLE->new($Class, \&QuitApp)
   || die "Could not create an OLE
'$Class' object";
}

$Excel->{Visible} = 1;

my $File = GetFileName();

# Open the Excel File and Create Reference
my $Workbook = $Excel->Workbooks->Open( $File );

# Set Active Worksheet and Create Reference
my $Worksheet = $Workbook->Worksheets(1);
with ( $Worksheet->Range("A1:A6")->{Sort},
   Key1 => $Worksheet->Range("A1"),
   Order1 => xlAscending );
#with ( $Range->{Sort},
#   Key1 => "A",
#   Order1 => xlAscending,
#   Header => xlNos,
#   OrderCustom => 1,
#   MatchCase => "False",
#   Orientation => xlTopToBottom ) ;

# Close It Up, 1 = Save on Close
$Excel->ActiveWorkbook->Close(1);
$Excel->Quit();
exit;
#
sub QuitApp {
   my($ComObject) = @_;
   print "Quitting " . $ComObject->{Name} . "\n";
   $ComObject->Quit();
}
#
sub GetFileName {

   my $File = $ARGV[0];
   my ($xit);

   if ( $File ) {
  return($File);
   }

   $xit = 0;
   until ($xit) {
  print "\nEnter Complete Path/Filename for Excel
Spreadsheet: ";
  $File = ;
  chomp $File;

  # Test to make sure the file exists.
  if ( ! (-e $File) ) {
 print "The file you have provided does not
exist.\n";
 redo;
  }

  # Test to make sure the file has a valid file
extension
  $_ = substr($File,(length($File) - 3), 3);
  if ( ! /xls/i) {
 print "The file you have provided has an
invalid extension.\n";
 redo;
  }
  $xit = 1;
   }
   return($File);   
}





__
Do You Yahoo!?
Yahoo! Auctions - Buy the things you want at great prices.
http://auctions.yahoo.com/
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

How Can I Move My ActivePerl Install?

[Gregory Sandoval]

Hello,

I have tried two times to install ActivePerl on my NT4 server and it works
great, except that it always installs at the root level of drive D.

What steps must I perform to ensure that my IIS server will work correctly
if I move the ActivePerl files? Are there registry entries that must be
changed to ensure that the suffix mappings are correctly configured when I
add new sites in IIS?

Thanks,
Gregory Sandoval
box2 technologies
[EMAIL PROTECTED]  /  650.938.8150

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

RE: How Can I Move My ActivePerl Install?

[Michael Marziani]

I believe that all you must do is change the PATH variable.

-Mike


-Original Message-
From: Gregory Sandoval [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, March 14, 2001 9:05 PM
To: [EMAIL PROTECTED]
Subject: How Can I Move My ActivePerl Install?


Hello,

I have tried two times to install ActivePerl on my NT4 server and it works
great, except that it always installs at the root level of drive D.

What steps must I perform to ensure that my IIS server will work correctly
if I move the ActivePerl files? Are there registry entries that must be
changed to ensure that the suffix mappings are correctly configured when I
add new sites in IIS?

Thanks,
Gregory Sandoval
box2 technologies
[EMAIL PROTECTED]  /  650.938.8150

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

Copying hash tree

[brianr]

Petr Smejkal writes:
 > I'm using quite large hash tree in my application and I need to make a copy
 > of the root hash key - the copy not the mirror.
 > 
 > $a{a}{b}{s} = '1';
 > $a{a}{c}{s} = '1';
 > 
 > $a{b} = $a{a};
 > 
 > $a{b}{b}{s} = '2'; # this line changes $a{a}{b}{s} too and that's what I
 > want to avoid
 > 
 > Could you reveal me the secret how to make a copy? (I don't want to go
 > through the first hash tree recursively making the second hash tree.)

I'm not entirely sure what you want, but if you are talking about deep
copying or cloning, then the Storable module can help with that. Its
available from the Activestate archive.

-- 
Brian Raven

There ain't nothin' in this world that's worth being a snot over.
 -- Larry Wall in <[EMAIL PROTECTED]>
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

RE: Q* how does one determine the owner of a file?

[David \"Sniper\" Rigaudiere]

You can use the Win32::Perms Module by Dave Roth,
you can get it at http://www.roth.net/perl/perms/


example :
===

use Win32::Perms;
use strict;

my $F = new Win32::Perms('c:\\toto.txt');
my $Owner = $F->Owner();
print $Owner;
$F->Close();


A+
David "Sniper" Rigaudiere
Paris Perl Mongueu(r|se)s => http://paris.pm.org


___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users