RE: HTTP::Date?

[Tobias Hoellrich]

It's part of the libwww-perl bundle. try:

ppm install libwww-perl

Hope this helps
  Tobias



> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On 
> Behalf Of Peter A. Peterson II
> Sent: Wednesday, September 10, 2003 3:18 PM
> To: [EMAIL PROTECTED]
> Subject: HTTP::Date?
> 
> 
> Ok, I'm not an idiot, but I'm really confused
> 
> ASPN talks about the module HTTP::Date, and I have used it in
> a script, but I can't find it in ppm anywhere.
> 
> Does anyone know where this module is to be found?
> 
> Peter
> 
> --
> Peter A. Peterson II, technician and musician.
>  ---=[ http://tastytronic.net/~pedro/ ]=--- 
> ___
> Perl-Win32-Users mailing list 
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> 

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

HTTP::Date?

[Peter A. Peterson II]

Ok, I'm not an idiot, but I'm really confused

ASPN talks about the module HTTP::Date, and I have used it in a
script, but I can't find it in ppm anywhere.

Does anyone know where this module is to be found?

Peter

-- 
Peter A. Peterson II, technician and musician.
 ---=[ http://tastytronic.net/~pedro/ ]=--- 
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: Moving with File::Copy between Drives

[Jan Dubois]

On Wed, 10 Sep 2003 13:33:40 -0700, "Ford, Graham"
<[EMAIL PROTECTED]> wrote:

>I am getting the error 'Permission denied at test.pl line 3' when moving a file 
>between two drive volumes under WIndows 2000.  The script is running with 
>administrator permissions.  The script is short:
>
>_start
>
>use File::Copy;
>move('e:/test','d:/test');
>
>end
>
>This works fine if I don't move between drives.  Please help me.

move() is just a fancy wrapper for rename().  And you cannot rename files
between drives; you have to copy them and then unlink() the old one.

Cheers,
-Jan

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Moving with File::Copy between Drives

[Ford, Graham]

I am getting the error 'Permission denied at test.pl line 3' when moving a file 
between two drive volumes under WIndows 2000.  The script is running with 
administrator permissions.  The script is short:

_start

use File::Copy;
move('e:/test','d:/test');

end

This works fine if I don't move between drives.  Please help me.

Thank you,
Graham Ford


___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: Problem with if statement

[Malachy]

The bracketing is incorrect

You have...

If($FORM{membername ne " "}) {

It should be...

If($FORM{membername} ne " ") {

One of those mind tricks...

-Original Message-
From: upscope [mailto:[EMAIL PROTECTED] 
Sent: Wednesday, September 10, 2003 12:04 PM
To: Perl Win32 users
Subject: Problem with if statement


When I execute the following code I get an error that says there is a
syntax error on line 21 near } ). Can anyone see what I'm missing? The
sleep in  the print in the else statement and the sleep are just for
testing. I'm trying to check for a blank membername field, the else
statements will check the other fields. I also get same error with the
ne " " not in the if statement.


#!c:\perl\bin\perl

print "Content-type:text/html\n\n";

#Parse the form data
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/,$buffer);
foreach $pair (@pairs){
 ($name, $value) = split(/=/, $pair);
 $value =~ tr/+/ /;
 $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
 $value =~ s/\n/ /g;
 $value =~ s/\r/ /g;
 $value =~ s/\cM/ /g;
 $name =~ tr/+/ /;
 $name =~ tr/_/ /;
 $FORM{$name} = $value;
 }
$blank= " ";

If($FORM{membername ne " "}) {
 $membername = $FORM{membername};
 }
else  {
 print "stop\n";
}
sleep 60;

use DBI();

Thanks for your help in advance!
Upscope

This email scanned by Trendmicro Internet Security Beta Version11

___
Perl-Win32-Users mailing list [EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: Problem with if statement

[Peter C. Hugger]

It looks like a simple syntax error. You have a capital I in your if
statement. It should be all lower case.



PCH

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
upscope
Sent: Wednesday, September 10, 2003 1:04 PM
To: Perl Win32 users
Subject: Problem with if statement


When I execute the following code I get an error that says there is a syntax
error on line 21 near } ). Can anyone see what I'm missing?
The sleep in  the print in the else statement and the sleep are just for
testing. I'm trying to check for a blank membername field, the else
statements will check the other fields. I also get same error with the ne "
" not in the if statement.


#!c:\perl\bin\perl

print "Content-type:text/html\n\n";

#Parse the form data
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/,$buffer);
foreach $pair (@pairs){
 ($name, $value) = split(/=/, $pair);
 $value =~ tr/+/ /;
 $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
 $value =~ s/\n/ /g;
 $value =~ s/\r/ /g;
 $value =~ s/\cM/ /g;
 $name =~ tr/+/ /;
 $name =~ tr/_/ /;
 $FORM{$name} = $value;
 }
