[11143] in Perl-Users-Digest
Perl-Users Digest, Issue: 4742 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jan 25 13:07:23 1999
Date: Mon, 25 Jan 99 09:00:23 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 25 Jan 1999 Volume: 8 Number: 4742
Today's topics:
Re: [Q] regexp or split? How do I prune this string: d2 <ludlow@us.ibm.com>
Re: About this <Michael.Muldner@acadiau.ca>
Can you pattern match using an array? <bfreedman@esdim.noaa.gov>
CGI, DB's and Browser Stop Button (Jere Julian - Personal Account)
Re: Creating a standalone executable from a perl script (Jim Weisgram)
edit @INC?/DBI install--Can't locale Config.pm <mark@dimtrinet.demon.co.uk>
Execute of Program on Server <kevink@NOSPAMinfograph.com>
Re: file ownership in NT (Jere Julian - Personal Account)
Re: HELP WANTED: Appending a text file. <jim.michael@gecm.com>
HELP-- Used Perl2exe; form not working <berntsen@altavista.netX>
Re: How long would the Unixes last without Perl? (Clay Irving)
Re: How long would the Unixes last without Perl? (Abigail)
Re: How long would the Unixes last without Perl? <rmshair@delphi.itg.uiuc.edu>
How to count match and only substitute a given number o (Bei)
Re: http client file download? <Michael.Muldner@acadiau.ca>
Re: JPEG manipulation in PERL (Clay Irving)
JPERL FOR WIN32 <desmond@banta-im.com>
Need return code reference <A@A.A.A>
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Newbie question: writing file <tbriles@austin.ibm.com>
Re: NT User Admin Script (Jere Julian - Personal Account)
Perl - Novell - Upload problem with cgi-lib : File bigg <pouimet@lanasys.qc.ca>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 25 Jan 1999 09:44:03 -0600
From: James Ludlow <ludlow@us.ibm.com>
Subject: Re: [Q] regexp or split? How do I prune this string: d20+4 ??
Message-Id: <36AC9143.1B580D14@us.ibm.com>
Rick Delaney wrote:
>
> James Ludlow wrote:
> >
> > m/^ # beginning of string
> > d # literal 'd'
> > \d+ # at least one digit
> > \+{1} # 1 plus sign
> ^^^
> That's a bit redundant.
>
> \+ # a plus sign
Yup, it's redundant. It's also slower. I guess, at the time, I thought
that it was a little easier to read with the {1}. Anyway, thanks for
pointing it out.
#!/usr/bin/perl -w
use Benchmark;
$string = "d20+4";
timethese (1 << (shift || 0), {
explicit => sub{ $string =~ m/^d\d+\+{1}(\d+)$/ },
implicit => sub{ $string =~ m/^d\d+\+(\d+)$/ },
});
Benchmark: timing 2097152 iterations of explicit, implicit...
explicit: 30 secs (29.71 usr 0.20 sys = 29.91 cpu)
implicit: 29 secs (28.36 usr 0.05 sys = 28.41 cpu)
--
James Ludlow (ludlow@us.ibm.com)
(Any opinions expressed are my own, not necessarily those of IBM)
------------------------------
Date: Mon, 25 Jan 1999 09:35:27 -0400
From: Michael Muldner <Michael.Muldner@acadiau.ca>
Subject: Re: About this
Message-Id: <36AC731F.5AECFB74@acadiau.ca>
Try the following:
man perlipc (the IPC manpage for Perl)
man perlfaq8 (System Interaction Interprocess communication (IPC),
control over the user-interface (keyboard, screen and pointing devices).
man perlfaq9 (Networking, the Internet, and a few on the web
Mike
Michael Muldner
Academic Computing Specialist
Acadia Institute for Teaching and Technology [Sandbox]
Acadia University, NS Canada
(902) 585 1774
Michael.Muldner@acadiau.ca
http://dragon.acadiau.ca/~mmuldner/
Terracini wrote:
> Hello,
> I would like to know about:
> Socket- STDIN/STDOUT and SERVER PUSH.
> If someone can tell me about...
>
> Thanks,
> Fabio Terracini
------------------------------
Date: Mon, 25 Jan 1999 10:29:13 -0500
From: Bob Freedman <bfreedman@esdim.noaa.gov>
Subject: Can you pattern match using an array?
Message-Id: <36AC8DC9.66C04D87@esdim.noaa.gov>
Can you match a pattern using an array of strings?
if (/@key/i) {....
------------------------------
Date: 25 Jan 1999 13:55:38 GMT
From: julianje@mercury.interpath.com (Jere Julian - Personal Account)
Subject: CGI, DB's and Browser Stop Button
Message-Id: <78ht4q$bca$3@gaddy.interpath.net>
Whenever a large database search is going on and a user cacels the action by
pressing stop on the browser, the Perl process appears to get stuck on the
process list and can only be killed by a restart. Now, I admit I am a UNIX
person forced into WinNT but here is my info.
WinNT4.0
IIS 3
Activestate Perl 500.5 (ActivePerl)
Win32::ODBC to a MS Access97 "System DSN"
Assorted browsers including Netscrap 4.05, Inet Exploder 4.01, etc
I you hit stop before the CGI has retrieved all the records, it hangs. BTW
I am very concerned about this because that stray perl process drags the server to a crawl. (ie. it takes almost a minute just for the TaskManager to appear
and that's on a PII 350, 256 Mb RAM runing nothing else.
Thank you,
-Jere
Network Admin., LADD Upholstery Group
mailto:jjulian@laddnet.com
------------------------------
Date: Mon, 25 Jan 1999 16:47:55 GMT
From: jweisgram@hotmail.com (Jim Weisgram)
Subject: Re: Creating a standalone executable from a perl script (Win32)
Message-Id: <36ae9aad.160999805@news.teleport.com>
mpacker@concentric.net (Martin Packer) wrote:
>I am trying to use a simple perl script I wrote to the server at a Middle
>School that I am doing some volunteer work for. If I can get away with it,
>I would rather not have a full Perl (even in binary form) install on their
>server. Given that, I am trying to puzzle out how I would turn a Perl
>script into a stand alone .exe file (this is all a Win32 environment).
>
[...snip...]
There is a shareware "Perl2Exe" that will convert the Perl script to an EXE
file. Look on www.perl.com and find the Win32 section and I believe you will
find it with little difficulty.
Why wouldn't the school want the Perl environment installed on the server? It
could turn out to be useful in a number of ways.
--
Jim Weisgram
Oregon Department of Transportation
email: jweisgram@hotmail.com
All opinions expressed are mine and not my employers (but they ought to be)
------------------------------
Date: Mon, 25 Jan 1999 16:18:22 +0000
From: Mark Hamlin <mark@dimtrinet.demon.co.uk>
Subject: edit @INC?/DBI install--Can't locale Config.pm
Message-Id: <36AC994E.AF3EE7BD@dimtrinet.demon.co.uk>
Today,
Installed Perl 5 on Solaris using pkgadd. I tested with a very simple
script and with some functionality which wasn't working before, ie
perldoc. All seemed fine.
Second task of the day is installind DBI with oracle DBD
On attempting to install DBI (before DBD) I got an error after the:
perl Makefile.PL
# perl Makefile.PL
Can't locate Config.pm in @INC at
/usr/local/lib/perl5/ExtUtils/MakeMaker.pm line 13.
BEGIN faled--compilation aborted at
/usr/local/lib/perl5/ExtUtils/MakeMaker.pm line 13.
BEGIN failed--compilation aborted at Makefile.PL line 14.
I do have the Config.pm file, which on my machine is located at :
/usr/local/lib/perl5/sun4-solaris/5.00401/Config.pm
My @INC path as displayed vi: perl -e 'print "@INC'" is:
/usr/local/lib/perl5/sun4-solaris/5.004 /usr/local/lib/perl5
/usr/local/lib/perl5/site_perl/sun4-solaris
/usr/local/lib/perl5/site_perl
Is the @INC path the cause of the problem and if so how do I change it.
+Is there an easy where to verify my Perl installation? Is it expected
to see a lot of references to perl5.004xx when the build I installed
(from Suns Solaris freewhere site specifically for Solaris 2.6) is
marked 5.005_2?
Thanks for your help. Where would I be without NGs????? Up the
preverbial creek minus the preverbial paddle!!!
Cheers again,
Mark Hamlin
please send (cc) response via e-mail.
------------------------------
Date: Mon, 25 Jan 1999 16:48:40 GMT
From: "Kevin Keil" <kevink@NOSPAMinfograph.com>
Subject: Execute of Program on Server
Message-Id: <If1r2.204$na2.876614@client.news.psi.net>
I setup a new server that I want to execute a .exe program. It is giving me
a "CGI Error."
Does anyone know what I can do to get this working? The program worked on my
old server.
I checked the execute settings and they are set in IIS to execute. It is a
NT 4.0 server with IIS 4.0
I also have perl installed but it should not need this to run a .exe on the
server side.
Error below: (NOTE: it did not have any info at then ending of the error
code)
CGI Error
The specified CGI application misbehaved by not returning a complete set of
HTTP headers. The headers it did return are:
Kevin
kevink@NOSPAMinfograph.com
------------------------------
Date: 25 Jan 1999 13:37:14 GMT
From: julianje@mercury.interpath.com (Jere Julian - Personal Account)
Subject: Re: file ownership in NT
Message-Id: <78hs2a$bca$2@gaddy.interpath.net>
jmpnz@my-dejanews.com wrote:
: Is there a way (module/lib) to check the ownership of a file under NT? I need
: to collects statics on who owns what file on my network.
Have you looked at Win32::FileSecurity module?
-Jere
------------------------------
Date: Mon, 25 Jan 1999 08:08:33 -0500
From: Jim Michael <jim.michael@gecm.com>
Subject: Re: HELP WANTED: Appending a text file.
Message-Id: <36AC6CD1.F6@gecm.com>
networks@skynet.co.uk wrote:
> Hi,
Howdy,
> Can someone help me with this: How do I append a text file? I'm
> opening the file like this
>
> open (DATAFILE, ">>names.txt");
You should test for file open:
open (DATAFILE, ">>names.txt") || die("Can't open names.txt - $!");
> but how do I add the new information to the file? the info will be one
> word.
Perldoc is your friend:
perldoc -f print
Essentially, you just print to the file after opening in append mode:
my $myword = 'word';
print DATAFILE "$myword\n"; # append a word and newline
HTH.
Cheers,
Jim
--
May the Source be with you.
------------------------------
Date: Mon, 25 Jan 1999 08:15:48 -0500
From: "Nancy B." <berntsen@altavista.netX>
Subject: HELP-- Used Perl2exe; form not working
Message-Id: <78hqtm$jvo@beast.connix.com>
I am new to cgi and perl scripts, etc. (and this newsgroup) but follow
directions pretty well.
I set up a classifieds page at http://willimantic.net/index2.html that
refuses to work.
I converted a nice and simple classifieds scripts obtained from
www.notts.net using p2xstd.exe from the free perl2exe software as my host
site does not use cgi script but recommends converting it using that
program. This script requires at least Perl v.4 to run. Did I use the wrong
conversion file in converting it?
I get this message:
"HTTP Error 405
405 Method Not Allowed
The method specified in the Request Line is not allowed for the resource
identified by the request. Please ensure that you have the proper MIME type
set up for the resource you are requesting.
Please contact the server's administrator if this problem persists."
The script refers to "sendmail" in my cgi-bin in addition to three converted
scripts.
Where to I go from here? I'd really like to work this out as I have another
site using Delphi.com and I'd like to get off of there and have complete
control over my ads sites.
I'm willing to consider switching to another classifieds script but I prefer
a free one that allows the user to remove his/her own ads or the
administrator to do so by date.
Please CC me, berntsen@altavista.net if you have a suggestion.
Thank you,
Nancy B.
remove X from my email address to reply or click below:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
berntsen@altavista.net cheap@oikourgos.com
Home schoolers: CHEAP used books
http://www.oikourgos.com/cheap
------------------------------
Date: 25 Jan 1999 08:03:10 -0500
From: clay@panix.com (Clay Irving)
Subject: Re: How long would the Unixes last without Perl?
Message-Id: <78hq2e$lp6$1@panix.com>
In <36ABF11F.C0F8A4B1@snailgem.org> Eugene Sotirescu <eugene@snailgem.org> writes:
>Clay Irving wrote:
>> RedHat does come with a perl5 distribution...
>RedHat does indeed install Perl.
>The problem with RH, however, is that they grab whatever looks like the
>latest Perl distro and blindly rpm it for distribution.
>After upgrading to RH 5.2, for example, here's what I have:
>perl -V
>. . . . .
>Locally applied patches:
> MAINT_TRIAL_4 - 5.004_05 maintenance trial 4
>. . . . . .
>They have also distributed an rpm that installs Perl with threads
>enabled ;----(
Yeah, but... Its easy enough to install the latest release. Get the source
and compile it with gcc (also included with RedHat).
--
Clay Irving
clay@panix.com
------------------------------
Date: 25 Jan 1999 16:07:52 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: How long would the Unixes last without Perl?
Message-Id: <78i4so$o5h$1@client2.news.psi.net>
Kent Perrier (kperrier@blkbox.com) wrote on MCMLXXII September MCMXCIII
in <URL:news:ysiaez9l1o8.fsf@blkbox.com>:
!! abigail@fnx.com (Abigail) writes:
!!
!! > Doesn't HP ship perl4 by default? And doesn't RedHat come with some
!! > form of Perl?
!! >
!!
!! I don't have any experience with HP-UX and I don't consider RedHat a
!! commercial unix.
What's your definition of a commercial Unix then?
Abigail
--
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
"\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
"\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
------------------------------
Date: 25 Jan 1999 16:52:05 GMT
From: Bob Shair <rmshair@delphi.itg.uiuc.edu>
Subject: Re: How long would the Unixes last without Perl?
Message-Id: <78i7fl$5u0$1@vixen.cso.uiuc.edu>
Eugene Sotirescu <eugene@snailgem.org> wrote:
> If by "commercial" you mean closed-source, you're probably right. But
> both Caldera and RedHat sell their Linux distros with Perl as part of
> the installation (Debian does too, but that might not be "commercial"
> enough).
--
I can confirm that HP ships Perl with their closed-source Unix:
/usr/contrib/bin/perl -v
This is perl, version 4.0
$RCSfile: perl.c,v $$Revision: 4.0.1.8 $$Date: 1993/02/05 19:39:30 $
Patch level: 36
Of course, we don't USE the version which they ship:
perl -v
This is perl, version 5.004_04 built for PA-RISC1.1
--
Bob Shair rmshair@delphi.itg.uiuc.edu
Open Systems Specialist Champaign, Illinois
/* Opinions expressed are mine... go get your own! */
------------------------------
Date: Mon, 25 Jan 1999 15:33:10 GMT
From: xiaobei@netcene.com (Bei)
Subject: How to count match and only substitute a given number of match?
Message-Id: <36ac8bcc.244121@news.giganews.com>
given a string:
$str = "today is monday, yesterday is sunday.";
how can I count the match /day/?
and how can I only substitute the first two days and make the output
like:
$str = "to<font color="red">day</font> is mon<font
color="red">day</font>, yesterday is sunday.";
Thanks.
Bei.
------------------------------
Date: Mon, 25 Jan 1999 09:37:24 -0400
From: Michael Muldner <Michael.Muldner@acadiau.ca>
Subject: Re: http client file download?
Message-Id: <36AC7393.44C9CEC@acadiau.ca>
Most likely your problem is mime types... make sure your server has a mime
type listing for the extension of the file you are serving. If it doesn't
then it will spit out
garbage on the request.
Mike
----
Michael Muldner
Academic Computing Specialist
Acadia Institute for Teaching and Technology [Sandbox]
Acadia University, NS Canada
(902) 585 1774
Michael.Muldner@acadiau.ca
http://dragon.acadiau.ca/~mmuldner/
s123@ptd.net wrote:
> Does anyone know how to download a file using something like LWP?
> I can retrieve and submit using post, however, when I want to retrieve
> a special non-html file (you know when you are in a browser and it
> asks you to save a file that your are downloading) I get an error.
> Can maybe I need some special Accept command in my headers?
>
> Any help is appreciated!
------------------------------
Date: 25 Jan 1999 08:50:10 -0500
From: clay@panix.com (Clay Irving)
Subject: Re: JPEG manipulation in PERL
Message-Id: <78hsqi$os2$1@panix.com>
In <36ABA4CE.B9A3C4A3@env.qld.gov.au> Andrew Wild <Andrew.Wild@env.qld.gov.au> writes:
>I am trying to find out if there are any modules/libaries availble to do
>JPEG image manipulation. i.e. To resize a JPEG image etc.
http://reference.perl.com/query.cgi?graphics
--
Clay Irving
clay@panix.com
------------------------------
Date: Mon, 25 Jan 1999 05:35:00 -0800
From: Dave Esmond <desmond@banta-im.com>
Subject: JPERL FOR WIN32
Message-Id: <36AC7303.4E64DD23@banta-im.com>
Has anyone gotten JPerl ported to ActiveState yet (or any other Win32
Perl version?)
Thanks,
-d
--
------------------------------------------------
WE'VE MOVED! PLEASE NOTE THE NEW PHONE NUMBER!
------------------------------------------------
Dave Esmond Lead Engineer
Banta Integrated Media Santa Clara, CA
408.486-5552 office (direct)
desmond@banta-im.com http://www.banta-im.com
------------------------------
Date: Mon, 25 Jan 1999 10:51:10 -0500
From: "A@A.A.A" <A@A.A.A>
Subject: Need return code reference
Message-Id: <36AC92ED.1EAF23BA@uconnvm.uconn.edu>
Folks,
Does anyone know where I can find a complete listing of codes returned
by the
SYSTEM and/or WAIT functions? If you know please email me
directly.Thanks, -A
andy@uconnvm.uconn.edu
------------------------------
Date: 25 Jan 1999 16:08:33 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <78i4u1$8e8$2@info.uah.edu>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 18 Jan 1999 16:05:56 GMT and ending at
25 Jan 1999 07:21:51 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 1998 Greg Bacon. All Rights Reserved.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 290 (49.8% of all posters)
Articles: 447 (28.1% of all articles)
Volume generated: 689.7 kb (25.9% of total volume)
- headers: 322.9 kb (6,559 lines)
- bodies: 362.1 kb (11,745 lines)
- original: 270.3 kb (9,040 lines)
- signatures: 4.3 kb (103 lines)
Original Content Rating: 0.746
Averages
========
Posts per poster: 1.5
median: 1.0 post
mode: 1 post - 217 posters
s: 1.6 posts
Message size: 1580.1 bytes
- header: 739.8 bytes (14.7 lines)
- body: 829.5 bytes (26.3 lines)
- original: 619.1 bytes (20.2 lines)
- signature: 9.7 bytes (0.2 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
12 11.8 ( 8.8/ 3.0/ 3.0) KernelKlink@webtv.net
12 32.6 ( 12.1/ 20.5/ 12.8) Andrew Fry <andrewf@beausys.demon.co.uk>
11 15.2 ( 7.5/ 7.7/ 2.7) Abraham Grief <abey@hill.ucr.edu>
8 13.7 ( 5.9/ 7.9/ 5.2) Joe Laffey <joe@laffeycomputer.com>
8 15.1 ( 5.4/ 9.7/ 5.3) Scott Craig <scott.craig@moh.hnet.bc.ca>
7 9.0 ( 4.3/ 4.7/ 2.1) "Ban Spam Now" <no_spam@no_spam.com>
7 8.4 ( 4.9/ 3.5/ 1.4) Kiril <spam.me@idea.co.uk>
6 5.7 ( 3.6/ 2.0/ 2.0) "Brian Thompson" <hitbyabus@mindspring.com>
6 8.3 ( 6.8/ 1.5/ 1.4) "STONES ARE GOD!!" <Jesusisaphonygod@getreal.net>
5 7.4 ( 4.0/ 2.8/ 1.4) mike@fat.dotat.at (Mike Bristow)
These posters accounted for 5.2% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
32.6 ( 12.1/ 20.5/ 12.8) 12 Andrew Fry <andrewf@beausys.demon.co.uk>
15.2 ( 7.5/ 7.7/ 2.7) 11 Abraham Grief <abey@hill.ucr.edu>
15.1 ( 5.4/ 9.7/ 5.3) 8 Scott Craig <scott.craig@moh.hnet.bc.ca>
13.7 ( 5.9/ 7.9/ 5.2) 8 Joe Laffey <joe@laffeycomputer.com>
11.8 ( 8.8/ 3.0/ 3.0) 12 KernelKlink@webtv.net
9.0 ( 4.3/ 4.7/ 2.1) 7 "Ban Spam Now" <no_spam@no_spam.com>
8.4 ( 4.9/ 3.5/ 1.4) 7 Kiril <spam.me@idea.co.uk>
8.3 ( 6.8/ 1.5/ 1.4) 6 "STONES ARE GOD!!" <Jesusisaphonygod@getreal.net>
7.4 ( 4.0/ 2.8/ 1.4) 5 mike@fat.dotat.at (Mike Bristow)
7.1 ( 1.6/ 5.5/ 5.0) 2 chester@ma.ultranet.com
These posters accounted for 4.8% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 3.0 / 3.0) 12 KernelKlink@webtv.net
1.000 ( 2.0 / 2.0) 6 "Brian Thompson" <hitbyabus@mindspring.com>
0.963 ( 1.9 / 2.0) 4 David Nillesen <dave@northnet.com.au>
0.929 ( 1.4 / 1.5) 6 "STONES ARE GOD!!" <Jesusisaphonygod@getreal.net>
0.921 ( 3.4 / 3.7) 4 mpacker@concentric.net (Martin Packer)
0.909 ( 1.8 / 2.0) 4 "Matt Johnson" <cpuweb@cpuweb.com>
0.892 ( 1.8 / 2.0) 3 ttxyxexr@airxmail.net ((//trxby))
0.877 ( 1.6 / 1.9) 3 bgilbert@sgi.com
0.745 ( 0.9 / 1.2) 3 "Henk Slaaf" <henk@crash.nu>
0.743 ( 3.3 / 4.4) 3 "Steve" <seemessage>
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.541 ( 5.3 / 9.7) 8 Scott Craig <scott.craig@moh.hnet.bc.ca>
0.538 ( 1.0 / 1.9) 3 corliss@sinbad.net
0.497 ( 1.4 / 2.8) 5 mike@fat.dotat.at (Mike Bristow)
0.446 ( 2.1 / 4.7) 7 "Ban Spam Now" <no_spam@no_spam.com>
0.397 ( 1.4 / 3.5) 7 Kiril <spam.me@idea.co.uk>
0.388 ( 0.8 / 2.1) 3 "Denny John" <denny.john@btinternet.com>
0.363 ( 0.6 / 1.8) 3 "Karl" <karl@nospamaddYproline.at>
0.355 ( 2.7 / 7.7) 11 Abraham Grief <abey@hill.ucr.edu>
0.323 ( 0.6 / 2.0) 3 "Familie Elst" <elst.fels@nospam.ping.be>
0.287 ( 0.6 / 2.3) 3 jamion@geocities.com
26 posters (8%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
56 haslawww@friko7.onet.pl (Best Passwords to sex pages )
36 "STONES ARE GOD!!" <Jesusisaphonygod@getreal.net>
12 firewevrMAPSITNA@insync.net (erikc)
7 corliss@sinbad.net
6 "MindSpring User" <kdp10@mindspring.com>
6 Julian Daniel <hachon@hotmail.com>
5 "Network Conexion Inc." <netaid@tamcotec.com>
5 bdefreese@sportsspecialties.com (Barry deFreese)
5 "jim" <ji1@home.com>
4 Stephen <stephen@edtechnews.com>
------------------------------
Date: Mon, 25 Jan 1999 08:57:09 -0600
From: Tom Briles <tbriles@austin.ibm.com>
Subject: Re: Newbie question: writing file
Message-Id: <36AC8645.8DCB169C@austin.ibm.com>
Kevin D. Chester wrote:
> Hello Again,
>
> I guess maybe I have not furnished enough info. Here is the tokens dir.
> permissions:
>
> drw-rw-rw- 2 beanbag wheel 512 Jan 23 02:36 tokens
>
You're misunderstanding how permissions work.
You must have execute (x) permissions for a directory to create or modify files in
the directory.
- Tom
------------------------------
Date: 25 Jan 1999 13:20:38 GMT
From: julianje@mercury.interpath.com (Jere Julian - Personal Account)
Subject: Re: NT User Admin Script
Message-Id: <78hr36$bca$1@gaddy.interpath.net>
lchuck@home.com wrote:
: to fight my way up the corporate ladder. What I am attempting to do is to
: find or write a script in Perl that can create, copy, and manipulate users in
: our Windows NT domain. It would need to be able to accept input, in the form
: of a name, and then find out it that name already exists and if it does, put
: a number after the user name in order to make it unique. Can anyone tell me
I have such a script... Well most of what you want. It is based on the O'Reilly book "Windows NT User Administration" at http://www.oreilly.com/catalog/winuser/ Under Examples you will need the Win32::UserAdmin module which expands on the existion standard modules. You will also need pw32i306.exe (for i386, or see the appropriate Perl-Win32 build 306) available from ftp.activestate.com/Perl-Win32/Release
This script takes a text file of names separated by groups(Departmants, etc.) separated by a Blank Line and a Template user to copy and creates the user, permissions, creates home directory and sets those permissions. It outputs a Comma Separated File as {Full Name},{Username},{Generated Password} which is great for mail merging into a memo.
The changes I made are kind of rough but If interested I will be happy to email the script or post it if there's enough response.
-Jere
mailto:jjulian@laddnet.com
Network Admin, LADD Upholstery Group
------------------------------
Date: Mon, 25 Jan 1999 09:40:52 -0500
From: "Pierre Ouimet" <pouimet@lanasys.qc.ca>
Subject: Perl - Novell - Upload problem with cgi-lib : File bigger!
Message-Id: <5q%q2.139$4y.480@wagner.videotron.net>
Hi !
I used cgi-lib.pl to upload with fup.cgi (That a demo a found).
I'm on Novell, but seem to do the same thing on NT too.
with the text file I don't have problem but with binary file.
The file after uploaded was bigger ! With the HEXEDIT program
I see that : The perl script add caracter 0D (decimal is 13 = return)
before caracter 0A but not if already have 0D and 0A togheter.
Since 1 weeks ago I'm searching what can be the problem.
Someone know what is it ?
Please help me! It's very important!
I can lost my job if I don't find a solution for my problem! :)
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 4742
**************************************
