recursive deletion

2002-07-24 Thread Jason Hemak 

I'm trying to delete a user's home directory, and all the files and folders
it contains.  I know there are many ways to do this with perl, but what
would you consider to be the most perl-ish.  (For example, I wouldn't
consider a call to deltree to be very perl-ish).

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

Re: (was Re: win32 and win32::Lanman conflicting?)

2002-07-15 Thread Jason Hemak 

Hey Jan (and anyone else with thoughts),

So I did what you said.  Completely uninstalled activeperl, removed the
Perl tree, and then reinstalled activeperl (5.6.1 build 633) and lanman
(1.0.9.2).  I still get the mess at the end of this e-mail.  My program
consists of only this much code:

#! perl -w

use strict;
use diagnostics;

use Win32;
use Win32::Lanman;


Do you have any other thoughts?

Thanks…
Jason


Here’s the gook:

Constant subroutine DACL_SECURITY_INFORMATION redefined at
C:/Perl/lib/Exporter.
pm line 57.
Exporter::import('NET_INFO_DESCRIPTION', 'NET_STATUS_DESCRIPTION',
'SERV
ICE_CONTROL_DESCRIPTIONS', 'SERVICE_STATE_DESCRIPTIONS',
'SERVICE_CONTROLS', 'SE
RVICE_START_TYPES', 'SERVICE_ERROR_TYPES', 'SC_FAILURE_ACTIONS', ...)
called at
C:\Perl\scripts\testprog.pl line 7
main::BEGIN() called at C:/Perl/site/lib/Win32/Lanman.pm line 7
eval {...} called at C:/Perl/site/lib/Win32/Lanman.pm line 7
Prototype mismatch: sub main::DACL_SECURITY_INFORMATION () vs none at
C:/Perl/li
b/Exporter.pm line 57.
Exporter::import('NET_INFO_DESCRIPTION', 'NET_STATUS_DESCRIPTION',
'SERV
ICE_CONTROL_DESCRIPTIONS', 'SERVICE_STATE_DESCRIPTIONS',
'SERVICE_CONTROLS', 'SE
RVICE_START_TYPES', 'SERVICE_ERROR_TYPES', 'SC_FAILURE_ACTIONS', ...)
called at
C:\Perl\scripts\testprog.pl line 7
main::BEGIN() called at C:/Perl/site/lib/Win32/Lanman.pm line 7
eval {...} called at C:/Perl/site/lib/Win32/Lanman.pm line 7
Constant subroutine GROUP_SECURITY_INFORMATION redefined at
C:/Perl/lib/Exporter
.pm line 57.
Exporter::import('NET_INFO_DESCRIPTION', 'NET_STATUS_DESCRIPTION',
'SERV
ICE_CONTROL_DESCRIPTIONS', 'SERVICE_STATE_DESCRIPTIONS',
'SERVICE_CONTROLS', 'SE
RVICE_START_TYPES', 'SERVICE_ERROR_TYPES', 'SC_FAILURE_ACTIONS', ...)
called at
C:\Perl\scripts\testprog.pl line 7
main::BEGIN() called at C:/Perl/site/lib/Win32/Lanman.pm line 7
eval {...} called at C:/Perl/site/lib/Win32/Lanman.pm line 7
Prototype mismatch: sub main::GROUP_SECURITY_INFORMATION () vs none at
C:/Perl/l
ib/Exporter.pm line 57.
Exporter::import('NET_INFO_DESCRIPTION', 'NET_STATUS_DESCRIPTION',
'SERV
ICE_CONTROL_DESCRIPTIONS', 'SERVICE_STATE_DESCRIPTIONS',
'SERVICE_CONTROLS', 'SE
RVICE_START_TYPES', 'SERVICE_ERROR_TYPES', 'SC_FAILURE_ACTIONS', ...)
called at
C:\Perl\scripts\testprog.pl line 7
main::BEGIN() called at C:/Perl/site/lib/Win32/Lanman.pm line 7
eval {...} called at C:/Perl/site/lib/Win32/Lanman.pm line 7
Constant subroutine OWNER_SECURITY_INFORMATION redefined at
C:/Perl/lib/Exporter
.pm line 57.
Exporter::import('NET_INFO_DESCRIPTION', 'NET_STATUS_DESCRIPTION',
'SERV
ICE_CONTROL_DESCRIPTIONS', 'SERVICE_STATE_DESCRIPTIONS',
'SERVICE_CONTROLS', 'SE
RVICE_START_TYPES', 'SERVICE_ERROR_TYPES', 'SC_FAILURE_ACTIONS', ...)
called at
C:\Perl\scripts\testprog.pl line 7
main::BEGIN() called at C:/Perl/site/lib/Win32/Lanman.pm line 7
eval {...} called at C:/Perl/site/lib/Win32/Lanman.pm line 7
Prototype mismatch: sub main::OWNER_SECURITY_INFORMATION () vs none at
C:/Perl/l
ib/Exporter.pm line 57.
Exporter::import('NET_INFO_DESCRIPTION', 'NET_STATUS_DESCRIPTION',
'SERV
ICE_CONTROL_DESCRIPTIONS', 'SERVICE_STATE_DESCRIPTIONS',
'SERVICE_CONTROLS', 'SE
RVICE_START_TYPES', 'SERVICE_ERROR_TYPES', 'SC_FAILURE_ACTIONS', ...)
called at
C:\Perl\scripts\testprog.pl line 7
main::BEGIN() called at C:/Perl/site/lib/Win32/Lanman.pm line 7
eval {...} called at C:/Perl/site/lib/Win32/Lanman.pm line 7
Constant subroutine SACL_SECURITY_INFORMATION redefined at
C:/Perl/lib/Exporter.
pm line 57.
Exporter::import('NET_INFO_DESCRIPTION', 'NET_STATUS_DESCRIPTION',
'SERV
ICE_CONTROL_DESCRIPTIONS', 'SERVICE_STATE_DESCRIPTIONS',
'SERVICE_CONTROLS', 'SE
RVICE_START_TYPES', 'SERVICE_ERROR_TYPES', 'SC_FAILURE_ACTIONS', ...)
called at
C:\Perl\scripts\testprog.pl line 7
main::BEGIN() called at C:/Perl/site/lib/Win32/Lanman.pm line 7
eval {...} called at C:/Perl/site/lib/Win32/Lanman.pm line 7
Prototype mismatch: sub main::SACL_SECURITY_INFORMATION () vs none at
C:/Perl/li
b/Exporter.pm line 57.
Exporter::import('NET_INFO_DESCRIPTION', 'NET_STATUS_DESCRIPTION',
'SERV
ICE_CONTROL_DESCRIPTIONS', 'SERVICE_STATE_DESCRIPTIONS',
'SERVICE_CONTROLS', 'SE
RVICE_START_TYPES', 'SERVICE_ERROR_TYPES', 'SC_FAILURE_ACTIONS', ...)
called at
C:\Perl\scripts\testprog.pl line 7
main::BEGIN() called at C:/Perl/site/lib/Win32/Lanman.pm line 7
eval {...} called at C:/Perl/site/lib/Win32/Lanman.pm line 7

-Original Message-
From: Jan Dubois [mailto:[EMAIL PROTECTED]]
Sent: Monday, July 15, 2002 6:32 PM
To: Jason Hemak
Cc: [EMAIL PROTECTED]
Subject: Re: (was Re: win32 and win32::Lanman conflicting?)

On Mon, 15 Jul 2002 22:22:42 GMT, Jason Hemak [EMAIL PROTECTED]
wrote:

Hi Jason,

Well now i'm more confused about my original problem.

If you need to use Win32 to use all of that functionality, how do you use
both

mapping drive/creating home directories...

2002-07-12 Thread Jason Hemak 

Being new to Perl, I’m curious as to what is considered the most “perlized”
method for connecting to a share on a windows system and then being able to
create directories and share those newly created directories.

While I could imagine perl simply making use of “net use” and “net share”
and the like, I have a feeling there might be an even nicer method…

Thanks…

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