$blank= " ";

If($FORM{membername ne " "}) {
 $membername = $FORM{membername};
 }
else  {
 print "stop\n";
}
sleep 60;

use DBI();

Thanks for your help in advance!
Upscope

This email scanned by Trendmicro Internet Security Beta Version11

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: Problem with if statement

[eric-amick]

> If($FORM{membername ne " "}) {

if($FORM{membername} ne " ") {

--
Eric Amick
Columbia, MD
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: Problem with if statement

[Joseph Discenza]

upscope wrote, on Wednesday, September 10, 2003 1:04 PM
:  When I execute the following code I get an error that says there 
:  is a syntax
:  error on line 21 near } ). Can anyone see what I'm missing?

:  If($FORM{membername ne " "}) {

Try:

  if($FORM{membername} ne " ") {

Does that help any?

Joe

==
  Joseph P. Discenza, Sr. Programmer/Analyst
   mailto:[EMAIL PROTECTED]
 
  Carleton Inc.   http://www.carletoninc.com
  574.243.6040 ext. 300fax: 574.243.6060
 
Providing Financial Solutions and Compliance for over 30 Years
* Please note that our Area Code has changed to 574! *  




___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: Problem with if statement

[Dave Kazatsky]

The "if" statement shouldn't be
capitalized.  Give that a try.

Dave Kazatsky
Senior Middleware Administrator
W. (908) 575-6947
C. (973) 865-8106






upscope
<[EMAIL PROTECTED]>
Sent by:
[EMAIL PROTECTED]
09/10/2003 01:04 PM

        
        To:  
     "Perl Win32 users"
<[EMAIL PROTECTED]>
        cc:  
     
        Subject:  
     Problem with if statement



When I execute the following code I get an
error that says there is a syntax
error on line 21 near } ). Can anyone see what I'm missing?
The sleep in  the print in the else statement and the sleep are just
for
testing. I'm trying to check for a blank membername field, the else
statements will check the other fields. I also get same error with the ne
"
" not in the if statement.


#!c:\perl\bin\perl

print "Content-type:text/html\n\n";

#Parse the form data
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/,$buffer);
foreach $pair (@pairs){
 ($name, $value) = split(/=/, $pair);
 $value =~ tr/+/ /;
 $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
 $value =~ s/\n/ /g;
 $value =~ s/\r/ /g;
 $value =~ s/\cM/ /g;
 $name =~ tr/+/ /;
 $name =~ tr/_/ /;
 $FORM{$name} = $value;
 }
$blank= " ";

If($FORM{membername ne " "}) {
 $membername = $FORM{membername};
 }
else  {
 print "stop\n";
}
sleep 60;

use DBI();

Thanks for your help in advance!
Upscope

This email scanned by Trendmicro Internet Security Beta Version11

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs




The information contained in this message may be CONFIDENTIAL and is for
the intended addressee only.  Any unauthorized use, dissemination of the
information, or copying of this message is prohibited.  If you are not the
intended addressee, please notify the sender immediately and delete this
message.

RE: Problem with if statement

[Moon, John]

If($FORM{membername ne " "}) {
should read "if($FORM{membername} ne " ") {"  

If you "use CGI" you wouldn't need from "read ...
to line before $blank = " ";

use strict;
use CGI;
use vars qw(%FORM);
my $q=new CGI;
foreach ($q->param) {
$FORM{"$_"}=$q->param("$_");
}
$blank= " ";

If(exists($FORM{membername}) && $FORM{mmembername} ne " "}) {
 $membername = $FORM{membername};
 }
else  {
 print "stop\n";
}
sleep 60;

use DBI(); 
jwm

