| Store | Cart

RE: reply for reply-requested

From: Jimmy Li <J...@ilux.com>
Fri, 23 Jun 2000 17:34:00 -0700
-----Original Message-----
From: perl...@listserv.ActiveState.com
[mailto:perl...@listserv.ActiveState.com]
Sent: None
To: perl...@listserv.ActiveState.com
Subject: Perl-Win32-Users digest, Vol 1 #35 - 34 msgs


Send Perl-Win32-Users mailing list submissions to
	perl...@listserv.ActiveState.com

To subscribe or unsubscribe via the World Wide Web, visit
	http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
or, via email, send a message with subject or body 'help' to
	perl...@listserv.ActiveState.com

You can reach the person managing the list at
	perl...@listserv.ActiveState.com

When replying, please edit your Subject line so it is more specific
than "Re: Contents of Perl-Win32-Users digest..."


Today's Topics:

  1. Oops, was: RE: is this a readdir() bug? (Bob)
  2. RE: How do I find the Exchange account linked to a given NT accou
 nt (Hogue, Jon T)
  3. RE: is this a readdir() bug? [WAS: RE: Perl-Win32-Users digest, V
 ol 1 #31 - 8 msgs] (Michael Donnelly)
  4. How to send a signal to a process? (Tushar, Kulkarni (GEL, MSX))
  5. Re: MakeMaker problems (Greg Thomas)
  6. RE: FTP->mdtm($file) (Tushar, Kulkarni (GEL, MSX))
  7. help needed (Peter Zhang)
  8. Re: FTP->mdtm($file) ($Bill Luebkert)
  9. HTTP download with resume? (Zoltan Celedes)
  10. how to email with attachment? (Tao Wei)
  11. OT (George Tagviashvili)
  12. Re: Crypt::SSLeay as PPM-module for Perl 5.6 (Joshua Chamas)
  13. Re: Help with services... (Paul Popour)
  14. Re: FTP->mdtm($file) (Ian D. Stewart)
  15. Re: Help with services... (Conrad Classen)
  16. RE: MakeMaker problems (Joe Schell)
  17. Re: help needed (Simon Oliver)
  18. Win32::AdminMisc::LogonAsUser not working. (ces...@theaerocorp.com)
  19. PPM Help (ces...@theaerocorp.com)
  20. LWP::UserAgent (Adam Stuckey)
  21. Need help with regex (Denis Pleic)
  22. RE: Perl Script Question (Joseph P. Discenza)
  23. LWP::UserAgent (Adam Stuckey)
  24. Re: FTP->mdtm($file) ($Bill Luebkert)
  25. Re: FTP->mdtm($file) (Ian D. Stewart)
  26. MS-DOS prompt problem on WIN95 (James W. Albrecht)
  27. Re: FTP->mdtm($file) ($Bill Luebkert)
  27. Re: FTP->mdtm($file) ($Bill Luebkert)
  28. Re: LWP::UserAgent (Grant Hopwood)
  29. RE: FTP->mdtm($file) (Tushar, Kulkarni (GEL, MSX))
  30. RE: how to email with attachment? (Michael Flanagan)
  31. Re: how to email with attachment? (Paul Popour)

--__--__--

Message: 1
Date: Thu, 22 Jun 2000 13:57:46 -0500 (CDT)
From: Bob <b...@interaccess.com>
To: "Rubinow, Larry" <Larr...@westgroup.com>
cc: perl...@listserv.ActiveState.com
Subject: Oops, was: RE: is this a readdir() bug?


Larry pointed out to me a case where 2 list context readdir's,
with an intervening rewinddir *is* the solution - detecting changes in a
directory, e.g.:

opendir DH, ".";
@content1 = readdir(DH);
print join("\n",@content1, "\n");
system("touch `date '+%Y%m%d%H%M%S'`");
rewinddir(DH);
@content1 = readdir(DH);
print join("\n",@content1, "\n");


shows the creation of the new file in the second print. (For non-UNIX
folks, system command used creates a file whose name is the
time in yyyymmddhhmmss format.)  


So I assumed to much about the original application, plus I was rude.
Sorry about that.

- Bob Niederman


--__--__--

Message: 2
From: "Hogue, Jon T" <John...@qwest.com>
To: "Hogue, Jon T" <John...@qwest.com>,
"'Andrew Bastien'"
<ABas...@teleworx.com>,
perl...@listserv.ActiveState.com
Subject: RE: How do I find the Exchange account linked to a given NT accou
nt
Date: Thu, 22 Jun 2000 14:41:15 -0400
charset="iso-8859-1"

nevermind. I figured out how to do what I wanted.

> -----Original Message-----> From: Hogue, Jon T [mailto:John...@qwest.com]> Sent: Thursday, June 22, 2000 11:51 AM> To: 'Andrew Bastien'; perl...@listserv.ActiveState.com> Subject: RE: How do I find the Exchange account linked to a given NT> accou nt> > > > > you can then use the ADsSID class from the ADSI SDK> > > How do you use the ADsSID class? I have ADS installed, and am > including the> `use win32::OLE` stuff.. > > is there something else I need to do to include this class?> _______________________________________________> Perl-Win32-Users mailing list> Perl...@listserv.ActiveState.com> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users> 

--__--__--

Message: 3
From: Michael Donnelly <mdon...@swapit.com>
To: "'Rubinow, Larry'" <Larr...@westgroup.com>, 'Bob'
<b...@interaccess.com>, perl...@listserv.ActiveState.com
Subject: RE: is this a readdir() bug? [WAS: RE: Perl-Win32-Users digest, V
ol 1 #31 - 8 msgs]
Date: Thu, 22 Jun 2000 15:17:46 -0400
charset="iso-8859-1"

> You must've been asleep at the wheel; discussions on this > topic have been> long and heated.  Let me quote a post from last year.  You > don't respect> either me or the list charter; maybe you'll respect the > author of this: Tom> Christiansen.

Wasn't this the list (well, wasn't the old "this" the list) that tchrist had
a bot monitoring and spanking people who did not format their messages
properly?

--__--__--

Message: 4
From: "Tushar, Kulkarni (GEL, MSX)" <Kulk...@Lighting.GE.com>
To: "'Perl Mailing list'" <Perl...@listserv.ActiveState.com>
Subject: How to send a signal to a process?
Date: Thu, 22 Jun 2000 18:44:22 -0400

Hi all,
	How can I send a signal to a process through another process in NT?
I have PID of that process.
	After receiving the signal I want to trap it and process it with my
own function. I tried to capture Ctrl+C and when I pressed Ctrl+C on DOS
window I could trap it (SIG{'INT'}). Now I want to send same signal through
another program.
	Can some one help me in this?

	Thanks in advance.

	I am attaching my code. This is just a dummy code. I want to send
signal to this process through another process.

my $i = 1;

sub Handle
{
	print "CTRL+C pressed \n";
	$i = 0;
	$OldH->(@_) if defined($OldH);
	$SIG{"INT"} = "Handle";
};

local $SIG{"INT"} = "Handle";

print "PID is : $$\n";

while ($i)
{ }

foreach $key (keys(%SIG))
{
	print "$key\n";
}

foreach $key (@signame)
{
	print "$key : \n";
}

$i = 1;

while ($i)
{ }

Tushar

--__--__--

Message: 5
From: Greg Thomas <Greg...@iname.com>
To: perl...@listserv.activestate.com
Subject: Re: MakeMaker problems
Date: Thu, 22 Jun 2000 23:16:50 +0100
Organization: None

On Thu, 22 Jun 2000 09:05:09 -0400, "Ian D. Stewart" <i...@c-cor.com>
wrote:

> > I'm having trouble getting it to work. The culprit appears to be> > ExtUtils::MM_Win32 - in particular the line> >=20> > $val =3D `$abs -e "require $ver;" 2>&1`;>=20> I suspect that output redirection at the end is your culprit.  If =
memory
> serves, COMMAND.COM (Windows98's default shell) doesn't support named> pipes.  You may want to try upgrading your shell.

I tried both 4DOS and Bash, and still got nowhere. However, looking
further at the line in question, I'd can't understand why it should
work. The first bit I understand;

perl -e "require $ver;"

to check the Perl version. I'm not exactly sure what is going on with
the '2>&1' business. Had the backticks just been

perl -e "require $ver;print 1"=20

I could see how $val would contain the value of 1 only with if the
Perl version was right. I guess the '2>&1' is critical, though. Anyone
kind enough to explain what should be happening, an even better let me
know how to fix it?

Thanks in advance,

Greg

--__--__--

Message: 6
From: "Tushar, Kulkarni (GEL, MSX)" <Kulk...@Lighting.GE.com>
To: "'AGa...@globewireless.com'"
<AGan...@globewireless.com>
Cc: "'Perl Mailing list'" <Perl...@listserv.ActiveState.com>
Subject: RE: FTP->mdtm($file)
Date: Thu, 22 Jun 2000 18:36:45 -0400

Even I tried this, the message I got (ftp->message() ) is mdtm is not
implemented.

-----Original Message-----
From: AGan...@globewireless.com
[mailto:AGan...@globewireless.com]
Sent: Wednesday, June 21, 2000 4:58 PM
To: perl...@listserv.ActiveState.com
Subject: FTP->mdtm($file)


Does anyone know is any problems with FTP->mdtm( ) method. For some reason,
I'm unable to get the modification time of a file from a ftp server. I'm
using PERL 522, NT 4.0. And the Perl Module is Net::Ftp. Please help me.

Tks
Anton
_______________________________________________
Perl-Win32-Users mailing list
Perl...@listserv.ActiveState.com
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

--__--__--

Message: 7
From: "Peter Zhang" <plzh...@aicompro.com>
To: <acti...@listserv.ActiveState.com>
Cc: <perl...@listserv.ActiveState.com>
Subject: help needed
Date: Thu, 22 Jun 2000 15:48:41 -0700
charset="iso-8859-1"

I have a VC++ 5.0 program using MFC on WinNT4.0.  This short program
uses VC++'s CreateProcess() to create a new process (like spawn).

The new process runs a 32bit console program. The console program's
I/O is re-directed by proper pipes.  So the console program window does
not need be shown.  and it does not.

However, if I move the console program into Perl scripts.  then use my
VC++ program to spawn the command "Perl perlscriptfile",  a black 
empty console window will appear.  

Does anyone know how to get rid of the black empty window? (or to hide it)
Please send your comments to  plzh...@aicompro.com

Your help is appreciated.




--__--__--

Message: 8
Date: Thu, 22 Jun 2000 16:22:08 -0700
From: "$Bill Luebkert" <d...@wgn.net>
Organization: DBE Collectibles
To: AGan...@globewireless.com
CC: perl...@listserv.ActiveState.com
Subject: Re: FTP->mdtm($file)

AGan...@globewireless.com wrote:
> > Does anyone know is any problems with FTP->mdtm( ) method. For some
reason,
> I'm unable to get the modification time of a file from a ftp server. I'm> using PERL 522, NT 4.0. And the Perl Module is Net::Ftp. Please help me.


This works for me (I left out the var defines for host, user, pass, dir,
etc.):

use Net::FTP; 

my $ftp = Net::FTP->new($host) or 
  die "Error connecting to $host: $!\n";
$ftp->login($user, $pass) or die "Error logging in to $host: $!\n";
my $ret = $ftp->pwd() or die "Error on pwd: $!\n";
$ftp->cwd($dir) or die "Error cd $dir: $!\n";
$ret = $ftp->ls() or die "Error on ls: $!\n";
my @files = sort @$ret;
foreach (@files) {

	$ret = $ftp->mdtm($_) or (print "Error on MTDM: $!\n", next);
	print "$_=$ret(";	
	$ret = $ftp->size($_) or (print "Error on size: $!\n", next);
	print "), size=$ret\n";
}

-- 
  ,-/-  __      _  _         $Bill Luebkert   ICQ=14439852
 (_/   /  )    // //       DBE Collectibles   http://www.wgn.net/~dbe/
  / ) /--<  o // //      Mailto:d...@wgn.net   http://dbecoll.webjump.com/
-/-' /___/_<_</_</_    http://www.freeyellow.com/members/dbecoll/

--__--__--

Message: 9
Date: 23 Jun 2000 11:01:44 +1000
From: "Zoltan Celedes" <zol...@osa.com.au>
To: perl...@lyris.ActiveState.com
Subject: HTTP download with resume?
charset="iso-8859-1"

Hi all,

Does anybody know any modules which support HTTP download with resume? I
have looked at the LWP modules, but they seem to start from the beginning of
a file. What I basically want to do is

&Resume($url, $partially_downloaded_file);

I know the HTTP headers to do this manually, but I'd rather avoid
re-inventing the wheel if some modules already exist out there.

Zoltan.


--__--__--

Message: 10
Date: Fri, 23 Jun 2000 00:45:00 -0700
From: Tao Wei <tao_...@hms.harvard.edu>
Organization: Harvard Medical School
To: perl...@listserv.ActiveState.com
Subject: how to email with attachment?

Hi there,

    I am wondering if there is a package or module that let me send
email with attachment. Thanks.

Wei Tao


--__--__--

Message: 11
From: "George Tagviashvili" <g...@gw.acnet.ge>
To: "Perl-Win32-Users Mailing List"
<perl...@lyris.activestate.com>,
"Perl-Win32-Database Mailing List"
<perl...@lyris.ActiveState.com>
Subject: OT
Date: Fri, 23 Jun 2000 13:12:53 +0400
Organization: The N.Muskhelishvili Institute of Computational Mathematics
charset="iso-8859-1"

 Brazilian congress is now voting on a project that will
 reduce the Amazon
 forest to 50% of its size. The area to be deforested is 4
 times the size of
 Portugal and would be mainly used for agriculture and
 pastures for
 livestock...
 
 All the wood is to be sold to international markets in=
 the
 form of wood
 chips, by multinational companies...
 
 The truth is that the soil in the Amazon forest is useless
 without the
 forest itself. Its quality is very acidic and the regi=
 on is
 prone to
 constant floods. At this time more than 160.000 square
 kilometres deforested
 with the same purpose, are abandoned and in the process
 of becoming deserts.
 We cannot let this happen.
 
 Copy the text into a new email, put your complete
 name in the list below, and send to everyone you know.
 
 (Don't just forward
 it because then it will end up with rows of >>>'s ) If you
 are the 100th person to sign please send a copy to
 fsav...@openlink.com.br
 <mailto:fsav...@openlink.com.br>
 Thank you.
 
> 01-Fernanda de Souza Saviolo - Rio de Janeiro - RJ -18/06/83> 02-Nara Maria de Souza - Rio de Janeiro - RJ - 11/08/50> 03-Julio Cesar Fraga Viana - Rio de Janeiro - RJ -01/01/54> 04-Monica Grotkowsky Brotto -Sao Paulo - SP - 23/08/77> 05-Mauricio Grotkowsky Brotto - Sao Paulo -SP 29/09/78> 06-Ricardo A. Corrallo - SP 16/08/75> 07-Sunny Jonathan - SP 18/10/1970> 08-Leonardo Larsen Rocha - SC 23/01/1972> 09-Evandro Sestrem - SC 26/06/1979> 10-Marco Aurlio Wehrmeister - Blumenau - SC 18/06/1979=> > 11-Angela Maria Gonalves - Blumenau -SC 25/07/1959> 12-Alessandra Bernardino - Blumenau - SC - 25/12/1980> 13-Pedro Carstens Penfold - Rio de Janeiro - RJ - 12/09/82> 14-Annelena Porto Delgado - S*o Paulo - SP - 27/07/77> 15-Erica Couto -S*o Paulo -SP 29/09/78> 16-Elaine Couto- S*o Paulo - SP> 17-Tatiana de Almeida Voivodic - S*o Paulo-SP> 18-Solange B Furlanetto - S*o Paulo / SP> 19-Marcos de Souza Mello - S*o Paulo / SP> 20-Eliane Santiago - S*o Paulo / SP> 21-Francisca J. Bezerra Alves Ara*jo - S*o Paulo / SP> 22-Carlos Alberto Dantas Junior - Rio de Janeiro / RJ> 23-Daniel Rodrigues da Cruz - Rio de Janeiro / RJ> 24-Gabriella Gaida - Rio de Janeiro - RJ - 04/05/72> 25-Ceclia Silva Teixeira Pinto - RJ - 03/06/75> 26-Tania Santos Miguel> 27-Celso Henrique Diniz Valente de Figueiredo - RJ -> 10/08/49> 28-Marcelo Lopes Rheingantz - Rio de Janeiro - RJ -> 20/12/80> 29-Rodrigo Tassinari de Oliveira - Rio de Janeiro - RJ-19/04/83> 30-Andr Lobato Pinheiro - Rio de Janeiro - RJ - 07/07/81> 31-Ismael dos Santos Silva - RJ - 28/08/79> 32-Gustavo Alexandre Caetano Correa - RJ - 08/09/80> 33-Juana Varella Barca de Amorim - Rio de Janeiro,14/03/83> 34-Nara Faria Silva -RJ- Rio de Janeiro , 15/12/82> 35-Isabella Jaggi - SP - S*o Paulo, 03/12/82> 36-Diana de Andrade Freitas - Rio de Janeiro - RJ -21/06/83> 37-Karina Dourado - S*o Paulo - 18/01/80> 38-Pablo Genuncio Garcia - Rio de Janeiro - 27-06-81> 39-Fabola Morais de Lucca - S*o Paulo - 03/02-78> 40-Alexei Morais de Lucca - S*o Paulo - SP - 12/08/75> 41-Renata Regina Roxo - S*o Paulo - SP - 03/11/74> 42-Fernanda Teixeira - S*o Paulo - SP - 17/09/76> 43-Patricia Freitas - S*o Paulo - SP> 44-Cintia Regina K*rner - Alemanha - DE -> 45-Wolfgang K*rner - Alemanha - DE> 46-Roseani Vieira Rocha - San Francisco - CA> 47-Angela Ichimura - S*o Paulo - SP> 48-Assunta Viola - Sao Paulo - SP> 50-Marina Amaral - Alemanha - DE> 51-Fabian Rodrigues Caetano - Sao Paulo - SP - 15/01/1971> 52-Luciana Cabrera- Santa Barbara- Ca> 53- Andrea Torres- Lahaina, Hawaii> 54- Carla Duarte- New York, NY> 55- Sergio Goes- New York, NY> 56- Itaal Shur - New York, NY> 57- Hiroyoku Sanada-New York,NY> 58- Marianne Ebert-new york,NY> 59- Gloriana M. Calhoun - New York, NY> 60- Roger Jazilek - New York, NY> 61- Cheryl To - New York, NY> 62- Judy Mercer - Paris, France> 63- Evelyne Pouget- Woodstock, NY> 64- Hera-Woodstock, NY> 65- Nicos Peonides - Cyprus - New York NY> 66 - Fiona Cousins - new York, NY> 67 - Alistair Millington - London, UK> 68 - Edgar Craggs - Bristol, UK> 69 - Chris Hastie - Nottingham, UK> 70 - Adam Barley - Bristol, UK> 71 - Dawn Morgan - Bristol, UK> 72 - Lottie Berthoud - Bristol, UK> 73 - Julia Simnett - Bristol, UK> 74 - Lindsey Colbourne - Bath, UK> 75 - Wendy Lawton - Bath, UK> 76 - James Friel - Birmingham, UK> 77- Sylvia Magyar - Budapest, Hungary> 78 - Danco Uzunov - Budapest Hungary> 79 - Vladimir Jurukovski - New York, USA> 80 - Laste Stojanovski - Auckland, New Zealand> 81 - Katerina Rusevska - Skopje, Macedonia> 82 - Snezana Pesic - Kragujevac, Yugoslavia> 83 - Sladjan Pavlovic - Beograd, Yugoslavia> 84. - Jelka Crnobrnja-Isailovic - Belgrade, Yugoslavia> 85.- Begona Arano-Brussels, Belgium> 86.- Brendan Kelly-Brussels, Belgium> 87.- Rafael Marquez-Madrid, Spain> 88.- Dirk Bauwens - Brussels, Belgium> 89. Katja Poboljsaj, Ljubljana, Slovenia> 90.- Eduard Kletecki, Zagreb, Croatia> 91.- Rob Bugter, Wageningen, The Netherlands> 92.-Md.Sohrab Uddin sarker,Bangladesh> 93-Dr.Ir.J.J.A.van Dijk, Gieten, The Netherlands> 94.- Peter Thompson, Pretoria, South Africa> 95. Rob Burnett, Windhoek, Namibia> 96. Pete Chadwick, Bulawayo, Zimbabwe> 97. Julian Stewart, Kadoma, Zimbabwe> 98. Chris Sessions, JHB, South Africa> 99. Murray Walker, JHB, South Africa> 100. Mike Kelly, Glasgow, Scotland> 101. Rachel Seiffert, Scotland> 102. R.A. Jamieson, Edinburgh, Scotland> 103. Jennifer Hadfield, Scotland> 104. Liz Turner, Scotland> 105 Ian Sylvester, Korea> 106. Cinzia Calvio, Italy> 107. Martha Tagviashvili, Georgia



--__--__--

Message: 12
Date: Fri, 23 Jun 2000 01:31:05 -0700
From: Joshua Chamas <jos...@chamas.com>
Organization: Chamas Enterprises Inc.
To: feli...@bluewin.ch
CC: perl...@listserv.activestate.com, supp...@activestate.com
Subject: Re: Crypt::SSLeay as PPM-module for Perl 5.6

> feli...@bluewin.ch wrote:> > Is it possible to make  Crypt::SSLeay  a PPM module for Perl 5.6?> I found Crypt::SSLeay as a PPM module for Perl 5.22 but not for Perl 5.6> On the other hand, I would like to upgrade to 5.6 so I can use the new> features like threads for processing my https requests and keep the> GUI responsive meanwhile...> > Thanks,  Felix> 

As I just mentioned in a separate email, it might be good to 
suggest to the folks at ActiveState to please build Crypt::SSLeay
for 5.6, since I won't be getting to that anytime soon, as I 
don't do any work in that environment.

So ActiveState, what do you say?  Can we get a ppm install
for Crypt::SSLeay perl 5.6 ?   That would be really great.

-- Joshua

--__--__--

Message: 13
From: "Paul Popour" <ppop...@infoave.net>
To: "Bellenger Bruno Paris" <Bell...@exchange.fr.ml.com>,
"'Nolen Mike'" <mno...@houston.ds.adp.com>
Cc: <perl...@listserv.activestate.com>
Subject: Re: Help with services...
Date: Fri, 23 Jun 2000 07:09:35 -0400
charset="iso-8859-1"

>-----Original Message----->From: Bellenger Bruno Paris <Bell...@exchange.fr.ml.com>>To: 'Nolen Mike' <mno...@houston.ds.adp.com>>Cc: perl...@listserv.activestate.com
<perl...@listserv.activestate.com>
>Date: Thursday, June 22, 2000 3:04 PM>Subject: RE: Help with services...>>The easiest way to do this is via NETSVC.EXE from the NT Resource Kit.>>NETSVC \\MachineName /list>>will give you a list of all services and devices - both short and display>names.>

Or you could .....

use Win32::Lanman;
$server = @ARGV[0];
$output = "c:\\temp\\$server services list.txt";
open(OUTFILE, ">$output") || die ("cannot open output file ", $output,
"\n");
if(!Win32::Lanman::EnumServicesStatus("\\\\$server", "", &SERVICE_WIN32,
&SERVICE_STATE_ALL, \@services))
 {
 print OUTFILE "$server\t";
 print OUTFILE (Win32::Lanman::GetLastError(), "\n");
 close OUTFILE;
 exit 1;
 }
foreach $service (@services) { print OUTFILE
"${$service}{name}\t${$service}{display}\n"; }
close OUTFILE;





--__--__--

Message: 14
Date: Fri, 23 Jun 2000 12:11:41 -0400
From: "Ian D. Stewart" <i...@c-cor.com>
Reply-To: i...@c-cor.com
Organization: C-COR.net
To: "$Bill Luebkert" <d...@wgn.net>
CC: AGan...@globewireless.com,
perl...@listserv.ActiveState.com
Subject: Re: FTP->mdtm($file)

"$Bill Luebkert" wrote:
> > AGan...@globewireless.com wrote:> >> > Does anyone know is any problems with FTP->mdtm( ) method. For some
reason,
> > I'm unable to get the modification time of a file from a ftp server. I'm> > using PERL 522, NT 4.0. And the Perl Module is Net::Ftp. Please help me.> > This works for me (I left out the var defines for host, user, pass, dir,
etc.):
> > use Net::FTP;> > my $ftp = Net::FTP->new($host) or>   die "Error connecting to $host: $!\n";> $ftp->login($user, $pass) or die "Error logging in to $host: $!\n";> my $ret = $ftp->pwd() or die "Error on pwd: $!\n";> $ftp->cwd($dir) or die "Error cd $dir: $!\n";> $ret = $ftp->ls() or die "Error on ls: $!\n";> my @files = sort @$ret;> foreach (@files) {> >         $ret = $ftp->mdtm($_) or (print "Error on MTDM: $!\n", next);>         print "$_=$ret(";>         $ret = $ftp->size($_) or (print "Error on size: $!\n", next);>         print "), size=$ret\n";> }

Curious.  I ran this code and got no output what so ever.  No file
listing, no error messages, nothing.  I even ran it with 'perl -Mstrict
-w' just to be on the safe side.  Same result (or lack there of).

Thoughts?


Ian

-- 
99 little bugs in the code, 99 bugs in the code.
Fix one bug, compile again, 100 little bugs in the code.
100 little bugs in the code, 100 bugs in the code.
Fix one bug, compile again, 101 little bugs in the code...

--__--__--

Message: 15
From: "Conrad Classen" <ccla...@chc.co.za>
To: "Nolen, Mike" <mno...@houston.ds.adp.com>
Cc: <perl...@listserv.activestate.com>
Subject: Re: Help with services...
Date: Fri, 23 Jun 2000 17:59:54 +0200
boundary="----=_NextPart_000_0042_01BFDD3C.D5FF0720"

This is a multi-part message in MIME format.

------=_NextPart_000_0042_01BFDD3C.D5FF0720
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

RE: Help with services...Try "W3SVC" as the Service name.

It also works using back ticks:
`net stop W3SVC`;
or=20
`net stop "World Wide Web Publishing Service"`;

Conrad


  ----- Original Message -----=20
  From: Nolen, Mike=20
  To: 'Paul Popour'=20
  Cc: perl...@listserv.activestate.com ; Edelman, David=20
  Sent: Wednesday, June 21, 2000 6:21 PM
  Subject: RE: Help with services...


  thanks very much...I found out that the reason mine wasn't working is =
because=20
  "World Wide Web Publishing Service" IS the name of the service, but =
there must=20
  be another (shorter) name for it internally...because i tried your =
example and=20
  it didn't work either...then i tried the 'EventLog' service and both =
yours and=20
  mine worked fine.  thanks for the help.  now i have to try and =
determine what=20
  the "real" name of the service is...internally.=20

  thanks again.=20
  mike=20

  -----Original Message-----=20
  From: Paul Popour [mailto:ppop...@InfoAve.Net]=20
  Sent: Tuesday, June 20, 2000 8:42 PM=20
  To: Nolen Mike; perl...@listserv.activestate.com=20
  Subject: Re: Help with services...=20



  -----Original Message-----=20
  From: Nolen Mike <mno...@houston.ds.adp.com>=20
  To: perl...@listserv.activestate.com=20
  <perl...@listserv.activestate.com>=20
  Date: Tuesday, June 20, 2000 4:51 PM=20
  Subject: Help with services...=20



  >I'm running on a NT Workstation (4.0) and am trying to=20>start and stop a service...  I'm running this code, but to no avail.=20>Any suggestions?  I can run a net start or net stop in a system("") =
call,=20
  >but I'd rather use the module.=20>=20> use Win32::Service;=20> $a =3D Win32::Service::StopService("","World Wide Web Publishing=20>Service");=20> print "a: $a\n";=20> #$b =3D Win32::Service::StartService("mnolen-gx1","World Wide Web=20>Publishing Service");=20> print "b: $b\n";=20>=20>This is returning NULL as $a...=20>I appears not to be executing...but I'm not getting errors...=20>=20



  A little different style of error checking but you can use this sub as =
an=20
  example.=20

  sub stoprtscan=20
   {=20
   my $server =3D shift;=20
   %status =3D "";=20
   unless (Win32::Service::GetStatus( "\\\\$server", 'ntrtscan', =
\%status))=20
    {=20
    print "Unable to check realtime scan service status on $server\n";=20
    return();=20
    }=20
   if ($status{CurrentState} =3D=3D 4)=20
    {=20
    print "realtime scan service running on $server, attempting to =
stop\n";=20
    unless (Win32::Service::StopService("\\\\$server",'ntrtscan'))=20
     {=20
     print "Unable to stop realtime scan service on $server\n";=20
     return();=20
     }=20
    sleep(10);=20
    %status =3D "";=20
    unless (Win32::Service::GetStatus( "\\\\$server", 'ntrtscan', =
\%status))=20
     {=20
     print "Unable to check realtime scan service status on $server\n";=20
     return();=20
     }=20
    if ($status{CurrentState} =3D=3D 4)=20
     {=20
     print "Unable to stop realtime scan service on $server\n";=20
     return();=20
     }=20
    }=20
   if ($status{CurrentState} =3D=3D 1)=20
    {=20
    print "ntrtscan service stopped on $server\n";=20
    print "Restarting ntrtscan service\n";=20
    unless (Win32::Service::StartService("\\\\$server",'ntrtscan'))=20
     {=20
     print "Unable to start ntrtscan service on $server\n";=20
     return();=20
     }=20
    sleep(10);=20
    %status =3D "";=20
    unless (Win32::Service::GetStatus( "\\\\$server", 'ntrtscan', =
\%status))=20
     {=20
     print "Unable to recheck ntrtscan service status on $server\n";=20
     return();=20
     }=20
    if ($status{CurrentState} =3D=3D 4)=20
     {=20
     print "ntrtscan service restarted on $server\n";=20
     }=20
    else=20
     {=20
     print "ntrtscan service state unknown on $server\n";=20
     }=20
    }=20
   }=20


------=_NextPart_000_0042_01BFDD3C.D5FF0720
Content-Type: text/html;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>RE: Help with services...</TITLE>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.3018.900" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Try "W3SVC" as the Service =
name.</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>It also works using back =
ticks:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>`net stop W3SVC`;</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>or </FONT></DIV>
<DIV><FONT face=3DArial size=3D2>`net stop "World Wide Web Publishing=20
Service"`;</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Conrad</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV>&nbsp;</DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
  <DIV style=3D"FONT: 10pt arial">----- Original Message ----- </DIV>
  <DIV=20
  style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: =
black"><B>From:</B>=20
  <A href=3D"mailto:mno...@houston.ds.adp.com"=20
  titl...@houston.ds.adp.com>Nolen, Mike</A> </DIV>
  <DIV style=3D"FONT: 10pt arial"><B>To:</B> <A =
href=3D"mailto:ppop...@InfoAve.Net"=20
  titl...@InfoAve.Net>'Paul Popour'</A> </DIV>
  <DIV style=3D"FONT: 10pt arial"><B>Cc:</B> <A=20
  href=3D"mailto:perl...@listserv.activestate.com"=20
  =
titl...@listserv.activestate.com>perl...@listse=
rv.activestate.com</A>=20
  ; <A href=3D"mailto:dede...@houston.ds.adp.com"=20
  titl...@houston.ds.adp.com>Edelman, David</A> </DIV>
  <DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Wednesday, June 21, 2000 =
6:21=20
  PM</DIV>
  <DIV style=3D"FONT: 10pt arial"><B>Subject:</B> RE: Help with =
services...</DIV>
  <DIV><BR></DIV>
  <P><FONT size=3D2>thanks very much...I found out that the reason mine =
wasn't=20
  working is because</FONT> <BR><FONT size=3D2>"World Wide Web =
Publishing Service"=20
  IS the name of the service, but there must</FONT> <BR><FONT =
size=3D2>be another=20
  (shorter) name for it internally...because i tried your example =
and</FONT>=20
  <BR><FONT size=3D2>it didn't work either...then i tried the 'EventLog' =
service=20
  and both yours and </FONT><BR><FONT size=3D2>mine worked fine.&nbsp; =
thanks for=20
  the help.&nbsp; now i have to try and determine what</FONT> <BR><FONT=20
  size=3D2>the "real" name of the service is...internally.</FONT> </P>
  <P><FONT size=3D2>thanks again.</FONT> <BR><FONT size=3D2>mike</FONT> =
</P>
  <P><FONT size=3D2>-----Original Message-----</FONT> <BR><FONT =
size=3D2>From: Paul=20
  Popour [<A=20
  =
href=3D"mailto:ppop...@InfoAve.Net">mailto:ppop...@InfoAve.Net</A>]</FONT=
>=20
  <BR><FONT size=3D2>Sent: Tuesday, June 20, 2000 8:42 PM</FONT> =
<BR><FONT=20
  size=3D2>To: Nolen Mike; =
perl...@listserv.activestate.com</FONT>=20
  <BR><FONT size=3D2>Subject: Re: Help with services...</FONT> </P><BR>
  <P><FONT size=3D2>-----Original Message-----</FONT> <BR><FONT =
size=3D2>From: Nolen=20
  Mike &lt;mno...@houston.ds.adp.com&gt;</FONT> <BR><FONT size=3D2>To:=20
  perl...@listserv.activestate.com</FONT> <BR><FONT=20
  size=3D2>&lt;perl...@listserv.activestate.com&gt;</FONT> =
<BR><FONT=20
  size=3D2>Date: Tuesday, June 20, 2000 4:51 PM</FONT> <BR><FONT =
size=3D2>Subject:=20
  Help with services...</FONT> </P><BR>
  <P><FONT size=3D2>&gt;I'm running on a NT Workstation (4.0) and am =
trying=20
  to</FONT> <BR><FONT size=3D2>&gt;start and stop a service...&nbsp; I'm =
running=20
  this code, but to no avail.</FONT> <BR><FONT size=3D2>&gt;Any =
suggestions?&nbsp;=20
  I can run a net start or net stop in a system("") call,</FONT> =
<BR><FONT=20
  size=3D2>&gt;but I'd rather use the module.</FONT> <BR><FONT =
size=3D2>&gt;</FONT>=20
  <BR><FONT size=3D2>&gt; use Win32::Service;</FONT> <BR><FONT =
size=3D2>&gt; $a =3D=20
  Win32::Service::StopService("","World Wide Web Publishing</FONT> =
<BR><FONT=20
  size=3D2>&gt;Service");</FONT> <BR><FONT size=3D2>&gt; print "a: =
$a\n";</FONT>=20
  <BR><FONT size=3D2>&gt; #$b =3D =
Win32::Service::StartService("mnolen-gx1","World=20
  Wide Web</FONT> <BR><FONT size=3D2>&gt;Publishing Service");</FONT> =
<BR><FONT=20
  size=3D2>&gt; print "b: $b\n";</FONT> <BR><FONT size=3D2>&gt;</FONT> =
<BR><FONT=20
  size=3D2>&gt;This is returning NULL as $a...</FONT> <BR><FONT =
size=3D2>&gt;I=20
  appears not to be executing...but I'm not getting errors...</FONT> =
<BR><FONT=20
  size=3D2>&gt;</FONT> </P><BR>
  <P><FONT size=3D2>A little different style of error checking but you =
can use=20
  this sub as an</FONT> <BR><FONT size=3D2>example.</FONT> </P>
  <P><FONT size=3D2>sub stoprtscan</FONT> <BR><FONT =
size=3D2>&nbsp;{</FONT>=20
  <BR><FONT size=3D2>&nbsp;my $server =3D shift;</FONT> <BR><FONT=20
  size=3D2>&nbsp;%status =3D "";</FONT> <BR><FONT size=3D2>&nbsp;unless=20
  (Win32::Service::GetStatus( "\\\\$server", 'ntrtscan', =
\%status))</FONT>=20
  <BR><FONT size=3D2>&nbsp; {</FONT> <BR><FONT size=3D2>&nbsp; print =
"Unable to=20
  check realtime scan service status on $server\n";</FONT> <BR><FONT=20
  size=3D2>&nbsp; return();</FONT> <BR><FONT size=3D2>&nbsp; }</FONT> =
<BR><FONT=20
  size=3D2>&nbsp;if ($status{CurrentState} =3D=3D 4)</FONT> <BR><FONT =
size=3D2>&nbsp;=20
  {</FONT> <BR><FONT size=3D2>&nbsp; print "realtime scan service =
running on=20
  $server, attempting to stop\n";</FONT> <BR><FONT size=3D2>&nbsp; =
unless=20
  (Win32::Service::StopService("\\\\$server",'ntrtscan'))</FONT> =
<BR><FONT=20
  size=3D2>&nbsp;&nbsp; {</FONT> <BR><FONT size=3D2>&nbsp;&nbsp; print =
"Unable to=20
  stop realtime scan service on $server\n";</FONT> <BR><FONT =
size=3D2>&nbsp;&nbsp;=20
  return();</FONT> <BR><FONT size=3D2>&nbsp;&nbsp; }</FONT> <BR><FONT=20
  size=3D2>&nbsp; sleep(10);</FONT> <BR><FONT size=3D2>&nbsp; %status =
=3D "";</FONT>=20
  <BR><FONT size=3D2>&nbsp; unless (Win32::Service::GetStatus( =
"\\\\$server",=20
  'ntrtscan', \%status))</FONT> <BR><FONT size=3D2>&nbsp;&nbsp; {</FONT> =
<BR><FONT=20
  size=3D2>&nbsp;&nbsp; print "Unable to check realtime scan service =
status on=20
  $server\n";</FONT> <BR><FONT size=3D2>&nbsp;&nbsp; return();</FONT> =
<BR><FONT=20
  size=3D2>&nbsp;&nbsp; }</FONT> <BR><FONT size=3D2>&nbsp; if =
($status{CurrentState}=20
  =3D=3D 4)</FONT> <BR><FONT size=3D2>&nbsp;&nbsp; {</FONT> <BR><FONT=20
  size=3D2>&nbsp;&nbsp; print "Unable to stop realtime scan service on=20
  $server\n";</FONT> <BR><FONT size=3D2>&nbsp;&nbsp; return();</FONT> =
<BR><FONT=20
  size=3D2>&nbsp;&nbsp; }</FONT> <BR><FONT size=3D2>&nbsp; }</FONT> =
<BR><FONT=20
  size=3D2>&nbsp;if ($status{CurrentState} =3D=3D 1)</FONT> <BR><FONT =
size=3D2>&nbsp;=20
  {</FONT> <BR><FONT size=3D2>&nbsp; print "ntrtscan service stopped on=20
  $server\n";</FONT> <BR><FONT size=3D2>&nbsp; print "Restarting =
ntrtscan=20
  service\n";</FONT> <BR><FONT size=3D2>&nbsp; unless=20
  (Win32::Service::StartService("\\\\$server",'ntrtscan'))</FONT> =
<BR><FONT=20
  size=3D2>&nbsp;&nbsp; {</FONT> <BR><FONT size=3D2>&nbsp;&nbsp; print =
"Unable to=20
  start ntrtscan service on $server\n";</FONT> <BR><FONT =
size=3D2>&nbsp;&nbsp;=20
  return();</FONT> <BR><FONT size=3D2>&nbsp;&nbsp; }</FONT> <BR><FONT=20
  size=3D2>&nbsp; sleep(10);</FONT> <BR><FONT size=3D2>&nbsp; %status =
=3D "";</FONT>=20
  <BR><FONT size=3D2>&nbsp; unless (Win32::Service::GetStatus( =
"\\\\$server",=20
  'ntrtscan', \%status))</FONT> <BR><FONT size=3D2>&nbsp;&nbsp; {</FONT> =
<BR><FONT=20
  size=3D2>&nbsp;&nbsp; print "Unable to recheck ntrtscan service status =
on=20
  $server\n";</FONT> <BR><FONT size=3D2>&nbsp;&nbsp; return();</FONT> =
<BR><FONT=20
  size=3D2>&nbsp;&nbsp; }</FONT> <BR><FONT size=3D2>&nbsp; if =
($status{CurrentState}=20
  =3D=3D 4)</FONT> <BR><FONT size=3D2>&nbsp;&nbsp; {</FONT> <BR><FONT=20
  size=3D2>&nbsp;&nbsp; print "ntrtscan service restarted on =
$server\n";</FONT>=20
  <BR><FONT size=3D2>&nbsp;&nbsp; }</FONT> <BR><FONT size=3D2>&nbsp; =
else</FONT>=20
  <BR><FONT size=3D2>&nbsp;&nbsp; {</FONT> <BR><FONT =
size=3D2>&nbsp;&nbsp; print=20
  "ntrtscan service state unknown on $server\n";</FONT> <BR><FONT=20
  size=3D2>&nbsp;&nbsp; }</FONT> <BR><FONT size=3D2>&nbsp; }</FONT> =
<BR><FONT=20
  size=3D2>&nbsp;}</FONT> </P></BLOCKQUOTE></BODY></HTML>

------=_NextPart_000_0042_01BFDD3C.D5FF0720--


--__--__--

Message: 16
From: "Joe Schell" <jsch...@peakss.com>
To: "Greg Thomas" <Greg...@iname.com>,
<perl...@listserv.ActiveState.com>
Subject: RE: MakeMaker problems
Date: Fri, 23 Jun 2000 08:48:28 -0600
charset="iso-8859-1"

> Behalf Of Greg Thomas>> On Thu, 22 Jun 2000 09:05:09 -0400, "Ian D. Stewart" <i...@c-cor.com>> wrote:>> > > I'm having trouble getting it to work. The culprit appears to be> > > ExtUtils::MM_Win32 - in particular the line> > >> > > $val = `$abs -e "require $ver;" 2>&1`;> >> > I suspect that output redirection at the end is your culprit.  If memory> > serves, COMMAND.COM (Windows98's default shell) doesn't support named> > pipes.  You may want to try upgrading your shell.>> I tried both 4DOS and Bash, and still got nowhere. However, looking> further at the line in question, I'd can't understand why it should> work. The first bit I understand;>> perl -e "require $ver;">> to check the Perl version. I'm not exactly sure what is going on with> the '2>&1' business. Had the backticks just been>> perl -e "require $ver;print 1">> I could see how $val would contain the value of 1 only with if the> Perl version was right. I guess the '2>&1' is critical, though. Anyone> kind enough to explain what should be happening, an even better let me> know how to fix it?>

2>&1 asks the shell to redirect file descriptor '2' to file descriptor 1.
Or a slightly different way to say it stderr is redirected to stdout.


It is also important to note that 'shell' in the above statement.  As
someone was kind enough to point out to me not too long ago, the back tick
shell is not necessarily the same shell as what you ran the script in.  I
can't recall it exactly but searching through Config.pm I found this line

   sh='cmd /x /c'

And I would suppose you have something similar.  And on a win 9x box that
does not allow redirection.  You might try replacing that with one of the
shells you tried.




--__--__--

Message: 17
Date: Fri, 23 Jun 2000 14:59:04 +0100
From: Simon Oliver <simo...@umist.ac.uk>
To: Peter Zhang <plzh...@aicompro.com>
CC: acti...@listserv.ActiveState.com,
perl...@listserv.ActiveState.com
Subject: Re: help needed

Peter Zhang wrote:
> Does anyone know how to get rid of the black empty window? (or to hide it)> Please send your comments to  plzh...@aicompro.com

from Win32::GUI docs:

There is a fix for this, if you have Windows development tools available.
Simply
take a copy of perl.exe, call it perlw.exe, and change its ``subsystem''
setting
from ``console'' to ``windows''. With Microsoft Visual Studio, the command
to do
this is 


    editbin /subsystem:windows perlw.exe

Hopefully, future versions of Perl will include a perlw.exe by default. 

If you can't create a perlw.exe, then a compromise is to hide the console
window
while your application is running. This is reasonable for the second and
third
cases above, but less so for the first (where the application is run from an
existing console window). 

The code to do this is 


    my ($DOS) = Win32::GUI::GetPerlWindow();
    Win32::GUI::Hide($DOS);

Do this as early as possible. Obviously, if we hide the console, we must
show it
when we finish (otherwise, someone who runs your program from a command
prompt
will be very cross with you!) 

To do this, we need to put 


    Win32::GUI::Show($DOS);

just before our program terminates. After the Win32::GUI::Dialog() call is
usually the right place. 

--
  Simon Oliver

--__--__--

Message: 18
From: ces...@theaerocorp.com
To: perl...@listserv.ActiveState.com
Date: Fri, 23 Jun 2000 10:35:28 -0500
Subject: Win32::AdminMisc::LogonAsUser not working.


Hi all,
I have copied a small script from www.roth.net/perl/adminmisc that will
impersonate another login ID but it doesn't seem to work. Does anybody know
why?

#####Start Script
use Win32::AdminMisc;

if (Win32::AdminMisc::LogonAsUser('',
                                  'UserID',
                                  'password',
                                  LOGON32_BATCH)){
    print "Successfully impersonating " . Win32::AdminMisc::GetLogonName()
. "\n";
}

##### End Script
Thanks in Advance,
Chris Esser
TRW
ces...@theaerocorp.com



--__--__--

Message: 19
From: ces...@theaerocorp.com
To: perl...@listserv.ActiveState.com
Date: Fri, 23 Jun 2000 10:27:48 -0500
Subject: PPM Help


I am trying to use PPM to install Win32::API but get the following error.
Does anyone know what I am doing wrong?

H:\>ppm
PPM interactive shell (1.1.3) - type 'help' for available commands.
PPM> set
Commands will be confirmed.
Temporary files will be deleted.
Case-insensitive searches will be performed.
Package installations will continue if a dependency cannot be installed.
Tracing info will not be written.
Screens will not pause.
Query/search results will be verbose.
Current PPD repository paths:
        ActiveState Package Repository:
soap://www.activestate.com/cgibin/SOAP/p
pmserver.plex?class=PPM::SOAPServer
Packages will be installed under:
Packages will be built under: C:\TEMP
PPM> install Win32::API
Install package 'Win32-API?' (y/N): y
Retrieving package 'Win32-API'...

unclosed token at line 10, column 43, byte 875 at
C:/Perl/site/lib/SOAP/Parser.p
m line 73

H:\>

Thanks in Advance,
Chris Esser
TRW
ces...@theaerocorp.com



--__--__--

Message: 20
From: Adam Stuckey <Adam...@cwo.com.au>
To: "'per...@listserv.activestate.com'"
<perl...@listserv.activestate.com>
Subject: LWP::UserAgent
Date: Fri, 23 Jun 2000 22:10:48 +1000
boundary="----_=_NextPart_001_01BFDD0C.10BFE220"

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.

------_=_NextPart_001_01BFDD0C.10BFE220
Content-Type: text/plain;
	charset="iso-8859-1"

Hello all,

I was wondering if there was a way to access content from sites that contain
frames?
I would like to get my perl script to delv into the site a bit more instead
of getting this response:

</frameset>
    <frame src="shadpat.htm" name="ShadPat" marginwidth="1" marginheight="1"
scrolling="no" noresize>
    <frame src="asx0.htm" name="Content" marginwidth="1" marginheight="1"
scrolling="auto" noresize>
    <noframes>
    <body>
    <p>This web page uses frames, but your browser doesn't
    support them.</p>
    </body>
    </noframes>
</frameset>

Any suggestions?

Thanks,
Adam

------_=_NextPart_001_01BFDD0C.10BFE220
Content-Type: text/html;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Diso-8859-1">
<META NAME=3D"Generator" CONTENT=3D"MS Exchange Server version =
5.5.2651.75">
<TITLE>LWP::UserAgent</TITLE>
</HEAD>
<BODY>

<P><FONT SIZE=3D2>Hello all,</FONT>
</P>

<P><FONT SIZE=3D2>I was wondering if there was a way to access content =
from sites that contain frames?</FONT>
<BR><FONT SIZE=3D2>I would like to get my perl script to delv into the =
site a bit more instead of getting this response:</FONT>
</P>

<P><FONT SIZE=3D2>&lt;/frameset&gt;</FONT>
<BR><FONT SIZE=3D2>&nbsp;&nbsp;&nbsp; &lt;frame =
src=3D&quot;shadpat.htm&quot; name=3D&quot;ShadPat&quot; =
marginwidth=3D&quot;1&quot; marginheight=3D&quot;1&quot; =
scrolling=3D&quot;no&quot; noresize&gt;</FONT>
<BR><FONT SIZE=3D2>&nbsp;&nbsp;&nbsp; &lt;frame =
src=3D&quot;asx0.htm&quot; name=3D&quot;Content&quot; =
marginwidth=3D&quot;1&quot; marginheight=3D&quot;1&quot; =
scrolling=3D&quot;auto&quot; noresize&gt;</FONT>
<BR><FONT SIZE=3D2>&nbsp;&nbsp;&nbsp; &lt;noframes&gt;</FONT>
<BR><FONT SIZE=3D2>&nbsp;&nbsp;&nbsp; &lt;body&gt;</FONT>
<BR><FONT SIZE=3D2>&nbsp;&nbsp;&nbsp; &lt;p&gt;This web page uses =
frames, but your browser doesn't</FONT>
<BR><FONT SIZE=3D2>&nbsp;&nbsp;&nbsp; support them.&lt;/p&gt;</FONT>
<BR><FONT SIZE=3D2>&nbsp;&nbsp;&nbsp; &lt;/body&gt;</FONT>
<BR><FONT SIZE=3D2>&nbsp;&nbsp;&nbsp; &lt;/noframes&gt;</FONT>
<BR><FONT SIZE=3D2>&lt;/frameset&gt;</FONT>
</P>

<P><FONT SIZE=3D2>Any suggestions?</FONT>
</P>

<P><FONT SIZE=3D2>Thanks,</FONT>
<BR><FONT SIZE=3D2>Adam</FONT>
</P>

</BODY>
</HTML>
------_=_NextPart_001_01BFDD0C.10BFE220--

--__--__--

Message: 21
From: dpl...@close.open.hr (Denis Pleic)
To: Perl...@ActiveState.com
Subject: Need help with regex
Date: Fri, 23 Jun 2000 13:39:04 +0200
Organization: Free-lance translator & interpreter
Reply-To: dpl...@close.open.hr

Hi, Perlers,

I'm having problems with regex(es) which I'm trying to use to remove 
some non-essential data from a text file. The file looks like this:

---how the file looks:

3	<!--L1, S 7-->2.	1
4	<!--L2, S 7-->2.	1
19	<!--L1, S 10-->2.2   'GENERAL CQA RESPONSIBILITIES'  3
20	<!--L2, S 10-->2.2   'OPÃE ODGOVORNOSTI NA OSIGURANJU KONTROLE
KVALITETE - CQA' 3
21	<!--L1, S 11-->2.2.1 Specific CQA Responsibilities of the
Supervising Engineer   5
22	<!--L2, S 11-->2.2.1 Odre­ene CQA odgovornosti nadzornog in×enjera
5
29	<!--L1, S 15-->	3.1   GENERAL  6 otherwise 23.3
30	<!--L2, S 15-->	3.1   OPÃENITO 6 inaÀe 23.3
31	<!--L1, S 133-->* In-situ moisture/density;
32	<!--L2, S 133-->-  vla×nost i gusto©a na licu mjesta;

---etc...

I'm trying to "clean up" the portion in each line after the language 
and item designation, i.e. after "20	<!--L2, S 10-->" portion.

So, basically, I'm working only on strings that follow the first ">" 
character in each line. I'm trying to remove any numbers, spaces, 
tabs or bullet characters from start and end of string. Also, I want 
to skip all lines that don't contain text (i.e. which 
contain only numbers or spaces or tabs).

So, the above file example after processing should look like this:

19	<!--L1, S 10-->'GENERAL CQA RESPONSIBILITIES'
20	<!--L2, S 10-->'OPÃE ODGOVORNOSTI NA OSIGURANJU KONTROLE KVALITETE -
CQA'
21	<!--L1, S 11-->Specific CQA Responsibilities of the Supervising
Engineer
22	<!--L2, S 11-->Odre­ene CQA odgovornosti nadzornog in×enjera
29	<!--L1, S 15-->GENERAL  6 otherwise
30	<!--L2, S 15-->OPÃENITO 6 inaÀe
31	<!--L1, S 133-->In-situ moisture/density;
32	<!--L2, S 133-->vla×nost i gusto©a na licu mjesta;


I've managed to do this much so far, but this doesn't remove 
starting numbers:

# strip non-essential data from lines

if ($#ARGV ne "0") {
   print "Wrong number of arguments!\n";
   print "Syntax: ws-x.pl file\n";
   exit -1;
   }
$OLD=$ARGV[0];
($filename,$ext) = split(/\./, $OLD);
$NEW="$filename\_TW\.$ext";

open OLD, "<$OLD"         or die "can't open $OLD: $!";
open NEW, ">$NEW"         or die "can't open $NEW: $!";

while (<OLD>) {
   if (/>[^a-zA-Z]*$/) {
		next; # skips non-text lines
	} elsif (/>[^a-zA-Z0-9Õð ÃÄÜ­À©×\"\'].*?/) { 
	# i.e. line contains non-valid chars after ">" char
		s/>[^a-zA-ZÕð ÃÄÜ­À©×\"\']+.*?/>/;
		s/>[0-9.]+\s*/>/;
		s/\s*[\d\.\,]+$//;

		$found = $_;
      print NEW $found;

   } else {
     print NEW;
   } # end if

} # end while


Any suggestions? I ned to find out how to strip also the starting 
and ending numbers from lines 19 to 22 - and I haven't come up with a 
solution...

TIA,

Denis


---------------------------------------------------------------------
<--  Croatian Translation & Language Services   --> * dpl...@open.hr
--------------------------------------------------------------------+
Denis Pleic      | Phone: (+385) 42 230-751 
Vodnikova 15     | Fax: (+385) 42 231 598
HR-42000 Varazdin| Mobile: (+385) 98 798 323
 CROATIA         | http://www.open.hr/~dpleic/indx-e.html


--__--__--

Message: 22
Reply-To: <jdis...@carletoninc.com>
From: "Joseph P. Discenza" <jdis...@carletoninc.com>
To: "=?iso-8859-1?B?Sm9z6SBT4W5jaGV6IE1vcmVubw==?="
<jose...@mercadernetworks.com>,
<perl...@listserv.activestate.com>
Subject: RE: Perl Script Question
Date: Fri, 23 Jun 2000 09:18:51 -0400
charset="iso-8859-1"

José Sánchez Moreno wrote, on Thursday, June 22, 2000 06:27
: Hello i'm using PerlScript with Internet Information Server 4
: and Win NT Server 4.0
:
: #I open a conection
: my $conexion = $::Server->CreateObject("ADODB.Connection");
: $conexion->open("myDSN");
:
: Now i want to keep the conection open for all then scripts on the web
: I want to keep the conection on a session variable.. but i don't
: know how do it?

No one has answered you so far, so I'll make my own suggestion:
don't. For reasons I don't entirely understand yet, objects you
want to keep in the Session or Application collections should
be "both" threaded; but if you check regedit, ADODB objects are
"apartment" threaded.

ADO and IIS support what is known as "connection pooling". If
you use the same information in the "Open" method of either
the Connection object or the Recordset object (which is actually
preferable if you only have one recordset open at a time: skip
the explicit Connection object!), IIS will use a connection from
the "pool" it maintains. This is very efficient, avoids threading
questions entirely, and allows you to use Recordsets without
explicit Connection objects. Put your connection string in an
include file or the Application object (perhaps in global.asa
in the Application_OnStart event), or if it depends on some
other input, put the string in the Session object.

But basically, don't put the Connection object in the Session
object.

Joe

==============================================================
          Joseph P. Discenza, Sr. Programmer/Analyst
               mailto:jdis...@carletoninc.com

          Carleton Inc.   http://www.carletoninc.com
          219.243.6040 ext. 300    fax: 219.243.6060

Providing Financial Solutions and Compliance for over 30 Years


--__--__--

Message: 23
From: Adam Stuckey <Adam...@cwo.com.au>
To: "'per...@listserv.activestate.com'"
<perl...@listserv.activestate.com>
Subject:  LWP::UserAgent
Date: Fri, 23 Jun 2000 22:43:43 +1000
boundary="----_=_NextPart_001_01BFDD10.AA65D980"

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.

------_=_NextPart_001_01BFDD10.AA65D980
Content-Type: text/plain;
	charset="iso-8859-1"


Hello all,

I was wondering if there was a way to access content from sites that contain
frames?
I would like to get my perl script to delv into the site a bit more instead
of getting this response:

</frameset>
    <frame src="shadpat.htm" name="ShadPat" marginwidth="1" marginheight="1"
scrolling="no" noresize>
    <frame src="asx0.htm" name="Content" marginwidth="1" marginheight="1"
scrolling="auto" noresize>
    <noframes>
    <body>
    <p>This web page uses frames, but your browser doesn't
    support them.</p>
    </body>
    </noframes>
</frameset>

Any suggestions?

Thanks,
Adam

------_=_NextPart_001_01BFDD10.AA65D980
Content-Type: text/html;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Diso-8859-1">
<META NAME=3D"Generator" CONTENT=3D"MS Exchange Server version =
5.5.2651.75">
<TITLE> LWP::UserAgent</TITLE>
</HEAD>
<BODY>
<BR>

<P><FONT SIZE=3D2>Hello all,</FONT>
</P>

<P><FONT SIZE=3D2>I was wondering if there was a way to access content =
from sites that contain frames?</FONT>
<BR><FONT SIZE=3D2>I would like to get my perl script to delv into the =
site a bit more instead of getting this response:</FONT>
</P>

<P><FONT SIZE=3D2>&lt;/frameset&gt;</FONT>
<BR><FONT SIZE=3D2>&nbsp;&nbsp;&nbsp; &lt;frame =
src=3D&quot;shadpat.htm&quot; name=3D&quot;ShadPat&quot; =
marginwidth=3D&quot;1&quot; marginheight=3D&quot;1&quot; =
scrolling=3D&quot;no&quot; noresize&gt;</FONT>
<BR><FONT SIZE=3D2>&nbsp;&nbsp;&nbsp; &lt;frame =
src=3D&quot;asx0.htm&quot; name=3D&quot;Content&quot; =
marginwidth=3D&quot;1&quot; marginheight=3D&quot;1&quot; =
scrolling=3D&quot;auto&quot; noresize&gt;</FONT>
<BR><FONT SIZE=3D2>&nbsp;&nbsp;&nbsp; &lt;noframes&gt;</FONT>
<BR><FONT SIZE=3D2>&nbsp;&nbsp;&nbsp; &lt;body&gt;</FONT>
<BR><FONT SIZE=3D2>&nbsp;&nbsp;&nbsp; &lt;p&gt;This web page uses =
frames, but your browser doesn't</FONT>
<BR><FONT SIZE=3D2>&nbsp;&nbsp;&nbsp; support them.&lt;/p&gt;</FONT>
<BR><FONT SIZE=3D2>&nbsp;&nbsp;&nbsp; &lt;/body&gt;</FONT>
<BR><FONT SIZE=3D2>&nbsp;&nbsp;&nbsp; &lt;/noframes&gt;</FONT>
<BR><FONT SIZE=3D2>&lt;/frameset&gt;</FONT>
</P>

<P><FONT SIZE=3D2>Any suggestions?</FONT>
</P>

<P><FONT SIZE=3D2>Thanks,</FONT>
<BR><FONT SIZE=3D2>Adam</FONT>
</P>

</BODY>
</HTML>
------_=_NextPart_001_01BFDD10.AA65D980--

--__--__--

Message: 24
Date: Fri, 23 Jun 2000 10:06:20 -0700
From: "$Bill Luebkert" <d...@wgn.net>
Organization: DBE Collectibles
To: "'Perl Mailing list'" <Perl...@listserv.ActiveState.com>
Subject: Re: FTP->mdtm($file)

"Ian D. Stewart" wrote:
> > "Tushar, Kulkarni (GEL, MSX)" wrote:> >> > Even I tried this, the message I got (ftp->message() ) is mdtm is not> > implemented.> > I got a similiar response: "'MDTM index.html': unknown command".> > I looked through RFC 959 (File Transfer Protocol), and could find no> reference to 'MDTM'.  I'm guessing this is either a proprietary command> or one introduced in a later RFC (or perhaps introduced in an earlier> RFC and later deprecated).  In $Bill's case the FTP server he is talking> to implements the command, while ours do not.> > I believe (untested) that you can parse the return value from> $ftp->site() to determine whether the FTP server you are talking to> supports the MDTM command.

You could also parse the response from dir command and get the file 
modification time that way.  dir returns something like:

-rw-r--r--   1 dbe      users        1618 Feb 15 01:13 sb01.htm
drwxr-xr-x   9 dbe      httpd        1024 Dec 24  1998 new

Notice that the time is sometimes the year if not current year.
Just split on WS and check for a colon in the time field [7].
Limit yuor fields to 9 incase there are blanks in file name.

-- 
  ,-/-  __      _  _         $Bill Luebkert   ICQ=14439852
 (_/   /  )    // //       DBE Collectibles   http://www.wgn.net/~dbe/
  / ) /--<  o // //      Mailto:d...@wgn.net   http://dbecoll.webjump.com/
-/-' /___/_<_</_</_    http://www.freeyellow.com/members/dbecoll/

--__--__--

Message: 25
Date: Fri, 23 Jun 2000 12:43:04 -0400
From: "Ian D. Stewart" <i...@c-cor.com>
Reply-To: i...@c-cor.com
Organization: C-COR.net
To: "Tushar, Kulkarni (GEL, MSX)" <Kulk...@Lighting.GE.com>
CC: "'AGa...@globewireless.com'" <AGan...@globewireless.com>,
"'Perl Mailing list'" <Perl...@listserv.ActiveState.com>,
d...@wgn.net
Subject: Re: FTP->mdtm($file)

"Tushar, Kulkarni (GEL, MSX)" wrote:
> > Even I tried this, the message I got (ftp->message() ) is mdtm is not> implemented.

I got a similiar response: "'MDTM index.html': unknown command".

I looked through RFC 959 (File Transfer Protocol), and could find no
reference to 'MDTM'.  I'm guessing this is either a proprietary command
or one introduced in a later RFC (or perhaps introduced in an earlier
RFC and later deprecated).  In $Bill's case the FTP server he is talking
to implements the command, while ours do not.

I believe (untested) that you can parse the return value from
$ftp->site() to determine whether the FTP server you are talking to
supports the MDTM command.


HTH,
Ian

-- 
99 little bugs in the code, 99 bugs in the code.
Fix one bug, compile again, 100 little bugs in the code.
100 little bugs in the code, 100 bugs in the code.
Fix one bug, compile again, 101 little bugs in the code...

--__--__--

Message: 26
Date: Fri, 23 Jun 2000 12:38:08 -0400
From: "James W. Albrecht" <sout...@worldnet.att.net>
Reply-To: sout...@worldnet.att.net
To: perl...@listserv.ActiveState.com
Subject: MS-DOS prompt problem on WIN95

Hi,

I installed ActivePerl-(5.6.0.613.msi ) on Window95 system and the
installation reported successful.

Whenever I run perl from the MS-DOS prompt, e.g. perl --version, I get
output
but then the following error message appears:

This program has performed an illegal operation and will be terminated.
Quit all programs, and then restart your computer.

If the program consistently encounters problems, click the Start button,
then
select Help. Troubleshooting, and 'If you have trouble runnint MS-DOS
programs'.

The program tried to execute an invalid instruction.
Fault location: 0000:0017
Interrupts in service: None.

It goes without saying that the recommended Troubleshooting provides no
help.

Windows version is 4.00.950 B as stated by system control panel.
Many thanks to anyone who might know what is going on here.

                                                    Jim Albrecht



--__--__--

Message: 27
Date: Fri, 23 Jun 2000 09:35:28 -0700
From: "$Bill Luebkert" <d...@wgn.net>
Organization: DBE Collectibles
To: i...@c-cor.com
CC: perl...@listserv.ActiveState.com
Subject: Re: FTP->mdtm($file)

"Ian D. Stewart" wrote:
> > "$Bill Luebkert" wrote:> >> > AGan...@globewireless.com wrote:> > >> > > Does anyone know is any problems with FTP->mdtm( ) method. For some
reason,
> > > I'm unable to get the modification time of a file from a ftp server.
I'm
> > > using PERL 522, NT 4.0. And the Perl Module is Net::Ftp. Please help
me.
> >> > This works for me (I left out the var defines for host, user, pass, dir,
etc.):
> >> > use Net::FTP;> >> > my $ftp = Net::FTP->new($host) or> >   die "Error connecting to $host: $!\n";> > $ftp->login($user, $pass) or die "Error logging in to $host: $!\n";> > my $ret = $ftp->pwd() or die "Error on pwd: $!\n";> > $ftp->cwd($dir) or die "Error cd $dir: $!\n";> > $ret = $ftp->ls() or die "Error on ls: $!\n";> > my @files = sort @$ret;> > foreach (@files) {> >> >         $ret = $ftp->mdtm($_) or (print "Error on MTDM: $!\n", next);> >         print "$_=$ret(";

	    print scalar (localtime $ret);

> >         $ret = $ftp->size($_) or (print "Error on size: $!\n", next);> >         print "), size=$ret\n";> > }> > Curious.  I ran this code and got no output what so ever.  No file> listing, no error messages, nothing.  I even ran it with 'perl -Mstrict> -w' just to be on the safe side.  Same result (or lack there of).> > Thoughts?> > Ian> > --> 99 little bugs in the code, 99 bugs in the code.> Fix one bug, compile again, 100 little bugs in the code.> 100 little bugs in the code, 100 bugs in the code.> Fix one bug, compile again, 101 little bugs in the code...

Just lifted it and tried it exactly as is (plus added use strict and the
defs for 
these: $host, $user, $pass, $dir) and it gave output like this:

...
sb01.htm=950606018(), size=1678
sb02.htm=950606026(), size=1706
sb03.htm=950606033(), size=1697
sb04.htm=950606046(), size=1687
...

It varies with what you have in your dir.  There is a missing line though:

	print scalar (localtime $ret);

which I inserted above in the code segment.

Which makes it look better:

...
sb01.htm=950606018(Tue Feb 15 01:13:38 2000), size=1678
sb02.htm=950606026(Tue Feb 15 01:13:46 2000), size=1706
sb03.htm=950606033(Tue Feb 15 01:13:53 2000), size=1697
sb04.htm=950606046(Tue Feb 15 01:14:06 2000), size=1687
sb05.htm=950606076(Tue Feb 15 01:14:36 2000), size=1701
...


-- 
  ,-/-  __      _  _         $Bill Luebkert   ICQ=14439852
 (_/   /  )    // //       DBE Collectibles   http://www.wgn.net/~dbe/
  / ) /--<  o // //      Mailto:d...@wgn.net   http://dbecoll.webjump.com/
-/-' /___/_<_</_</_    http://www.freeyellow.com/members/dbecoll/

--__--__--

Message: 27
Date: Fri, 23 Jun 2000 09:35:28 -0700
From: "$Bill Luebkert" <d...@wgn.net>
Organization: DBE Collectibles
To: i...@c-cor.com
CC: perl...@listserv.ActiveState.com
Subject: Re: FTP->mdtm($file)

"Ian D. Stewart" wrote:
> > "$Bill Luebkert" wrote:> >> > AGan...@globewireless.com wrote:> > >> > > Does anyone know is any problems with FTP->mdtm( ) method. For some
reason,
> > > I'm unable to get the modification time of a file from a ftp server.
I'm
> > > using PERL 522, NT 4.0. And the Perl Module is Net::Ftp. Please help
me.
> >> > This works for me (I left out the var defines for host, user, pass, dir,
etc.):
> >> > use Net::FTP;> >> > my $ftp = Net::FTP->new($host) or> >   die "Error connecting to $host: $!\n";> > $ftp->login($user, $pass) or die "Error logging in to $host: $!\n";> > my $ret = $ftp->pwd() or die "Error on pwd: $!\n";> > $ftp->cwd($dir) or die "Error cd $dir: $!\n";> > $ret = $ftp->ls() or die "Error on ls: $!\n";> > my @files = sort @$ret;> > foreach (@files) {> >> >         $ret = $ftp->mdtm($_) or (print "Error on MTDM: $!\n", next);> >         print "$_=$ret(";

	    print scalar (localtime $ret);

> >         $ret = $ftp->size($_) or (print "Error on size: $!\n", next);> >         print "), size=$ret\n";> > }> > Curious.  I ran this code and got no output what so ever.  No file> listing, no error messages, nothing.  I even ran it with 'perl -Mstrict> -w' just to be on the safe side.  Same result (or lack there of).> > Thoughts?> > Ian> > --> 99 little bugs in the code, 99 bugs in the code.> Fix one bug, compile again, 100 little bugs in the code.> 100 little bugs in the code, 100 bugs in the code.> Fix one bug, compile again, 101 little bugs in the code...

Just lifted it and tried it exactly as is (plus added use strict and the
defs for 
these: $host, $user, $pass, $dir) and it gave output like this:

...
sb01.htm=950606018(), size=1678
sb02.htm=950606026(), size=1706
sb03.htm=950606033(), size=1697
sb04.htm=950606046(), size=1687
...

It varies with what you have in your dir.  There is a missing line though:

	print scalar (localtime $ret);

which I inserted above in the code segment.

Which makes it look better:

...
sb01.htm=950606018(Tue Feb 15 01:13:38 2000), size=1678
sb02.htm=950606026(Tue Feb 15 01:13:46 2000), size=1706
sb03.htm=950606033(Tue Feb 15 01:13:53 2000), size=1697
sb04.htm=950606046(Tue Feb 15 01:14:06 2000), size=1687
sb05.htm=950606076(Tue Feb 15 01:14:36 2000), size=1701
...


-- 
  ,-/-  __      _  _         $Bill Luebkert   ICQ=14439852
 (_/   /  )    // //       DBE Collectibles   http://www.wgn.net/~dbe/
  / ) /--<  o // //      Mailto:d...@wgn.net   http://dbecoll.webjump.com/
-/-' /___/_<_</_</_    http://www.freeyellow.com/members/dbecoll/

--__--__--

Message: 28
To: Adam Stuckey <Adam...@cwo.com.au>
Cc: perl...@listserv.ActiveState.com
Subject: Re: LWP::UserAgent
From: "Grant Hopwood" <hopw...@valero.com>
Date: Fri, 23 Jun 2000 13:33:49 -0500

-start-
>   Adam Stuckey <Adam...@cwo.com.au>>at    06/23/2000 07:10 AM>I was wondering if there was a way to access content from sites that=20
contain frames?=20
>I would like to get my perl script to delv into the site a bit more=20
instead of getting this response:=20

></frameset>=20>=A0=A0=A0 <frame src=3D"shadpat.htm" name=3D"ShadPat" marginwidth=3D"1"=20
marginheight=3D"1" scrolling=3D"no" noresize>=20
>=A0=A0=A0 <frame src=3D"asx0.htm" name=3D"Content" marginwidth=3D"1" margi=
nheight=3D"1"=20
scrolling=3D"auto" noresize>=20
>=A0=A0=A0 <noframes>=20>=A0=A0=A0 <body>=20>=A0=A0=A0 <p>This web page uses frames, but your browser doesn't=20>=A0=A0=A0 support them.</p>=20>=A0=A0=A0 </body>=20>=A0=A0=A0 </noframes>=20></frameset>=20

If you 'know' the site you're attempting to access, then setting the=20
HTTP::Request object to the specific page you want would be best.

Otherwise you'll need to parse the frames source and extract the links.=20
See HTML::LinkExtor.

Grant Hopwood.
Valero Energy Corp.
(210)370-2380
PGP Public Key: Ldap://certserver.pgp.com

--__--__--

Message: 29
From: "Tushar, Kulkarni (GEL, MSX)" <Kulk...@Lighting.GE.com>
To: "'...@c-cor.com'" <i...@c-cor.com>
Cc: "'Perl Mailing list'" <Perl...@listserv.ActiveState.com>
Subject: RE: FTP->mdtm($file)
Date: Fri, 23 Jun 2000 14:01:27 -0400

	I tried ftp->supported(mdtm), so I got mdtm() not implemented.

-----Original Message-----
From: Ian D. Stewart [mailto:i...@c-cor.com]
Sent: Friday, June 23, 2000 12:12 PM
To: $Bill Luebkert
Cc: AGan...@globewireless.com;
perl...@listserv.ActiveState.com
Subject: Re: FTP->mdtm($file)


"$Bill Luebkert" wrote:
> > AGan...@globewireless.com wrote:> >> > Does anyone know is any problems with FTP->mdtm( ) method. For some
reason,
> > I'm unable to get the modification time of a file from a ftp server. I'm> > using PERL 522, NT 4.0. And the Perl Module is Net::Ftp. Please help me.> > This works for me (I left out the var defines for host, user, pass, dir,
etc.):
> > use Net::FTP;> > my $ftp = Net::FTP->new($host) or>   die "Error connecting to $host: $!\n";> $ftp->login($user, $pass) or die "Error logging in to $host: $!\n";> my $ret = $ftp->pwd() or die "Error on pwd: $!\n";> $ftp->cwd($dir) or die "Error cd $dir: $!\n";> $ret = $ftp->ls() or die "Error on ls: $!\n";> my @files = sort @$ret;> foreach (@files) {> >         $ret = $ftp->mdtm($_) or (print "Error on MTDM: $!\n", next);>         print "$_=$ret(";>         $ret = $ftp->size($_) or (print "Error on size: $!\n", next);>         print "), size=$ret\n";> }

Curious.  I ran this code and got no output what so ever.  No file
listing, no error messages, nothing.  I even ran it with 'perl -Mstrict
-w' just to be on the safe side.  Same result (or lack there of).

Thoughts?


Ian

-- 
99 little bugs in the code, 99 bugs in the code.
Fix one bug, compile again, 100 little bugs in the code.
100 little bugs in the code, 100 bugs in the code.
Fix one bug, compile again, 101 little bugs in the code...
_______________________________________________
Perl-Win32-Users mailing list
Perl...@listserv.ActiveState.com
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

--__--__--

Message: 30
Reply-To: <mich...@lexingtoneye.com>
From: "Michael Flanagan" <dan...@uniserve.com>
To: "Perl-Win32-Users" <Perl...@listserv.ActiveState.com>
Subject: RE: how to email with attachment?
Date: Fri, 23 Jun 2000 10:57:17 -0600
charset="iso-8859-1"

Take a look at the package Mail::Sender located at
http://jenda.krynicky.cz/perl/Sender.pm.html

I use it to attach proxy server logs to an email that runs as a scheduled
task. It works great for what I need it to do. You can attach multiple
attachments with this module.

Cheers,
Michael

-----Original Message-----
From: perl...@listserv.ActiveState.com
[mailto:perl...@listserv.ActiveState.com]On Behalf Of Tao
Wei
Sent: Friday, June 23, 2000 1:45 AM
To: perl...@listserv.ActiveState.com
Subject: how to email with attachment?


Hi there,

    I am wondering if there is a package or module that let me send
email with attachment. Thanks.

Wei Tao

_______________________________________________
Perl-Win32-Users mailing list
Perl...@listserv.ActiveState.com
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users



--__--__--

Message: 31
From: "Paul Popour" <ppop...@infoave.net>
To: "Tao Wei" <tao_...@hms.harvard.edu>,
<perl...@listserv.ActiveState.com>
Subject: Re: how to email with attachment?
Date: Fri, 23 Jun 2000 13:53:26 -0400
charset="iso-8859-1"

-----Original Message-----
From: Tao Wei <tao_...@hms.harvard.edu>
To: perl...@listserv.ActiveState.com
<perl...@listserv.ActiveState.com>
Date: Friday, June 23, 2000 1:43 PM
Subject: how to email with attachment?


>Hi there,>>    I am wondering if there is a package or module that let me send>email with attachment. Thanks.>


http://jenda.mccann.cz/#Mail::Sender



--__--__--

_______________________________________________
Perl-Win32-Users mailing list
Perl...@listserv.ActiveState.com
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users


End of Perl-Win32-Users
Digest_______________________________________________
Perl-Win32-Users mailing list
Perl...@listserv.ActiveState.com
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

Recent Messages in this Thread
Jimmy Li Jun 24, 2000 12:34 am