-Original Message-
From: upscope [mailto:[EMAIL PROTECTED]
Sent: September 10, 2003 13:04
To: Perl Win32 users
Subject: Problem with if statement


When I execute the following code I get an error that says there is a syntax
error on line 21 near } ). Can anyone see what I'm missing?
The sleep in  the print in the else statement and the sleep are just for
testing. I'm trying to check for a blank membername field, the else
statements will check the other fields. I also get same error with the ne "
" not in the if statement.


#!c:\perl\bin\perl

print "Content-type:text/html\n\n";

#Parse the form data
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/,$buffer);
foreach $pair (@pairs){
 ($name, $value) = split(/=/, $pair);
 $value =~ tr/+/ /;
 $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
 $value =~ s/\n/ /g;
 $value =~ s/\r/ /g;
 $value =~ s/\cM/ /g;
 $name =~ tr/+/ /;
 $name =~ tr/_/ /;
 $FORM{$name} = $value;
 }
$blank= " ";

If($FORM{membername ne " "}) {
 $membername = $FORM{membername};
 }
else  {
 print "stop\n";
}
sleep 60;

use DBI();

Thanks for your help in advance!
Upscope

This email scanned by Trendmicro Internet Security Beta Version11

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: Looking for Documentation and examples about Win32:NetAdmin f unctions

[Fish, David]

Hello Howard!   Do you know what ppm I
need to install for the lanman?  I tried lanman and win32-lanman with no success. 
Thanks for your help.

 



David
E. Fish

Property Operations

Systems Analyst  - Micros 3700

Marriott International, Inc

(301) 380-3331

[EMAIL PROTECTED]

 

This communication contains information from
Marriott International, Inc. that may be confidential. Except for personal use
by the intended recipient, or as expressly authorized by the sender, any person
who receives this information is prohibited from disclosing, copying,
distributing, and/or using it. If you have received this communication in
error, please immediately delete it and all copies, and promptly notify the
sender. Nothing in this communication is intended to operate as an electronic
signature under applicable law.



 

-Original Message-
From: Bullock, Howard A.
[mailto:[EMAIL PROTECTED] 
Sent: Tuesday, September 09, 2003
6:47 PM
To: Fish, David;
'[EMAIL PROTECTED]'
Subject: RE: Looking for
Documentation and examples about Win32:NetAdmin f unctions

 

I would recommend using
the Lanman module. Below is an code fragment that shows a user creation.

 

#

# Creates a new user

#

my $Password =
&GenWordPW([EMAIL PROTECTED]);

 

my $FullName =
$$DataRef{SurName};

$FullName .= ",
" . $$DataRef{GivenName} if $$DataRef{GivenName} ne "";

$FullName .= "
" . $$DataRef{MiddleName} if $$DataRef{MiddleName} ne "";

my $Flags =
(($$DataRef{UserFlags} & UF_ACCOUNTDISABLE) ? 515 : 513);

my $LogonHours =
($$DataRef{Hours} ? $$DataRef{Hours} : "" x
7);

my $Desc =
($$DataRef{Prefix} ? $$DataRef{Prefix} . "-" . $$DataRef{Description}
: $$DataRef{CompanyName});

 

if(Win32::Lanman::NetUserAdd($PDC,


{  'name' => uc($$DataRef{NewNTAccount}),

   
'password' => $Password,

   
'flags' => $Flags,

   
'home_dir' => $$DataRef{HomeShare},

   
'home_dir_drive' => $$DataRef{HomeDrive},

   
'script_path' => "corp\\corp-prd.bat",

   
'profile' => $$DataRef{Profile},

   
'full_name' => $FullName,

   
'comment' => $Desc,

   
'workstations' => $$DataRef{Workstations},

   
'logon_hours' => pack("b168", $LogonHours),

  
'acct_expires' => -1,

   
'password_expired' => 0}))

{

   
&UpdateDBwithPW($Password, $DataRef)

   
&ProcessGroups($CompanyID, $PDC, $DataRef, '')

}

else

{

    my
$Error;

    $^E =
$Error = Win32::Lanman::GetLastError();

    my
$text = "Error creating account: 
$$DataRef{NewNTDomain}\\$$DataRef{NewNTAccount}  $^E" ;

   
&LogText($LogFile, $text);

    #next
AcctRECORD if $Error != 2224;

}

 

 



Howard
A. Bullock

Global
IT Infrastructure

717-810-3584



 

-Original Message-
From: Fish, David
[mailto:[EMAIL PROTECTED] 
Sent: Tuesday, September 09, 2003
4:21 PM
To:
'[EMAIL PROTECTED]'
Subject: Looking for Documentation
and examples about Win32:NetAdmin funct ions

 

Hello!  I am trying to write a
script that will add local users a Windows 2k machines using the
Win32::NetAdmin.  The machines are setup as a work group.  In the
script below:  the GetUsers and UserGetAttributes display the data, but I
have been unsuccessful in using the CreateUser, GroupCreate and
GroupGetAttributes.  I have researched cpan and ActivePerl user guide
which started me in the right direction but not to completion.   Below
is the error I get from the other functions, and the test program I am using.

 

ERROR from UserCreate, GroupCreate
and GroupGetAttributes



UserCreate() failed: Overlapped I/O
operation is in progress at F:\David's Infor

mation\Perl Programs\NetAdminCheck.pl
line 23.

 

Perl Program

###

use Win32::NetAdmin qw(GetUsers
UserGetAttributes UserCreate GroupCreate);

 

my %hash;

 

GetUsers("",
"NORMAL", \%hash) or die "Get users() failed : $^E";

 

foreach (keys %hash) {

  print "$_ \n";

 
UserGetAttributes("", $_, $password, $passwordAge, $privilege, 

   
$homeDir, $comment, $flags, $scriptPath )

   
or die "UserGetAttributes() failed: $^E";

  print "password =
$password \n";

  print "passwordAge =
$passwordAge \n";

  print "privilege =
$privilege \n";

  print "homeDir =
$homeDir \n";

  print "comment =
$comment \n";

  print "flags = $flags
\n";

  print "scriptPath =
$scriptPath \n";

  print
"** \n";

  

}

 

UserCreate("","Charlie",
"Brown", "0", "1","","Did it
work?","","")

   
or die "UserCreate() failed: $^E";

#

 

Thanks for any assistance you can
provide.

 

David E. Fish

Property Operations

Systems Analyst  -
Micros 3700

Marriott Interna

Problem with if statement

[upscope]

When I execute the following code I get an error that says there is a syntax
error on line 21 near } ). Can anyone see what I'm missing?
The sleep in  the print in the else statement and the sleep are just for
testing. I'm trying to check for a blank membername field, the else
statements will check the other fields. I also get same error with the ne "
" not in the if statement.


#!c:\perl\bin\perl

print "Content-type:text/html\n\n";

#Parse the form data
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/,$buffer);
foreach $pair (@pairs){
 ($name, $value) = split(/=/, $pair);
 $value =~ tr/+/ /;
 $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
 $value =~ s/\n/ /g;
 $value =~ s/\r/ /g;
 $value =~ s/\cM/ /g;
 $name =~ tr/+/ /;
 $name =~ tr/_/ /;
 $FORM{$name} = $value;
 }
$blank= " ";

If($FORM{membername ne " "}) {
 $membername = $FORM{membername};
 }
else  {
 print "stop\n";
}
sleep 60;

use DBI();

Thanks for your help in advance!
Upscope

This email scanned by Trendmicro Internet Security Beta Version11

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: learn perl

[Moon, John]

All of the suggestion I saw where very goods ... I started with the "Llama"
book - Learning Perl, read and worked the examples, then started writing ...
not very good at first when I look back at some "old" code ... but it got
the job done As I coded more I found I had more questions and researched
and found various web sites with examples. I would download or peruse the
code until I got the answer I needed. Once I found these mailing lists,
which have been very helpful,  I read most posting and continue to learn
more.
 
I have also found that "one liners" from my command prompt return a lot of
information ... eg  >>perl -e "$a=1001;print $a%10;"  (not a very exciting
example but I hope you get the idea)... 
 
I have also found that "very specific" questions get a better response. (I
have ask some very dumb questions !) 
 
Perl has been very good for me and I have enjoyed and found (most) of the
people that reply to these list to be extremely helpful. Good luck with Perl
and I hope to hear from you with more questions ...
 
jwm

-Original Message-
From: Hamad alkhalaf [mailto:[EMAIL PROTECTED]
Sent: September 07, 2003 17:50
To: [EMAIL PROTECTED]
Subject: (no subject)


hi,
i was woundering if any one is willing to hellp me learn perl . 
am hopeing that some one will .
thank u
 



  _  

Do you Yahoo!?
Yahoo!  
SiteBuilder - Free, easy-to-use web site design software

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

RE: Win32::GUI::Label

[Eric Logeson]

Johan,
Your suggestion regarding the size being set properly was the problem.

Thanks
eric

> -Original Message-
> From: Johan Lindstrom [mailto:[EMAIL PROTECTED]
> Sent: Tuesday, September 09, 2003 5:20 PM
> To: [EMAIL PROTECTED]
> Subject: Re: Win32::GUI::Label
> 
> 
> At 15:39 2003-09-09 -0400, Eric Logeson wrote:
> >I have a block of text that I am trying display 
> >using  Win32::GUI::Label.  I can't get the text to wrap, in spite of 
> >wrapping being the default, I have tried "\n" and "\r\n".  
> If I maximize 
> >the window I see all the text on one line, does anybody know 
> how to get 
> >the text to wrap.  Or is there a better way to show text 
> using Win32::GUI?
> 
> I just tried and it works for me. The text wraps (as the 
> default says) 
> automatically, and a \n in the string yields a newline in the text.
> 
> I use Win32::GUI 0.0.558 and the 0.0.665 version works the same.
> 
> What version do yo use?
> 
> Could it be that you haven't set the size properly (too 
> wide)? What does 
> the code to build the Label look like?
> 
> 
> /J
> 
>  --  --- -- --  --  -- -  - -
> Johan LindströmSourcerer @ Boss Casinos [EMAIL PROTECTED]
> 
> Latest bookmark: "PerlMonks Tutorials"
> http://www.perlmonks.org/index.pl?node=Tutorials
> dmoz: /Computers/Programming/Languages/Perl/ 81
> 
> 
> ___
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> 

___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Re: Windows make environment

[Sisyphus]

Martin Bower wrote:
Can anyone tell me exactly what I need to create an environment in windows,
where I can compile my own modules ?
I can do this under Solaris fine, but am unsure of the programs I need in MS
to do this.
It needs to be opensource if possible, as I don't have a compiler installed.

Use the win32 port of gcc and dmake. You also need a perl built with 
those same tools. Imo, it's best to download the perl source from Active 
State. 'Readme.win32' (in the source distro) contains instructions for 
building perl with gcc and dmake. I used gcc-2.95.2 and it was fairly 
trivial to build perl in the cmd.exe shell. If you're using Win95 or 98 
you won't have the cmd shell and it might be necessary to find an 
alternative to the command.com shell  not sure about that.

If you have the MSVC compiler (which includes nmake) you can use it to 
build your modules with an ActiveState-built perl.

Cheers,
Rob
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Windows make environment

[Martin Bower]

Can anyone tell me exactly what I need to create an environment in windows,
where I can compile my own modules ?
I can do this under Solaris fine, but am unsure of the programs I need in MS
to do this.

It needs to be opensource if possible, as I don't have a compiler installed.

Cheers

Martin
**
The information in this document, including any attachments or subsequent 
correspondence originating from this email address ("email"), is confidential 
and may be legally privileged. It is intended solely for the addressee.  
However, it may be intercepted by the system controller at Bankgesellschaft 
Berlin AG for the purposes of monitoring communications relevant to the system 
controller's business.  Access to this email by anyone else is unauthorised.

If you have received this email in error, please notify the Sender immediately 
by telephone. Please also delete this email from your computer.

Any form of reproduction, dissemination, copying, disclosure, modification, 
distribution or publication of this email is prohibited without the prior 
consent of Bankgesellschaft Berlin AG. If you are not the intended recipient, 
any action taken or omitted to be taken in reliance of this email is strictly 
prohibited and may be unlawful.  Bankgesellschaft Berlin AG accepts no 
liability for the consequences of any person acting, or refraining from action 
in reliance of this email
**
___
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

eventlogs

[pineau]

Hi all!!!

I’m running a script that lists error and
warnings eventlogs… it works perfectly on my machine, but on remote
machines, it reads only some logs a bit randomly and not all…

Could you find a reason why???

Cordialement,

--

Jean-Christophe
PINEAU

Ingénieur
réseaux

[EMAIL PROTECTED]